【EXCEL　VBA】式で別シートを参照するマクロ

EXCELで別シート参照するマクロを作成しましょう

１．シート名を全部取得しテーブルにストア
２．１シートずつ前のシートのセルを参照する式を作成

通常、新規シートはコピーで作成しますがシート名は手動で修正して行きます。
しかし、修正削除などが発生すると手作業で修正が必要になります。

そこで、一度に式をマクロで作成することにしました。

 

Sub 累計()

   
   Dim sht_tb(100) As String

   
   Application.Calculation = xlCalculationAutomatic
   Erase sht_tb
   
'
   j = 0
   Sheets(1).Select
   For i = Sheets.Count To 1 Step -1
          
         work_s2 = Sheets(i).Name
         If Mid(work_s2, 1, 5) <> "Sheet" Then
         
             If InStr(work_s2, "-") <> 0 Then
                     j = j + 1
                    sht_tb(j) = work_s2
                    sht_tb(0) = j
             End If
         End If
       
    Next i
 
    
    j = 0
    
    For i = Sheets.Count To 1 Step -1
        
            j = j + 1
            work_s2 = sht_tb(j)
            
            If Mid(work_s2, 1, 5) <> "Sheet" Then
            
                If InStr(work_s2, "-") <> 0 Then
                        If j > 1 Then
                            Worksheets(work_s2).Range("D2") = "='" & sht_tb(j - 1) & "'!D4"
                        
                        End If
                End If
            End If
   
            
        Next i
        
'
End Sub

以上