Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 24.09.2007, 11:36   #1
WIC
Форумчанин Подтвердите свой е-майл
 
Регистрация: 21.09.2007
Сообщений: 138
По умолчанию Копирование текста ячейки 2 цветов

Здравствуйте, задача такая:
1) есть несколько листов, шапка в них повторяется.
2) на каждом листе есть 1 ячейка, где написан месяц. К примеру: July/Июль.
3) На англ. надпись красным цветом, на русском черным.

Можно ли, сделать так, чтобы достаточно было ввести название месяца в ячейку одного листа, при этом на других листах отобразилась та же надпись с тем же форматированием?
WIC вне форума
Старый 24.09.2007, 12:25   #2
madmot
Форумчанин
 
Регистрация: 04.09.2007
Сообщений: 155
По умолчанию

Sub CopyValue()
Dim wSheet As Worksheet 'переменная Лист
'Для всех листов книги
For Each wSheet In Worksheets
'копируем содержимое Лист1 Ячейка А1
Worksheets(1).Range("A1").Copy Destination:=wSheet.Range("A1")
Next
End Sub
madmot вне форума
Старый 24.09.2007, 12:54   #3
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

WIC, Excel позволяет работать сразу с несколькими листами, поэтому, если Вы сгруппируете необходимые листы (а это можно сделать различными способами, например, подвести курсор мышки к ярлычку любого листа, кликнуть правой кнопкой мышки и в появившемся контекстном меню выбрать команду Выделить все листы, либо, если необходимо сгруппировать только избранные листы, выделить нужный лист, нажать клавишу CTRL и удерживая клавишу в этом состоянии, выделить все остальные листы, при этом, листы не обязательно должны быть смежными. Ибо, если листы являются смежными, то можно выделить самый первый/последний лист, нажать клавишу SHIFT и удерживая её выделить самый последний/первый лист), а затем скопируете ячейку, содержащую различные параметры форматирования, то это будет применено ко всем выделенным листам. Кроме того, после создания группы листов, можно воспользоваться и командой Правка-Заполнить-По листам.

Если же подобные телодвижения Вам не завлекательны и хочется(и в этом есть смысл) обойтись без лишних телодвижений, то можно воспользоваться макросами, точнее сказать событием рабочего листа Worksheet_Change()

Впрочем, если ячейка куда будет вводиться месяц, постоянна, т.е. и лист и адрес меняться не будут, то создать нужный эффект можно и без макросов и без группировки, в общем, выбирайте любой из вариантов, если нужны небольшие примеры [2] или [3] то тему всегда можно продолжить.
pashulka вне форума
Старый 24.09.2007, 13:32   #4
WIC
Форумчанин Подтвердите свой е-майл
 
Регистрация: 21.09.2007
Сообщений: 138
По умолчанию

Вариант с группировкой листов подошел. А листы смежные и адрес ячейки на них постоянен.
Благодарю!
WIC вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование текста из Memo bulkin2000 Компоненты Delphi 3 30.04.2012 14:03
Копирование текста столбцами CoDeR Общие вопросы Delphi 5 31.07.2008 19:07
Копирование участка текста из Экселя в Ворд Devourer12345 Microsoft Office Excel 3 30.07.2008 08:13
Поиск и копирование текста из консольного окна Mago Паскаль, Turbo Pascal, PascalABC.NET 8 25.07.2008 15:04
Выемка текста из ячейки rexec Microsoft Office Excel 8 29.04.2008 10:05