VBAでの日付の置換方法を教えてください

Excel2007のVBAにて日付の置換ができなく困っております。

対象の複数列に入力されている下記の様なデータの内、日付の"yyyy/m/d"を
"yyyy年m月d日"に置換しなくてはなりません。
※書式設定ではなく、文字列として変換

入力例
１）2011/12/13
２）2011/12/1～2011/12/13
３）2011年12月13日
４）2011/12/1～2011/12/13の毎火曜

ヒントでも構いませんので、宜しくお願い致します。

No.1 回答者： nobu_suzuki1 回答日時： 2011/12/13 16:38

入力例にあるパターンだけでいいのならば以下のように処理しては如何でしょうか。

スラッシュの個数を調べる
　2個の場合
　　1個目のスラッシュを"年"に置換
　　2個目のスラッシュを"月"に置換
　　2個目のスラッシュの後の文字を1文字ずつ調べて、数値で無くなった時そのひとつ前に"日"を挿入
（文字列終端に達した場合はそこに"日"を付け加える）
　4個の場合
　　1個目のスラッシュを"年"に置換
　　2個目のスラッシュを"月"に置換
　　2個目のスラッシュの後の文字を1文字ずつ調べて、数値で無くなった時そのひとつ前に"日"を挿入
　　3個目のスラッシュを"年"に置換
　　4個目のスラッシュを"月"に置換
　　4個目のスラッシュの後の文字を1文字ずつ調べて、数値で無くなった時そのひとつ前に"日"を挿入
（文字列終端に達した場合はそこに"日"を付け加える）

　　

No.2 回答者： foomufoomu 回答日時： 2011/12/13 16:52

一度、DATE型変数に入れてから変換する方法は、うまくできないのですか？

Dim d as date
Dim s as string
d="2011/12/13"
s=Format(d, "yyyy年m月d日")

で、sに結果が得られます。

この回答への補足

回答有難うございます。

残念ながら今回はformatの問題ではなく、文字列に変換しなくてはならないのです。
すみません。

補足日時：2011/12/13 17:00

No.3 回答者： noname#158634 回答日時： 2011/12/13 17:20

https://www.google.com/search?q=VBA+%E6%AD%A3%E8 …

1)と3)については、もし入力されている値が文字列ではなく日付だった場合はいろいろ手間が増える。
https://www.google.com/search?q=VBA+%E6%97%A5%E4 …
https://www.google.com/search?q=VBA+%E6%97%A5%E4 …

No.4 回答者： Fewhellton 回答日時： 2011/12/13 17:24

Excel VBAでも正規表現が使えるはず（標準で備わっているか別途組み込みかは忘れました）なので検索用マッチパターンを書いてパターンマッチ変数の値参照して置換で、できると思います。

検索用マッチパターンにXBNF記法を使えます。元データが十の位を0埋めしているほうがマッチパターンを書くのは楽ですが、それほど難しくはないでしょう。

前提としては、元データに/区切りのパターンに年月日以外のまぎらわしいものが混じらないこと、西暦年の範囲がはっきりしていること、ワークシートセル以外の置換は対象外が担保されれば十分だと思います。

なお単純にただひとつの日付データが入力されているセルに関しては、日数計算用データやファイル名データとして別のセルやマクロで使われている可能性があるので、置換してしまってからトラブルが起きないよう、念入りに仕様を検討するほうが好ましいでしょう。

No.5 回答者： keithin 回答日時： 2011/12/13 17:31

まぁ難しく考えずに簡単なチカラワザで。

Sub macro1()
　Dim h As Range
　Dim s As Long
　Dim e As Long
　Dim res As String

　Set h = Cells.Find(what:="/", LookIn:=xlValues, lookat:=xlPart)
　Do Until h Is Nothing
　　res = " " & h.Text & " "
　　s = InStr(res, "/")
　　e = s

　　Do
　　s = s - 1
　　Loop Until s = 0 Or Mid(res, s, 1) Like "[!/0-9]"
　　Do
　　e = e + 1
　　Loop Until e = Len(res) Or Mid(res, e, 1) Like "[!/0-9]"

　　res = Application.Replace(res, s + 1, e - s - 1, Format(Mid(res, s + 1, e - s - 1), "yyyy年m月d日"))
　　h = Mid(res, 2, Len(res) - 2)
　　Set h = Cells.FindNext
　Loop
End Sub

No.6 回答者： mu2011 回答日時： 2011/12/13 17:35

一案です。

入力日付は文字列である事が前提です。
（１）配列を定義する　ArrayかSplitで配列定義("年", "月", "日"，"年", "月", "日")
（２）対象範囲をFindで最初のレンジをセーブ、FindNextでこのレンジと同一まで
　　　検索を繰り返す
（３）検出したセルをInsterで「／」を検索、見つかれば、配列（カウンタ）で
　　　順次置換、Instrの結果が０以上の間、置換処理を繰り返す
　　　因みにカウンタは０相対で「／」の置換毎に＋１

No.7 回答者： f_a_007 回答日時： 2011/12/13 17:59

Dim I As Integer

Dim strBefore(3) As String
Dim strAfter As String

strBefore(0)= "2011/12/13"
strBefore(1)= "2011/12/13～2011/12/14"
strBefore(2)= "2011年12月13日"
strBefore(3)= "2011/12/13～2011/12/14の毎火曜"

For I = 0 To 3
　　strAfter = XferFormat(strBefore(I))
　　Debug.print strAfter
Next I

------------------------------
イミディエイト
------------------------------
2011年12月13日
2011年12月13日～2011年12月14
2011年12月13日
2011年12月13日～2011年12月14日

XferFormat()の手続きは６ステップ

１、変換前文字列の"日"を""に変換し変換後文字列変数に代入。
２、変換後文字列の年に相当する数字の後に"年"を挿入する。
３、挿入に続く文字が"/"なら消去して変換後文字列変数に代入。
４、変換後文字列の月に相当する数字の後に"月"を挿入する。
５、挿入に続く文字が"/"なら消去して変換後文字列変数に代入。
６、変換後文字列の日に相当する数字の後に"日"を挿入する。

変換後文字列の年に相当する数字=>先頭から1文字づつ調べてフラッグを立てる。
このフラッグの値を手がかりの月や日に相当する数字を判定する。

これなら、如何なる形式のデータにも対応すると思います。

No.8 回答者： matyu1003 回答日時： 2011/12/13 18:50

1と3だけですが、表に

=TEXT(データの入っているセル,"yyyy年mm月dd日")
の式で、文字列型に変換できます。この結果をVBAで拾えばよいでしょう。

No.9 回答者： mt2008 回答日時： 2011/12/13 18:54

面白そうなので私も……

全部文字列で入っていると仮定して、とっても強引な力技で置換をかけてます。

Sub Sample()
　　Dim sBefore, sAfter
　　Dim i As Date
　　Cells.Select
　　'12/31～1/1へと遡る（うるう年も考慮）
　　For i = DateValue("2012/12/31") To DateValue("2012/1/1") Step -1
　　　　'mm/ddのパターンを置換
　　　　sBefore = Format(i, "/mm/dd")
　　　　sAfter = Format(i, "年m月d日")
　　　　Selection.Replace What:=sBefore, Replacement:=sAfter
　　
　　　　'm/dのパターンを置換
　　　　sBefore = Format(i, "/m/d")
　　　　sAfter = Format(i, "年m月d日")
　　　　Selection.Replace What:=sBefore, Replacement:=sAfter
　　Next i
End Sub

No.10 回答者： imogasi 回答日時： 2011/12/13 21:19

置換という言葉を出すところを見ると、エクセルの日付の日付シリアル値と日付書式のことが判ってないのでは。

今見えているのは、日付シリアル値＋日付書式（Ａ）でそう見えている（＋は設定とか適用するということ）
それをyyyy年m月d日の日付シリアル値＋表示形式（Ｂ）にすれば仕舞い。
文字列に出したいならＦｏｒｍａｔ関数で第２引数をyyyy年m月d日にすればよい。
もしセルの値が文字列なら、まず日付シリアル値に変換することを目指すべきだ。日付シリアル値に出来ればＦｏｒｍａｔ関数で、それに前記の表示形式の文字列yyyy年m月d日を指定すればしまい。
ＶＢＡならＩｓＤａｔｅ関数で日付かどうか判別（だめならＶaｒＴｙｐｅ関数での判別（日付は７）もやってみて）
・日付シリアル値ー＞Ｆｏｒｍａｔ関数
・文字列の分は、ＤａｔｅＳｅｒｉａｌ関数の利用で日付シリアル値化ー＞Ｆｏｒｍａｔ関数
で出来なしかやってみてください。
～があるものは～で２つに分離し、２つの部分それぞれで考えてＦｏｒｍａｔ関数を使い、２つを X　＆　"～" & Yで結合する。
ーー
場合分けが多数になるかも知れないが、やむをえない。
ーー
自分のコードで日付をいじくらないほうが良い。ＭＳエクセルに任せるべき。