Запись и считывание данных из ячеек рабочего листа Excel

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

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)