Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Excel, работа с комментариями 
:(
    Опции темы
Paradox
Дата 20.5.2004, 08:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1135
Регистрация: 18.11.2002
Где: Россия

Репутация: нет
Всего: 1
Как узнать есть ли у экселевской ячеки комментарий и если есть то как его считать ???


--------------------
---
PM MAIL WWW   Вверх
Staruha
Дата 20.5.2004, 09:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27
Если в углу стоит красная стрелочка - это примечания(меню Вставка-Примечания).Или Меню Данные- Проверка-вводятся комментарии.После этого когда встанешь на ячейку отражаются в комментарии либо рядом ,либо в помощнике.


--------------------
Возмездие настигнет
PM MAIL   Вверх
Paradox
Дата 20.5.2004, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1135
Регистрация: 18.11.2002
Где: Россия

Репутация: нет
Всего: 1
Старуха это был прикол или действительно ответ ???
Я бы тогда топик в форуме по VB не создавал....
Мне надо узнать как это сделать через VB



--------------------
---
PM MAIL WWW   Вверх
Naghual
Дата 20.5.2004, 09:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Target.Comment Is Nothing) Then MsgBox "Здеся есть коментарий!"
End Sub



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Paradox
Дата 20.5.2004, 11:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1135
Регистрация: 18.11.2002
Где: Россия

Репутация: нет
Всего: 1
а как это сделать не через Range а через ExcelWorksheet.Cells(i,j) ???
я заню про ExcelWorksheet.Cells(i,j).Comment.Text а как определить есть этот комментарий или его нет вообще
Код
IsNull(ExcelWorksheet.Cells(i,j).Comment)
и
Код
ExcelWorksheet.Cells(i,j).Comment is Nothing
не работает


--------------------
---
PM MAIL WWW   Вверх
Naghual
Дата 20.5.2004, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Ну если
If Target.Comment Is Nothing Then 'Коментария нет
а если
If Not (Target.Comment Is Nothing) Then 'Коментарий есть

А вот ExcelWorksheet.Cells() ты неверно указал. Надо так:
ThisWorksheet.Cells(...)...



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Paradox
Дата 20.5.2004, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1135
Регистрация: 18.11.2002
Где: Россия

Репутация: нет
Всего: 1
Код
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsWS As Excel.Worksheet

Set xlsApp = CreateObject("Excel.Application")
Set xlsBook = xlsApp.Workbooks.Open("C:\periodtest.xls")
Set xlsWS = xlsBook.ActiveSheet

Dim sComment As String

If Not Not xlsWS.Cells(1, 8).Comment Is Nothing Then
      sComment = xlsWS.Cells(1, 8).Comment.Text
End If

вот такой код, но хоть есть комментарий хоть нет - работает одинаково, то есть внутрь IF не заходит


--------------------
---
PM MAIL WWW   Вверх
Naghual
Дата 20.5.2004, 13:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Исправь условие на такое:

If Not (xlsWS.Cells(1, 8).Comment Is Nothing) Then
sComment = xlsWS.Cells(1, 8).Comment.Text
End If

В чистом VB конструкция IS совместно с NOT будут корректно работать только если четко задать порядок следования вычислений (Скобками).

Это сообщение отредактировал(а) Naghual - 20.5.2004, 14:00


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Paradox
Дата 20.5.2004, 14:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1135
Регистрация: 18.11.2002
Где: Россия

Репутация: нет
Всего: 1
Naghual
точно - спасибо большое за участие


--------------------
---
PM MAIL WWW   Вверх
Naghual
Дата 20.5.2004, 14:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Всегда пожалуйста.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Гость_Таня
Дата 1.6.2004, 08:23 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Помогите пожайлуста где взять в электронном виде какое-нибудь пособие по макросам в Excel?Бесплатно.Или у кого-нибудь может есть. Скинте на ящик[email protected] baaa.gif
  Вверх
Staruha
Дата 1.6.2004, 09:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 2
Всего: 27
xl-справка -макросы.Только здесь так вопросы не задают.Надо было создать новую тему.Кнопка наверху.


--------------------
Возмездие настигнет
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0514 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.