エクセルマクロ セル内のテキスト扱い

ブックにある複数のワークシートのL2セルには、書式作成日が入っています。

こんな感じです→作成日：平成24年6月1日

ブックにある全シートには以下のマクロ処理をしたいのですが

プログラムを宜しくお願い致します。

L2セルには作成日：のみを残し、M2セルとN2セルを結合したセルに日付の部分を入れたいと考えています。（両セルとも左揃え、フォントサイズを９）

宜しくお願い致します。

No.1 ベストアンサー 回答者： tom04 回答日時： 2012/06/02 18:57

こんばんは！

一例です。

Alt＋F11キー　→　画面左下の「This Workbook」をダブルクリック　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim k As Long
For k = 1 To Worksheets.Count
Worksheets(k).Range("M2:N2").Merge
With Worksheets(k).Range("M2")
.Value = Mid(Worksheets(k).Range("L2"), 5, 11)
.NumberFormatLocal = "ggge年m月d日"
.HorizontalAlignment = xlLeft
With .Offset(, -1)
.Value = Left(Worksheets(k).Range("L2"), 4)
.HorizontalAlignment = xlLeft
End With
End With
Worksheets(k).Range("L2:M2").Font.Size = 9
Next k
End Sub 'この行まで

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

早速ありがとうございます。解決しました

お礼日時：2012/06/02 21:05