2

私はこれに基づいてコードを作成しています。 Excel VBA - 動的セル範囲を選択する

ダイナミックレンジを作成するための構文を見つけようとしています。例: 私は常に D8 から開始しますが、範囲の上限は別のセルの int カウントに基づいています。[h4]

Dim count As Integer
count = Sheet2.Cells(8,1).Value
Set refRng = Sheet2.Range("D8:" & Cells(8, i).Address)

関連するコード サンプルです。

Sheet2.Range("H1") が int を返さず、バリアントか何かを返すことがわかりましたか?

私は何百万もの異なることを試しましたが、どれも機能しないことがわかりました. ダイナミックレンジを設定するためのより良い方法が必要です。

4

2 に答える 2

6

あなたが達成しようとしていることを100％確信しているわけではありませんが、範囲をいじるという点では、おそらくこれが始まりです：

Option Explicit

Sub select_Range()

Dim count As Integer
count = ThisWorkbook.Worksheets("Sheet2").Range("A8").Value

Dim i As Integer
i = count

Dim refRng As Excel.Range
Set refRng = ThisWorkbook.Worksheets("Sheet2").Range("D8:D" & i)

refRng.Select

End Sub

これにより、次の結果が得られますSheet2。

ここに画像の説明を入力

于 2013-08-28T15:28:08.323 に答える
2

これはもともとコメントでしたが、解決策でもあるため、回答として追加しています

Cells(8, 1)= "A8"。セル H1 が必要な場合は、Cells(1, 8)またはになりますCells(1, "H")。セル H4 が必要な場合は、Cells(4, 8)またはになりますCells(4, "H")。

あるいは、単にRange("H1")またはRange("H4")

于 2013-08-28T15:24:06.240 に答える