Помогите, пожалуйста, написать в Excel Макрос, чтобы цвет шрифта слова или числа был такой как в определённой ячейке?
Добавляю файл, который называется "Вопрос Цвет шрифта как в исходной ячейке формулой или Макросом .xlsx"
Пример № 1. В ячейке А1 цвет шрифта текста в первого слова зелёный, а второго Авто (Чёрный) и написать формулу, так чтобы в ячейке G1 была формула (равно) = и тоже что бы был цвет шрифта как у первого слова зелёный а у второго цвет шрифта Авто (Чёрный)?
Пример № 2. В ячейке А9 цвет двух слов зелёный и написать формулу чтобы в ячейке G9 была формула (равно) = и тоже что бы был цвет шрифта у двух слов зелёный?
Пример № 3. В ячейке А12 цвет числа 5 лиловый и чтобы в ячейке G12 была формула (равно) = и тоже, чтобы цвет числа 5 был лиловый.
Помогите, пожалуйста, написать в Excel Макрос, чтобы цвет шрифта слова или числа был такой как в определённой ячейке?
Добавляю файл, который называется "Вопрос Цвет шрифта как в исходной ячейке формулой или Макросом .xlsx"
Пример № 1. В ячейке А1 цвет шрифта текста в первого слова зелёный, а второго Авто (Чёрный) и написать формулу, так чтобы в ячейке G1 была формула (равно) = и тоже что бы был цвет шрифта как у первого слова зелёный а у второго цвет шрифта Авто (Чёрный)?
Пример № 2. В ячейке А9 цвет двух слов зелёный и написать формулу чтобы в ячейке G9 была формула (равно) = и тоже что бы был цвет шрифта у двух слов зелёный?
Пример № 3. В ячейке А12 цвет числа 5 лиловый и чтобы в ячейке G12 была формула (равно) = и тоже, чтобы цвет числа 5 был лиловый.Никанор
Здравствуйте InExSu! Спасибо за ответ. Но я не понял что значит Вы пишите: "Если в ячейке G1 будет формула, то там не будет Range.Characters Property - символов для окрашивания." Мне нужно именно таким способом – что бы в ячейке G1 была формула. А можно ли каким-то способом решить мою задачу? можно ли написать Макрос?
Добавил тот же файл только в версии Excel 2003-го офиса(xls)
Здравствуйте InExSu! Спасибо за ответ. Но я не понял что значит Вы пишите: "Если в ячейке G1 будет формула, то там не будет Range.Characters Property - символов для окрашивания." Мне нужно именно таким способом – что бы в ячейке G1 была формула. А можно ли каким-то способом решить мою задачу? можно ли написать Макрос?
Добавил тот же файл только в версии Excel 2003-го офиса(xls)Никанор
По событию это значит то же самое писать вручную? Но это не ускорит работу, а тоже самое делать копированием? А можно ли это сделать такой функцией Excel "Формат по образцу"? Я не знаю как пользоваться функцией "Формат по образцу".
По событию это значит то же самое писать вручную? Но это не ускорит работу, а тоже самое делать копированием? А можно ли это сделать такой функцией Excel "Формат по образцу"? Я не знаю как пользоваться функцией "Формат по образцу".Никанор
Добрый день. Копировать можно с помощью спец вставки "с исходной темой". Но если вы туда будете вносить другое значение, то разноцветные слова в одной ячейке пропадут. если цвет один для шрифта, то можно инструментом формат по образцу. выделяем ячейку с нужным форматом, жмем кнопку, потом ячейку, которую надо изменить
Добрый день. Копировать можно с помощью спец вставки "с исходной темой". Но если вы туда будете вносить другое значение, то разноцветные слова в одной ячейке пропадут. если цвет один для шрифта, то можно инструментом формат по образцу. выделяем ячейку с нужным форматом, жмем кнопку, потом ячейку, которую надо изменить sboy
Здравствуйте! Спасибо за ответ. Да, я попробовал как Вы пишите: Копировать можно с помощью спец вставки "с исходной темой". А потом в исходной ячейке изменил цвет – то в ячейке в которую вставил цвет не изменился как Вы пишите: если вы туда будете вносить другое значение, то разноцветные слова в одной ячейке пропадут.
А форматом по образцу у меня не получается. Я выделил в данном примере А1 – нажал Формат по образцу потом стал курсором на другую ячейку и ничего не изменилось.
1 вопрос: что я сделал не так? 2 вопрос: чем отличается формат по образцу от того если выделить ячейку в данном примере А1 – нажать копировать – потом стать на другую ячейку – потом нажать Вставить (Просто вставить, без Специальной вставки) и результат будет тоже всё скопируется как в исходной ячейке – всё будет таким же шрифтом как в исходной? 3 вопрос: может кто-то знает как написать Макрос?
Здравствуйте! Спасибо за ответ. Да, я попробовал как Вы пишите: Копировать можно с помощью спец вставки "с исходной темой". А потом в исходной ячейке изменил цвет – то в ячейке в которую вставил цвет не изменился как Вы пишите: если вы туда будете вносить другое значение, то разноцветные слова в одной ячейке пропадут.
А форматом по образцу у меня не получается. Я выделил в данном примере А1 – нажал Формат по образцу потом стал курсором на другую ячейку и ничего не изменилось.
1 вопрос: что я сделал не так? 2 вопрос: чем отличается формат по образцу от того если выделить ячейку в данном примере А1 – нажать копировать – потом стать на другую ячейку – потом нажать Вставить (Просто вставить, без Специальной вставки) и результат будет тоже всё скопируется как в исходной ячейке – всё будет таким же шрифтом как в исходной? 3 вопрос: может кто-то знает как написать Макрос?Никанор
Sub Макрос4() Dim tt&, i& tt = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To tt If Range("A" & i) <> "" Then Range("A" & i).Copy Range("G" & i).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _ , SkipBlanks:=False, Transpose:=False End If Next End Sub
[/vba] кнопочку нажмите
на скорую руку [vba]
Код
Sub Макрос4() Dim tt&, i& tt = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To tt If Range("A" & i) <> "" Then Range("A" & i).Copy Range("G" & i).PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _ , SkipBlanks:=False, Transpose:=False End If Next End Sub
Здравствуйте китин! Большое спасибо за ответ. Но я скачал файл 5885987.xls(34Kb) и цвет шрифта остался таким как был. В конце Вы пишите: кнопочку нажмите. Я открыл файл – В строке Предупреждение системы безопасности Запуск Макросов отключен. Параметры... Я нажал Параметры... Потом нажал Включить это содержимое – Потом нажал ОК. Как дальше работать что бы выполнялось моё условие и шрифт в ячейке изменялся и был как в исходной?
Здравствуйте китин! Большое спасибо за ответ. Но я скачал файл 5885987.xls(34Kb) и цвет шрифта остался таким как был. В конце Вы пишите: кнопочку нажмите. Я открыл файл – В строке Предупреждение системы безопасности Запуск Макросов отключен. Параметры... Я нажал Параметры... Потом нажал Включить это содержимое – Потом нажал ОК. Как дальше работать что бы выполнялось моё условие и шрифт в ячейке изменялся и был как в исходной?Никанор
Сообщение отредактировал Никанор - Пятница, 08.12.2017, 14:46
китин! Большое спасибо. Я разобрался. И всё работает так как я хотел. Макросы включил. Я и до этого включал Макросы. Просто я не увидел кнопку, которая была правее. Даже работает если я делаю заливку в ячейках в столбце А.
Но не работает если я слова пишу не в столбце А, а например, если я пишу слово в столбце В. 1 Вопрос: почему функция не работает если я пишу слово в столбец В и что надо сделать что бы работало если слово пишется в других ячейках? Главное условие что бы была формула = определённая ячейка. Например ячейка G1 = А1. Это я дал пример, а в таблице у меня слова расположено в других ячейках.
2 Вопрос: почему если я написал формулу для ячейки G1 = А1 для ячейки G7 = А7 и так далее а потом я нажимаю кнопку то в ячейках G1 и G7 уже нет формулы?
Прилагаю файл с примером, который называется Спросить почему не работает в столбце В 5885987.xls
китин! Большое спасибо. Я разобрался. И всё работает так как я хотел. Макросы включил. Я и до этого включал Макросы. Просто я не увидел кнопку, которая была правее. Даже работает если я делаю заливку в ячейках в столбце А.
Но не работает если я слова пишу не в столбце А, а например, если я пишу слово в столбце В. 1 Вопрос: почему функция не работает если я пишу слово в столбец В и что надо сделать что бы работало если слово пишется в других ячейках? Главное условие что бы была формула = определённая ячейка. Например ячейка G1 = А1. Это я дал пример, а в таблице у меня слова расположено в других ячейках.
2 Вопрос: почему если я написал формулу для ячейки G1 = А1 для ячейки G7 = А7 и так далее а потом я нажимаю кнопку то в ячейках G1 и G7 уже нет формулы?
Прилагаю файл с примером, который называется Спросить почему не работает в столбце В 5885987.xlsНиканор
Pelena! Подскажите пожалуйста как оформить код тегами с помощью кнопки # в режиме правки поста. Я не знаю как это сделать. И что значит код с тегами? Править сообщения я знаю как. А зачем это делать?
Pelena! Подскажите пожалуйста как оформить код тегами с помощью кнопки # в режиме правки поста. Я не знаю как это сделать. И что значит код с тегами? Править сообщения я знаю как. А зачем это делать?Никанор
Сообщение отредактировал Никанор - Суббота, 09.12.2017, 15:19
китин! Извините что снова пишу Вам. Я вчера писал Вам комментарий. Повторю свой вопрос. Можно ли это сделать формулой как на рисунке во вчерашнем комментарии без кнопки? И что была функция =ЦВЕТШРИФТА(ЯЧЕЙКА)
китин! Извините что снова пишу Вам. Я вчера писал Вам комментарий. Повторю свой вопрос. Можно ли это сделать формулой как на рисунке во вчерашнем комментарии без кнопки? И что была функция =ЦВЕТШРИФТА(ЯЧЕЙКА)Никанор
Сообщение отредактировал Никанор - Суббота, 09.12.2017, 16:16
Pelena, Спасибо. Посмотрю. Скажите пожалуйста, это Модераторы оформили моё сообщение от Дата: Пятница, 08.12.2017, 17:41 | Сообщение № 12 ? Я кажется просто скопировал, и оно было не таким как сейчас, а теперь смотрю оно уже изменено. Вы так имели ввиду оформлять тегами, что бы удобно было смотреть?
Pelena, Спасибо. Посмотрю. Скажите пожалуйста, это Модераторы оформили моё сообщение от Дата: Пятница, 08.12.2017, 17:41 | Сообщение № 12 ? Я кажется просто скопировал, и оно было не таким как сейчас, а теперь смотрю оно уже изменено. Вы так имели ввиду оформлять тегами, что бы удобно было смотреть?Никанор
Pelena, Здравствуйте! С опозданием благодарю за объяснение что «Пользователь может редактировать свой пост только в течение суток с момента публикации».
Pelena, Здравствуйте! С опозданием благодарю за объяснение что «Пользователь может редактировать свой пост только в течение суток с момента публикации».Никанор