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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.07.2010, 13:48   #1
O_H
Пользователь
 
Регистрация: 06.07.2010
Сообщений: 68
По умолчанию Можно ли в VBA ссылаться на ячейку по её имени?

Присваиваю ячейке имя:
xlsApp.ActiveWorkbook.Names.Add Name:="СписокМесяц", RefersToR1C1:="=Лист1!R1C1"
далее хочу изменить в ячейке цвет шрифта:
такой код работает
Set xlsSheet = xlsBook.sheets("Лист1")
xlsSheet.cells(1, 1).Font.ColorIndex = 3
а такой нет:
xlsSheet.Names("СписокМесяц").Font. ColorIndex = 3
и такой нет:
xlsBook.Names("СписокМесяц").Font.C olorIndex = 3
O_H вне форума Ответить с цитированием
Старый 14.07.2010, 13:57   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

А если так попробовать?
Код:
Sub test1()
    ActiveWorkbook.Names.Add Name:="СписокМесяц", RefersToR1C1:="=Лист1!R1C1"
End Sub

Sub test2()
    Names("СписокМесяц").RefersToRange.Font.ColorIndex = 3
End Sub
Или так:
Код:
Sub test1()
    Names.Add "СписокМесяц", [a4]
End Sub

Sub test2()
    [СписокМесяц].Font.ColorIndex = 7
End Sub
EducatedFool вне форума Ответить с цитированием
Старый 14.07.2010, 14:27   #3
O_H
Пользователь
 
Регистрация: 06.07.2010
Сообщений: 68
По умолчанию

Вот так получилось:
xlsBook.Names("СписокМесяц").Refers ToRange.Font.ColorIndex = 3

Спасибо за RefersToRange!
O_H вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Получить ячейку из формулы (VBA, Excel 2007) Makso Microsoft Office Excel 6 13.04.2010 15:40
вставка формулы в ячейку (vba) pride Microsoft Office Excel 5 13.07.2009 09:26
VBA вставка в одну ячейку из нескольких Tirendus Microsoft Office Excel 3 09.07.2009 19:57
как по макросу скопировать название имени фала в ячейку?? kievlyanin Microsoft Office Excel 8 16.04.2009 21:16
Глюк Excel-2007??? Формулы в ячейку из VBA Rafik Microsoft Office Excel 7 24.03.2009 13:59