[已解决]判断代码执行或终止。。。。。。。。求助！

excel6699 · 发表于 2015-12-12 22:48

本帖最后由 excel6699 于 2015-12-14 22:31 编辑

七彩屋 · 发表于 2015-12-12 23:05

y = MsgBox("发现重复编号?", vbYesNo)
If y = vbYes Then
'执行点了Yes的代码
Else
'执行点了No的代码
End If

excel6699 · 发表于 2015-12-14 22:31

新加GIF动态图片说明，请大大们帮我看看。

excel6699 · 发表于 2015-12-14 23:22

七彩屋 · 发表于 2015-12-14 23:29

Sub 单号自动变化B() '
s$ = 窗体.ComboBox8
i% = Right(s, 4) * 1
y% = 6
Do While Not Sheet1.Range("C2:C65535").Find(s) Is Nothing
i = i + 1
s = Left(s, Len(s) - 4) & Right("0000" & i, 4)
Loop
If s$ <> 窗体.ComboBox8 Then y = MsgBox("发现重复编号：" & 窗体.ComboBox8 & "，将生成新编号：" & s & "进行保存。", vbYesNo)
If y = vbYes Then
窗体.ComboBox8 = Left(s, Len(s) - 4) & Right("0000" & i + 1, 4)
Else
End
End If
'If y = 6 Then Sheet2.[s65536].End(xlUp)(2, 1) = s'
End Sub

复制代码

七彩屋 · 发表于 2015-12-14 23:31

excel6699 · 发表于 2015-12-15 20:21

七彩屋发表于 2015-12-14 23:31

还有个小问题，请老师完善下，就是点击【否】后，总是自动把窗体也关了，

能让窗体不被关闭掉吗？

七彩屋 · 发表于 2015-12-15 21:15

excel6699 发表于 2015-12-15 20:21
还有个小问题，请老师完善下，就是点击【否】后，总是自动把窗体也关了，

能让窗体不被关闭掉吗？

那只有把
保存数据_Click
单号自动变化B
这二个宏写在一起

七彩屋 · 发表于 2015-12-15 21:20

单据单号自动编号1215.rar (21.75 KB, 下载次数: 4)

excel6699 · 发表于 2015-12-15 21:29

七彩屋发表于 2015-12-15 21:20

谢谢老师！你真是个大好人！

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