Excel / 全シートを参照する


Excelで全シートを参照する(串刺し計算)サンプル

Sub test()

   Dim ak As Long
   Dim ak_ As Long
   
   Dim sht As Object
   
   For Each sht In ThisWorkbook.Sheets
      ak_ = Range("'" & sht.Name & "'" & "!AK8").Value
      Debug.Print sht.Name & vbTab & ak_
      ak = ak + ak_
   Next
   
   MsgBox ak

End Sub

ナビゲーション

プロフィール

Photo Hondarer  My status

自分に正直に、目指す物を目指すかたちで、全ての人が幸せになれるシステムを削り出す職人でありたい。

Powered by
HndWiki 013235