Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

38417 / 76738

←次へ　｜　前へ→


	【43458】Re:for～next

ハチ - 06/10/16(月) 18:54 -


	引用なし

	パスワード

▼やずや、やずやさん：

このあたりから～

>'--------------------------------------------
>at40 = at30 - at20 '行の範囲
>　
>　　　For g20 = at20 To at30
>　　　　a100 = g20
>　　　　a110 = "M" + CStr(a100)
>　　　　a111 = "P" + CStr(a100)
>　　　　a112 = "A" + CStr(a100)
>　　　　a113 = "J" + CStr(a100)
>　　　　a114 = "K" + CStr(a100)
>　　　　a115 = "R" + CStr(a100)
>　　　　a116 = "Q" + CStr(a100)
>　　　　　　　　
>　　　　For g30 = 2 To at40 + 2
>　　　　 a100 = g30
>　　　　a110 = "M" + CStr(a100)
>　　　　a111 = "P" + CStr(a100)
>　　　　a112 = "A" + CStr(a100)
>　　　　a113 = "J" + CStr(a100)
>　　　　a114 = "K" + CStr(a100)
>　　　　a115 = "R" + CStr(a100)
>　　　　a116 = "Q" + CStr(a100)
>　　　　
>　　 x1 = Worksheets("0").Range(a110) '業務名
>　　 x2 = Worksheets("0").Range(a111) '工期
>　　 x3 = Worksheets("0").Range(a112) '社員名
>　　 x4 = Worksheets("0").Range(a113) '総時
>　　 x5 = Worksheets("0").Range(a114) '総分
>　　 x6 = Worksheets("0").Range(a115) '人件費
>　　 x7 = Worksheets("0").Range(a116) '契約金額
>
>　　Worksheets("DF2").Range(a110) = x1 '業務名
>　　Worksheets("DF2").Range(a111) = x2 '工期
>　　Worksheets("DF2").Range(a112) = x3 '社員名
>　　Worksheets("DF2").Range(a113) = x4 '総時
>　　Worksheets("DF2").Range(a114) = x5 '総分
>　　Worksheets("DF2").Range(a115) = x6 '人件費
>　　Worksheets("DF2").Range(a116) = x7 '契約金額
>　　　　
>　　 Next g30
>　 Exit For
>　Next g20

～このあたりまでのことですか？
どうしたいのか良くわかりません。
ループはなにを意味しているのでしょうか？

0 hits

▼

【43456】for～next やずや、やずや 06/10/16(月) 18:22