Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/ОШИБКА - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ОШИБКА (Макросы Sub)
ОШИБКА
Fireman92 Дата: Понедельник, 15.07.2013, 11:18 | Сообщение № 1
Группа: Заблокированные
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 100% ±

Excel 2007
ДОБРЫЙ ДЕНЬ. ГДЕ ЗДЕСЬ ОШИБКА.
[vba]
Код
Private Sub TextBox5_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
l = 1
Form.TextBox7.Text = ""
Form.TextBox6.Text = ""
lst.ListBox1.Tag = "d"
Dim ArrRR(1 To 500)
For ii = 1 To 500
If Form.TextBox3.Text = Worksheets("âàðèàíòû").Range("B" & ii).Value Then
ArrRR(l) = Worksheets("âàðèàíòû").Range("D" & ii).Value
l = l + 1
End If
Next
For i = 1 To l
lst.ListBox1.AddItem "" 'ВОТ ЗДЕСЬ ОШИБКА
lst.ListBox1.List(i - 1) = ArrRR(i)
Next
lst.Show
End Sub
[/vba]

[admin]Тема закрыта. Причина - Нарушение правил форума, пп 2,3[/admin]
 
Ответить
СообщениеДОБРЫЙ ДЕНЬ. ГДЕ ЗДЕСЬ ОШИБКА.
[vba]
Код
Private Sub TextBox5_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
l = 1
Form.TextBox7.Text = ""
Form.TextBox6.Text = ""
lst.ListBox1.Tag = "d"
Dim ArrRR(1 To 500)
For ii = 1 To 500
If Form.TextBox3.Text = Worksheets("âàðèàíòû").Range("B" & ii).Value Then
ArrRR(l) = Worksheets("âàðèàíòû").Range("D" & ii).Value
l = l + 1
End If
Next
For i = 1 To l
lst.ListBox1.AddItem "" 'ВОТ ЗДЕСЬ ОШИБКА
lst.ListBox1.List(i - 1) = ArrRR(i)
Next
lst.Show
End Sub
[/vba]

[admin]Тема закрыта. Причина - Нарушение правил форума, пп 2,3[/admin]
Автор - Fireman92
Дата добавления - 15.07.2013 в 11:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » ОШИБКА (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!