|
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Application.Intersect([ae7:ak11], Target) Is Nothing Then Exit Sub
- n1 = Val([ae12] & [af12] & [ag12] & [ah12] & [ai12])
- n2 = Val([aj12] & [ak12])
-
- If n2 = 0 Then
- str1 = WorksheetFunction.Text(n1, "[dbnum2]") & "圆整(¥" & n1 & ".00)"
- Else
- If [aj12] = 0 Then
- str2 = WorksheetFunction.Text([ak12], "[dbnum2]") & "分"
- str1 = WorksheetFunction.Text(n1, "[dbnum2]") & "圆" & str2 & "(¥" & n1 & "." & n2 & ")"
- Else
- If [ak12] = 0 Then
- str2 = WorksheetFunction.Text([aj12], "[dbnum2]") & "角"
- str1 = WorksheetFunction.Text(n1, "[dbnum2]") & "圆" & str2 & "(¥" & n1 & "." & n2 & ")"
- Else
- str2 = WorksheetFunction.Text([aj12], "[dbnum2]") & "角" & WorksheetFunction.Text([ak12], "[dbnum2]") & "分"
- str1 = WorksheetFunction.Text(n1, "[dbnum2]") & "圆" & str2 & "(¥" & n1 & "." & n2 & ")"
- End If
- End If
- End If
- [d13] = str1
- End Sub
复制代码 |
|