[已解决]可否多个模块共用一个声明代码

sjggsjgg

我的表中有很多个模块都有这段代码
If Worksheets("生产通知单").[ad17] <> "\\Yl-201307061329\DPK300-USB 在 Ne04:" Then
MsgBox " 打印机不对，请更换打印机"
End
End If

一旦我的打印机更换，我就得一个模块一个模块的调整

可否设计一个公共的代码
P= "\\Yl-201307061329\DPK300-USB 在 Ne04:"

将所有模块的代码都改成
If Worksheets("生产通知单").[ad17] <> P Then
MsgBox " 打印机不对，请更换打印机"
End
End If

请教高手，我应该如何写这个公共的代码，这段公共代码放在模块里还是放在哪里？

最佳答案

月排行榜 / 总排行榜

dongqing1998

2013-7-18 14:11

在普通模块里通用声明里添加如下代码：
Public Const P As String = "\\Yl-201307061329\DPK300-USB 在 Ne04:"

跳转到最佳答案楼层

wayy

公共变量定义用Public

sjggsjgg

Public Sub KK()
P= "\\Yl-201307061329\DPK300-USB 在 Ne04:"
End Sub

sjggsjgg

这样写也不对呀，请教高手，在线等待

dongqing1998

在普通模块里通用声明里添加如下代码：
Public Const P As String = "\\Yl-201307061329\DPK300-USB 在 Ne04:"

dongqing1998

谢谢烟花的更正