手写后运行时错误 1004 消失答案

【问题标题】：Run-time error 1004 dissapear after hand writing手写后运行时错误 1004 消失
【发布时间】：2019-06-16 02:45:24
【问题描述】：

我有一个宏来用值填充一些单元格。然后我有一个宏来选择这些值并制作一些工作表功能。如果我用手写单元格BUNKA_issue_om_date 填充，宏运行良好。但是，如果我使用第一部分将日期写入该单元格，则宏在工作表函数Weekday 上以 1004 崩溃。

第一部分：

Sub SKRIPT_issue_om_f1()
Range("BUNKA_issue_om_date").Value = Format$(Now, "dd.mm.yyyy")
Range("BUNKA_issue_om_time").Value = Format$(Now, "h:mm")
Range("BUNKA_issue_om_filtr").Value = "F1"
End Sub

第二部分：

    Sub SKRIPT_issue_om_save()

    PROM_issue_om_date = Range("BUNKA_issue_om_date")
    PROM_issue_om_time = Range("BUNKA_issue_om_time")
    PROM_issue_om_filtr = Range("BUNKA_issue_om_filtr")

    PROM_Day = WorksheetFunction.Weekday(Range("BUNKA_issue_om_date"), vbMonday)
...

【问题讨论】：

标签： excel weekday

【解决方案1】：

格式函数产生一个字符串而不是日期。您需要将该字符串转换为第二部分中的日期，或者在第一部分中输入数据作为日期。所以要么

 With Range("BUNKA_issue_om_date")
       .Value = NOW()
       'NumberFormat = "DD.MM.YYYY"
 End With

或

   PROM_issue_om_date = CDate(Range("BUNKA_issue_om_date"))

【讨论】：

谢谢。当然效果很好。我对这里的输出类型一无所知。