| Вопрос: Переменная типа диапазон ячеек | Добавлено: 12.12.07 22:50 |
Автор вопроса:  Василий
|
|
Для автоматизации работы с Анализом данных (Гистограмма) пытался написать код. Но споткнулся на присвоении переменной.
Подскажите... если понятно объяснил.) Sub Histo()
Dim Tiker Dim UserRange As Range Tiker = InputBox(Prompt:="TIKER", _ Title:="INSERT TIKER", Default:="GAZ") Set UserRange = Application.InputBox _ (Prompt:="DIAPAZON", _ Title:="DIAPAZON", _ Default:=DefaultRange, _ Type:=8) Application.Run "ATPVBAEN.XLA!Histogram", ActiveSheet.Range("UserRange") _ , Tiker, , False, False, True, False End Sub |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа: Василий Вопросов: 8 Ответов: 27 |
Профиль | | #1 | Добавлено: 13.12.07 19:18 |
Переменная UserRange не работает ActiveSheet.Range("UserRange"
почему? |
||
|
Номер ответа: 2 Автор ответа:  EUGY Вопросов: 0 Ответов: 454 |
Профиль | | #2 | Добавлено: 13.12.07 22:54 |
|
Переменная UserRange не работает
Dim UserRange As Range - это переменная объекта "UserRange" - это строка, зачем она - никто не знает. Передавай в процедуру "Histogram" не ActiveSheet.Range("UserRange" а просто UserRange
Application.Run "ATPVBAEN.XLA!Histogram", UserRange , Tiker, , False, False, True, False
|
||
|
Номер ответа: 3 Автор ответа: ВасилийВопросов: 8 Ответов: 27 |
Профиль | | #3 | Добавлено: 14.12.07 08:17 |
| Тема закрыта. Спасибо EUGY. | ||
Страница: 1 |