回答編集履歴
1
説明追記
test
CHANGED
|
@@ -7,3 +7,27 @@
|
|
|
7
7
|
Controls.Addで動的に追加したコントロールは、`Me.KT1`では参照できません。これで参照できるはデザイン時に配置したもののみです。
|
|
8
8
|
|
|
9
9
|
`Me.Controls("KT1").Text`とすればエラーはでなくなります。
|
|
10
|
+
|
|
11
|
+
|
|
12
|
+
|
|
13
|
+
---
|
|
14
|
+
|
|
15
|
+
|
|
16
|
+
|
|
17
|
+
ちなみに、少し先回りしてヒントを出しておきますと、
|
|
18
|
+
|
|
19
|
+
|
|
20
|
+
|
|
21
|
+
Me.Controls() という参照法だと、テキストボックスが増えていった場合でも下記のような感じでループ処理できまず。
|
|
22
|
+
|
|
23
|
+
|
|
24
|
+
|
|
25
|
+
```vba
|
|
26
|
+
|
|
27
|
+
For i = 1 to itm
|
|
28
|
+
|
|
29
|
+
.Cells(NRow + i -1, 1).Value = Me.Controls("KT" & i).Text
|
|
30
|
+
|
|
31
|
+
Next
|
|
32
|
+
|
|
33
|
+
```
|