ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 448|回复: 6

[求助] 求助各位老师,附件循环部分无法统计问题

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-6-20 20:08 | 显示全部楼层 |阅读模式
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


搜狗截图20190620195703.png

求助.rar

9.96 KB, 下载次数: 2

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-6-20 20:31 | 显示全部楼层
本帖最后由 7016427 于 2019-6-20 20:36 编辑

那位老师能帮我解决这个难题?补充,版面3元的,分窗口没有统计出来张数的问题!



TA的精华主题

TA的得分主题

发表于 2019-6-20 21:12 | 显示全部楼层
Private Sub CommandButton1_Click()
Dim i%, l%, k%, y, s, a, b, c, d
With Sheet1
   For i = 3 To 7
     If .Range("b" & i) <> "" Then
       If .Range("b" & i) = 1 Then  '版面为壹元的
         a = a + .Range("e" & i)
       Else
         b = b + .Range("e" & i) '版面为叁元的
       End If
     End If
   Next
   For k = 8 To 12
     If .Range("b" & k) <> "" Then
       If .Range("b" & k) = 1 Then  '三号窗口,版面为壹元的
         c = .Range("e" & k) + c
       Else
         d = .Range("e" & k) + d '三号窗口,版面为叁元的
       End If
     End If
   Next
End With
MsgBox "保险壹元的使用了:" & a + c & "张" & Chr(10) & Chr(10) & "(一号窗口:" & a & "张、三号窗口:" & c & "张)" & _
Chr(10) & Chr(10) & "保险叁元的使用了:" & (b + d) / 3 & "张" & Chr(10) & Chr(10) & "(一号窗口:" & b / 3 & "张、三号窗口:" & d / 3 & "张)" & _
Chr(10) & Chr(10) & "合  计:" & (a + c) + (b + d) / 3 & "张 ", 64, Format(Date, "  yyyy年mm月发售保险张数  ")
End Sub

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-6-20 21:13 | 显示全部楼层
写代码先要规范自已的格式。代码的循环判断混乱了。具体自已去修改吧。把你的代码规范了一下,自已看看每个语句结构是不是你想要的那种。

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

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-6-21 07:54 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
通过按F8逐步执行,看看实际变化就知道原因了

TA的精华主题

TA的得分主题

发表于 2019-6-21 09:10 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
循环和判断嵌套错误。
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: y = .Range("e" & l) + y '一号窗口,版面为壹元的
If .Range("b" & l) = 3 Then b = .Range("e" & l) + b: s = .Range("e" & l) + s '一号窗口,版面为叁元的
Next

For k = 8 To 12
If .Range("b" & k) = 1 Then c = .Range("e" & k) + c: y = .Range("e" & k) + y '三号窗口,版面为壹元的
If .Range("b" & k) = 3 Then d = .Range("e" & k) + d: s = .Range("e" & k) + s '三号窗口,版面为叁元的


Next

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 With
End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-6-21 10:07 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
谢谢老师!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 17:51 , Processed in 0.049142 second(s), 9 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表