Ｐａｇｅ 634 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼繰り返しで加算する方法 conan 03/1/28(火) 23:53 ┣Re:繰り返しで加算する方法 ichinose 03/1/29(水) 7:26 ┗Re:繰り返しで加算する方法 ポンタ 03/1/29(水) 8:27 ┗Re:繰り返しで加算する方法 conan 03/1/29(水) 14:11 ─────────────────────────────────────── ■題名 ： 繰り返しで加算する方法 ■名前 ： conan ■日付 ： 03/1/28(火) 23:53 -------------------------------------------------------------------------
| 変数に代入された値を足すにはどういう風に書けばいいんでしょうか？ 自分では、途中までこんな感じで書いているんですが、※の部分がわからず、困っています。 sub test() dim kazu(1 to 10) as integer for i = 1 to 10 kazu(i)=userform.controls("textbox" & i).value next ※kazuの１〜１０に代入された値を足す end sub |
| ▼conan さん： おはようございます。 >変数に代入された値を足すにはどういう風に書けばいいんでしょうか？ >自分では、途中までこんな感じで書いているんですが、※の部分がわからず、困っています。 > >sub test() > dim kazu(1 to 10) as integer > for i = 1 to 10 > kazu(i)=userform.controls("textbox" & i).value > next MsgBox WorksheetFunction.Sum(kazu()) > ※kazuの１〜１０に代入された値を足す >end sub なんてどうでしょうか？ |
| これでどうでしょう？ Sub test() '1〜10を0〜10にして、 Dim kazu(0 To 10) As Integer For i = 1 To 10 kazu(i) = userform.Controls("textbox" & i).Value 'kazu(0)を合計に使う kazu(0) = kazu(0) + userform.Controls("textbox" & i).Value Next End Sub |
| ichinoseさん、ポンタ さん お返事ありがとうございます。 両方試してみました。 結果ポンタさんの >Sub test() > '1〜10を0〜10にして、 > Dim kazu(0 To 10) As Integer > For i = 1 To 10 > kazu(i) = userform.Controls("textbox" & i).Value > 'kazu(0)を合計に使う > kazu(0) = kazu(0) + userform.Controls("textbox" & i).Value > Next >End Sub でうまくいきました。 ichinoseさんのコードは、加算結果を テキストボックに反映する部分で（これは、掲示し忘れていたので自分で両方のコードを修正しました。)うまくいかなかったので、ポンタさんのコードを 利用させていただきました。 |