しずか日記

【しずく 白猫】【すいか 黒猫】
の成長期や動画を掲載

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

2023-09-19 11:45:10 | エクセルVBA

エクセル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】長いワークシート名を短い名前で利用

2022-04-13 22:11:30 | エクセルVBA

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

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

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

 

パソコン知識の覚書

パソコン知識の覚書

メインメニュー目次,カウント,Excel系,カウント,項目スプレッドシート,11,

Google Docs

 

 


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

2022-04-09 22:44:29 | エクセルVBA

値が数値か確認する

if IsNumeric(値) then

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

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

パソコン知識の覚書

パソコン知識の覚書

メインメニュー目次,カウント,Excel系,カウント,項目スプレッドシート,11,

Google Docs