Excel VBA質問箱 IV

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

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


51435 / 76732 ←次へ | 前へ→

【30165】Re:計算方法、教えてください。
回答  Statis  - 05/10/21(金) 8:22 -

引用なし
パスワード
   こんにちは

シート2とシート3がひとつになたのですね。
シートレイアウトが固定と言うことで
ではお試しを。

Sub test_1()
Dim i As Long, ii As Long, Co1 As Long
Dim Ro As Long, Co As Long, Con As Currency

With Worksheets("Sheet2")
   Ro = .Range("B65536").End(xlUp).Row
   For i = 2 To 5
     For ii = 4 To Ro
       Con = 0: Co1 = 7
       For Co = 2 To 4
         Con = Con + Worksheets("Sheet1").Cells(i, Co).Value * .Cells(ii, Co1).Value
         Co1 = Co1 + 1
       Next Co
       .Cells(ii, i + 1).Value = Val(Con)
     Next ii
  Next i
End With

End Sub

1 hits

【30127】計算方法、教えてください。 tbtk 05/10/20(木) 10:44 質問
【30129】Re:計算方法、教えてください。 Statis 05/10/20(木) 11:27 回答
【30132】Re:計算方法、教えてください。 tbtk 05/10/20(木) 12:46 お礼
【30140】Re:計算方法、教えてください。 tbtk 05/10/20(木) 15:59 発言
【30150】Re:計算方法、教えてください。 tbtk 05/10/20(木) 16:50 質問
【30165】Re:計算方法、教えてください。 Statis 05/10/21(金) 8:22 回答
【30166】Re:計算方法、教えてください。 tbtk 05/10/21(金) 8:45 お礼

51435 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free