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