-2

vbaでExcelのセルを選択しようとしています。変数 (i & e) を使用してセルを選択できるようにしたいと考えています。どこでi = 3およびe = 13できるようにしたい

ActiveCell(e, i).Activate

セルC13を選択します。

ActiveCell(e, i).Activate

動作しますが、元のアクティブ セルが A1 の場合のみです。どんな助けでも大歓迎です!

4

1 に答える 1

4

コードにコメントを入れたので、非常に理解しやすいはずです。

最初に以下のコードを実行します

Sub Main()

    Dim i As Long ' row variable
    Dim e As Long ' column variable

    i = 3 ' row 3
    e = 13 ' column 13 ("M")

    ' this will put: Cells(3,13) in Range "M3"
    Cells(i, e) = "Cells(" & i & ", " & e & ")"


    ' if you want to offset the current active cell then
    ' use Offset(x, y)

    '  use negative x to offset up
    Cells(i, e).Offset(-1, 0) = "1 up"

    '  use positive x to offset down
    Cells(i, e).Offset(1, 0) = "1 down"

    '  use negative y to offset left
    Cells(i, e).Offset(0, -1) = "1 left"

    '  use positive y to offset right
    Cells(i, e).Offset(0, 1) = "1 right"


    ' same principles apply when using range object
    Dim r As Range
    Set r = Cells(i, e)

    r.Offset(-2, 0) = "2 up"
    r.Offset(2, 0) = "2 down"
    r.Offset(0, -2) = "2 left"
    r.Offset(0, 2) = "2 right"

    Columns.AutoFit
End Sub

次に、シートを見て、どのコマンドが何をするかを分析します:)

ここに画像の説明を入力

于 2013-09-26T07:30:09.390 に答える