excel vba dynamic cell range get object error

Question

Я пытаюсь получить динамический диапазон ячеек. У меня есть значения, которые указывают мне количество строк и столбцов. (Я не могу использовать xlToRight, так как я не хочу, чтобы все значения, которые находятся в клетках

До сих пор я пытался:.

Dim xCount As Long 
Dim yCount As Long 
Dim workRange As Range 

xCount = Worksheets("Controls").Range("B4") 
yCount = Worksheets("Controls").Range("B5") 

workRange = Worksheets("Data").Range(Worksheets("Data").Cells(1,1), Cells(xCount, yCount) 
ActiveChart.SetSourceData Source:=workRange 

Сообщение об ошибке является: Objectvariable или С-blockvariable не назначен (я надеюсь, что перевод с немецкого правильно :-) Отладчик останавливается на части «workRange».

Не могли бы вы объяснить мне, какая часть моего мышления не так?

Благодарности

Answer 1

Я нашел решение! Как сказал БрюсВейн, мне не хватает одного Worksheets("Controls"). Но этого было недостаточно, чтобы удалить ошибку.

У меня было set отсутствует при заполнении диапазона до workRange. Для получения правильного кода, вот полный пример:

Dim xCount As Long 
Dim yCount As Long 
Dim workRange As Range 

With worksheets("Controls") 
    xCount = .Range("B4").Value 
    yCount = .Range("B5").Value 
End with 

With Worksheets("Data") 
    set workRange = .Range(.Cells(1,1), .Cells(xCount, yCount)) 
end with 

ActiveChart.SetSourceData Source:=workRange 

Спасибо за помощь всем!:-D

Kaz

Answer 2

Вы почти получили его, вы явно дали workRange рабочий лист для первой ячейки, вам нужно сделать это со вторым тоже. Мне нравится использовать with, чтобы помочь прояснить эти вещи:

With worksheets("Controls") 
xCount = .Range("B4").Value ' I assume this is some number 
yCount = .Range("B5").Value 
End with 

With Worksheets("Data") 
workRange = .Range(.Cells(1,1), .Cells(xCount, yCount)) 
end with 

ActiveChart.SetSourceData Source:=workRange 

Если это не сделать это, просто попробуйте workRange = Worksheets("Data").Range(Worksheets("Data").Cells(1,1), Worksheets("Data").Cells(xCount, yCount)

Не зная, как вы объявили xCount и yCount, если вы только что сделали Dim xCount, yCount он будет установлен как вариант (он же что-то). Ваши оригинальные объявления затем заставят Excel подумать, что вы хотите использовать диапазон (или ячейку), а не значение этой ячейки. Если вы сделали Dim xCount as Integer, yCount as Integer (или Long, если у вас есть большое количество строк), тогда он получит VALUE этой ячейки и будет использовать это для ваших строк в диапазоне. В противном случае вы будете использовать xCount.Row, если вы установили xCount как Variant или Range.

Answer 3

Насколько я понял. Вам нужно присвоить значение выбранному диапазону. Попробуй это.

workRange = Worksheets("Data").Range(Worksheets("Data").Cells(1,1), Cells(xCount, yCount).Value = 5 

Это должно написать 5 внутри коробки.

Может быть, это помогает:

http://www.excel-easy.com/vba/range-object.html

https://msdn.microsoft.com/de-de/library/office/Ff838238.aspx

---

Ich Glaube, дю musst дем Ганзен Noch Einen Wert zuweisen.

Setzte Эйн

.... Cells(xCount, yCount).Value = 5 

dahinter. Vielleicht funktioniert es dann.