mwy********

2022/1/25 14:03

11回答

vbaで横の足し算を教えて下さい。

vbaで横の足し算を教えて下さい。 . ①2重ループを使って下さい。 ②数字を変えるだけで、複数の行にも対応できるコードを教えて下さい。 ③簡単でいいです。 ※※※※※ ④Sumなど使わないで下さい。 よろしくお願いします。 2桁の足し算の自分のコードです。 ↓↓↓↓↓↓ Sub 合計() Dim t As Long Dim y As Long t = 1 For x = 1 To 3 y = 1 For Z = 1 To 3 Cells(t, 3) = Cells(t, 1) + Cells(t, 2) y = y + 1 Next t = t + 1 Next End Sub

画像

Visual Basic | プログラミング・35閲覧

ベストアンサー

0
tra********

カテゴリマスター

2022/1/25 14:30

３つの合計欄（９カ所のセル値）を1度に計算するのですよね？ Sub sample() Dim rngA As Range, xrow As Range, rng As Range, xTTL As Double For Each rngA In Columns(1).SpecialCells(xlCellTypeConstants).Areas For Each xrow In rngA.CurrentRegion.Rows xTTL = 0 With xrow For Each rng In .Cells xTTL = xTTL + rng.Value Next rng .Cells(1).Offset(, .Cells.Count).Value = xTTL End With Next xrow Next rngA End Sub

tra********

2022/1/25 14:50

３つの表をいっぺんにじゃなく、別々で、数字を変えるだけで、表の切り替えができるように。。 というのなら、↓が1例。A6から始まる２つめの表を対象にしたもの。 対象の表を変えたいのなら、★のステップを変えてください。