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

質問

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

回答No.2

tom04 · ベストアンサー

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

こんにちは！
一例です。

範囲が判らないので、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

補足

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