ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вывод примечание ячейки в соседнюю в виде текста
10 сообщений из 10, страница 1 из 1
Вывод примечание ячейки в соседнюю в виде текста
    #34526894
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
Добрый день.
Есть таблица в 1000 строк, в одном из столбцов во многих ячейках добавлены примечания.
Существует ли возможность в EXELе, вывести эти примечание в ячейки соседнего столбца в виде читаемого текста.Спасибо.
...
Рейтинг: 0 / 0
15.05.2007, 17:03:39
| Ответить | Цитировать | Написать  
Вывод примечание ячейки в соседнюю в виде текста
    #34526938
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
http://j-walk.com/ss/excel/odd/odd06.htm

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
15.05.2007, 17:14:10
| Ответить | Цитировать | Написать  
Вывод примечание ячейки в соседнюю в виде текста
    #34526971
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
Не все понятно...поэксперементирую, конечно)))..а встроенной функции нет? Спасибо.
...
Рейтинг: 0 / 0
15.05.2007, 17:20:48
| Ответить | Цитировать | Написать  
Вывод примечание ячейки в соседнюю в виде текста
    #34527010
mari_karo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mari_karo
Гость
В свое время, когда понадобилось, использовала след. вариант:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub Сomments_in_Column()
Dim cmt As Comment
'   Для написания комментариев в соседнем столбце
   For Each cmt In ActiveSheet.comments
       ActiveSheet.Range(cmt.Parent.Offset(,  1 ).Address()).Value = CleanComment(cmt.author, cmt.Text)
   Next
End Sub
'--------------------------------------------------------------------------
Private Function CleanComment(author As String, cmt As String) As String
    
    Dim tmp As String
    
    tmp = Application.WorksheetFunction.Substitute(cmt, author & ":", "")
    tmp = Application.WorksheetFunction.Substitute(tmp, Chr( 10 ), "")
    
    CleanComment = tmp
End Function
...
Рейтинг: 0 / 0
15.05.2007, 17:29:02
| Ответить | Цитировать | Написать  
Вывод примечание ячейки в соседнюю в виде текста
    #34527015
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
vad-anatolij..а встроенной функции нет? Спасибо.

Нет :-(

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
15.05.2007, 17:30:09
| Ответить | Цитировать | Написать  
Вывод примечание ячейки в соседнюю в виде текста
    #34527022
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Public Function GetComment(icel As Range) As String
    Application.Volatile
    On Error Resume Next
    GetComment = icel.Comment.Text
    If Err.Number <>  0  Then GetComment = "No Comment"
    On Error GoTo  0 
End Function
...
Рейтинг: 0 / 0
15.05.2007, 17:30:56
| Ответить | Цитировать | Написать  
Вывод примечание ячейки в соседнюю в виде текста
    #34527665
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
Код: plaintext
Deggasad


Спасибо. Все работает.
...
Рейтинг: 0 / 0
15.05.2007, 21:55:23
| Ответить | Цитировать | Написать  
Вывод примечание ячейки в соседнюю в виде текста
    #34738761
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
vad-anatolij
Код: plaintext
Deggasad


Спасибо. Все работает.

В некоторых строках есть несколько коменнтариев на разных ячейках, как бы сделать проверку всех ячеек в строке на наличие коментариев и объединить их? Спасибо.
...
Рейтинг: 0 / 0
20.08.2007, 14:51:41
| Ответить | Цитировать | Написать  
Вывод примечание ячейки в соседнюю в виде текста
    #34742025
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
up
...
Рейтинг: 0 / 0
21.08.2007, 15:21:44
| Ответить | Цитировать | Написать  
Вывод примечание ячейки в соседнюю в виде текста
    #34742449
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Function GetComment(myRange As Range) As String
 Dim iCel As Range
 Application.Volatile
    On Error Resume Next
     For Each iCel In myRange
       GetComment = GetComment & iCel.Comment.Text & Chr( 10 )
     Next iCel
    On Error GoTo  0 
    If GetComment = "" Then GetComment = "No Comment"
End Function
...
Рейтинг: 0 / 0
21.08.2007, 17:00:04
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вывод примечание ячейки в соседнюю в виде текста
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34526971&tid=2182430]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 207ms
total:  322ms
созд. / загр.: 322ms
x
x
Закрыть


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