Private Sub Command Button 1Click Dim a As

Обработка диапазона • • • Private Sub Command. Button 1_Click() Dim a As Range Dim i As Variant, s As Variant Set a = Range(Re 1. Text) For Each i In a s=s+i Next i T 1. Text = Str(s) End Sub

Стандартные объекты • • • Application Windows Active. Window Work. Books Active. Work. Book Work. Sheets Active. Work. Sheet. Function Userform User. Forms Controls Range Active. Cell

Пример Dim Control as Variant For Each Control in Uf 1. Controls Control. Visible=False Next Control Application. Workbooks(1). Worksheets(1). Ra nge(“A 1”). Value=1

Пример Application. Active. Window. Active. Cell. Font. N ame =…. Application. Active. Window. Active. Cell. Font. Si ze=… Application. Active. Window. Active. Cell. Font. B old=…

Пример With Application. Active. Window. Active. Cell. Font. Name =…. . Size=…. Bold=… End With Work. Sheets(1). Range(“a 1: C 10”). Value =30. Font. Bold=True End With

Обработка выделенного диапазона • Private Sub Command. Button 1_Click() • Dim a As Range • Dim i As Variant, s As Variant • Set a = Selection • • • For Each i In a s=s+i Next i T 1. Text = Str(s) End Sub

Примеры • • a = Worksheets(1). Cells(1, 3). Value Cells(3, 1). Value = 3415 a = Worksheet. Function. Sum([a 1: a 3]) [d 1: d 4]. Value = 23 For i=1 to 4 Cells(1, i). Value=“Квартал ”&STR(i) Next i