Задать формат, числу в VBA - Microsoft Office Excel

valerij · 04.06.2008, 00:47

Как задать формат, числу в VBA, что бы и цвет и формат?

Sheets(L).Cells(d + 1, "I").Font.ColorIndex = 11+ NumberFormat = "General"

IgorGO · 04.06.2008, 01:13

Жмем "начать запись макроса", раскрашиваем ячейку, как можем, всеми доступными спосабами. жмем остановить запись. изучаем полученный код.

valerij · 04.06.2008, 01:33

Цитата:

Сообщение от IgorGO

Жмем "начать запись макроса", раскрашиваем ячейку, как можем, всеми доступными спосабами. жмем остановить запись. изучаем полученный код.

Игорь, да конечно, так делал, но там целая куча получается, так получилось, но что то сомневаюсь, я!
Sheets(L).Cells(d + 1, "I").Font.ColorIndex = 11: .NumberFormat = "General"

IgorGO · 04.06.2008, 10:58

Ключевое слово было "ИЗУЧАЕМ" полученный код. Т.е. не переносим все подряд, а только те свйства, которые были изменены.

Ну, а в даном конкретном примере так не пойдет

Код:

Sheets(L).Cells(d + 1, "I").Font.ColorIndex = 11: .NumberFormat = "General"

либо

Код:

Sheets(L).Cells(d + 1, "I").Font.ColorIndex = 11 
Sheets(L).Cells(d + 1, "I").NumberFormat = "General"

либо

Код:

with Sheets(L).Cells(d + 1, "I")
  .Font.ColorIndex = 11: .NumberFormat = "General"
end with

04.06.2008, 00:47	#1
valerij Старожил Регистрация: 12.05.2007 Сообщений: 2,339	Задать формат, числу в VBA Как задать формат, числу в VBA, что бы и цвет и формат? Sheets(L).Cells(d + 1, "I").Font.ColorIndex = 11+ NumberFormat = "General" Последний раз редактировалось valerij; 04.06.2008 в 00:56.

04.06.2008, 01:13	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Жмем "начать запись макроса", раскрашиваем ячейку, как можем, всеми доступными спосабами. жмем остановить запись. изучаем полученный код. Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

04.06.2008, 10:58	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Ключевое слово было "ИЗУЧАЕМ" полученный код. Т.е. не переносим все подряд, а только те свйства, которые были изменены. Ну, а в даном конкретном примере так не пойдет Код: `Sheets(L).Cells(d + 1, "I").Font.ColorIndex = 11: .NumberFormat = "General"` либо Код: `Sheets(L).Cells(d + 1, "I").Font.ColorIndex = 11 Sheets(L).Cells(d + 1, "I").NumberFormat = "General"` либо Код: `with Sheets(L).Cells(d + 1, "I") .Font.ColorIndex = 11: .NumberFormat = "General" end with` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как задать рекурсией?	Irdis	Фриланс	4	11.02.2010 02:01
Двумерные массивы. Формирование одномерного массива из сумм строк матрицы, кратных числу k (в С++)	Fimogen	Помощь студентам	3	19.11.2007 07:30
Мне нужно выбрать данные из первого запроса, если он вернул хоть одно число=числу из	nata	Общие вопросы Delphi	8	05.06.2007 23:57