Page 69 - 6735

Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A3").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
Range("A4").Select
End Sub

Функція користувача Excel

В прикладі показано створення функцію користувача Excel
мовою VBA, яку можна буде використовувати в комірках листа
Excel. Створіть новий модуль, який містить код функції my_funct.
У комірку Excel введіть формулу =my_funct(2) і натисніть Enter.
Повинен з’явитись результат 4.

Public Function my_funct(x As Double)
my_funct = x + 2
End Function

Клас Range – діапазон комірок Excel

Клас Range описує окрему комірку Excel або діапазони комірок.
Об’єкт цього класу можна отримати так: Range("<назва
діапазону>"). У прикладі показані основні властивості і методи
класу Range.

Public Sub main()
ActiveSheet.UsedRange.Clear 'очистити діапазон зі
значеннями
ActiveSheet.UsedRange.ClearContents 'очистити вміст
ActiveSheet.UsedRange.ClearComments 'очистити коментарі
ActiveSheet.UsedRange.ClearFormats 'очистити формати
'змінити значення комірки A1 листа Лист1 книги
VBA_examples
Workbooks("VBA_examples").Worksheets("Лист1").Range("A1").
Value = 5
69