Application Workbooks Workbook Charts Chart Axes Hyperlinks Shapes
Иерархия коллекций и объектов � Application � Workbooks ○ Workbook �Charts - Chart - Axes - Hyperlinks - Shapes �Names �Sheets �Styles �Windows
�Worksheets - Worksheet - Chart. Object - Cells - Comments - Hyperlinks - Names - Shapes � Charts � Dialogs � Names � Recent. Files � Sheets � Windows � Worksheets
Примеры работы с объектами VBA Application. Undo Application. Wait "12: 00" Application. Wait Now + Time. Value("0: 00: 10") Application. Workbooks. Item(1). Close Application. Workbooks. Item("Книга 1. xlsm"). Worksheets. Item("Лист2"). Activate Application. Workbooks. Item("Книга 1. xlsm"). Worksheets. Item("Лист2"). Cells(1, 1). Value = 7 Workbooks(1). Close Workbooks("Книга 1. xlsm"). Worksheets("Лист2"). Activate Workbooks("Книга 1. xlsm"). Worksheets("Лист2"). Cells(1, 1). Value = 7
Примеры Active. Cell. Value = 1 Active. Cell. Clear. Contents Msg. Box Active. Sheet. Name Selection. Value = -5
Задание диапазона Range("B 5"). Select Range("A 1: D 10"). Select Range("A 1", "D 10"). Select Range("A 1: B 2", "D 10: G 12"). Select Range("A: D"). Select Range("1: 10"). Select Range("A: D 1: 10"). Select Range("A 1, D 10"). Select
Примеры работы с объектом Range Active. Cell. Row. Height = 50 If Range("A 1: A 3"). Merge. Cells Then Msg. Box "Merged" Else Msg. Box "Not merged" End If Range("A 6"). Clear Range("C 6"). Clear. Contents Range("E 6"). Clear. Formats
Примеры работы с объектом Range("B 2: D 10"). Cells(2, 3). Value = 66 Active. Cell. Offset(1, 0). Formula. Local = Active. Cell. Formula. Local Active. Cell. Offset(1, 0). Formula. R 1 C 1 = Active. Cell. Formula. R 1 C 1 Msg. Box Range("A 1: D 10"). Count Msg. Box Range("A 1: D 10"). Rows. Count Msg. Box Range("A 1: D 10"). Columns. Count
Параметры свойств и методов в языке VBA Range("A 1: D 4"). Copy Destination: =Range("E 5: H 9") expression. Create. Names(Top, Left, Bottom, Right) Range("A 1: E 4"). Create. Names True, False, False Left: =True , , , True
Примеры использования свойства Address Set mc = Worksheets("Лист1"). Cells(1, 1) Msg. Box mc. Address '$A$1 Msg. Box mc. Address(Row. Absolute: =False) '$A 1 Msg. Box mc. Address(Reference. Style: =xl. R 1 C 1) 'R 1 C 1
Примеры использования свойства Address Msg. Box mc. Address(Row. Absolute: =False, Column. Absolute: =False, Reference. Style: =xl. R 1 C 1, _ Relative. To: =Worksheets("Лист1"). Cells(3, 3)) 'R[-2]C[-2] Msg. Box mc. Address(Row. Absolute: =False, _ Column. Absolute: =False, External: =True) '[Книга 1. xlsm]Лист1!A 1
- Slides: 24