投稿/コメントを表示します。

エクセルマクロ・VBA発展編１フォローアップミニセミナー
エクセルマクロ・VBA発展編１フォローアップミニセミナーNo.10

荏隈 直樹さんの投稿

(投稿ID: 170)

今日は仕事後で疲れたので頭の体操だけ
Sub taisou10_1()
    Worksheets("Sheet3").Range("A1").Value = Date + 3
End Sub

Sub taisou10_2()
    Worksheets("Sheet3").Range("A2").NumberFormatLocal = "@"
    Worksheets("Sheet3").Range("A2") = "001"
End Sub

Sub taisou10_3()
    Worksheets("Sheet3").Range("A3").NumberFormatLocal = "@"
    Worksheets("Sheet3").Range("A3") = "2010-08-31"
End Sub

Sub taisou10_4()
    Dim RA3 As String
    RA3 = Worksheets("Sheet3").Range("A3").Value
    Worksheets("Sheet3").Range("A4").Value = Replace(RA3, "-", "/")
End Sub

[1]は、dateadd関数なんてものがあったのですね。
[4]のreplace関数は、いただいたテキストを元に見よう見まねで書いてみました。
2014/05/15 08:14