| Вопрос: Как счиатать данные из листа Exel в программу VBA? | Добавлено: 27.04.07 17:07 |
Автор вопроса:  Andrew_nik
|
|
Написал простенький код:
Sub Замена() Dim rwIndex As Integer Dim colIndex As Integer For rwIndex = 1 To 10 For colIndex = 1 To 2 With Worksheets("Sheet1").Cells(rwIndex, colIndex) If .Value < 0.5 Then .Value = 0 End With Next colIndex Next rwIndex End Sub При компиляции "выскакивает" ошибка 9 - Subscript out of range. Что надо сделать? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  ADSemenov.ru Вопросов: 5 Ответов: 276 |
Web-сайт: Профиль | | #1 | Добавлено: 27.04.07 18:30 |
|
____ Не верю, что у вас лист называется Sheet1.
____ Проверьте в окне проекта, либо в браузере объектов. Скорее всего — "Лист1". ____ А если Вы имеете ввиду активный лист, то лучше писать Activeseets.Cells(rwIndex, colIndex) или просто Cells(rwIndex, colIndex). |
||
|
Номер ответа: 2 Автор ответа: GogicВопросов: 38 Ответов: 121 |
Профиль | | #2 | Добавлено: 27.04.07 18:43 |
|
Надо заменить данные в области ячеек?
Dim MyCell As Range For Each MyCell In Range("E53:E53"  'здесь задаешь область
MyCell.Value < 0.5 Then MyCell.Value = 0 Next |
||
|
Номер ответа: 3 Автор ответа: Andrew_nik Вопросов: 15 Ответов: 30 |
Профиль | | #3 | Добавлено: 28.04.07 09:03 |
| Спасибо за совет! Теперь работает! | ||
Страница: 1 |