Neizvestno

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

CrazyPOVT

Если память не изменяет: cell(x,y)
Или cells(x,y)

himax

'Взять:
a = ActiveSheet.Range("A" & i)
'Положить:
ActiveSheet.Range("A" & i) = b
i = i + 1

Neizvestno

Спасибо, я взял первый способ cells(x,y), но только не понял как сослаться на другой лист или файл?

Neizvestno

Создал макрос, при запуске ни чего не происходит, подскажите в чём может быть дело.
Sub Podschet()
x = 4
Dim kp As Integer
kp = x
Dim kps As Integer
kps = x
Do While Cells(kp, 1).Value <> ""
Do While Cells(kps, 6).Value <> ""
If Cells(kps, 6).Value = Cells(kp, 1).Value Then
Cells(kp, 4).Value = Cells(kp, 4).Value + 1
End If
kps = kps + 1
Loop
kp = kp + 1
Loop
End Sub

CrazyPOVT

Примерно так:
Sheets("База").Cells(i, 1).Value

himax

Может так:
Do While ActiveSheet.Cells(kp, 1).Value <> ""
Do While ActiveSheet.Cells(kps, 6).Value <> ""

Neizvestno

спасибо
"База" это название листа?

---------- Добавлено в 14:58 ---------- Предыдущее сообщение было написано в 14:56 ----------

На счёт макроса вроде сам нашёл ошибку, забыл присвоить значение переменной начала цикла