用函數返回的格式化日期填充單元格的值

Question

我已經嘗試了所有我知道的方法，但我無法使用其日期設置單元格值。我懷疑有一個小問題，但我不知道在哪裏。

Function getDates(strDateString) As Date 
Dim x As Variant 
x = Split(strDateString, "/") 
If UBound(x) = 2 Then 
    strday = x(2) 
    strMonth = x(1) 
    strYear = x(0) 
Else 
    strYear = Mid(strDateString, 1, 4) 
    strMonth = Mid(strDateString, 6, 2) 
    strday = Mid(strDateString, 8, 2) 
End If 

getDates = DateSerial(strYear, strMonth, strday) 
End Function 

For k = 11 To 12 
    strdates = getDates(Cells(2, k).Value) 
    Set Worksheets(strNewSheetName).Range(Cells(1, k), Cells(1, k)).Value = CStr(strdates) 
    MsgBox (strdates) 
Next k 

MsgBox將返回正確的日期，但該值始終爲空！我試圖將它轉換爲以下每種方法的字符串：

cells(r,c).value 
CSTR(strDates) 
cdate() 

但是這些都沒有奏效。

Answer 1

變化

Set Worksheets(strNewSheetName).Range(Cells(1, k), Cells(1, k)).Value = CStr(strdates) 

到

Worksheets(strNewSheetName).Cells(1, k).Value = CStr(strdates) 

Set用於設置對象的值，但設置單元格值，當你不處理的對象。此外，定義從一個單元格到它自己的範圍也是多餘的。