VBAでエクセルの内容を変換し、テキストに出力

シフト表がエクセルに記載。
しかし時間表記ではなく「A」「B」と表記されています。
「A」は06:00~15:00,「B」は08:00～17:00です。
この「時間帯」をテキストに書き出すにはどうしたらいいでしょうか。

No.2 ベストアンサー 回答者： tom04 回答日時： 2014/01/28 21:36

No.1です。

単純にテキストファイル形式で保存してみました。
保存場所を指定していませんので、マイドキュメントに保存されると思います。

Sub テキストファイルで保存()
Dim fName As String
fName = InputBox("ファイル名を指定") '←ファイル名が重複しないようにしてください。
If fName <> "False" Then
ActiveWorkbook.SaveAs Filename:=fName, FileFormat:=xlCurrentPlatformText
End If
End Sub

※　仮に保存してあったファイルを開いて操作した場合でも別名で保存する！という前提です。
とりあえずはこの程度でごめんなさいね。m(_ _)m

No.1 回答者： tom04 回答日時： 2014/01/28 18:19

こんにちは！

一例です。

範囲が判らないので、Sheet全体を「置換」をしています。

Sub Sample1()
With ActiveSheet.Cells
.Replace what:="A", replacement:="06:00～15:00", lookat:=xlWhole
.Replace what:="B", replacement:="08:00～17:00", lookat:=xlWhole
End With
End Sub

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

この回答への補足

結果をテキストもしくは秀丸に出力するにはどうしたらよいでしょうか。

補足日時：2014/01/28 19:47