回答編集履歴
3
誤字修正
test
CHANGED
|
@@ -36,7 +36,7 @@
|
|
|
36
36
|
|
|
37
37
|
Dim tRange3 As Range
|
|
38
38
|
|
|
39
|
-
Set tRange3 = Intersect(tSheet.Columns(
|
|
39
|
+
Set tRange3 = Intersect(tSheet.Columns(4), tRange2)
|
|
40
40
|
|
|
41
41
|
' コンボボックスに表示したいデータの転記
|
|
42
42
|
|
2
誤字修正
test
CHANGED
|
@@ -48,4 +48,4 @@
|
|
|
48
48
|
|
|
49
49
|
```
|
|
50
50
|
|
|
51
|
-
まぁ、tRange3の中身を巡回してadditemで追加して
|
|
51
|
+
まぁ、tRange3の中身を巡回してadditemで追加していけばワークシートは不要ですね。
|
1
additemでもできる旨を追記
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
コンボボックスの為の処理用ワークシートを作成しておいて
|
|
1
|
+
RowSourceを使うならコンボボックスの為の処理用ワークシートを作成しておいて
|
|
2
2
|
|
|
3
3
|
そこに張り付けてやれば出来るには出来ますね。
|
|
4
4
|
|
|
@@ -47,3 +47,5 @@
|
|
|
47
47
|
Me.ComboBox1.RowSource = Sheet2.Cells(1, 1).CurrentRegion.Address(External:=True)
|
|
48
48
|
|
|
49
49
|
```
|
|
50
|
+
|
|
51
|
+
まぁ、tRange3の中身を巡回してadditemで追加してもいけばワークシートは不要ですね。
|