примечание к ячееку А5, содержание этого примечания должно браться из ячеека В5 Лист2. - Microsoft Office Excel

kenta · 03.05.2010, 19:57

Задача такая. Создать программно примечание к ячееку А5, содержание этого примечания должно браться из ячеека В5 Лист2. Вот и все.

EducatedFool · 03.05.2010, 20:07

Код:

worksheets(1).range("a5").NoteText worksheets(2).range("b5")

kenta · 03.05.2010, 20:46

Run time error 438
object doesnt support this property or method

IgorGO · 03.05.2010, 21:13

Код:

worksheets(1).range("a5").comment.Text text:=cstr(worksheets(2).range("b5"))

motorway · 03.05.2010, 23:08

Код:

If Not Worksheets(1).Range("a5").Comment Is Nothing Then
Worksheets(1).Range("a5").Comment.Text Text:=CStr(Worksheets(2).Range("b5"))
Else
Worksheets(1).Range("a5").AddComment (CStr(Worksheets(2).Range("b5")))
End If

SAS888 · 05.05.2010, 05:40

Чуть проще:

Код:

Sheets(1).[A5].ClearComments: Sheets(1).[A5].AddComment (CStr(Sheets(2).[B5]))

03.05.2010, 19:57	#1
kenta Пользователь Регистрация: 12.10.2008 Сообщений: 18	примечание к ячееку А5, содержание этого примечания должно браться из ячеека В5 Лист2. Задача такая. Создать программно примечание к ячееку А5, содержание этого примечания должно браться из ячеека В5 Лист2. Вот и все.

03.05.2010, 20:07	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Код: `worksheets(1).range("a5").NoteText worksheets(2).range("b5")` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

03.05.2010, 21:13	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `worksheets(1).range("a5").comment.Text text:=cstr(worksheets(2).range("b5"))` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

03.05.2010, 23:08	#5
motorway Участник клуба Регистрация: 28.06.2009 Сообщений: 1,950	Код: `If Not Worksheets(1).Range("a5").Comment Is Nothing Then Worksheets(1).Range("a5").Comment.Text Text:=CStr(Worksheets(2).Range("b5")) Else Worksheets(1).Range("a5").AddComment (CStr(Worksheets(2).Range("b5"))) End If` Скрипты PHP, VBA. Skype:ktmtramway Расписание электричек Быстрый проверенный хостинг.

05.05.2010, 05:40	#6
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Чуть проще: Код: `Sheets(1).[A5].ClearComments: Sheets(1).[A5].AddComment (CStr(Sheets(2).[B5]))` Чем шире угол зрения, тем он тупее.

03.05.2010, 20:46	#3
kenta Пользователь Регистрация: 12.10.2008 Сообщений: 18	Run time error 438 object doesnt support this property or method

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
mono. стоит ли браться?	alexkarta	Общие вопросы .NET	12	19.04.2013 16:11
Примечание	s2dentishe	Microsoft Office Word	2	10.02.2010 00:40
Стоит ли браться за проект?	spamer	Свободное общение	4	22.09.2009 22:17
Копирование содержание ячеек и их ширины	tae1980	Microsoft Office Excel	5	14.08.2009 15:25
Стоит ли браться за эту прогу?	Goblin	Софт	3	09.07.2009 19:28