今回は、前回の特定のシートからCSVを作成するコード内のcsvシートがあるかどうかをチェックするマクロ「Sh_check_csv」をのっけます。
- Sub Sh_check_csv()
- Dim ws As Worksheet, Flag As Boolean
- Dim newSh As String
- newSh = "csv"
- For Each ws In Worksheets
- If ws.Name = "csv" Then Flag = True 'csvシートがある場合、変数flagをTrueにする
- Next ws
- '-------------------------------------------------
- If Flag = False Then
- ActiveWorkbook.Worksheets.Add(after:=Worksheets(Sheets.Count)).Name = newSh
- End If
- '変数flagがFalseのままだったらcsvシートを追加する
- '------------------------------------------------
- Worksheets(newSh).Unprotect ' 一旦、シート保護を解除
- Worksheets(newSh).Visible = True
- Worksheets(newSh).Columns("A:A").NumberFormatLocal = "yyyy/m/d;@"
- End Sub
「csv」って名前のシートを全部のシート名を検索して、あったらFlagをTrueにしてFalseのままだったらワークシートの一番最後にcsvシートを追加(15行目コメントまで)→シート保護をかけてるので解除してからA列の書式を"yyyy/m/d;@"形式にする。
どうですか?VBAをかじってれば読めるコードだと思います。
では、また。