Run time error 381 vba excel

kacagevici

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

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

Уважаемые гуру при нажатии клавиш del,backspace,escape(чтобы очистить форму) combo box активен выдает ошибку следующего типа:  
run-time error ‘381’: Could not get the List property.Invalid property array index.  

  Вот код из user form:  

  Option Explicit  
Private Sub Combobox1_Change()  
Dim iSotrud As String  
   iSotrud = Me.ComboBox1.List(Me.ComboBox1.ListIndex)  
    If ActiveSheet.AutoFilterMode Then  
   Range(«b1»).AutoFilter Field:=2, Criteria1:=iSotrud  
   End If  
   UserForm2.StartUpPosition = 2  
End Sub  
Private Sub CommandButton1_Click()  
Selection.AutoFilter Field:=2  
End Sub  
Private Sub UserForm_Initialize()  
   Dim AllCells As Range, Cell As Range  
   Dim NoDupes As New Collection  
   Dim i As Integer, j As Integer  
   Dim Swap1, Swap2, Item  
   Set AllCells = Range(«b2:b» & Cells(Rows.Count, 2).End(xlUp).Row)  
   On Error Resume Next  
   For Each Cell In AllCells  
       NoDupes.Add Cell.Value, CStr(Cell.Value)  
   Next Cell  
   On Error GoTo 0  
   For i = 1 To NoDupes.Count — 1  
       For j = i + 1 To NoDupes.Count  
           If NoDupes(i) > NoDupes(j) Then  
               Swap1 = NoDupes(i)  
               Swap2 = NoDupes(j)  
               NoDupes.Add Swap1, before:=j  
               NoDupes.Add Swap2, before:=i  
               NoDupes.Remove i + 1  
               NoDupes.Remove j + 1  
           End If  
       Next j  
   Next i  
   For Each Item In NoDupes  
       UserForm2.ComboBox1.AddItem Item  
   Next Item  
End Sub  

  почему не получается очистить форму ?  
где ошибка?

The_Prist

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

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

Профессиональная разработка приложений для MS Office

kacagevici

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

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

да на строке  
iSotrud = Me.ComboBox1.List(Me.ComboBox1.ListIndex)

The_Prist

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

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

Профессиональная разработка приложений для MS Office

{quote}{login=kacagevici}{date=07.10.2010 03:27}{thema=}{post}да на строке  
iSotrud = Me.ComboBox1.List(Me.ComboBox1.ListIndex){/post}{/quote}И? Я ж написал, что сделать.

kacagevici

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

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

{quote}{login=The_Prist}{date=07.10.2010 03:29}{thema=Re: }{post}{quote}{login=kacagevici}{date=07.10.2010 03:27}{thema=}{post}да на строке  
iSotrud = Me.ComboBox1.List(Me.ComboBox1.ListIndex){/post}{/quote}И? Я ж написал, что сделать.{/post}{/quote}  

  Option Explicit  
Private Sub Combobox1_Change()  
Dim iSotrud As String  
   iSotrud = Me.ComboBox1.List(Me.ComboBox1.ListIndex = -1)  
    If ActiveSheet.AutoFilterMode Then  
   Range(«b1»).AutoFilter Field:=2, Criteria1:=iSotrud  
   End If  
   UserForm2.StartUpPosition = 2  
End Sub  
Private Sub CommandButton1_Click()  
Selection.AutoFilter Field:=2  
End Sub  
Private Sub UserForm_Initialize()  
   Dim AllCells As Range, Cell As Range  
   Dim NoDupes As New Collection  
   Dim i As Integer, j As Integer  
   Dim Swap1, Swap2, Item  
   Set AllCells = Range(«b2:b» & Cells(Rows.Count, 2).End(xlUp).Row)  
   On Error Resume Next  
   For Each Cell In AllCells  
       NoDupes.Add Cell.Value, CStr(Cell.Value)  
   Next Cell  
   On Error GoTo 0  
   For i = 1 To NoDupes.Count — 1  
       For j = i + 1 To NoDupes.Count  
           If NoDupes(i) > NoDupes(j) Then  
               Swap1 = NoDupes(i)  
               Swap2 = NoDupes(j)  
               NoDupes.Add Swap1, before:=j  
               NoDupes.Add Swap2, before:=i  
               NoDupes.Remove i + 1  
               NoDupes.Remove j + 1  
           End If  
       Next j  
   Next i  
   For Each Item In NoDupes  
       UserForm2.ComboBox1.AddItem Item  
   Next Item  
End Sub  

    -1 я поставил а остальное подскажи пожалуйста в какую строку ).

The_Prist

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

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

Профессиональная разработка приложений для MS Office

kacagevici

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

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

{quote}{login=The_Prist}{date=07.10.2010 03:42}{thema=}{post}Вот же блин…не так Вы все поняли. На фиг не надо -1.  

  Private Sub Combobox1_Change()  
If Me.ComboBox1 = «» then exit sub  
Dim iSotrud As String  
iSotrud = Me.ComboBox1.List(Me.ComboBox1.ListIndex){/post}{/quote}  
думаю быстрее будет только с файлом )))  
а то выдает только ошибки.

ZVI

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

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

Попробуйте такой вариант для ComboBox1_Change:  

  Private Sub ComboBox1_Change()  
 On Error Resume Next  
 Dim s As String  
 s = ComboBox1.Value  
 With ActiveSheet  
   If .AutoFilterMode Then  
     If Len(s) = 0 Then  
       .ShowAllData  
     Else  
       .AutoFilter.Range.AutoFilter 2, s  
     End If  
   End If  
 End With  
 ‘UserForm2.StartUpPosition = 2  
End Sub

kacagevici

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

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

#9

08.10.2010 10:02:41

{quote}{login=ZVI}{date=08.10.2010 05:17}{thema=}{post}Попробуйте такой вариант для ComboBox1_Change:  

  Private Sub ComboBox1_Change()  
 On Error Resume Next  
 Dim s As String  
 s = ComboBox1.Value  
 With ActiveSheet  
   If .AutoFilterMode Then  
     If Len(s) = 0 Then  
       .ShowAllData  
     Else  
       .AutoFilter.Range.AutoFilter 2, s  
     End If  
   End If  
 End With  
 ‘UserForm2.StartUpPosition = 2  
End Sub{/post}{/quote}  

    то что надо! спасибо огромное!

• 
• VBForums
• Visual Basic
• Office Development
• [RESOLVED] Run-Time Error 381

1. Aug 14th, 2006, 02:58 PM

   
   

   #1

   

   Thread Starter

   
   New Member
   

   

   ---

   [RESOLVED] Run-Time Error 381
   

   Hello. I am using VBA for Excel 2003. I am trying to loop through a list of items in a listbox one by one to see if any of the entries in the listbox equal a certain value. I’ve got the loop part sorted out, and have placed each list entry into a variable to be tested one by one. Part of the code is shown below (code is shown in blue, comments in green):For lstIndex = 0 To List1.ListCount
   ‘ For lstIndex 0 to the number of entries in the listboxCheckEntry = List1.List(lstIndex)
   ‘ Move the list entry into the variable «CheckEntry» where the particular list entry is defined by lstIndex which increments of course by 1 every time the loop runsIf CheckEntry = «Hello»lstFinalWordList.AddItem CheckWord
   ‘ Output the Value of «Checkword» to another list box if the condition is metEnd IfNext lstIndex

   The problem is when the loop reaches the last entry in the listbox and tries to put it into the variable «CheckEntry», The following error occurs:

   Run-time error ‘381’:
   Could not get the List Property. Invalid property array index.

   I dont understand how the loop works for all but the last item in the listbox. It dosent matter whether or not i use the ListCount property to indicate the end of the list or if i use a standard number, the same error occurs. The Line of code the program dosent like for the last listbox entry is of course:

   CheckEntry = List1.List(lstIndex)

   I would appreciate any help offered to solve this problem. Thankyou.

   ---

2. Aug 14th, 2006, 04:13 PM

   
   

   #2

   Re: Run-Time Error 381
   

   Suppose you have 3 items.

   The list starts at 0. Therefore the index of item 1 is 0. Therefore the index of item 2 is 1. The index of item 3 is 2.

   Hence you don’t want to loop to list1.listcount, because the listcount is 3, but there is no item three. The last item is number 2.

   Understand?

   zaza

   ---

3. Aug 14th, 2006, 04:34 PM

   
   

   #3

   

   Thread Starter

   
   New Member
   

   

   ---

   Re: Run-Time Error 381
   

   Yeh good call zaza, thanks a lot, i forgot about that. That explains why it didnt work even when i used a standard number instead of using the listcount property. Cheers.

   ---

• 
• VBForums
• Visual Basic
• Office Development
• [RESOLVED] Run-Time Error 381

Posting Permissions