为啥我录的宏运行会出错，小白请求帮忙看看指导

天（小白一个） · 发表于 2022-12-20 16:33

本帖最后由天（小白一个）于 2022-12-21 15:42 编辑

原理，J35每次-10，则P3+1，J18:J33中有0，则清空同一行BC列单元格，定位b18:B33中的第一个空值，填入公式=C1+D1，定位C18:C33中的第一个空值，填入公式=C1+D1+R3+2，复制B3:C33选择粘贴为格式和值。指定宏到减10，运行一次OK，多运行几次就NG，日期还有不按公式填，错的，清空单元格时不时罢工。小白求助指导，不会写代码，我相信有更简单的代码，请教各位，谢谢，另外怎么上传压缩包呢

ykcbf1100 · 发表于 2022-12-20 16:37

要别人帮你，上个附件啊。

天（小白一个） · 发表于 2022-12-20 17:13

ykcbf1100 发表于 2022-12-20 16:37
要别人帮你，上个附件啊。

怎么上附件呢，不会

天（小白一个） · 发表于 2022-12-20 17:19

本帖最后由天（小白一个）于 2022-12-20 17:28 编辑

附件看正文

天（小白一个） · 发表于 2022-12-20 17:20

ykcbf1100 发表于 2022-12-20 16:37
要别人帮你，上个附件啊。

电脑材可以上附件，不好意思，我一开始是用手机发的

zxsea_7426 · 发表于 2022-12-20 19:46

本帖最后由 zxsea_7426 于 2022-12-20 19:48 编辑

供参考，看看是否这个效果：
Sub 减10()
[j35] = [j35] - [O3]
[p3] = [p3] + 1
For i = 18 To 33
      If Cells(i, "j") = "" Then
         Cells(i, 2) = ""
         Cells(i, 3) = ""
      End If
Next i
For i = 18 To 33
      If Cells(i, 2) = "" Then
         Cells(i, 2).Formula = "=C1+D1"
         Exit For
      End If
Next i
For i = 18 To 33
      If Cells(i, 3) = "" Then
         Cells(i, 3).Formula = "=C1+D1+R3+2"
         Exit For
      End If
Next i
Range("B18:C33") = Range("B18:C33").Value
End Sub

天（小白一个） · 发表于 2022-12-21 08:17

zxsea_7426 发表于 2022-12-20 19:46
供参考，看看是否这个效果：
Sub 减10()
[j35] = [j35] - [O3]

非常感谢，好用，完全符合效果，可以解析下每行代码吗，我一边学习一边参照着自己改

天（小白一个） · 发表于 2022-12-21 08:27

zxsea_7426 发表于 2022-12-20 19:46
供参考，看看是否这个效果：
Sub 减10()
[j35] = [j35] - [O3]

大神，我输进去又遇到一个问题，之前是J列是0的可以识别点按钮减10可以填充，列表填充完点动E1的按钮，日期增加至J列出现0，再点按钮减10就无法识别自动填充了，求再指导，谢谢

天（小白一个） · 发表于 2022-12-21 08:45

天（小白一个）发表于 2022-12-21 08:27
大神，我输进去又遇到一个问题，之前是J列是0的可以识别点按钮减10可以填充，列表填充完点动E1的按钮，日 ...

哈哈，大神，我就是个天才，我改了下试试，可以了，If Cells(i, "j") = "" Then改为If Cells(i, "j") = "0" Then

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

[已解决] 为啥我录的宏运行会出错，小白请求帮忙看看指导

评分