回答編集履歴

1

追記

2020/07/30 10:39

投稿

hatena19
hatena19

スコア34075

test CHANGED
@@ -17,3 +17,25 @@
17
17
 
18
18
 
19
19
  i を `"・・・" & i & "・・・"` というように "" (文字列)の外に出すようにします。
20
+
21
+
22
+
23
+ ---
24
+
25
+ 下記のようにした方が可読性が上がるかも。
26
+
27
+
28
+
29
+ ```vba
30
+
31
+ Const CtlSrc = "=([txt_g_o_a#]-[txt_o_kara#])*1/1000*[txt_ml_o_a]/1000*100/[txt_smp_g_a]*[txt_b_o_a#]"
32
+
33
+
34
+
35
+ For i = 1 to 40
36
+
37
+ Me.Controls(txtName_wt_o_a & i).ControlSource = Replace(CtlSrc, "#", i)
38
+
39
+ Next
40
+
41
+ ```