小编unc*_*tea的帖子

我正在尝试创建一个子程序,根据用户输入的内容调用其中一个子程序.但是,当我在if语句中使用调用时,我收到一个错误:

预期的变量或程序,而不是模块.

这是呼叫程序:

Call schedule_3_day(shift1, ActiveWorkbook.Sheets("Employees"), ActiveWorkbook.Sheets("3 Day Template"))

这是它所指的功能.

Sub schedule_3_day(ByRef sourcesheet As Worksheet, ByRef employeesheet As Worksheet, ByRef template As Worksheet)

就它本身而言,即当它是一个自包含的子程序时,schedule_3_day就像我想要的那样工作.我试图改变它以将用户定义的变量传递给它.

我在excel vba中遇到Format()函数的问题.我试图改变日期格式化单元格的格式以更改其显示方式.但是,每次我调用Format来执行此操作时都会收到错误:"编译错误:参数数量错误或属性分配无效".

这是代码:

Sub test()
     Dim given
     given = DateSerial(2012, 10, 11)
     dateformat = Format(given, "dd/mm/yy")
     MsgBox given & vbCrLf & dateformat

 End Sub

这只是一个测试功能,应该自行运行并返回"11/10/12".此代码适用于其他计算机.可能有什么不对？