Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Данные из одной ячейки в комментарий к другой ячейке
 
#1
13.12.2014 20:50:18
Добрый день!
Есть два файла. Из одного в другой с помощью ссылки HLOOKUP подтягивается информация.
Хотел бы сделать так, чтобы значения подтягивались не в ячейки, а в комментарии к ячейкам.
Подскажите, возможно ли это сделать?
 
 
 
#2
13.12.2014 21:34:58
Цитата
Sokolov пишет: Есть два файла.
Где?
Цитата
Sokolov пишет: Подскажите, возможно ли это сделать?
Возможно. Через VBA.
There is no knowledge that is not power
 
 
 
#3
14.12.2014 12:54:11
Примеры файлов прикрепил.
Коротко описание:
- в файл 1 вручную вносится информация
- в файл 2 информация подтягивается через Hlookup (по дате) из файла 1
- хочу сделать так, чтобы информация из строки "комментарии" в файле 1 подтягивалась  в примечания к соответствующей ячейке с числовым значением в файле 2. Например, информация из ячейки С5 в файле 1 должна подтягиваться в примечание к ячейке С4 в файле 2
 
 
 
#4
14.12.2014 14:23:02
Дату в Hlookup надо учитывать?
Работать надо не 12 часов, а головой.
 
 
 
#5
14.12.2014 14:54:46
Если не надо, то так:
Код
Sub ВПР_в_примечание()
Set acell = ActiveCell
Set awb = ActiveWorkbook
file2 = "C:\Users\Администратор\Downloads\KILL\planetaexcel\Файл 1.xlsx"
On Error Resume Next
Set wb = Workbooks("Файл 1.xlsx")
If Err Then
    If Dir(file2) = "" Then MsgBox "Файл " & file2 & " не найден": Exit Sub
    Workbooks.Open file2
    awb.Activate
    Err.Clear
End If
On Error GoTo 0

Set rng1 = Workbooks("Файл 1.xlsx").Sheets("Лист1").Range("b4:l5")
ans = Application.WorksheetFunction.HLookup(ActiveCell.Value, rng1, 2, False)
If IsEmpty(ans) Then ans = "--"
If acell.Comment Is Nothing Then acell.AddComment
acell.Comment.Text Text:=ans
End Sub
Работать надо не 12 часов, а головой.
 
 
 
#6
16.12.2014 20:04:30
Leanna, спасибо большое! То, что надо.
 
 
 
Страницы: 1
Наверх