Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 3 След.
RSS
ListBox выделение списка
 
#1
24.11.2011 10:08:12
как в ListBox выделить ВСЕ элементы списка по нажатию кнопки  
 
Пробовала  
Private Sub CommandButton1_Click()  
Dim i&  
Me.ListBox1.MultiSelect = fmMultiSelectMulti  
For i = 0 To Me.ListBox1.ListCount  
Me.ListBox1.Selected(i) = True  
Next  
End Sub  
 
выделяет и в ошибку уходит
 
 
 
#2
24.11.2011 10:22:55
-1 забыли...  
 
Private Sub CommandButton1_Click()  
   Dim i&  
   Me.ListBox1.MultiSelect = fmMultiSelectMulti  
   For i = 0 To Me.ListBox1.ListCount - 1  
       Me.ListBox1.Selected(i) = True  
   Next  
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
24.11.2011 10:32:03
все получилось спасибо
 
 
 
#4
24.11.2011 18:49:49
еще небольшой вопрос по этой теме  
 
 
можно ли по 2 щелчку на эту же кнопку    
снять выделение в ListBox  
чтоб 2 кнопку не создавать ?
 
 
 
#5
24.11.2011 18:58:09
Можно.  
Сделайте публичную переменную типа boolen, сразу по клику меняйте её статус  
flag=not flag  
а далее  
Me.ListBox1.Selected(i) = flag
 
 
 
#6
24.11.2011 19:01:54
публичную переменную flag as boolean
 
 
 
#7
24.11.2011 19:23:41
Private Sub CommandButton1_Click()  
Dim i&, flag As Boolean  
flag=not flag  
Me.ListBox1.Selected(i) = flag  
Me.ListBox1.MultiSelect = fmMultiSelectMulti  
For i = 0 To Me.ListBox1.ListCount - 1  
Me.ListBox1.Selected(i) = True  
Next  
End Sub  
 
для меня это темный лес  
так не получилось
 
 
 
#8
24.11.2011 19:33:43
Public flag As Boolean  
вынесите первой строкой модуля, или даже в отдельный стандартный модуль.  
Т.е. должно быть примерно так (лучше бы сделали небольшой пример в файле):  
 
Public flag As Boolean  
 
Private Sub CommandButton1_Click()  
Dim i&  
flag = Not flag  
Me.ListBox1.MultiSelect = fmMultiSelectMulti  
For i = 0 To Me.ListBox1.ListCount - 1  
Me.ListBox1.Selected(i) = flag  
Next  
End Sub
 
 
 
#9
24.11.2011 19:47:06
я уж тут наворотила по примеру из форума  
 
Dim flag As Boolean  
 
Private Sub CommandButton1_Click()  
Dim i&  
If flag Then  
Me.ListBox1.MultiSelect = fmMultiSelectMulti  
For i = 0 To Me.ListBox1.ListCount - 1  
Me.ListBox1.Selected(i) = True  
Next  
flag=not flag  
Else  
Me.ListBox1.MultiSelect = fmMultiSelectMulti  
For i = 0 To Me.ListBox1.ListCount - 1  
Me.ListBox1.Selected(i) = False  
flag=not flag  
Next  
End If  
End Sub  
 
 
ваш код работает благодарю  
только пришлось перенести макрос с Dim flag As Boolean  
на самый верх
 
 
 
#10
24.11.2011 20:31:21
Вариант проще: ЧекБокс или две радиокнопки (выделить всё/снять всё) и не нужна переменная. Можно ещё ToggleButton, но не очень наглядно (это мне так кажется).
 
 
 
#11
24.11.2011 23:16:11
И впрямь наворотили... можно проще - как выше код написан :)  
Я тут взял недавний файл Мули с листбоксом - на нём сделал.
 
 
 
#12
24.11.2011 23:22:09
Я бы ещё Caption кнопки менял :-)
 
 
 
#13
24.11.2011 23:32:12
Дык я ж его поменял :)  
Глубже рыть не стал - поудалял явно для этой задачи лишнее, и Caption.  
Название макроса не менял, это да...
 
 
 
#14
24.11.2011 23:36:39
Игорь, я именно про "менять", а не "поменял": когда все выбраны - "Снять выделение", иначе - "Выбрать все" :-)
 
 
 
#15
24.11.2011 23:42:19
Да понял уже, но поздно... Слово тут не воробей :)
 
 
 
#16
25.11.2011 00:36:42
еще вопрос про listbox если можно  
как запретить пользователю в листбоксе отмечать одновременно (за 1 раз)более 2 пунктов  
в свойствах чтото есть или макросом ?
 
 
 
#17
25.11.2011 00:41:38
макросом
 
 
 
#18
25.11.2011 00:42:29
Макросом: по клику считать количество уже выделенных.
 
 
 
#19
25.11.2011 02:13:24
По первому вопросу: можно выделять все и снимать выделение без цикла (делал здесь для ускорения процесса при очень длинном списке):  
Снять выделение со всех элементов:  
 
ListBox1.MultiSelect = fmMultiSelectSingle  
ListBox1.MultiSelect = fmMultiSelectExtended  
 
Выделить все:  
 
ListBox1.SetFocus  
Application.SendKeys "^{Home}^+{End}"  
 
Мож кому пригодится :)
 
 
 
#20
26.11.2011 10:53:05
сделала так  
 
Private Sub CommandButton1_Click()  
For i = 0 To UBound(ListBox1.List)  
If ListBox1.Selected(i) = True And Len(i) < 2 Then  
ActiveCell.Value = ListBox1.List(i)  
End If  
If ListBox1.Selected(i) = True And Len(i) > 2 Then  
MsgBox "Только 1 пункт из списка"  
End If  
Next  
End Sub  
 
но почемуто не считает
 
 
 
#21
26.11.2011 11:06:31
А что должно считаться?
 
 
 
#22
26.11.2011 11:15:26
Private Sub CommandButton1_Click()  
Dim i As Integer, x As Integer  
   For i = 0 To Me.ListBox1.ListCount - 1  
       If Me.ListBox1.Selected(i) = True Then x = x + 1  
       If x > 2 Then  
           MsgBox "Не может быть выбрано более двух поизций.", 64, " Во как!"  
'            Me.ListBox1.Selected(i) = False'Если нужно сбросить лишнюю позицию  
           Exit Sub  
       End If  
   Next  
End Sub
 
 
 
#23
26.11.2011 11:30:26
А действительно, почему оба условия выполняются, а строка    
If ListBox1.Selected(i) = True And Len(i) > 2 Then  
нет?
 
 
 
#24
26.11.2011 11:53:17
А какой смысл вычислять длину переменной (i)?
 
 
 
#25
26.11.2011 12:04:47
То, что нет нужды в Len(i) я понял сразу.  
Мой вопрос не по теме, а относительно конкретного условия  
Почему работает это  
If ListBox1.Selected(i) = True And i = 2 Then  
и это  
a = ListBox1.Selected(i)  
aa = Len(i)  
bb = a And aa  
If bb = 2 Then  
а это - нет?  
If ListBox1.Selected(i) = True And Len(i) > 2 Then
 
 
 
#26
26.11.2011 12:08:59
Вопрос снят!  
Глазки протер плохо. (
 
 
 
#27
26.11.2011 12:09:02
Потому, что при условии, что i - Integer, она (переменная) не может быть > 2.
 
 
 
#28
26.11.2011 12:16:09
Почему не может?  
i = 153  
a = Len(i) =3  
Но столько строк нет  
и Len(i) > 2 не выполняется  
Я > и >= попутал!
 
 
 
#29
26.11.2011 12:20:27
Sub Test()  
Dim i As Integer    
'Dim i As Double    
For i = 1 To 10000  
   If i = 9999 Then MsgBox Len(i)'При Integer здесь будет 2, а при Double будет 8  
Next  
End Sub
 
 
 
#30
26.11.2011 12:22:38
{quote}{login=RAN}{date=26.11.2011 12:16}{thema=}{post}Я > и >= попутал!{/post}{/quote}А при >= 2 всегда будет ИСТИНА.
 
 
 
Страницы: 1 2 3 След.
Читают тему
Наверх