а то я совсем начинающий 
...
Dim rng1 As Variant
Dim rng2 As Variant
...
rng1 = TextBox1.Text
rng2 = TextBox2.Text
....
Range("rng1:rng2").Select
With Selection.Interior
....
End With
...
как передать в Range диапазон из переменной? ругается...
range
Сообщений: 6
• Страница 1 из 1
- @sam@
- Начинающий
- Сообщения: 3
- Зарегистрирован: 28.11.2003 (Пт) 17:04
range
@sam@ » 28.11.2003 (Пт) 18:47
хлопцы подскажите а то я совсем начинающий
...
Dim rng1 As Variant
Dim rng2 As Variant
...
rng1 = TextBox1.Text
rng2 = TextBox2.Text
....
Range("rng1:rng2").Select
With Selection.Interior
....
End With
...
как передать в Range диапазон из переменной? ругается...
а то я совсем начинающий
...
Dim rng1 As Variant
Dim rng2 As Variant
...
rng1 = TextBox1.Text
rng2 = TextBox2.Text
....
Range("rng1:rng2").Select
With Selection.Interior
....
End With
...
как передать в Range диапазон из переменной? ругается...
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 29.11.2003 (Сб) 8:50
Это в VBA...
Переменных не нужно. Сразу
Переменных не нужно. Сразу
- Код: Выделить всё
with range(text1.text+":"+text2.text).interior
...
end with
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
- GSerg
- Шаман
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 02.12.2003 (Вт) 8:59
- Код: Выделить всё
dim c as excel.range
for each c in range(text1+":"+text2)
msgbox c.value
next
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
Сообщений: 6
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот и гости: 50