|
▼oshieteさん ちゃっぴ さん:
こんにちは。
VBAの質問箱ということで、こんな感じでいかがでしょう?
total* のシートに以下のコードを貼り付けてみてください。
Private Sub Worksheet_Activate()
Dim Tsuki As Integer
Dim Cnt As Long
Dim MySheet As Worksheet
If IsNumeric(Right(Me.Name, 1)) Then
Tsuki = Right(Me.Name, 1)
Else
MsgBox "シート名を確認してください。"
Exit Sub
End If
Cnt = 2
For Each MySheet In ActiveWorkbook.Worksheets
If Not (MySheet.Name Like "total*") Then
Cells(Cnt, 1).Value = MySheet.Name
Cells(Cnt, 2).Value = ActiveWorkbook.Sheets _
(MySheet.Name).Cells(2, 2).Value
Cells(Cnt, 3).Value = ActiveWorkbook.Sheets _
(MySheet.Name).Cells(Tsuki + 1, 2).Value
Cells(Cnt, 4).Value = ActiveWorkbook.Sheets _
(MySheet.Name).Cells(Tsuki + 1, 3).Value
Cnt = Cnt + 1
End If
Next
End Sub
「001」〜「100」のシートと、「total*」のシートのみで構成されていれば
「total*」のシートを表示させた際に自動で数値が入ると思われます。
|
|