Microsoft Excel
. , sh_Base , . , (. 17.5.).
. 17.5.
" " , frm_In.
R1C1, , . :
- 5 .
- - 1
- - 2
- - 3
- - 4
- - 5
, , , n .
, , , . , , , 5, . , Excel. -. : .
B2 . 4. , , n, n . , 4+1=5, - 4+2=6.
B1 - . - , . , , 1.
. , , . , .
, "" .
frm_Main
, , , - .. , . 17.1. frm_Main.
Private Sub cmd_Exit_Click()
When_Exit
End Sub
Private Sub cmd_frm_Balance_Click()
frm_Balance.Show
End Sub
Private Sub cmd_frm_In_Click()
|
|
frm_In.Show
End Sub
Private Sub cmd_frm_Out_Click()
frm_Out.Show
End Sub
Private Sub cmd_frm_Report_Click()
frm_Report.Show
End Sub
Private Sub UserForm_Terminate()
When_Exit
End Sub
Sub When_Exit()
ThisWorkbook.Save
ThisWorkbook.Close
End Sub
17.1. frm_Main (html, txt)
, cmd_Exit, - UserForm_Terminate(), , When_Exit. . , , .
. Open Workbook ( 17.2.). , Workbook .
Private Sub Workbook_Open()
frm_Main.Show
End Sub