Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос по условию - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос по условию (Макросы/Sub)
Макрос по условию
Anis625 Дата: Среда, 09.01.2019, 00:50 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 245
Репутация: 2 ±
Замечаний: 0% ±

Excel 2013
Добрый вечер, ребята!

Попытался адаптировать макрос под текущую задачу: вывод окно поиска из списка по столбцам где в строке 3 написано ФИО. Раньше этот макрос на форуме помогли заточить под горизонтальное расположение таблицы:

[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Cells(Target.Row, 4) = "ФИО" And Target.Column > 4 Then Call dd: Cancel = True
End Sub
[/vba]

А под вертикальное расположение таблицы переделанный (мной) макрос не срабатывает:

[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Cells(Target.Column, 3) = "ФИО" And Target.Row > 3 Then Call dd: Cancel = True
End Sub
[/vba]

Подскажите, пожалуйста, где нужно было правильно исправить?
К сообщению приложен файл: DIVA.xlsm(77.0 Kb)
 
Ответить
СообщениеДобрый вечер, ребята!

Попытался адаптировать макрос под текущую задачу: вывод окно поиска из списка по столбцам где в строке 3 написано ФИО. Раньше этот макрос на форуме помогли заточить под горизонтальное расположение таблицы:

[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Cells(Target.Row, 4) = "ФИО" And Target.Column > 4 Then Call dd: Cancel = True
End Sub
[/vba]

А под вертикальное расположение таблицы переделанный (мной) макрос не срабатывает:

[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Cells(Target.Column, 3) = "ФИО" And Target.Row > 3 Then Call dd: Cancel = True
End Sub
[/vba]

Подскажите, пожалуйста, где нужно было правильно исправить?

Автор - Anis625
Дата добавления - 09.01.2019 в 00:50
boa Дата: Среда, 09.01.2019, 01:10 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 325
Репутация: 71 ±
Замечаний: 0% ±

2013, 365
Cells(Target.Column, 3)

Cells(Номер_Строки, Номер_Колонки)
и ни как иначе


 
Ответить
Сообщение
Cells(Target.Column, 3)

Cells(Номер_Строки, Номер_Колонки)
и ни как иначе

Автор - boa
Дата добавления - 09.01.2019 в 01:10
Anis625 Дата: Среда, 09.01.2019, 07:43 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 245
Репутация: 2 ±
Замечаний: 0% ±

Excel 2013
boa,

:D Теперь буду знать. Исправил. Все работает. Спасибо Вам большое!!!
 
Ответить
Сообщениеboa,

:D Теперь буду знать. Исправил. Все работает. Спасибо Вам большое!!!

Автор - Anis625
Дата добавления - 09.01.2019 в 07:43
boa Дата: Среда, 09.01.2019, 23:44 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 325
Репутация: 71 ±
Замечаний: 0% ±

2013, 365
Anis625, Удачи в освоении ;)


 
Ответить
СообщениеAnis625, Удачи в освоении ;)

Автор - boa
Дата добавления - 09.01.2019 в 23:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!