Для доступа из программы к значениям, хранящимся в ячейках некоторого листа, применяется одна из двух следующих комбинаций:
Sheets( "НазваниеЛиста" ).Range(" ЯчейкаИлиДиапазонЯчеек ").Value
Sheets ("НазваниеЛиста") .Cells (НомерСтроки, НомерСтолбца) .Value
которые применяются также, как и переменные: в составе выражений или в левой и правой частях оператора присваивания. В качестве названия листа может быть имя листа в кавычках, строковое выражение, возвращающее имя листа или строковая переменная, которой присвоено имя листа. То же самое касается и ячеек и их диапазонов в Range. Диапазон ячеек задаётся при помощи начальной и конечной ячеек, разделённых двоеточием. Так можно задавать столбцы и строки ячеек, а также прямоугольные массивы ячеек. В последнем случае указываются две ячейки в противоположных углах. Например,
Sub N2()
Dim h1 As String
h1 = "D10:E11"
Sheets("Лист1").Range(h1).Value = 56
End Sub
В качестве номеров строк и столбцов в Cells могут быть только ненулевые целочисленные параметры: числа, переменные, выражения и т. д.
Если данная комбинация находится слева от знака равенства в операторе присваивания, то происходит запись данных в ячейку. Если данная комбинация находится справа от знака равенства в операторе присваивания, то происходит чтение данных из ячейки. Например,
Sheets("Лист1").Range("A7").Value = 7 ‘ – в ячейку А7 "Листа1" записывается число 7
Sheets("Лист2").Cells(6,7).Value = "Пример" ‘ – в 7 ячейку 6 строки "Листа2"
записывается слово “Пример”
h = Sheets("Лист2").Cells(t,k).Value ‘– переменной h присваивается значение ячейки из
строки с номером t и столбца с номером k из “Листа2"
Пример:
Sub WriteList()
Dim g As Single
Sheets("Лист1").Cells(6, 7).Value = "Пример"
Sheets("Лист1").Range("A7").Value = InputBox("Введите значение для ячейки А7")
g = 120 * Sheets("Лист1").Range("A7").Value
MsgBox " g=" & CStr(g)
End Sub