, , , , , , , . . , , . , Ctrl+Pause Break - , , .
- , , , . , MS Office , , . , , , .
frm_In.
: |
17.2. Open (html, txt)
, , , , , , , . . , , . , Ctrl+Pause Break - , , . - , , , . , MS Office , , . , , , . frm_In. |
frm_In
17.3 frm_In.
Private Sub cmd_Exit_Click()
frm_In.Hide
' frm_In
' frm_Main
End Sub
Private Sub cmd_Rec_Click()
'
Dim num_Address
'
num_Address = ActiveSheet.Range("B1") + _
ActiveSheet.Range("B2")
'
ActiveSheet.Cells(num_Address, 1) = _
ActiveSheet.Range("B1")
'
ActiveSheet.Cells(num_Address, 2) = _
Date
' -
ActiveSheet.Cells(num_Address, 3) = _
cbo_Type.Value
' -
ActiveSheet.Cells(num_Address, 4) = _
Val(txt_Sum)
' -
ActiveSheet.Cells(num_Address, 5) = _
txt_Info
'
ActiveSheet.Range("B1") = _
ActiveSheet.Range("B1") + 1
'
Initial
End Sub
Private Sub UserForm_Activate()
'
'
Initial
End Sub
Sub Initial()
'
lbl_Date = Date
lbl_RecNum = ActiveSheet.Range("B1")
cbo_Type.Clear
cbo_Type.AddItem ""
cbo_Type.AddItem ""
cbo_Type.Value = ""
txt_Info = ""
txt_Sum = ""
End Sub
17.3. frm_In (html, txt)
frm_Out
frm_Out
17.4 frm_Out. Load_Data(). num_Index - , . , .
|
|
Private Sub UserForm_Initialize()
'
Load_Data (1)
End Sub
Private Sub cmd_Backward_Click()
'
If Val(lbl_RecNum) > 1 Then
Load_Data (Val(lbl_RecNum) - 1)
End If
End Sub
Private Sub cmd_Exit_Click()
frm_Out.Hide
End Sub
Private Sub cmd_First_Click()
'
Load_Data (1)
End Sub
Private Sub cmd_Forward_Click()
'
If Val(lbl_RecNum) < ActiveSheet.Range("B1") Then
Load_Data (Val(lbl_RecNum) + 1)
End If
End Sub
Private Sub cmd_Last_Click()
'
Load_Data (ActiveSheet.Range("B1") - 1)
End Sub
Private Sub cld_First_Click()
' ,
'
'
For i = 1 To ActiveSheet.Range("B1") - 1
If ActiveSheet.Cells _
(i + ActiveSheet.Range("B2"), 2) = _
cld_First.Value Then
Load_Data (i)
Exit For
End If
Next i
End Sub
Private Sub cmd_Rec_Click()
'
Dim num_Address
'
num_Address = Val(lbl_RecNum + _
ActiveSheet.Range("B2"))
'
' -
'
'
ActiveSheet.Cells(num_Address, 4) = _
Val(txt_Sum)
'
ActiveSheet.Cells(num_Address, 5) = _
txt_Info
End Sub
Sub Load_Data(num_Index As Integer)
'
'
'
Dim num_Address
'
num_Address = num_Index + _
ActiveSheet.Range("B2")
'
lbl_RecNum = _
ActiveSheet.Cells(num_Address, 1)
'
lbl_Date = _
ActiveSheet.Cells(num_Address, 2)
'
lbl_Type = _
ActiveSheet.Cells(num_Address, 3)
'
txt_Sum = _
ActiveSheet.Cells(num_Address, 4)
'
txt_Info = _
ActiveSheet.Cells(num_Address, 5)
End Sub
|
|
|
|
: 2016-09-06; !; : 340 |
:
, - , ; , - .
==> ...