回答編集履歴

1

おまけのコードの追加

2018/03/17 09:33

投稿

hatena19
hatena19

スコア33534

test CHANGED
@@ -85,3 +85,47 @@
85
85
  ```
86
86
 
87
87
  となります。
88
+
89
+
90
+
91
+ おまけ
92
+
93
+ ---
94
+
95
+ 他の人の回答で提案されているコンボボックス(プルダウン)を使う方法も紹介しておきます。
96
+
97
+
98
+
99
+ ワークシート上にActiveXのコンボボックスを配置します。名前は、ComboBox1 と自動でつきます。
100
+
101
+ そのワークシートのモジュールに下記のコードを記述します。
102
+
103
+
104
+
105
+ ```vba
106
+
107
+ Private Sub Worksheet_Activate()
108
+
109
+ Dim ws As Worksheet
110
+
111
+
112
+
113
+ With ComboBox1
114
+
115
+ .Clear
116
+
117
+ For Each ws In TargetWorkbook.Worksheets
118
+
119
+ .AddItem ws.Name
120
+
121
+ Next
122
+
123
+ End With
124
+
125
+ End Sub
126
+
127
+ ```
128
+
129
+
130
+
131
+ これで対象ワークブック(TargetWorkbook)のワークシート名がドロップダウンリストから選択できます。