5

範囲関数を使用して、vba を使用して Excel でセルを選択しようとしています。

数値だけでなく変数を使用して範囲を指定する場合でも、これまで何度もこれを行ってきました。

ただし、セル関数を使用して範囲を選択できないようです。

私は多くの調査を行い、この関数を使用して正常に実行される他の人のコードを見たので、これが可能であることを知っています。

以下は、範囲（1セルのみ）を選択するために使用している構文です。

さらに、コードを実行すると、次のメッセージが表示されます。

「実行時エラー '1004': オブジェクト '_Global' の 'Range' のメソッドが失敗しました」.

助けてくれてありがとう。

Dim item As String
Dim itempaste As Boolean
Dim itemcnt As Integer

itemcnt = 1
itempaste = False
Range("X3").Select
Do
    item = ActiveCell.Value
    If item <> "" Then
        Range("A18").Select
        Do
            If ActiveCell.Value = "" Then
                ActiveCell.Value = item
                itempaste = True
            Else
                ActiveCell.Offset(1, 0).Select
            End If
        Loop Until itempaste = True
    End If
    itemcnt = itemcnt + 2
    Range(Cells(1, (21 + itemcnt))).Select
Loop Until itemcnt = 11
4

1 に答える 1

5

Range 型を関数のように使用しています。呼び出しは実際にはすでにオブジェクトCellsを返しています。Rangeそれ以外の

Range(Cells(1, (21 + itemcnt))).Select

..試す：

Cells(1, (21 + itemcnt)).Select

より明確にしたい場合：

Dim target As Range
Set target = Cells(1, (21 + itemcnt))
target.Select
于 2013-07-11T13:21:10.553 に答える