|
Private Sub CommandButton1_Click()
' 请教老师,为什么以下红色语句,没有统计出结果?
Dim i%, l%, k%, y, s, a, b, c, d
With Sheet1
For i = 3 To 12
If .Range("b" & i) = 1 Then '版面为壹元的
y = .Range("e" & i) + y
End If
If .Range("b" & i) = 3 Then '版面为叁元的
s = .Range("e" & i) + s
End If
Next
For l = 3 To 7
If .Range("b" & l) = 1 Then '一号窗口,版面为壹元的
a = .Range("e" & l) + a
If .Range("b" & l) = 3 Then '一号窗口,版面为叁元的
b = .Range("e" & l) + b
End If
For k = 8 To 12
If .Range("b" & k) = 1 Then '三号窗口,版面为壹元的
c = .Range("e" & k) + c
If .Range("b" & k) = 3 Then '三号窗口,版面为叁元的
d = .Range("e" & k) + d
End If
MsgBox "保险壹元的使用了:" & y & "张" & Chr(10) & Chr(10) & "(一号窗口:" & a & "张、三号窗口:" & c & "张)" & _
Chr(10) & Chr(10) & "保险叁元的使用了:" & s / 3 & "张" & Chr(10) & Chr(10) & "(一号窗口:" & b / 3 & "张、三号窗口:" & d / 3 & "张)" & _
Chr(10) & Chr(10) & "合 计:" & y + s / 3 & "张 ", 64, Format(Date, " yyyy年mm月发售保险张数 ")
End If
Next
End If
Next
End With
End Sub
|
|