Private Sub ListBox1_Click()
Dim X As Integer
Dim ssheeet As Worksheet
Set ssheeet = ThisWorkbook.Sheets("Sheet2")
X = ListBox1.ListIndex
ListBox2.RowSource = ssheeet.Columns((X + 1) + 4).Address
Excel UserFormで3種類のコンボボックスを作成したいとします。合計で、それぞれのタイプのxがあります。 私はこのようなコードを作りたい： With ComboboxAi for i = 1 to 5
.AddItem "monday"
.AddItem "tuesday"
With ComboboxBj for j = 1 to 6
.AddItem
昨夜はすべてがうまくいきました。問題がどこにあるのかわからない場合は、他のすべてのマクロが正常に動作し、すべてのエラーの原因となっている1つのuserformに絞り込んでいます。私が取り組んでいる倉庫管理ファイルです。新しいエントリ機能を追加すると（新しい行形式を追加すると）、ファイル全体がフリーズしています。 userform2ため Sub addline()
' Adds line to t