ブックを開くときにコンボに値を設定（EXCEL VBA）

ThisWorkbook のソースに「開く時」イベントとして記述

Private Sub Workbook_Open()

Worksheets("明細（材料）").ComboBox1.AddItem "全表示"

Dim i As Long

For i = 1 To 35

Worksheets("明細（材料）").ComboBox1.AddItem "履歴" & i & "まで"

Next i

End Sub