语言编辑

ljc6

请看图片，如图所示，划横线的地方，间隔一个空行，InputBox的代码怎么写

Kaohsing

字符串& vbcrlf&vbcrlf&字符串

zpy2

vbLf吧。。。

ljc6

Kaohsing 发表于 2018-7-9 11:17
字符串& vbcrlf&vbcrlf&字符串

Sub Macro1()
' Macro1
[b2] = Format("福州乌山西路店")
y = InputBox("请选择调配方式：1、按方抓药； 2、单独包装；3、打粉", , "1")
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("备注信息！！！例：微信名“”等其他备注信息，请在下面对话框输入")
[b8] = x
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

我插入的方式是不是错了

Kaohsing

y = InputBox("请选择调配方式：“  & vbcrlf& ”1、按方抓药； 2、单独包装；3、打粉", , "1")

ljc6

Kaohsing 发表于 2018-7-9 12:07
y = InputBox("请选择调配方式：“  & vbcrlf& ”1、按方抓药； 2、单独包装；3、打粉", , "1")

可以了，非常感谢
还有一个疑问，弹出对话框，默认“确定”，如果点击“取消”，则终止任务执行，应该怎么写代码？

Kaohsing

ljc6 发表于 2018-7-9 13:16
可以了，非常感谢
还有一个疑问，弹出对话框，默认“确定”，如果点击“取消”，则终止任务执行，应该怎 ...

y = InputBox("请选择调配方式：1、按方抓药； 2、单独包装；3、打粉", , "1")
If Len(y) = False Then End

ljc6

Kaohsing 发表于 2018-7-9 14:25
y = InputBox("请选择调配方式：1、按方抓药； 2、单独包装；3、打粉", , "1")
If Len(y) = False Then ...

学习了，非常感谢！

ljc6

Kaohsing 发表于 2018-7-9 14:25
y = InputBox("请选择调配方式：1、按方抓药； 2、单独包装；3、打粉", , "1")
If Len(y) = False Then ...

大神，请教一下，为什么，加了你给的编码之后，没办法打印了，是不是哪里有错？

ljc6

Kaohsing 发表于 2018-7-9 14:25
y = InputBox("请选择调配方式：1、按方抓药； 2、单独包装；3、打粉", , "1")
If Len(y) = False Then ...

如图所示，我加上一个判断语句，有时候就不能打印了