ユーザー定義関数がフォーマットできない日付を返すExcel VBA

Question

Excel VBAで日付と倍数の多次元配列を返すUDFを作成しました。問題は、返される日付を書式設定できないことです。ここで

は簡単な例です：最後に

Function test(dates as Range) 
    Dim results 
    Dim i As Integer 
    ReDim results(1 To dates.Cells.Count) 
    For i = 1 To dates.Cells.Count 
     results(i) = dates.Cells(i).Value 
    Next 
    test = Application.WorksheetFunction.Transpose(results) 
End Function 

転置（私はCtrlキー+ Shiftキーを押し+入力）だけ列出力を持っている利便性のためです。私はこの簡単な例を使用します。出力をフォーマットすることはできず、日付として扱われません。

アイデア？

Answer 1

変更ダブルスに結果の配列：

Function test(dates As Range) 
    Dim results() As Double 
    Dim i As Integer 
    ReDim results(1 To dates.Cells.Count) 
    For i = 1 To dates.Cells.Count 
     results(i) = dates.Cells(i).Value 
    Next 
    test = Application.WorksheetFunction.Transpose(results) 
End Function 

またはDOUBLEない日付文字列が返されますどのdates.Cells(i).Value2にdates.Cells(i).Valueを変更します。あなたが望むように、細胞をフォーマットすると

Function test(dates As Range) 
    Dim results 
    Dim i As Integer 
    ReDim results(1 To dates.Cells.Count) 
    For i = 1 To dates.Cells.Count 
     results(i) = dates.Cells(i).Value2 
    Next 
    test = Application.WorksheetFunction.Transpose(results) 
End Function 

を。

Answer 2

あなたはこのようなものを試すことができます。

Results(i) = CDate(dates.Cells(i).Value)