| |
▼Asaki さん：
>>3行目から表示したいです。
>>どこに追加しますか？教えて下さい。
>プログラムの意味はお分かりですか？
>全ての行で何をしているか説明できますか？
>解らなければヘルプを調べてみてください。
>また、ステップ実行して、1行ずつ処理を追いかけると、少し解りやすいかもしれません。
>
>とりあえず、2 と書いてあるところが変更候補ですが、
>実データと見比べて、必要な部分だけ修正することになります。
錯誤試行してみてやっと意味がつかめました。ありがとうございました。
Worksheets("全体データ").Cells(k + 1, j + 30).Value = v
K+1すれば2行目に3行目から始まるわけでしょう？
実行してみたら成功いたしました。
ありがとうございました。
やっと完成できました。あなたのおかげです。
私の成長もひとつ出来たし、これからもわからないところがあれば
ご指南お願いいたします。
ありがとうございました。
Sub 試験()
Dim k As Long
Dim c(1 To 5) As Range
Dim i As Long
Dim j As Long
Dim v As Variant
With Worksheets("ストレスポイント")
Set c(1) = .Range("I2:Y2")
Set c(2) = .Range("AC2:AQ2")
Set c(3) = .Range("AR2:BB2")
Set c(4) = .Range("AF2:AH2")
Set c(5) = .Range("AL2:AQ2")
For k = 2 To .Range("A65536").End(xlUp).row
i = k - 2
For j = 1 To 5
v = Application.Sum(c(j).Offset(i))
If IsError(v) Then v = 0
Worksheets("全体データ").Cells(k + 1, j + 30).Value = v
Next j
Next k
End With
End Sub
|
|
さる
- 04/8/25(水) 23:43 -
