回答編集履歴
3
誤字修正
answer
CHANGED
|
@@ -17,7 +17,7 @@
|
|
|
17
17
|
Set tRange2 = Intersect(tRange1, tSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible))
|
|
18
18
|
' 表示用列と結果データの共通部分＝コンボボックスに表示したいデータ
|
|
19
19
|
Dim tRange3 As Range
|
|
20
|
-
Set tRange3 = Intersect(tSheet.Columns(
|
|
20
|
+
Set tRange3 = Intersect(tSheet.Columns(4), tRange2)
|
|
21
21
|
' コンボボックスに表示したいデータの転記
|
|
22
22
|
Sheet2.Cells.Clear
|
|
23
23
|
tRange3.Copy (Sheet2.Cells(1, 1))
|
2
誤字修正
answer
CHANGED
|
@@ -23,4 +23,4 @@
|
|
|
23
23
|
tRange3.Copy (Sheet2.Cells(1, 1))
|
|
24
24
|
Me.ComboBox1.RowSource = Sheet2.Cells(1, 1).CurrentRegion.Address(External:=True)
|
|
25
25
|
```
|
|
26
|
-
まぁ、tRange3の中身を巡回してadditemで追加して
|
|
26
|
+
まぁ、tRange3の中身を巡回してadditemで追加していけばワークシートは不要ですね。
|
1
additemでもできる旨を追記
answer
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
コンボボックスの為の処理用ワークシートを作成しておいて
|
|
1
|
+
RowSourceを使うならコンボボックスの為の処理用ワークシートを作成しておいて
|
|
2
2
|
そこに張り付けてやれば出来るには出来ますね。
|
|
3
3
|
|
|
4
4
|
[フィルターの結果をリストボックスに表示させる](https://engi.cocolog-nifty.com/sirenai/2014/01/post-2203.html)
|
|
@@ -22,4 +22,5 @@
|
|
|
22
22
|
Sheet2.Cells.Clear
|
|
23
23
|
tRange3.Copy (Sheet2.Cells(1, 1))
|
|
24
24
|
Me.ComboBox1.RowSource = Sheet2.Cells(1, 1).CurrentRegion.Address(External:=True)
|
|
25
|
-
```
|
|
25
|
+
```
|
|
26
|
+
まぁ、tRange3の中身を巡回してadditemで追加してもいけばワークシートは不要ですね。
|