回答編集履歴
2
コード修正
answer
CHANGED
|
@@ -20,8 +20,8 @@
|
|
|
20
20
|
End If
|
|
21
21
|
With Worksheets("療法士管理")
|
|
22
22
|
Dim lastRow As Long
|
|
23
|
-
lastRow = .Cells(Rows.Count, col).End(xlUp).Row
|
|
23
|
+
lastRow = .Cells(.Rows.Count, col).End(xlUp).Row
|
|
24
|
-
ComboBox2.List = .Range(Cells(5, col), Cells(lastRow, col)).Value
|
|
24
|
+
ComboBox2.List = .Range(.Cells(5, col), .Cells(lastRow, col)).Value
|
|
25
25
|
ComboBox2.Text = ""
|
|
26
26
|
End With
|
|
27
27
|
End Sub
|
1
解説の追加
answer
CHANGED
|
@@ -29,4 +29,5 @@
|
|
|
29
29
|
```
|
|
30
30
|
|
|
31
31
|
Changeイベントだと一文字入力したり削除しただけで発生するのでAfterUpdateイベントを使いました。
|
|
32
|
-
Listプロパティには配列を代入できます。セル範囲.Valueで配列になります。
|
|
32
|
+
Listプロパティには配列を代入できます。セル範囲.Valueで配列になります。
|
|
33
|
+
ListIndexプロパティで何番目が選択されたか取得できます（0起点）。それを利用して列位置を計算してます。
|