Question

请查找我的下方宏代码。我试图通过函数 get_dat 返回 mm 中的值，但我没有得到相同的结果。（日期在单元格（3,10）中可用）。请指导相同的。

Function get_dat(dates As String) As Date

dates = Month(dates)
If Len(dates) >= 1 Then
dates = 0 & dates
Else: dates = dates
End If
End Function

Sub x()
Dim mm As Integer
mm = get_dat(Cells(3, 10))
End Sub

更正码： -

Function get_dat(dates As String) As String

dates = Month(dates)
If Len(dates) >= 1 Then
dates = 0 & dates
Else: dates = dates
End If
get_dat = dates
End Function

Sub x()
Dim mm As String
mm = get_dat(Cells(3, 10))

End Sub

Answer 1

您似乎错过了get_dat中的关键线。最后一行应该是

get_dat = dates

正如@ShaiRado在评论中所提到的，声明的类型并不完全匹配。您可能需要考虑声明get_dat as Integer而不是as Date

函数不返回主子宏中的值

1 个答案: