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

Вход

Регистрация

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

 

= Мир MS Excel/Как для удобства сделать адрес ячейки переменной? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как для удобства сделать адрес ячейки переменной? (Макросы/Sub)
Как для удобства сделать адрес ячейки переменной?
Nostex Дата: Пятница, 09.05.2014, 16:41 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Здравствуйте!
Суть моего вопроса такова:
Есть Цикл:
For n = 2 To LastRow
If Workbooks("Rating_Tabelle").Worksheets(1).Cells(n, FamilyName).Value = Workbooks("Kicker_Input_05_08").Worksheets(1).Cells(3, 2).Value Then
(действие 1)
Else
(действие 2)
End If
Next n

Как запаковать длинные адреса каждой из двух сравниваемых ячеек в две короткие переменные?
Типа того:
If Rating.cells(n,FamilyName).value = Kicker Then...
 
Ответить
СообщениеЗдравствуйте!
Суть моего вопроса такова:
Есть Цикл:
For n = 2 To LastRow
If Workbooks("Rating_Tabelle").Worksheets(1).Cells(n, FamilyName).Value = Workbooks("Kicker_Input_05_08").Worksheets(1).Cells(3, 2).Value Then
(действие 1)
Else
(действие 2)
End If
Next n

Как запаковать длинные адреса каждой из двух сравниваемых ячеек в две короткие переменные?
Типа того:
If Rating.cells(n,FamilyName).value = Kicker Then...
Автор - Nostex
Дата добавления - 09.05.2014 в 16:41
Michael_S Дата: Пятница, 09.05.2014, 17:03 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
Если они используются тексте в макроса один раз - нет смысла.
в общем случае:
[vba]
Код
Dim Rating As Worksheet, Kicker
Set Rating = Workbooks("Rating_Tabelle").Worksheets(1)
  Kicker = Workbooks("Kicker_Input_05_08").Worksheets(1).Cells(3, 2).Value
  if rating.Cells(....
[/vba]
 
Ответить
СообщениеЕсли они используются тексте в макроса один раз - нет смысла.
в общем случае:
[vba]
Код
Dim Rating As Worksheet, Kicker
Set Rating = Workbooks("Rating_Tabelle").Worksheets(1)
  Kicker = Workbooks("Kicker_Input_05_08").Worksheets(1).Cells(3, 2).Value
  if rating.Cells(....
[/vba]
Автор - Michael_S
Дата добавления - 09.05.2014 в 17:03
Hugo Дата: Пятница, 09.05.2014, 17:10 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3859
Репутация: 819 ±
Замечаний: 0% ±

365
Можно так, без переменной:
[vba]
Код
Sub tt()

     Kicker = Workbooks("Kicker_Input_05_08").Worksheets(1).Cells(3, 2).Value
     With Workbooks("Rating_Tabelle").Worksheets(1)
         For n = 2 To LastRow
             If .Cells(n, FamilyName).Value = Kicker Then действие 1 Else действие 2
         Next n
     End With

End Sub

Sub действие(x)
     MsgBox x
End Sub
[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеМожно так, без переменной:
[vba]
Код
Sub tt()

     Kicker = Workbooks("Kicker_Input_05_08").Worksheets(1).Cells(3, 2).Value
     With Workbooks("Rating_Tabelle").Worksheets(1)
         For n = 2 To LastRow
             If .Cells(n, FamilyName).Value = Kicker Then действие 1 Else действие 2
         Next n
     End With

End Sub

Sub действие(x)
     MsgBox x
End Sub
[/vba]
Автор - Hugo
Дата добавления - 09.05.2014 в 17:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как для удобства сделать адрес ячейки переменной? (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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