Здравствуйте! Помогите,пожалуйста,со следующей проблемой - возможно ли сделать так, чтобы при активации любой ячейки определенного столбца появлялось диалоговое окно (назовем его так) определенного вида (пример в Приложении) с возможностью выбора соответствующего значения (точка напротив нужного значения) с дальнейшим появлением данного значения в этой ячейке, то есть такое диалоговое окно должно появляться каждый раз, как только мы делаем активной именно любую ячейку данного столбца. Если это возможно, то помогите, пожалуйста, воплотить это в реальность. Выпадающий список не подходит, т.к. предложенные значения будут представлять собой не одно слово "текстовое", а слов 15 , поэтому выпадающий список не сможет все отразить. ЗАРАНЕЕ СПАСИБО!
Здравствуйте! Помогите,пожалуйста,со следующей проблемой - возможно ли сделать так, чтобы при активации любой ячейки определенного столбца появлялось диалоговое окно (назовем его так) определенного вида (пример в Приложении) с возможностью выбора соответствующего значения (точка напротив нужного значения) с дальнейшим появлением данного значения в этой ячейке, то есть такое диалоговое окно должно появляться каждый раз, как только мы делаем активной именно любую ячейку данного столбца. Если это возможно, то помогите, пожалуйста, воплотить это в реальность. Выпадающий список не подходит, т.к. предложенные значения будут представлять собой не одно слово "текстовое", а слов 15 , поэтому выпадающий список не сможет все отразить. ЗАРАНЕЕ СПАСИБО!Inna_27@08
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target(1), Range("A:A")) Is Nothing Then UserForm1.Show End If End Sub
[/vba]
Форма с одной CommandButton, и тремя OptionButton на одном Frame.
В модуле формы: [vba]
Код
Private Sub CommandButton1_Click() For Each c In UserForm1.Frame1.Controls If c.Value = True Then ActiveCell.Value = c.Caption Next Unload UserForm1 End Sub
[/vba]
В модуль листа: [vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target(1), Range("A:A")) Is Nothing Then UserForm1.Show End If End Sub
[/vba]
Форма с одной CommandButton, и тремя OptionButton на одном Frame.
В модуле формы: [vba]
Код
Private Sub CommandButton1_Click() For Each c In UserForm1.Frame1.Controls If c.Value = True Then ActiveCell.Value = c.Caption Next Unload UserForm1 End Sub