Объединение ListBox, Выбрать регистр и Диапазон в Excel VBA - PullRequest
Новая
       14

Объединение ListBox, Выбрать регистр и Диапазон в Excel VBA

0 голосов
/ 09 октября 2018

Я создал макрос, который выбирает разные цены для разных штатов (из-за налогов).Для этого я использую пользовательскую форму, содержащую ListBox с возможными состояниями.Затем я поместил Select Case, чтобы вытащить значения из правильного столбца.

Однако кажется, что он не понимает переменные диапазона, которые я пытаюсь использовать ... Вот пример моего кода.

Сначала я объявляю переменную Range с предметами, которые я продаю, а затем запрашиваю пользовательскую форму со своим списком всех состояний. 

Dim Items As Range
Set Items = Range("I9").End(xlDown)
Set Items = Range(Items, Items.End(xlDown))

UserForm1.Show

Внутри пользовательской формы я поместил командную кнопку для выполнения при щелчке, где она должна смещать диапазон «Элементы» в зависимости от состояния. 

Select Case Me.ListBox1
    Case "NY"
        Set State = Items.Offset(0, 6)
    Case "CA"
        Set State = Items.Offset(0, 7)
    End Select
Unload UserForm1

... и этоэто когда я получаю сообщение об ошибке:

Ошибка времени выполнения '1004':

Ошибка приложения или объекта

Может кто-топомогите мне понять, почему я не могу компенсировать мой предыдущий заявленный диапазон?

...