全てのシート名を取得する

エクセルVBAで全てのシート名を取得する   

　Dim i As Long
    Dim mySheetC As Long
    Dim mySheetNa As String

  mySheetC = ThisWorkbook.Sheets.Count
For i = 1 To mySheetC
     mySheetNa = Sheets(i).Name
       Sheets("Sheet1").Cells(i, 2).Value = mySheetNa
    Next i

ブック名を指定してシート名を取得したい場合は下記内容に変更する

Workbooks("Book1.xlsx").Activate
mySheetC = ActiveWorkbook.Sheets.Count

【エクセルVBA】長いワークシート名を短い名前で利用

エクセルVBAを複数のシート活用し処理する時にお勧め
あらかじめシート名を記憶させて短縮した名前でシート名を呼び出し使用できる。

Set 変数名 = オブジェクト名

Set Ws = Worksheets("シート名")
Ws.Range("セル名")

 

パソコン知識の覚書

 

【エクセルVBA】値が数値か調べる

値が数値か確認する

if IsNumeric(値)　then

日付は数値と判断できない為、併用しようがお勧め

【エクセルVBA】値が日付か確認する

パソコン知識の覚書

 

【エクセルVBA】行を削除する

行を削除する。

Rows(行).Delete

行には数字を入れる。

セルを指定する場合（セル指定は使用頻度が低い）

Rows("セル").Entirerow.Delete

 

パソコン知識の覚書

 

 

【エクセルVBA】マクロを強制終了する

マクロを強制終了する。

Exit sub

条件分岐などでマクロを終了する時など結構役立つ

 

パソコン知識の覚書