Developing.ru

Сражу прошу не кретиковать. Мое знания макросов по 10 бальной шкале где то 0,5.
Подоскажите можно ли как то в команде Range указывать переменны, в место стандартного Range("A1"). Если да то папишите плз как для одной ячейки и как для диапазона. Заранее спасибо.

попробую более точно объяснить что я пытаюсь сделать. Я хочу что бы макрос проверял какой то столбец или ряд за ранее не известной длины, находил в нем ячейки с определенным значением (числовым). И проведя с этими значение различные вычисления, результат записывал уже в конкретную ячейку. Надеюсь что объяснил доступно

Помогите разобраться

Нужно получить результать от 4 аргументов

Function Gorochka(G1 As Integer, G2 As Integer, G3 As Integer, G4 As Integer)
Gora1 = -(G1 - G2) * 10 / 4
Gora2 = -(G1 - G3) * 10 / 4
Gora3 = -(G1 - G4) * 10 / 4
Gorochka = Gora1 + Gora2 + Gora3
End Function


при запуске этого кода

Private Sub CommandButton1_Click()
Dim ItogIgroka1 As Integer
Dim ItogIgroka2 As Integer
Dim ItogIgroka3 As Integer
Dim ItogIgroka4 As Integer


ItogIgroka1 = Gorochka(Pref_4.g1, Pref_4.g2, Pref_4.g3, Pref_4.g4)
ItogIgroka2 = Gorochka(Pref_4.g2, Pref_4.g1, Pref_4.g3, Pref_4.g4)
ItogIgroka3 = Gorochka(Pref_4.g3, Pref_4.g1, Pref_4.g2, Pref_4.g4)
ItogIgroka4 = Gorochka(Pref_4.g4, Pref_4.g1, Pref_4.g2, Pref_4.g3)


End Sub

выдается сообщение

Compile error Invalid qualifier

Можно использовать свойство Cells, к примеру: Cells(i, j)

Для того чтобы последовательно заполнить ячейки десяти строк и десяти столбцов единицами, можно написать следующий код:

Sub A()
Dim i As Integer
Dim j As Integer

For j = 1 To 10
For i = 1 To 10
ActiveSheet.Cells(i, j).Value = 1
Next i
Next j
End Sub

Для проверки значений в ячейках цикл будет записываться примерно так же.