по справке ListBox    
SelCount отображает число выбранных пунктов элемента ListBox, если значение свойства MultSelect установлено равным 1 (Simple) или 2 (Extended). Обычно это свойство используют вместе с массивом Selected для работы с выбранными пунктами элемента  
 
как правильно прописать условие  
For i = 0 To Me.ListBox1.ListCount - 1  
If Me.ListBox1.SelCount(i) > 0 Then ....  дает ошибку  
 
 
и второй вопрос можно ли так еще на основе ListIndex  
If Me.ListBox1.ListIndex = -1 Then ....  
If Me.ListBox1.ListIndex >= 0 Then ...

Пытаюсь с помощью Combobox и Listbox  
сделать группы и подгруппы из строки таблицы  
 
Сделала по примеру с форума макрос  в Private Sub ComboBox1_Change()  
он показывает только одно значение в группе а нужно несколько  
 
вроде все правильно но не работает как надо  
 
пример выложила

как в 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  
 
выделяет и в ошибку уходит

есть табличка заношу туда значения из Сombobox значений много  
а вносятся через Сombobox по одному  
 
есть ли решение какое чтоб вносить группой  
вылазят данные из Сombobox  
нужные несколько отмечаешь "птичкой"  
и вносишь одновременно  
или по другому как-то отмечаешь несколько значений  
 
по поиску чтото не нашла  
пример может где есть посмотреть ?

в формах есть параметр ControlTipText    
отображается как примечание но только в одну строчку  
 
ввела длинный текст он на весь экран в одну строчку  
 
как с переносом в 2 или больше строчки разбить текст  
чтобы он показывался в 2 и более строчки ?

как создать макрос в поле формы по нажатию на "крестик"  
который закрывает форму  
нужно условие туда прописать

из одной ячейки E3 макрос вызывается а из обьединенной с соседней E3:F3  нет  
 
Для примера  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
If Target.Cells.Count > 1 Then Exit Sub  
If Not Application.Intersect(Range("E3:E3"), Target) Is Nothing Then  
If ActiveCell.Value <> "" Then  
MsgBox "Проверка"  
End If  
End If  
End Sub  
 
пробую  
If Not Application.Intersect(Range("E3:F3"), Target) Is Nothing Then  
толку нет  
 
что можете посоветовать ?

как будет выглядеть макрос на лист изменение размера шрифта в заданной ячейке  
то есть если шрифт влезает в 1 строку в видимую часть ячейки то его размер 13  
если только в 2 строки влезает - то 12  
если в 3 строки -то 10

вопрос такой - можно ли сделать чтобы примечание выходило    
не в правом верхнем углу а в левом  
 
или как вариант при появлении примечания в правом углу сместить его влево  
 
дело в том что ячейка с примечанием у меня в левом углу экрана и при его появлении уходит влево (не видно получается примечания) ?

В книге 3 лист - образец; в нем прописан образец форматирования по тексту в требуемом диапазоне  
 
если в 1 и 2 листе набрать такойже текст то форматируется по образцу 3 листа - текст;цвет ячейки и тд  но чтото с заданием диапазона глюки  
 
Помогите поправить пожалуйста

Куда поставить MsgBox в формуле  
Private Sub CommandButton1_Click()  
Dim wb As Workbook  
On Error Resume Next ' На случай, если книга, лист переименованы(удалены) после экспорта  
Set wb = GetObject(Me.[a1].Value)
Windows(wb.Name).Visible = True  
wb.Sheets(Me.Name).Activate  
End Sub  
 
был  вариант от RAN но он на End If ругается  
 
Private Sub CommandButton1_Click()  
Dim wb As Workbook  
Private Sub CommandButton1_Click()    
Dim wb As Workbook    
Set wb = GetObject(Me.[a1].Value)
Windows(wb.Name).Visible = True    
If wb Is Nothing Then    
On Error GoTo err_    
wb.Sheets(Me.Name).Activate    
Exit Sub    
err_:    
MsgBox "Нет такого листа ! Лист не создан либо переименован либо удален." & vbCrLf & "", 48, "Нет такого листа !"    
wb.Close False    
   
End Sub

Создать новую книгу по образцу - присвоить требуемое имя  и сохранить в требуемую директорию  
как это сделать 2 макросами - 1-й на создание книги с треб именем  
2 - на сохранение в требуемую директорию  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Столкнулась с проблемой  
 
Макрос должен создавать папку в той же директории где лежит этот файл  
Не могу решить проблему  
 
Макрос должен создавать папку в той же директории где лежит этот файл  
Наименование созданной папки дб такое (состоять из)  - наименование текущего АКТИВНОГО листа / значение С4 тек листа / значение D4 тек листа  
 
Нашла макрос но он не подходит под условия  
Sub Papka()  
'pathDir = "D:\" & Sheets("1").Range("C4").Range("D4").Value  
pathDir = "D:\" & Sheets("1").Range("C4").Value  
If Dir(pathDir, vbDirectory) = "" Then  
MkDir pathDir  
End If  
CreateObject("Shell.Application").Explore pathDir  
End Sub

В табличке по опред последнему тексту в колонке изменяется цвет ярлыка Не знаю как сделать