| |
▼kanabun さん：
ご返答ありがとうございます。
Wというのはファイルの数で、１つのファイルに列が３つあり４列目（D列）に２列目と３列目の演算式を入れます。
ファイルの数は任意で、ファイルが２つあれば２つ目のファイルの４列目（H列目）にはD列と同じ演算式を入れるというFor文です。
つまり、ファイルが４つあれば演算式の列は、D列、H列、L列、O列です。
よろしくお願い致します。
>▼新参者2 さん：
>
>> t = sh2.Cells(4, 2).Value
>> u = 2
>> If u <= t * 4 Then
>> For w = u To 4 * t
>> u = u + 4
>> Next w
>>
>> Else
>> MsgBox "値がおかしいです。"
>> End If
>
>ここの
>> For w = u To 4 * t
>の部分だけとりだすと、↓こういう構文になります。
>Sub Test1()
> Dim t As Long
> Dim w As Long
> Dim u As Long
> t = 4 'かりに t = 4 とする
> u = 2
> For w = u To t * 4
> Debug.Print "w="; w, "u="; u
> u = u + 4
> Next
>End Sub
>これを実行すると、イミディエイト・ウィンドウに こう表示されます。
>
>w= 2 u= 2
>w= 3 u= 6
>w= 4 u= 10
>w= 5 u= 14
>w= 6 u= 18
>w= 7 u= 22
>w= 8 u= 26
>w= 9 u= 30
>w= 10 u= 34
>w= 11 u= 38
>w= 12 u= 42
>w= 13 u= 46
>w= 14 u= 50
>w= 15 u= 54
>w= 16 u= 58
>
>
>▼実際は uを初期値2 から Step 4 づつ 回したいのではないですか？
>Sub Test2()
> Dim t As Long
> Dim u As Long
> t = 4
> For u = 2 To t * 4 Step 4
> Debug.Print "u="; u
> Next
>End Sub
>----------------- イミディエイト・ウィンドウの出力
>u= 2
>u= 6
>u= 10
>u= 14
|
|
新参者３
- 09/3/16(月) 17:34 -
