質問編集履歴

3

発生している問題部分の編集。

2019/04/08 06:58

投稿

jimunomado
jimunomado

スコア19

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

実現したいこと、発生しているエラーの編集。試したことを「考えたこと」に変更。

2019/04/08 06:58

投稿

jimunomado
jimunomado

スコア19

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
- ①ユーザーフォーム読み込み時、その他の隣にあるテキストボックスは向こうの状態で、BackColorは&HC0C0C0である
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

2019/04/08 06:54

投稿

jimunomado
jimunomado

スコア19

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である