質問編集履歴
3
編集
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,6 +1,7 @@
|
|
|
1
1
|
複数あるオプションボタンのうちどれかにチェックを入れ、
|
|
2
2
|
ボタンを押すと、上部のテキストボックスに文字を表示します。
|
|
3
|
+
オプションボタンは実際には、画像に表示されているもの以外も多数あります。
|
|
3
|
-
オプションボタンの記述などを共通化することはできますでしょうか。
|
|
4
|
+
オプションボタンの記述(Private Sub ○○ボタン_Click())などを共通化することはできますでしょうか。
|
|
4
5
|
よろしくお願いします。
|
|
5
6
|
|
|
6
7
|
|
2
編集
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
Excel VBA
|
|
1
|
+
Excel VBA 処理の共通化
|
body
CHANGED
|
@@ -1,8 +1,30 @@
|
|
|
1
|
-
複数あるオプションボタンのうちどれかを
|
|
1
|
+
複数あるオプションボタンのうちどれかにチェックを入れ、
|
|
2
|
+
ボタンを押すと、上部のテキストボックスに文字を表示します。
|
|
2
|
-
|
|
3
|
+
オプションボタンの記述などを共通化することはできますでしょうか。
|
|
3
|
-
関数は共通のものを一つ作りたいです。
|
|
4
|
-
|
|
4
|
+
よろしくお願いします。
|
|
5
5
|
|
|
6
|
+
|
|
7
|
+
|
|
6
8
|
```Excel VBA
|
|
9
|
+
Option Explicit
|
|
10
|
+
|
|
11
|
+
Dim todofuken As String
|
|
12
|
+
|
|
13
|
+
Private Sub ボタン_Click()
|
|
7
|
-
|
|
14
|
+
TextBox1.Value = todofuken
|
|
15
|
+
End Sub
|
|
16
|
+
|
|
17
|
+
Private Sub 愛知ボタン_Click()
|
|
18
|
+
todofuken = 愛知ボタン.Tag
|
|
19
|
+
End Sub
|
|
20
|
+
|
|
21
|
+
Private Sub 大阪ボタン_Click()
|
|
22
|
+
todofuken = 大阪ボタン.Tag
|
|
23
|
+
End Sub
|
|
24
|
+
|
|
25
|
+
Private Sub 東京ボタン_Click()
|
|
26
|
+
todofuken = 東京ボタン.Tag
|
|
27
|
+
End Sub
|
|
28
|
+
|
|
29
|
+
|
|
8
|
-
```
|
|
30
|
+
```
|
1
編集
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
Excel VBA オプションボタンを押すと、押したオプションボタンの名前を取得する関数
|
|
1
|
+
Excel VBA オプションボタンを押すと、押したオプションボタンの名前を取得する共通の関数
|
body
CHANGED
|
@@ -1,5 +1,6 @@
|
|
|
1
1
|
複数あるオプションボタンのうちどれかを押すと、
|
|
2
2
|
押されたオプションボタンの名前を取得する関数を作りたいです。
|
|
3
|
+
関数は共通のものを一つ作りたいです。
|
|
3
4
|
可能でしょうか。よろしくお願いします。
|
|
4
5
|
|
|
5
6
|
```Excel VBA
|