才开始学VBA，练手，判断求和+循环，感觉思路很乱

xiaoya6976 · 发表于 2018-10-11 15:35

本帖最后由 xiaoya6976 于 2018-10-11 17:21 编辑

只用DIM,FOR,IF……then（主要是目前还只学了这几个，想练练手）能不能一键实现自动计算P列？计算结果和P列的公式结果一样？但感觉思路混乱
[img]file:///C:\Users\penghaifeng\AppData\Roaming\Tencent\Users\42121324\QQ\WinTemp\RichOle\L%%[]7S]V31]W9U0KA[0Q6B.png[/img] QQ图片20181011153345.png

abc123281 · 发表于 2018-10-11 19:51

Sub test()
Worksheets("sheet2").Activate
r = [b65536].End(xlUp).Row
For i = 3 To r
  For j = 5 To 15
   If Cells(i, j) <= Cells(i, 4) Then
   a = a + Cells(i, j)
   End If
   If Cells(i, j) > Cells(i, 4) Then
   n = n + 1
   b = n * Cells(i, 4)
   End If
  Next
  Cells(i, 17) = a + b
  a = 0
  b = 0
  n = 0
Next
End Sub

abc123281 · 发表于 2018-10-11 19:53

通讯费报销统计表123.rar (9.97 KB, 下载次数: 4)

xiaoya6976 · 发表于 2018-10-12 10:13

谢谢，大概了解思路了，但始终感觉哪里还差点，我再看看书去

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

才开始学VBA，练手，判断求和+循环，感觉思路很乱

浏览过的版块