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

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.05.2007, 17:20:48
    #34526971
vad-anatolij
vad-anatolij
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод примечание ячейки в соседнюю в виде текста
Не все понятно...поэксперементирую, конечно)))..а встроенной функции нет? Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.05.2007, 17:29:02
    #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:30:09
    #34527015
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод примечание ячейки в соседнюю в виде текста
vad-anatolij..а встроенной функции нет? Спасибо.

Нет :-(

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.05.2007, 17:30:56
    #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, 21:55:23
    #34527665
vad-anatolij
vad-anatolij
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод примечание ячейки в соседнюю в виде текста
Код: plaintext
Deggasad


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


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

В некоторых строках есть несколько коменнтариев на разных ячейках, как бы сделать проверку всех ячеек в строке на наличие коментариев и объединить их? Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2007, 15:21:44
    #34742025
vad-anatolij
vad-anatolij
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод примечание ячейки в соседнюю в виде текста
up
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.08.2007, 17:00:04
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вывод примечание ячейки в соседнюю в виде текста / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 442ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2182430]:
 0ms
get settings:
 11ms
get forum list:
 24ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 146ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 203ms
total:  442ms
x
x
Закрыть


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