. , 1, .
Workbook
, , . Workbook.
Open
, .xls.
:
1. .xls ( VBA) ThisWorkbook (. 11‑1).
|
|
|
. 11‑1.
2. Workbook.
3. Open. Workbook_Open.
4. ( 1- ).
, .xls, . , .
BeforeClose
, BeforeClose.
:
1. BeforeClose, . , ;
2. -.xls Open BeforeClose, , .
SheetActivate
SheetActivate. . ( ):
Private Sub Workbook_SheetActivate(ByVal Sh As Object)MsgBox Sh.Name End Sub:
SheetActivate ( Excel ).
Worksheet
, .
Activate
Activate , . , 1 :
Private Sub Worksheet_Activate()
MsgBox " - " & ActiveSheet.Name
End Sub
:
1. 1 (. 11‑2. 10‑2).
2. WorkSheet, Activate (. 11‑2)
. 11‑2.
3. .
4. Excel . : 2 !
|
|
Deactivate
Deactivate , . 1 :
Private Sub Worksheet_Deactivate()
MsgBox ActiveSheet.Name & " !"
End Sub
SelectionChange
SelectionChange ( ) , ( , [Enter], ).
2 , . :
1. 2 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox " - " & ActiveCell.Address
End Sub
2. :
;
;
[Enter];
( ). : .
1
1. , :
1) C:\St\ .xls;
2) . . ;
3) . WhileWend (. 8.5 ):
= 1
While Trim(Cells(,1).Value) <> ""
= + 1
Wend
Trim, . , , , ( );
4) 5 5 1- , ;
5) c ;
6) : !
2. , :
C:\St\ .xls, , : , . ? , ;
5 .
3. , :
C:\St\ .xls , , 2.1
.
.
4. , :
1) C:\St\ .xls , ;
2) :
, , ;
|
|
, .
.
5. , , , . , , , .
2 3. .
2 3
2 3 :
1. .
2. .
3. .
4. , VBA.
5. .
6. .
1.
2
, .
:
1. Excel .xls . C:\ :