добрый день,
подскажите, как столбцы в команде Columns("C:G").select
задавать в виде переменных
подскажите, как столбцы в команде Columns("C:G").select
задавать в виде переменных
преобразовать ссылки в переменные
|
08.05.2011 19:48:34
|
|
|
|
|
|
08.05.2011 19:52:42
один из вариантов:
range(cells(1,a),cells(1,b)).entirecolumn
фрилансер Excel, VBA - контакты в
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг |
|
|
|
|
|
08.05.2011 20:07:19
Второй из вариантов:
Sub qqq() Dim First As Integer, Second As Integer First = 2 Second = 5 Range(Columns(First), Columns(Second)).EntireColumn.Select End Sub |
|
|
|
|
|
08.05.2011 20:24:07
спасибо!
|
|
|
|
|
|
08.05.2011 20:53:23
Третий вариант:
Sub qqq3() Dim First As Integer, Second As Integer First = 2 Second = 5 cells(First).resize(,Second-First+1).EntireColumn.Select End Sub |
|
|
|
|
|
08.05.2011 21:15:04
апофеоз :))
columns(First).resize(,Second+First-1).select
фрилансер Excel, VBA - контакты в
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг |
||||
|
|
|
|||
Читают тему
