質問編集履歴
3
発生している問題部分の編集。
test
CHANGED
File without changes
|
test
CHANGED
@@ -26,9 +26,7 @@
|
|
26
26
|
|
27
27
|
|
28
28
|
|
29
|
-
その他ボタンをクリックした際、セルA1には隣のテキストボックスに入力された内容を転記したいと考えているのですが、
|
29
|
+
その他ボタンをクリックした際、セルA1には隣のテキストボックスに入力された内容を転記したいと考えているのですが、実装したコードでは転記されません。
|
30
|
-
|
31
|
-
|
32
30
|
|
33
31
|
### 該当のソースコード
|
34
32
|
|
2
実現したいこと、発生しているエラーの編集。試したことを「考えたこと」に変更。
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,34 +1,32 @@
|
|
1
|
-
### 追記
|
2
|
-
|
3
|
-
皆様回答いただきありがとうございます。
|
4
|
-
|
5
|
-
回答拝見しているのですが、体調を崩してしまいお返事を書くのが難しい状態になっています。
|
6
|
-
|
7
|
-
復活したらお返事等書きますので、申し訳ございませんがお待ちいただけますと幸いです。
|
8
|
-
|
9
|
-
|
10
|
-
|
11
1
|
### 前提・実現したいこと
|
12
2
|
|
13
|
-
①ユーザーフォーム読み込み時、その他の隣にあるテキストボックスは
|
3
|
+
①ユーザーフォーム読み込み時、その他の隣にあるテキストボックスは無効の状態で、BackColorは&HC0C0C0である
|
14
4
|
|
15
|
-
②その他のオプションボタンが押下されたら、隣のテキストボックスが有効になりなおかつBackColorが&HFFFFFFになる。
|
5
|
+
②その他のオプションボタンが押下されたら、隣のテキストボックスが有効になりなおかつBackColorが&HFFFFFFになる。
|
16
6
|
|
17
|
-
|
7
|
+
③オプションボタンの女が選択されたら、セルA1に「女」と転記される。その他ボタンが選択された場合は、その他ボタンの隣のテキストボックスに記載された内容がA1に転記されるようにしたい
|
18
8
|
|
19
|
-
|
9
|
+
※一般的なアンケートで、「あなたはこのサイトをどこで知りましたか?」という問いがあったときに「その他」欄に自由記述できるような、そんな感じのものを作りたいのです…
|
20
10
|
|
11
|
+
![やりたいことのイメージ](a00a7da6cbfb09e4d9076848f8286828.png)
|
21
12
|
|
13
|
+
↑やりたいことのイメージ ↓実装中の入力フォーム
|
22
14
|
|
23
15
|
![実装中の入力フォーム](20943e7b19703b8795ed0d46e2d59e61.png)
|
24
16
|
|
25
17
|
### 発生している問題・エラーメッセージ
|
26
18
|
|
27
|
-
①UserForm_Initializeでその他のテキストボックス(txtOther)のBackColorがグレー(&HC0C0C0)になっていてほしいのにならない。あとそのテキストボックスがEnabled = Falseにならない
|
19
|
+
~~①UserForm_Initializeでその他のテキストボックス(txtOther)のBackColorがグレー(&HC0C0C0)になっていてほしいのにならない。あとそのテキストボックスがEnabled = Falseにならない
|
28
20
|
|
29
21
|
②実現したいことが実現されない……
|
30
22
|
|
31
|
-
④登録ボタン押下後、オプションボタンもテキストボックスも入力できない状態になってしまう
|
23
|
+
④登録ボタン押下後、オプションボタンもテキストボックスも入力できない状態になってしまう~~
|
24
|
+
|
25
|
+
※上記につきまして、このエラーの大半が私の単なるスペルミス(UserForm_Initializeのスペルを間違えていた)起因と判明いたしましたので、こちら一度は削除いたします。大変申し訳ございませんでした。
|
26
|
+
|
27
|
+
|
28
|
+
|
29
|
+
その他ボタンをクリックした際、セルA1には隣のテキストボックスに入力された内容を転記したいと考えているのですが、
|
32
30
|
|
33
31
|
|
34
32
|
|
@@ -48,7 +46,7 @@
|
|
48
46
|
|
49
47
|
|
50
48
|
|
51
|
-
Private Sub UserForm_Intiialize()
|
49
|
+
Private Sub UserForm_Initiialize()
|
52
50
|
|
53
51
|
txtOther.Enabled = False
|
54
52
|
|
@@ -104,11 +102,29 @@
|
|
104
102
|
|
105
103
|
|
106
104
|
|
107
|
-
###
|
105
|
+
### 考えたこと
|
108
106
|
|
109
107
|
|
110
108
|
|
109
|
+
```VBA
|
110
|
+
|
111
|
+
Private Sub opOther_click()
|
112
|
+
|
113
|
+
txtOther.Enabled = True
|
114
|
+
|
115
|
+
txtOther.BackColor = &HFFFFFF
|
116
|
+
|
117
|
+
op = txtOther
|
118
|
+
|
119
|
+
End Sub
|
120
|
+
|
121
|
+
```
|
122
|
+
|
123
|
+
|
124
|
+
|
111
|
-
|
125
|
+
op = txtOtherでない、というところはわかっているのですが、逆にどうしたらよいのかというところで考えが詰まっています。
|
126
|
+
|
127
|
+
|
112
128
|
|
113
129
|
|
114
130
|
|
1
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,3 +1,13 @@
|
|
1
|
+
### 追記
|
2
|
+
|
3
|
+
皆様回答いただきありがとうございます。
|
4
|
+
|
5
|
+
回答拝見しているのですが、体調を崩してしまいお返事を書くのが難しい状態になっています。
|
6
|
+
|
7
|
+
復活したらお返事等書きますので、申し訳ございませんがお待ちいただけますと幸いです。
|
8
|
+
|
9
|
+
|
10
|
+
|
1
11
|
### 前提・実現したいこと
|
2
12
|
|
3
13
|
①ユーザーフォーム読み込み時、その他の隣にあるテキストボックスは向こうの状態で、BackColorは&HC0C0C0である
|