[已解决]该怎样正确计数？

gwfzh · 发表于 2014-5-2 18:01

本帖最后由 gwfzh 于 2014-5-3 10:18 编辑

各位老师：
at:av区域数值是相应行J列值除3余数后的遗漏值表，J列值的除3余数在相应行的at:av区域用相应的符号（余0=“●”、余1=“▲”、余2=“■”）表示，即当J列值的除3余数=“0”时，相应行AT列值等于“●”，否则用“计数”表示其遗漏，au、av（余1、余2）依此类推.
运行模块1“dinwei()”程序后，余数的符号表示是正确的，现在的问题是遗漏值的“计数”出现了错误！“dinwei()”程序该怎样正确“计数”j列除3余数的遗漏值？请各位老师帮忙了！谢谢！！！

Book1.rar (9.98 KB, 下载次数: 6)

dsmch · 发表于 2014-5-2 18:13

怎样正确“计数”j列除3余数的遗漏值？
详细说明计算规则，方便测试代码

gwfzh · 发表于 2014-5-2 19:13

本帖最后由 gwfzh 于 2014-5-2 19:28 编辑

dsmch 发表于 2014-5-2 18:13
怎样正确“计数”j列除3余数的遗漏值？
详细说明计算规则，方便测试代码

判断当j5=28。除3余1时，那么au5（余1遗漏值）=“▲”,在at5（余0遗漏值）和av5（余2遗漏值）各计数1，当j6=17。除3余2时，那么av6（余2遗漏值）=“▲”,在at6（余0遗漏值）和au6（余1遗漏值）分别计数为2和1，其余依此类推
另“dinwei()”程序中if判断i当只有2种情况时，结果是正确的，而只有在判断出现3种情况以上后，才出现该错误！怎样解决请老师帮助了！谢谢！！！

dsmch · 发表于 2014-5-2 19:53

Sub Macro1()
Dim arr, brr, w, d,i&,j%,x%
Set d = CreateObject("scripting.dictionary")
arr = Range("j5").CurrentRegion
w = Array("●", "▲", "■")
ReDim brr(1 To UBound(arr), 1 To 3)
For i = 1 To UBound(arr)
x = arr(i, 1) Mod 3
For j = 0 To 2
If x = j Then
brr(i, j + 1) = w(j)
Else
d(j) = d(j) + 1
brr(i, j + 1) = d(j)
End If
Next
Next
Range("ax5").Resize(UBound(brr), 3) = brr
End Sub

复制代码

dsmch · 发表于 2014-5-2 19:56

………………

gwfzh · 发表于 2014-5-2 20:41

dsmch 发表于 2014-5-2 19:56
………………

谢谢老师帮助：

可能问题沒有说清楚，遗漏值的“计数”仍出现了错误！现将正确示例附上，请老师继续帮忙了！谢谢！！！

计数.rar (19.52 KB, 下载次数: 3)

dsmch · 发表于 2014-5-2 20:47

Sub Macro1()
Dim arr, brr, w, d, i&, j%, x%
Set d = CreateObject("scripting.dictionary")
arr = Range("j5").CurrentRegion
w = Array("●", "▲", "■")
ReDim brr(1 To UBound(arr), 1 To 3)
For i = 1 To UBound(arr)
x = arr(i, 1) Mod 3
For j = 0 To 2
      If x = j Then
         brr(i, j + 1) = w(j)
          d(j) = 0
      Else
         d(j) = d(j) + 1
         brr(i, j + 1) = d(j)
      End If
Next
Next
Range("ax5").Resize(UBound(brr), 3) = brr
End Sub

		自动登录	找回密码
密码			注册

[已解决]该怎样正确计数？

评分

评分