直近の日付を調査取得する

トップページ（目次）

188.直近の日付を調査取得する

＜実行前後＞

→

Sub 直近の日付を調査取得する()

    最新納品日調査 = WorksheetFunction.Max(Range("B2:B4"))
    
    最新納品日 = Format(最新納品日調査, "yyyy/mm/dd")
    
    MsgBox "最新納品日：" & 最新納品日
    
End Sub

最新納品日調査の状態のままでは「44399」という文字列のままなので、 Format(最新納品日調査, "yyyy/mm/dd") を入れて、日付に変更する