|
A B C D
1 2013 9 1 H25年9月
2 2014 10 30 H26年11月
3
4
5
6
7 H25.9
8 H26.11
9
10 H25.9〜H26.11
以上の様な表示をしたいのですが・・・・
Sub test()
Dim a1 As Range, b1 As Range, c1 As Range
Dim a2 As Range, b2 As Range, c2 As Range
Set a1 = Range("b1")
Set b1 = Range("b1")
Set c1 = Range("c1")
Set a2 = Range("a2")
Set b2 = Range("b2")
Set c2 = Range("c2")
Cells(1, 4) = "=Date(A1,B1,C1)"
Cells(2, 4) = "=Date(A2,B2,C2)"
' Range("C7") = "=Text(Date(A1,B1,C1),"ge. M")"
' Cells(8, 3) = "=Text(Date(A2,B2,C2)," ge. M")"
Range("c10").Value = Range("c7").Value & " 〜 " & Range("c8").Value
End Sub
Excel関数をマクロで使いたいのですが、コマンド部分が実行できません。
どの様にすればよろしいでしょうか、教えてください。
|
|