Вопрос ошибки VBA ComboBOX

Пользователь

Сообщений: 34 Регистрация: 14.05.2013

01.08.2013 12:04:24

Добрый день коллеги!
Ситуация делаю UserForm где есть выпадающий список с названиями
использую combobox
в него мне нужно добавить список из листа

Написал вот такой код.....
Выдает ошибку Compile error: Expected array
и выделяет Redim preserve rngY(1
если rngY меняю на Вариант
то выделяет ее же и пишет Type mismatch
В общем не могу понять что не так делаю

Код

Private Sub DolgnosList_DropButtonClick()
Dim colDolgnost As New Collection
Dim i%, k%
Dim rngY As String
Dim intROW As Integer
 
intROW = Worksheets("Должность".Cells(Rows.Count, 1).End(xlUp).Row
Do
i = i + 1
ReDim Preserve rngY(1 To intROW - 1)
rngY(i) = Worksheets("Должность".Cells(i + 1, 1)
Loop Until rngY(i) = intROW - 1
 
For k = 1 To i - 1
DolgnosList.AddItem rngY(k)
Next k
End Sub

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#2 01.08.2013 12:12:25 А зачем вообще ReDim Preserve? Забирайте в массив и сразу этот массив в ComboBox. Ну или циклом AddItem.

KuklP

Пользователь

Сообщений: 14868 Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

01.08.2013 12:33:20

Цитата
Niarah пишет: что не так делаю

Многое!

Цитата
Юрий М пишет: А зачем вообще ReDim Preserve?

Да еще в цикле. Размерность же не меняется.
Вместо всего того великолепия, одна строчка кода:

Код

Private Sub DolgnosList_DropButtonClick()
    DolgnosList.List = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row).Value
End Sub

И используйте теги для оформления кода.

Изменено: KuklP - 19.10.2015 16:13:26

Я сам - дурнее всякого примера! ...

Niarah

Пользователь

Сообщений: 34 Регистрация: 14.05.2013

01.08.2013 12:37:47

Цитата
Юрий М пишет: А зачем вообще ReDim Preserve? Забирайте в массив и сразу этот массив в ComboBox. Ну или циклом AddItem.

М-м-м в первом варианте я задаю rngY как массив ? array ? или new collection
я еще слаб в массивах )

а циклом вот так ?

Код

for i = 1 to introw ' introw = число строк в списке
   dolgnosList.additem worksheets("Должность".cells(i,1)
next i

А потом то что они выберут мне нужно внести в лист
.cells(1,1)=dolgnosList.selected
вот так ?

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#5 01.08.2013 12:40:25 См. ответ Сергея (#3)

Niarah Пользователь Сообщений: 34 Регистрация: 14.05.2013	#6 01.08.2013 15:22:39 Спасибо большое! )

Sanya_Bars

Пользователь

Сообщений: 2 Регистрация: 09.02.2014

09.02.2014 08:52:04

Спасибо мало.....
Человек вопрос задал а вы ему так и не ответили а предложили свое решение
Ваш форум читает не только создатель темы но еще многие пользователи интернета по запросу в поисковике
а данное решение мне вот например не подходит
Мне нужно знать где я ошибся чтоб больше не повторять эти ошибки
Так что буду искать дальше в чем я ошибся

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#8 09.02.2014 09:11:13 Почему предложенное решение не подходит? И какая проблема у Вас - как проявляется ошибка?

Sanya_Bars

Пользователь

Сообщений: 2 Регистрация: 09.02.2014

09.02.2014 17:07:31

1.Я свою проблему решил
при создании массива ReDim newarr(...бла бла бла) VBA ругался .Compile error: Expected array
я ошибочно присвоил переменную as Range для массива newarr
замена переменнной на variant помогла... ну либо просто без объявления
2. мне в коде не нужен UserForm и выпадающий список, а нужен был именно массив для работы с данными, я просто скопировал его
из своего другого кода но там он работал а в новом нет. долго ломал голову. в старом коде Dim далеко в верху

я сам не программист и VBA недели 2 изучаю, так что много детских ошибок ни одного действия без интернета не получилось бы
щас появилось время и я пытаюсь облегчить себе жизнь при помощи VBA
очень часто ошибаюсь с синтаксисом

По поводу темы форума, меняем на variant массив и дальше начинает ругаться VBA "...пишет Type mismatch..."
дальше надо смотреть где собака порылась [IMG]
......посмотрел....поправте если я не прав чтоб применить ReDim Preserve rngY() нужно сначала создать ReDim rngY()
Niarah у Вас что-то в цикле напутано, у Вас условие выхода из цикла сравнение значения массива и номера предпоследней строки
такое совпадение редко может у Вас в ячейках буквы вообще
может rngY(i) = intROW - 1 заменить на i = intROW - 1 или rngY(i) = rngY(intROW - 1)
мне не понятна задача что вы хотите сделать с данными
может нужно просто попробовать другой ЦИКЛ

Софья Золкина

Пользователь

Сообщений: 14 Регистрация: 01.01.1970

#10

19.10.2015 16:06:26

Sanya_Bars, Спасибо тебе добрый человек. Я долго мучилась с этим "Type mismatch...".
мой исходник выглядел так:

Скрытый текст

Код

NG = 0
    For i = 1 To NS
        N = True
        If NG > 0 Then
        For j = 1 To NG
 
            If KonOl(i) = "...." And _
                KonT(i) = KonT1(j) And _
                KonL(i) = KonL1(j) And _
                KonM(i) = KonM1(j) And _
                KonH(i) = KonH1(j) Then
        N = False
            Q(j) = Q(j) + 1
            KonK1(j) = KonK1(j) + KonK(i)
            KonS1(j) = KonS1(j) + KonS(i)
        Exit For
            End If
    Next
        End If
    If N Then
        NG = NG + 1
        ReDim Preserve KonOlR(NG)
        ReDim Preserve Q(NG)
        ReDim Preserve KonM1(NG)
        ReDim Preserve KonT1(NG)
        ReDim Preserve KonL1(NG)
        ReDim Preserve KonH1(NG)
        ReDim Preserve KonK1(NG)
        ReDim Preserve KonS1(NG)
        ReDim Preserve Koni1(NG)
        KonOlR(NG) = KonOl(i)
        Q(NG) = 1
        KonK1(NG) = KonK(i)
        KonS1(NG) = KonS(i)
        KonM1(NG) = KonM(i)
        KonT1(NG) = KonT(i)
        KonL1(NG) = KonL(i)
        KonH1(NG) = KonH(i)
        Koni1(NG) = Koni(i)
         
    End If
    Next

После я решила применить ваше указание по поводу "сначала создать ReDim ", но подумав, получается без Preserve мой массив не сохраняет предыдущие вычисления с снова переопределяет массив. Немного подумав я решила обмануть программу и написала так. и все заработало:

Скрытый текст

Код

NG = 1
        ReDim KonOlR(NG)
        ReDim Q(NG)
        ReDim KonM1(NG)
        ReDim KonT1(NG)
        ReDim KonL1(NG)
        ReDim KonH1(NG)
        ReDim KonK1(NG)
        ReDim KonS1(NG)
        ReDim Koni1(NG)
    NG = NG - 1
    For i = 1 To NS
        N = True
        If NG > 0 Then
        For j = 1 To NG
'            If KonOl(i) = KonOlR(j) Then
            If KonOl(i) = "...." And _
                KonT(i) = KonT1(j) And _
                KonL(i) = KonL1(j) And _
                KonM(i) = KonM1(j) And _
                KonH(i) = KonH1(j) Then
        N = False
            Q(j) = Q(j) + 1
            KonK1(j) = KonK1(j) + KonK(i)
            KonS1(j) = KonS1(j) + KonS(i)
        Exit For
            End If
    Next
        End If
    If N Then
        NG = NG + 1
        ReDim Preserve KonOlR(NG)
        ReDim Preserve Q(NG)
        ReDim Preserve KonM1(NG)
        ReDim Preserve KonT1(NG)
        ReDim Preserve KonL1(NG)
        ReDim Preserve KonH1(NG)
        ReDim Preserve KonK1(NG)
        ReDim Preserve KonS1(NG)
        ReDim Preserve Koni1(NG)
        KonOlR(NG) = KonOl(i)
        Q(NG) = 1
        KonK1(NG) = KonK(i)
        KonS1(NG) = KonS(i)
        KonM1(NG) = KonM(i)
        KonT1(NG) = KonT(i)
        KonL1(NG) = KonL(i)

Удачи всем. Возможно мой опыт тоже кому-то поможет, как мне помог опыт Sanya_Bars.

Изменено: Софья Золкина - 19.10.2015 16:13:02

Читают тему