各位大侠，帮忙看看是哪里错了？？谢谢

13602822168 · 发表于 2024-7-1 21:05

本帖最后由 13602822168 于 2024-7-1 22:59 编辑

将文件2的功能移到文件1，因为是VBA，本人小白，请各位大侠帮忙，谢谢！！

limonet · 发表于 2024-7-1 21:42

视力不太好，跟本看不完。

quqiyuan · 发表于 2024-7-1 21:50

我的天，难道上个附件都那么难么，要调试的啊

xunanming · 发表于 2024-7-1 22:13

上传一个带有模拟数据的附件吧,否则只是看这代码又累又难分析原因.

ww87725244 · 发表于 2024-7-1 22:18

这错了
Sub OD到SY计算()
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 257 Or Target.Column > 382 Or Target.Row < 28 Then Exit Sub
If Target.Value = "" Then Exit Sub
Call Worksheet_SelectionChange(Target)
End Sub

13602822168 · 发表于 2024-7-1 22:56

quqiyuan 发表于 2024-7-1 21:50
我的天，难道上个附件都那么难么，要调试的啊

不好意思，现在上传。

13602822168 · 发表于 2024-7-2 00:58

ww87725244 发表于 2024-7-1 22:18
这错了
Sub OD到SY计算()
Private Sub Worksheet_Change(ByVal Target As Range)

这段都不要吗？

ww87725244 · 发表于 2024-7-2 08:30

13602822168 发表于 2024-7-2 00:58
这段都不要吗？

只要
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 257 Or Target.Column > 382 Or Target.Row < 28 Then Exit Sub
If Target.Value = "" Then Exit Sub
Call Worksheet_SelectionChange(Target)
End Sub

ww87725244 · 发表于 2024-7-2 10:56

现在回头一看，你这代码错的很离谱啊

13602822168 · 发表于 2024-7-2 11:36

ww87725244 发表于 2024-7-2 10:56
现在回头一看，你这代码错的很离谱啊

是什么原因？？？

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