Мне совестно за такой вопрос, т.к. совсем незнаю VBA, но предстоящий фронт работы обязывает. Есть большой Excel файл с кучей информации, с кучей примечаний. Нужно всю информацию отсортировать и выгрузить в базу MySQL. Нашел на форуме подходящий макрос, но необходимо, чтобы он выводил примечание не в соседнюю ячейку, а в саму себя. Насколько я понял нужно заменить Next в строке cell.Next.Value. В идеале было бы, если текст примечания не затирал текст самой ячейки, а добавлялся в конец, заключенный, например, в квадратные скобки [примечание]
UPD Нашел решение первого вопроса, необходимо написать cell.Value
Sub ShowComments() Dim cell As Range Dim rgCells As Range
' Получение всех ячеек с примечаниями Set rgCells = Selection.SpecialCells(xlComments) If rgCells Is Nothing Then ' Примечаний нет Exit Sub End If ' Проходим по всем ячейкам диапазона For Each cell In rgCells ' Вывод примечаний в соседнюю ячейку cell.Next.Value = cell.Comment.Text Next End Sub
Добрый день!
Мне совестно за такой вопрос, т.к. совсем незнаю VBA, но предстоящий фронт работы обязывает. Есть большой Excel файл с кучей информации, с кучей примечаний. Нужно всю информацию отсортировать и выгрузить в базу MySQL. Нашел на форуме подходящий макрос, но необходимо, чтобы он выводил примечание не в соседнюю ячейку, а в саму себя. Насколько я понял нужно заменить Next в строке cell.Next.Value. В идеале было бы, если текст примечания не затирал текст самой ячейки, а добавлялся в конец, заключенный, например, в квадратные скобки [примечание]
UPD Нашел решение первого вопроса, необходимо написать cell.Value
Sub ShowComments() Dim cell As Range Dim rgCells As Range
' Получение всех ячеек с примечаниями Set rgCells = Selection.SpecialCells(xlComments) If rgCells Is Nothing Then ' Примечаний нет Exit Sub End If ' Проходим по всем ячейкам диапазона For Each cell In rgCells ' Вывод примечаний в соседнюю ячейку cell.Next.Value = cell.Comment.Text Next End Subsquid
Сообщение отредактировал squid - Пятница, 16.05.2014, 07:15
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
