-1

sum簡単な関数を使用して、別のシートから情報を取得する多数のヘルパー行があります。

=SUM('HIS-WOT'!J36,'HIS-WOT'!J82,'HIS-WOT'!J128)

次のような数式を取得するために、選択したセルの数のすべての行番号を同じ量 (つまり221 )だけ変更/オフセットできるマクロはありますか?

=SUM('HIS-WOT'!J257,'HIS-WOT'!J333,'HIS-WOT'!J349)

さまざまな行番号を変更する必要がある量はさまざまであるため、マクロには、ユーザーが行番号を増減する量を選択できるダイアログ ボックスが必要です。

ありがとう！

4

1 に答える 1

0

このコードは、数式をコピーするためのダミー シートを作成します。あなたの質問が気に入りました!

Sub test()

    Dim nbr As Long, cel As Range, cels As Range, sh As Worksheet
    Set cels = Selection

    nbr = CLng(InputBox("Enter offset:"))

    Set sh = Worksheets.Add

    For Each cel In cels

        If cel.HasFormula Then

            sh.Cells(cel.Row + nbr, cel.Column).FormulaR1C1 = cel.FormulaR1C1
            cel.Formula = sh.Cells(cel.Row + nbr, cel.Column).Formula

        End If

    Next

    Application.DisplayAlerts = False
        sh.Delete
    Application.DisplayAlerts = True

End Sub
于 2013-04-18T12:29:07.600 に答える