【急急急】求助大神vba

新手路上

在附件中的工作表【日汇总表】中的AL4到AL34单元格中，我用的vba代码总是运行时说：“运行时错误，溢出6”什么原因呢？？？

Sub js()
    Dim sht As Worksheet, i%, j%
    j = 4
    i = 0
    For j = 4 To 34
        For Each sht In Worksheets
            If sht.Range("J" & j).Value > 0 Then
                i = i + sht.Range("B4").Value
            End If
        Next sht
        Sheets("日汇总表").Range("AL" & j).Value = Sheets("日汇总表").Range("AJ" & j).Value / i
        i = 0
    Next j
End Sub


求大神指教

不知道为什么

一看就知道了   是你的 i 值出现了0，所以下面除数的时候就报错了。

所以为了避免报错，应该在  Sheets("日汇总表").Range("AL" & j).Value = Sheets("日汇总表").Range("AJ" & j).Value / i  加句对 i 值不为0的判断，是0 就跳过

liulang0808

报错的时候选择调试，问题见截图

鄂龙蒙

1. Sub js()
   
2.     Dim sht, i%, j%
   
3.          For j = 4 To 34
   
4.             For Each sht In Sheets
   
5.                 If sht.Name <> "日汇总表" Then
   
6.                         If sht.Range("J" & j).Value > 0 Then
   
7.                             i = i + sht.Range("B4").Value
   
8.                         End If
   
9.                 End If
   
10.             Next
    
11.             Sheets("日汇总表").Range("AL" & j).Value = Sheets("日汇总表").Range("AL" & j).Value / i
    
12.             i = 0
    
13.         Next
    
14. End Sub

复制代码

新手路上

鄂龙蒙 发表于 2018-6-26 07:26

亲，您这个代码运行的时候，提示运行“类型不匹配喔”

新手路上

liulang0808 发表于 2018-6-26 06:56
报错的时候选择调试，问题见截图

大神，那应该怎么来设置呢？万分感激

新手路上

不知道为什么 发表于 2018-6-26 01:44
一看就知道了   是你的 i 值出现了0，所以下面除数的时候就报错了。

所以为了避免报错，应该在  Sheets( ...

不明白，i值怎么会为0呢？i值起码都有好几百吧，大神，那应该怎么来设置呢？万分感激

liulang0808

新手路上 发表于 2018-6-26 09:40
大神，那应该怎么来设置呢？万分感激

因为变量i=0，作为除数是不可以的，可以增加if语句，对i进行判断，然后处理

不知道为什么

新手路上 发表于 2018-6-26 09:42
不明白，i值怎么会为0呢？i值起码都有好几百吧，大神，那应该怎么来设置呢？万分感激

你给单元格计算赋值后，把i重置0，再到上面去做累加，假如这时候某行的数据是负数或者空值，不符合if的条件，不进行累计，但是i 此时值是上一次重置为0的，没有改变，这时运行就出错了。解决办法我上面说过。这么大白话不知能懂不！手机打字真累，呵呵