|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
24.09.2007, 11:36 | #1 |
Форумчанин Подтвердите свой е-майл
Регистрация: 21.09.2007
Сообщений: 138
|
Копирование текста ячейки 2 цветов
Здравствуйте, задача такая:
1) есть несколько листов, шапка в них повторяется. 2) на каждом листе есть 1 ячейка, где написан месяц. К примеру: July/Июль. 3) На англ. надпись красным цветом, на русском черным. Можно ли, сделать так, чтобы достаточно было ввести название месяца в ячейку одного листа, при этом на других листах отобразилась та же надпись с тем же форматированием? |
24.09.2007, 12:25 | #2 |
Форумчанин
Регистрация: 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 |
24.09.2007, 12:54 | #3 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 524
|
WIC, Excel позволяет работать сразу с несколькими листами, поэтому, если Вы сгруппируете необходимые листы (а это можно сделать различными способами, например, подвести курсор мышки к ярлычку любого листа, кликнуть правой кнопкой мышки и в появившемся контекстном меню выбрать команду Выделить все листы, либо, если необходимо сгруппировать только избранные листы, выделить нужный лист, нажать клавишу CTRL и удерживая клавишу в этом состоянии, выделить все остальные листы, при этом, листы не обязательно должны быть смежными. Ибо, если листы являются смежными, то можно выделить самый первый/последний лист, нажать клавишу SHIFT и удерживая её выделить самый последний/первый лист), а затем скопируете ячейку, содержащую различные параметры форматирования, то это будет применено ко всем выделенным листам. Кроме того, после создания группы листов, можно воспользоваться и командой Правка-Заполнить-По листам.
Если же подобные телодвижения Вам не завлекательны и хочется(и в этом есть смысл) обойтись без лишних телодвижений, то можно воспользоваться макросами, точнее сказать событием рабочего листа Worksheet_Change() Впрочем, если ячейка куда будет вводиться месяц, постоянна, т.е. и лист и адрес меняться не будут, то создать нужный эффект можно и без макросов и без группировки, в общем, выбирайте любой из вариантов, если нужны небольшие примеры [2] или [3] то тему всегда можно продолжить. |
24.09.2007, 13:32 | #4 |
Форумчанин Подтвердите свой е-майл
Регистрация: 21.09.2007
Сообщений: 138
|
Вариант с группировкой листов подошел. А листы смежные и адрес ячейки на них постоянен.
Благодарю! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Копирование текста из 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 |