|
▼やずや、やずや さん:
このあたりから〜
>'--------------------------------------------
>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
〜このあたりまでのことですか?
どうしたいのか良くわかりません。
ループはなにを意味しているのでしょうか?
|
|