Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / проверка на наличие примечания в ячейки с помощью ВБА / 15 сообщений из 15, страница 1 из 1
18.01.2012, 14:19
    #37620041
Finish
Finish
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
Привет!

подскажите как можно програмно проверить есть ли в ячейки комментарий или нет
спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2012, 14:31
    #37620081
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
Finish,
макрос слабо записать?

Код: vbnet
1.
If Range("A1").Comment Is Nothing Then MsgBox "нет коммента"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2012, 14:37
    #37620102
Finish
Finish
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
это проверка на то что комента нет,а мне надо когда он есть

спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2012, 14:37
    #37620107
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
Код: vbnet
1.
2.
3.
If Range("A2").Comment Is Nothing Then
'...
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2012, 14:39
    #37620114
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
Finishэто проверка на то что комента нет,а мне надо когда он есть

спасибовы че, издеваетесь?)))))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2012, 14:43
    #37620125
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
Код: vbnet
1.
2.
3.
    If Not (Range("A1").Comment Is Nothing) Then
'
    End If


странно, но вот так не получается
Код: vbnet
1.
2.
3.
   If (Range("A1").Comment) Then
        MsgBox "segesg"
    End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2012, 15:02
    #37620203
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
PlanBстранно, но вот так не получаетсяпотому что объект отсутствует
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2012, 15:38
    #37620320
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
PlanB
Код: vbnet
1.
2.


странно, но вот так не получается
Код: vbnet
1.
2.
3.
   If (Range("A1").Comment) Then
        MsgBox "segesg"
    End If


А почему бы так должно было получаться? Где здесь выражение возвращающее ИСТИНА/ЛОЖЬ или по крайней мере числовое значение, которое можно было бы интерпретировать как ИСТИНА/ЛОЖЬ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2012, 15:41
    #37620337
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
Finishэто проверка на то что комента нет,а мне надо когда он есть

спасибо

Это одно и то же - в данном выражении заключены обе проверки :)

Код: vbnet
1.
If Range("A1").Comment Is Nothing Then MsgBox "нет коммента" Else "Есть коммент"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2012, 16:38
    #37620496
Finish
Finish
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
спасибо всем огромное!!
ещё один вопрос:
а как коменту присвоить значение ячейкм?делаю так
Код: vbnet
1.
Cells(a, g).AddComment: Cells(a, g).Comment.Text Text:="'& Cells(b, fc + 8) &'"


вот так комент добавляется но в тело комента добаляется '& xlSheet.Cells(b, fc + 8) &'
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2012, 16:40
    #37620507
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
Finishвот так комент добавляется но в тело комента добаляется '& xlSheet.Cells(b, fc + 8) &'что просишь, то и добавляется. Напишешь в кавычках слово из трех букв - будет добавляться слово их трех букв.
А что надо-то добавить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2012, 18:06
    #37620773
Finish
Finish
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
спасибо разобрался

надо было добавить текс из ячеки..
создал переменную T присвоив ей стринговый тип
T= Cells(b, fc + 8)
и в комент подставляю свою переменную T
как-то так сделал)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2012, 18:09
    #37620779
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
Finish,

Можно и без переменной:

Код: vbnet
1.
Cells(a, g).AddComment: Cells(a, g).Comment.Text Text:= Cells(b, fc + 8).Value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.01.2012, 19:12
    #37620899
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
KL (XL)Можно и без переменной:можно из без Text
Код: vbnet
1.
Cells(a, g).AddComment Cells(b, fc + 8).Value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.01.2012, 00:44
    #37621209
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка на наличие примечания в ячейки с помощью ВБА
Shocker.Pro,

Это естественно, просто человеку нужно было дать понять, что он неправильно использовал ссылку, а то он тыком переменную типа Variant ввел, а ошибки своей наверняка не понял ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / проверка на наличие примечания в ячейки с помощью ВБА / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 494ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2176104]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 182ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 244ms
total:  494ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]