Создание диалогового окна определенного вида

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание диалогового окна определенного вида (Макросы/Sub)

Inna_27@08

Дата: Четверг, 04.12.2014, 23:29 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Здравствуйте! Помогите,пожалуйста,со следующей проблемой - возможно ли сделать так, чтобы при активации любой ячейки определенного столбца появлялось диалоговое окно (назовем его так) определенного вида (пример в Приложении) с возможностью выбора соответствующего значения (точка напротив нужного значения) с дальнейшим появлением данного значения в этой ячейке, то есть такое диалоговое окно должно появляться каждый раз, как только мы делаем активной именно любую ячейку данного столбца. Если это возможно, то помогите, пожалуйста, воплотить это в реальность. Выпадающий список не подходит, т.к. предложенные значения будут представлять собой не одно слово "текстовое", а слов 15 , поэтому выпадающий список не сможет все отразить. ЗАРАНЕЕ СПАСИБО!

К сообщению приложен файл: 1658478.xls (47.5 Kb)

Inna

Сообщение отредактировал Inna_27@08 - Четверг, 04.12.2014, 23:39

Ответить

SkyPro

Дата: Четверг, 04.12.2014, 23:44 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

В модуль листа:
[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

[/vba]