Excel VB: циклы, переменные, ячейки…

[voice]

Если кто в курсе, - помогите, пожалуйста, решить проблему:

Мне нужно написать макрос для Excel. По ходу программы каждая ячейка одного столбца (таблицы Excel) должна проходить проверку по условиям (всего ячеек 2500).
Я хотел сделать цикл. То есть, к примеру, название ячейки Q1… заменить единицу на переменную (скажем X… т.е. написать QX), и прогнать её циклом for X=X+1 и т.д.
Но программа это не переваривает…

Эта проблема всплывает и в других местах программы… Например, каждую шестую строку Excel таблицы разложить в столбец…

Если кто знает как это можно уладить, - пожалуйста, подскажите…

[inq]

Я хотел сделать цикл. То есть, к примеру, название ячейки Q1… заменить единицу на переменную (скажем X… т.е. написать QX), и прогнать её циклом for X=X+1

cells(X, 17)

[rok]

Код: Выделить всё

Range("Q1").Activate
For a = 1 To ActiveCell.CurrentRegion.Count
Debug.Print Range("A" & a).value
Next


[Чудовище под кроватью]

Код: Выделить всё

Range("Q1").Activate
For a = 1 To ActiveCell.CurrentRegion.Count
Debug.Print Range("A" & a).value
Next


и что это должно делать?

[Nicky]

rok написал все, что знал

[rok]

Между For and Next все, что Вы напишете-например условие для проверки и соответствующие действия, а вобще проверять надо при вводе-зачем участие в вычислениях не верных данных (не факт, что по результату видно ошибочность данных)?

[Чудовище под кроватью]

Между For and Next все, что Вы напишете

Ну... строго говоря, любой код будет делать то, что я напишу. Меня интересует действие данной конструкции в целом. Напиши, зачем нужна каждая из строчек (да и вообще все в целом).

а вобще проверять надо при вводе-зачем участие в вычислениях не верных данных (не факт, что по результату видно ошибочность данных)?

Какая проверка? Какие данные? Ничего не понимаю Речь же вроде о простейшем цикле, где в цикле перебираются строки.
Зачем, например,
Range("Q1").Activate
For a = 1 To ActiveCell.CurrentRegion.Count
Когда и можно и без активации и в одну строку:
For a = 1 To Range("Q1").CurrentRegion.Count

[rok]

Конечно можно и одной строкой-тогда надо выделять ячейку в столбце Q-а так из любого места листа.Данные надо проверять при заполнении столбца, а не после того когда набралось несколько тысяч значений в том числе и не допустимых, результаты которых уже где-то используются.
А вообще VBA по интернету это круто(читайте буквари и морщите лоб).Меня лично давит жаба насчет бабок за net. Удачи.

[Чудовище под кроватью]

Конечно можно и одной строкой-тогда надо выделять ячейку в столбце Q-а так из любого места листа.

Чтобы проверить любую ячейку любого листа на соответствие условию, просто обращаемся к этой ячейке Worksheets().Range() и дальше - условие. Зачем её выделять, да еще и активировать?

Данные надо проверять при заполнении столбца

А это делается с помощью события Worksheet_Change (а то и просто Данные -> Проверка), а приведенная конструкция будет запускаться только когда сам её запустишь.

А вообще VBA по интернету это круто(читайте буквари и морщите лоб).... . Удачи.

Взаимно.

[inq]

Поток сознания тов. rok просто поражает : )

[rok]

Ребята,ну из-за чего весь сыр-бор, как ввести данные в ячейку не выделив ее ?
и какая принципиальная разница между Worksheets().Range() и range().activate(в обоих вариантах по 16 символов). А насчет проверки-ну не понимаю зачем проверять тысячи записей не понятно при каком по счету Worksheet_Change, если это можно делать при изменении ячейки в конкретном столбце.
А что касается второго вопроса то имеется 256 столбцов, что делать если строк больше 256*6 ?

[Nicky]

Ребята,ну из-за чего весь сыр-бор, как ввести данные в ячейку не выделив ее ?

Например, так: cells(10,10) = "Большой привет"

и какая принципиальная разница между Worksheets().Range() и range().activate

RTFM

(в обоих вариантах по 16 символов).

LOL

А насчет проверки-ну не понимаю зачем проверять тысячи записей не понятно при каком по счету Worksheet_Change, если это можно делать при изменении ячейки в конкретном столбце.

Вопрос на засыпку: ты открыл книгу. Как с помощью Worksheet_Change проверить диапазон на валидность?

[Чудовище под кроватью]

Поток сознания тов. rok просто поражает : )

Да, забавный персонаж. Меня напоминает... лет 5-10 назад.

2 rok:

А насчет проверки-ну не понимаю зачем проверять тысячи записей не понятно при каком по счету Worksheet_Change

Событие Worksheet_Change вызывается с параметром Item (тип Range), указывающим, какой диапазон изменился .

ну из-за чего весь сыр-бор

Я всего лишь попросил тебя написать комментарий к каждой строчке кода. - Что делает и зачем? Просто как-то всегда обходился без CurrentRegion, вот и любопытно, а зачем оно тут вообще используется.
А ты мне про проверку начал рассказывать