Excel 日付変換をマクロで

質問

8月1日（土）=DATE(2015,VALUE(LEFT(C23,1)),VALUE(MID(C23,3,1)))
8月10日（土）=DATE(2015,VALUE(LEFT(C24,1)),VALUE(MID(C24,3,2)))
10月1日（火）=DATE(2015,VALUE(LEFT(C25,2)),VALUE(MID(C25,4,1)))
10月11日（火）=DATE(2015,VALUE(LEFT(C26,2)),VALUE(MID(C26,4,2)))

いつもは右の関数で
2015/8/1
2015/8/10
2015/10/1
2015/10/11に変換しています。

マクロの方が簡単かは別としてマクロを組みたいです。
日付が入力されてるセルが毎回違うので、
変換したい所を選択してからマクロ実行をしたいです。

回答No.4

ushi2015 · ベストアンサー

こんにちは
No1～3です。
選択した範囲全てなら、
Sub test2()
　　Dim s As Range
　　For Each s In Selection
　　　　On Error Resume Next
　　　　s = "2015/" & Format(Split(s, "（")(0), "m/d")
　　　　s.NumberFormatLocal = "yyyy/m/d"
　　　　On Error GoTo 0
　　Next
End Sub
で。
色々なエラーを想定して適宜エラー処理を入れて下さい。

お礼

ありがとうございます。
完璧に出来ました。

回答No.3

ushi2015

こんにちは
No1、No2 です。
2015年決めうちなら、
Sub test1()
　 Dim s As Range
　 Set s = Selection
　 On Error Resume Next
　 s = "2015/" & Format(Split(s, "（")(0), "m/d")
　 On Error GoTo 0
End Sub
とか。

お礼

ありがとうございます。

回答No.2

ushi2015

こんにちは
No1です。
どうしてもマクロなら、
Sub test()
　　Selection.EntireColumn.Select
　　Selection.TextToColumns Destination:=Selection.Cells(1, 1), DataType:=xlDelimited, _
　　　　TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
　　　　Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
　　　　:="（", FieldInfo:=Array(Array(1, 1), Array(2, 9)), TrailingMinusNumbers:=True
　　Selection.NumberFormatLocal = "yyyy/m/d"
End Sub
こんな感じで出来ます。

お礼

ありがとうございます。

補足

このコードでも出来ましたが列全部を選択してまして
A1:A5というように選択した範囲だけ出来ますか。

回答No.1

ushi2015

こんにちは

同じ列に元のデータが入っているなら、その列を数式をセットする列にコピーし
リボンの「データ」タブの「区切り位置」で、その他「（」で区切って、2列目は
削除し、日付になった列の書式を「yyyy/mm/dd」にしてはどうですか？

お礼

ありがとうございます。