菜鸟求教

ljc6

Sub Macro1()
' Macro1
[b2] = Format("福州乌山西路店")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xz = InputBox("请选择煎煮方式" & vbNewLine & vbNewLine & "1、取药牌号 ；2、代煎药牌号。", "提示", "1")
If Len(xz) = False Then End
Select Case xz
Case Is = 1
          Sheet1.[b3] = "取药牌号"
y = InputBox("请选择调配方式：" & vbCrLf & vbCrLf & "1、按方抓药； 2、单独包装；3、打粉", , "1")
    If Len(y) = False Then End
        Select Case y
         Case Is = 1
          Sheet1.[c7] = "按方抓药"
         Case Is = 2
          Sheet1.[c7] = "单独包装"
         Case Is = 3
          Sheet1.[c7] = "打粉"
        Case Else
          Sheet1.[c7] = y
        End Select
x = InputBox("备注信息！！！例：微信名“”等其他备注信息，" & vbCrLf & vbCrLf & "请在下面对话框输入")
  [b8] = x
   Case Is = 2
        Sheet1.[b3] = "代煎药牌号"
  UserForm2.Show             '如果点击UserForm2中的CommandButton2<取消>按钮，则停止 以下的剩余代码的执行，应该怎么写代码？请大神指点一下

Case Else
        Sheet1.[b3] = xz
End Select
Sheet1.[c5] = Format(Date, "yyyymmdd")
   Sheet1.[c6] = Format(Time, "h:mm:ss")
'Sheet1.PrintOut
If (Sheet1.[b4].Value + 1) Mod 10 = 4 Then
   Sheet1.[b4] = Format(Sheet1.[b4].Value + 2, "0000")
Else
   Sheet1.[b4] = Format(Sheet1.[b4].Value + 1, "0000")
End If
End Sub

jiminyanyan

真是菜鸟，一上来就做这么复杂的？

xiangbaoan

……………………………………………………

iwangyi

根据需求，暂停用STOP,退用出EXIT SUB

ljc6

xiangbaoan 发表于 2018-8-18 07:19
……………………………………………………

可以了，非常感谢，能不能解释一下代码，谢谢

xiangbaoan

ljc6 发表于 2018-8-18 11:23
可以了，非常感谢，能不能解释一下代码，谢谢

在 模块1 中定义一个公用变量，此为关键
public i%
  
模块1.i = 1 '先为它赋一个值，不是2就行了，接下来只要不点取消它就是1

UserForm2.Show  '如果点击UserForm2中的CommandButton2<取消>按钮，此时执行如下语句

Private Sub CommandButton2_Click()
      模块1.i = 2: Unload UserForm2  '则 i =2 了
End Sub

If 模块1.i = 2 Then GoTo 123

'追问木意思，另外送花的话倒另当别论

ljc6

明白了，谢谢啦