2018年2月28日水曜日

特定のシートからCSVを作成するコード(その2)

こんにちは、Shigeです。
今回は、前回の特定のシートからCSVを作成するコード内のcsvシートがあるかどうかをチェックするマクロ「Sh_check_csv」をのっけます。

  1. Sub Sh_check_csv()
  2.     Dim ws As Worksheet, Flag As Boolean
  3.     Dim newSh As String
  4.     
  5.     newSh = "csv"
  6.     
  7.     For Each ws In Worksheets
  8.         If ws.Name = "csv" Then Flag = True 'csvシートがある場合、変数flagをTrueにする
  9.     Next ws
  10. '-------------------------------------------------
  11.     If Flag = False Then
  12.     ActiveWorkbook.Worksheets.Add(after:=Worksheets(Sheets.Count)).Name = newSh
  13.     End If
  14. '変数flagがFalseのままだったらcsvシートを追加する
  15. '------------------------------------------------
  16.     Worksheets(newSh).Unprotect    ' 一旦、シート保護を解除
  17.     Worksheets(newSh).Visible = True
  18.     Worksheets(newSh).Columns("A:A").NumberFormatLocal = "yyyy/m/d;@"
  19. End Sub
そんな難しいこともないと思うので、今回も流れだけ(;・∀・)

「csv」って名前のシートを全部のシート名を検索して、あったらFlagをTrueにしてFalseのままだったらワークシートの一番最後にcsvシートを追加(15行目コメントまで)→シート保護をかけてるので解除してからA列の書式を"yyyy/m/d;@"形式にする。

どうですか?VBAをかじってれば読めるコードだと思います。
では、また。

0 件のコメント:

コメントを投稿

ブックの全シートをまとめるコード

こんにちは、Shigeです。 今回は、ブックに複数あるシートのデータを「まとめ」のシートにコピペするコードです。 Sub Matome()   Dim i As Integer   Dim lRow As Long, lCol As Long, lRow2 As Lo...