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
- Slides: 9