Цикл по ячейкам

@maximus1991 · Регистрация: 20.05.2011

Author24 — интернет-сервис помощи студентам

Здравствуйте. помогите пожалуйста понять где я туплю.

Visual Basic

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim a As String
Dim sindex As Integer
Dim sname As String
Dim val As Variant
Dim val2 As Variant
Dim arrdata(48) As String
 
k = 0
    Windows("pr2.xlsx").Activate ' ïåðåõîä íà îòêðûòóþ êíèãó
    i = ActiveCell.Row ' óçíàåì íîìåð âûäåëåíîé ñòðîêè
    For j = 1 To 4
    k = k + 1
    ActiveCell.Cells(i, k).Activate
    ActiveCell.Value = 1
    
    Next j

Хочу сделать перебор по ячейкам и присвоить этой ячейки число 1. Но при переборе как то странно выполняется команда ActiveCell.Cells(i, k).Activate, то есть значения переменной i =1 k = 3 а по факту активная ячейка стала cells(1,4). а при увеличении цикла до 48 (for i=1 to 48) то происходит вообще какая то фигня.
Спасибо за помощь!
PS тут предоставлено только часть кода который тупит .

@Казанский · 26.09.2015, 23:06

maximus1991, замените 16 строку на

Visual Basic

1	Cells(i, k).Activate

А лучше 16 и 17 строку на

Visual Basic

1	Cells(i, k).Value = 1

@maximus1991 · 26.09.2015, 23:15 **[ТС]**

Спасибо за работало.! Но остается не понятно одно- до этого это же писал но VBA ошибку выдавал на данной строке.

@sku144 · 27.09.2015, 11:30

Можете прикрепить пример где написано так же, но выдается ошибка?
Чудес не бывает, значит что-то все-таки писали не так.

@maximus1991 · 27.09.2015, 12:37 **[ТС]**

Жаль но тот алгоритм удалил уже давно

и теперь не проверить где я допустил ошибку.

@maximus1991 15 / 14 / 4 Регистрация: 20.05.2011 Сообщений: 293 Записей в блоге: 2
	26.09.2015, 23:15 [ТС]	3
	Спасибо за работало.! Но остается не понятно одно- до этого это же писал но VBA ошибку выдавал на данной строке. 0

@sku144 195 / 17 / 2 Регистрация: 15.01.2015 Сообщений: 190
	27.09.2015, 11:30	4
	Можете прикрепить пример где написано так же, но выдается ошибка? Чудес не бывает, значит что-то все-таки писали не так. 0

@maximus1991 15 / 14 / 4 Регистрация: 20.05.2011 Сообщений: 293 Записей в блоге: 2
	27.09.2015, 12:37 [ТС]	5
	Жаль но тот алгоритм удалил уже давно и теперь не проверить где я допустил ошибку. 0