语言编辑

Kaohsing

ljc6 发表于 2018-7-10 15:54
大神，请教一下，为什么，加了你给的编码之后，没办法打印了，是不是哪里有错？

Sub Macro1()

   Sheet1.Select

   [b2] = Format("福州乌山西路店")

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

    Select Case y
    Case Is = 1
       [c7] = "按方抓药"
    Case Is = 2
       [c7] = "打粉"
    Case Is = 3
       [c7] = "切片"
    Case Else
       [c7] = y
    End Select

    x = InputBox("备注信息！！！例：微信名“”等其他备注信息，请在下面对话框输入", Now())
     If Len(x) = False Then End

   [b8] = x
   [c5] = Format(Date, "yyyymmdd")
   [c6] = Format(Time, "h:mm:ss")

    Sheet1.PrintOut

    If ([b4].Value + 1) Mod 10 = 4 Then
       [b4] = Format([b4].Value + 2, "0000")
    Else
       [b4] = Format([b4].Value + 1, "0000")
    End If
End Sub

Kaohsing

因为你的 x = InputBox("备注信息！！！例：微信名“”等其他备注信息，请在下面对话框输入")，这里面没有默认值。
x = InputBox("备注信息！！！例：微信名“”等其他备注信息，请在下面对话框输入"，默认值)

ljc6

Kaohsing 发表于 2018-7-10 16:09
因为你的 x = InputBox("备注信息！！！例：微信名“”等其他备注信息，请在下面对话框输入")，这里面没有 ...

可是，如果没有备注信息，这里是要空着的，那我应该怎么设置默认值

Kaohsing

ljc6 发表于 2018-7-10 16:16
可是，如果没有备注信息，这里是要空着的，那我应该怎么设置默认值

把他去掉 If Len(x) = False Then End

ljc6

Kaohsing 发表于 2018-7-10 16:21
把他去掉 If Len(x) = False Then End

非常感谢！！！