回答編集履歴
7
参考リンクの修正
test
CHANGED
|
@@ -5,6 +5,8 @@
|
|
|
5
5
|
UserFormのコードはUserFormごとに分かれていて
|
|
6
6
|
|
|
7
7
|
初期化イベントはUserForm名に関係なく**UserForm_Initialize()**のようです。
|
|
8
|
+
|
|
9
|
+
慣れるまでは参考リンクの方法でエディタから挿入するといいですね。
|
|
8
10
|
|
|
9
11
|
|
|
10
12
|
|
|
@@ -20,4 +22,4 @@
|
|
|
20
22
|
|
|
21
23
|
|
|
22
24
|
|
|
23
|
-
参考：[
|
|
25
|
+
参考：[ユーザーフォームのイベント - Excel VBA](https://www.239-programing.com/excel-vba/ufm/ufm014.html)
|
6
テキストイベントに書いていたと勘違いしていたので書き直し
test
CHANGED
|
@@ -1,8 +1,10 @@
|
|
|
1
1
|
こんにちは。
|
|
2
2
|
|
|
3
|
-
TextBoxの初期化イベントはないようなので
|
|
4
3
|
|
|
4
|
+
|
|
5
|
-
UserFormの
|
|
5
|
+
UserFormのコードはUserFormごとに分かれていて
|
|
6
|
+
|
|
7
|
+
初期化イベントはUserForm名に関係なく**UserForm_Initialize()**のようです。
|
|
6
8
|
|
|
7
9
|
|
|
8
10
|
|
|
@@ -15,3 +17,7 @@
|
|
|
15
17
|
End Sub
|
|
16
18
|
|
|
17
19
|
```
|
|
20
|
+
|
|
21
|
+
|
|
22
|
+
|
|
23
|
+
参考：[Excel VBA ユーザーフォームのイベント](https://kosapi.com/post-4072/)
|
5
微修正
test
CHANGED
|
@@ -10,7 +10,7 @@
|
|
|
10
10
|
|
|
11
11
|
Private Sub UserForm_Initialize()
|
|
12
12
|
|
|
13
|
-
Text
|
|
13
|
+
txtDate.Text = Date
|
|
14
14
|
|
|
15
15
|
End Sub
|
|
16
16
|
|
4
ユーザーフォーム版で書き直し
test
CHANGED
|
@@ -1,21 +1,17 @@
|
|
|
1
1
|
こんにちは。
|
|
2
2
|
|
|
3
|
-
|
|
3
|
+
TextBoxの初期化イベントはないようなので
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
UserFormの初期化イベントで呼ぶとうまくいきます。
|
|
6
6
|
|
|
7
7
|
|
|
8
8
|
|
|
9
9
|
```Python
|
|
10
10
|
|
|
11
|
-
|
|
11
|
+
Private Sub UserForm_Initialize()
|
|
12
12
|
|
|
13
|
-
|
|
13
|
+
TextBox1.Value = Date
|
|
14
|
+
|
|
15
|
+
End Sub
|
|
14
16
|
|
|
15
17
|
```
|
|
16
|
-
|
|
17
|
-
となると、イベントが違っているためなにも起きないか
|
|
18
|
-
|
|
19
|
-
textBoxを見つけられていないためにエラーになっているかのどちらかと思います。
|
|
20
|
-
|
|
21
|
-
「どううまくいかないか」書いて頂けたらまた考えます。
|
3
併記
test
CHANGED
|
@@ -2,11 +2,13 @@
|
|
|
2
2
|
|
|
3
3
|
手元のExcel2010でActiveXコントロールのテキストボックスで試したところ
|
|
4
4
|
|
|
5
|
-
問題なく現在日付を代入できました。
|
|
5
|
+
どちらの方法でも問題なく現在日付を代入できました。
|
|
6
6
|
|
|
7
7
|
|
|
8
8
|
|
|
9
9
|
```Python
|
|
10
|
+
|
|
11
|
+
Me.TextBox1.Text = Date
|
|
10
12
|
|
|
11
13
|
Me.TextBox1.Text = Format(Date, "YYYY/MM/DD")
|
|
12
14
|
|
2
Excelのバージョンを明記
test
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
こんにちは。
|
|
2
2
|
|
|
3
|
-
手元のExcelでActiveXコントロールのテキストボックスで試したところ
|
|
3
|
+
手元のExcel2010でActiveXコントロールのテキストボックスで試したところ
|
|
4
4
|
|
|
5
5
|
問題なく現在日付を代入できました。
|
|
6
6
|
|
1
大幅に修正
test
CHANGED
|
@@ -1,15 +1,19 @@
|
|
|
1
1
|
こんにちは。
|
|
2
2
|
|
|
3
|
+
手元のExcelでActiveXコントロールのテキストボックスで試したところ
|
|
4
|
+
|
|
3
|
-
|
|
5
|
+
問題なく現在日付を代入できました。
|
|
4
6
|
|
|
5
7
|
|
|
6
8
|
|
|
7
9
|
```Python
|
|
8
10
|
|
|
9
|
-
tx
|
|
11
|
+
Me.TextBox1.Text = Format(Date, "YYYY/MM/DD")
|
|
10
12
|
|
|
11
13
|
```
|
|
12
14
|
|
|
15
|
+
となると、イベントが違っているためなにも起きないか
|
|
13
16
|
|
|
17
|
+
textBoxを見つけられていないためにエラーになっているかのどちらかと思います。
|
|
14
18
|
|
|
15
|
-
|
|
19
|
+
「どううまくいかないか」書いて頂けたらまた考えます。
|