teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

追記

2020/07/30 10:39

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -7,4 +7,15 @@
7
7
  Next i
8
8
  ```
9
9
 
10
- i を `"・・・" & i & "・・・"` というように "" (文字列)の外に出すようにします。
10
+ i を `"・・・" & i & "・・・"` というように "" (文字列)の外に出すようにします。
11
+
12
+ ---
13
+ 下記のようにした方が可読性が上がるかも。
14
+
15
+ ```vba
16
+ 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#]"
17
+
18
+ For i = 1 to 40
19
+ Me.Controls(txtName_wt_o_a & i).ControlSource = Replace(CtlSrc, "#", i)
20
+ Next
21
+ ```