Pantera3587
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть такая таблица
Дата Клиент Сумма
01.12.2006 Иванов 234,00р.
03.05.2006 Сидоров 456,00р.
23.06.2006 Петров 345,00р.
Есть такой макрос
Sub МакросГПР()
' Макрос записан 30.10.2006 (DIREKTOR)
Dim str As String
Dim i As Integer
Dim j As Integer
Dim c As Variant
Dim nr As Variant
str = InputBox("Введите заголовок столбца: ") 'появляется диалоговое окно в поле
'которого либо вводится слово Дата, либо вводится слово Клиент, либо вводится слово Сумма
Range("E1").Select
Range("E1").Formula = str 'здесь должно отобразиться слово из диалогового окна
nr = InputBox("Введите номер строки: ") 'появляется диалоговое окно в поле
'которого вводится любой номер строки, т.е. любая цифра
Range("F1").Select
Range("F1").Formula = "=HLOOKUP(RC[-1],C[-5]:C[-3],nr,FALSE)"
End Sub
Помоготе отредактировать макрос так, чтобы после введения во втором окне номера строки(цифры), этот номер строки отображался в формуле. Так как я записала, он в ячейку F1 записывает следующую формулу:
=ГПР(E1;A:C;nr;ЛОЖЬ), а мне нужно чтобы в этой формуле отображалась бы цифра из диалогового окна, т.е, если я ввожу цифру 3, то формула должна буде выглядеть так
=ГПР(E1;A:C;3;ЛОЖЬ),
если ввожу 41, то так
=ГПР(E1;A:C;41;ЛОЖЬ), |
Всего записей: 40 | Зарегистр. 20-10-2006 | Отправлено: 13:50 30-10-2006 | Исправлено: Pantera3587, 15:18 30-10-2006 |
|
)
Я же Вам уже давал код на прошлой странице, очень похожий. Почему бы не разобраться и не модифицировать. Если есть конкретные вопросы или что-то не получается, спрашивайте - поможем. 
