跪求大师帮忙，求VBA程序

838225419 · 发表于 2023-5-26 11:33

fanyoulin 发表于 2023-5-26 11:26
我估摸着你这个只是日常辅助，所以没写的那么严谨，大致能用的程度吧。

非常感谢，非常感谢，再次感谢老师

838225419 · 发表于 2023-5-26 15:44

fanyoulin 发表于 2023-5-26 11:26
我估摸着你这个只是日常辅助，所以没写的那么严谨，大致能用的程度吧。

老师您好，如果保存出现重复编号则弹出提醒，再次麻烦老师

fanyoulin · 发表于 2023-5-26 15:54

838225419 发表于 2023-5-26 15:44
老师您好，如果保存出现重复编号则弹出提醒，再次麻烦老师

目前重复编号会自动覆盖，但没有提醒。
如果需要提醒，我再改一版，稍候！

fanyoulin · 发表于 2023-5-26 16:08

838225419 发表于 2023-5-26 15:44
老师您好，如果保存出现重复编号则弹出提醒，再次麻烦老师

加入了 “确认/放弃” 对话框，确认即为覆盖，放弃则是不保存。

838225419 · 发表于 2023-5-26 16:11

fanyoulin 发表于 2023-5-26 16:08
加入了 “确认/放弃” 对话框，确认即为覆盖，放弃则是不保存。

学习了，谢谢老师，非常感谢！！！

kdsea · 发表于 2023-5-26 16:30

本帖最后由 kdsea 于 2023-5-26 16:32 编辑

838225419 发表于 2023-5-26 15:44
老师您好，如果保存出现重复编号则弹出提醒，再次麻烦老师

C:\Users\Administrator\Desktop\YCZ.png

kdsea · 发表于 2023-5-26 16:31

838225419 发表于 2023-5-26 15:44
老师您好，如果保存出现重复编号则弹出提醒，再次麻烦老师

bz = False
For i = 2 To Worksheets("汇总").Cells(Rows.Count, 1).End(3).Row
If Worksheets("汇总").Cells(i, 1) = Cells(2, 2) Then
   bz = True
   MsgBox "本单号已存在，退出程序"
      Exit For
End If

838225419 · 发表于 2023-5-31 15:57

fanyoulin 发表于 2023-5-26 16:08
加入了 “确认/放弃” 对话框，确认即为覆盖，放弃则是不保存。

增加了一个注册窗体，所有宏被禁用，再次拜托老师给修改一下

fanyoulin · 发表于 2023-5-31 16:19

838225419 发表于 2023-5-31 15:57
增加了一个注册窗体，所有宏被禁用，再次拜托老师给修改一下

我什么也没干，只是把你名称重复的代码段注释掉了，就可以运行了；

一个文件中所有的过程名称都不能重名，你这个workbook.open过程有两段代码，要么把它们合并在一起，那么删除其中一个，我是注释掉其中一个，相当于删除的功能。另一个重名的是workbook.before，也是同样的方法把重复的其中之一注释掉了；

838225419 · 发表于 2023-5-31 17:15

fanyoulin 发表于 2023-5-31 16:19
我什么也没干，只是把你名称重复的代码段注释掉了，就可以运行了；

一个文件中所有的过程名称都不能重 ...

谢谢老师，谢谢老师，佩服的五体投地，跪拜跪拜

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