frm_Balance
frm_Balance
17.5. frm_Balance. . Activate.
Private Sub cmd_OK_Click()
frm_Balance.Hide
End Sub
Private Sub UserForm_Activate()
'
Dim num_Address
'
Dim num_Earn
'
Dim num_Spend
For i = 1 To ActiveSheet.Range("B1") - 1
num_Address = i + ActiveSheet.Range("B2")
'
' num_Earn
If ActiveSheet.Cells(num_Address, 3) = "" _
Then
num_Earn = num_Earn + _
ActiveSheet.Cells(num_Address, 4)
End If
'
' num_Spend
If ActiveSheet.Cells(num_Address, 3) = "" _
Then
num_Spend = num_Spend + _
ActiveSheet.Cells(num_Address, 4)
End If
Next i
lbl_Balance = num_Earn - num_Spend
If num_Earn > num_Spend Then _
lbl_Msg = " ."
If num_Earn = num_Spend Then _
lbl_Msg = " ."
If num_Earn < num_Spend Then _
lbl_Msg = " ."
End Sub
17.5. frm_Balance (html, txt)
17-02- .xlsm - . 17.2.
, 2 ( ), . :
- .
- .
, A B2, - C2. cmd_Change (. 17.6.)
. 17.6. ,
17.6. , Click cmd_Change
' B2
ActiveSheet.Range("B2") = _
ActiveSheet.Range("B2") + _
ActiveSheet.Range("C2")
' 2
ActiveSheet.Range("C2") = _
ActiveSheet.Range("B2") - _
ActiveSheet.Range("C2")
' B2
ActiveSheet.Range("B2") = _
ActiveSheet.Range("B2") - _
ActiveSheet.Range("C2")
17.6. (html, txt)
17-03- .xlsm - . 17.3.
|
|
A (P) (Q). P Q 2 10.
MS Excel , . . , , 10.
P 10, 10 Q.
:
- :
Q Q . , Q 1- . :
:
1101 =1*2^3+1*2^2+0*2^1+1*2^0=8+4+0+1=13
:
1042=1*5^3+0*5^2+4*5^1+2*5^0=125+0+20+2=147
Q 10 Q Q , 0.
, (. 17.6.). AutoSize True.
17.6. | |
cmd_OK | . |
txt_P | P. P. |
txt_Q | Q. Q |
txt_A | . , P Q |
txt_B | . |
. 17.7. .
. 17.7.
17.7. Click cmd_OK.
' P
Dim num_P
' Q
Dim num_Q
' 10-
Dim num_10
'
' Q
Dim num_S
num_P = Val(txt_P)
num_Q = Val(txt_Q)
'
' P
'
For i = 1 To Len(txt_A)
num_10 = num_10 + Val(Mid(txt_A, i, 1)) * _
num_P ^ (Len(txt_A) - i)
Next i
'
' Q
txt_B = ""
While num_10 <> 0
' str_S
num_S = num_10 Mod num_Q
'
'
txt_B = Mid(Str(num_S), 2, 1) + txt_B
' num_10
'
'num_10
' Q
num_10 = num_10 \ num_Q
Wend