ComboBox по клику в ячейке Excel?

[Deja-vu]

Мир всем!
У меня задача - по клику в к-либо ячейке Excel появляется combobox в той же ячейке (желательно, чтобы он по размерам также был как и ячейка). Я выбираю в списке к-либо вариант. Как только я по нему кликнул, комбобокс исчезает, а в ячейке остается то, что я выбрал.

Ну, комбобокс я могу создать.
Не могу врубиться, как его вызвать именно в ячейку??
Кто-нибудь, подскажите пожалуйста.

[Stas-ka]

А зачем париться и делать комбобоксы? Не проще сделать проверку по списку допустимых значений (Меню Данные-Проверка, выбрать Список значений), которые уже перечислены где-то на листе. По-моему, тебе это подойдёт.

[Brudda]

Привет.
А ты не хочешь сделать так:
свойство ShowDropButtonWhen установить 1 - fmShowDropButtonWhenFocus.
ComboBox будет выглядеть как поле TextBox а при помещении в него курсора - как ComboBox
Ну, а размеры и расположение или ручками, или через свойства Top, Left, Width, Height.
Brudda

[Deja-vu]

Brudda
Stas-ka
Спасибо вам за хорошие советы. Но у меня цель вот какая. Чтобы в любой ячейке, где юзер кликнет в excel вызвался combobox и он мог бы выбрать по списку информацию... Дело в том, что очень много вариантов есть... их невозможно впихнуть иным путем, иначе бедный юзер все напутает.
Может быть, хоть кто-то имеет идеи, как узнать экранные координаты ячейки, где находится в даный момент курсор?

[Димитрий]

combobox можно разместить в контекстном меню или своём Popupmenu, вызываемым правой кнопкой.
И тогда можно не искать положение курсора.

[Deja-vu]

Димитрий А контекстное меню можно сделать так, чтобы в excel работало, да? В смысле, я могу добавить к этому меню свою строку, и подменю, чтобы юзер мог выбрать?
А можно ли это меню изменять динамически, то есть, в зависимости от того, на какую ячейку юзер кликнул?
Если это так, то это очень даже хороший вариант!

[Димитрий]

Посмотри пример
http://dimit.pochta.ru/excel/meny_combo.zip
Добавить свои пункты можно во все командные панели Excel,
в том числе и Popup(всплывающие).

[Deja-vu]

Димитрий
Ух ты! Спасибо большое за пример, Димитрий! Очень подходит. А где можно еще инфу найти об этом? Хочу добавить второй комбобокс в меню, и немного настроить его. И кое что не совсем понятно, как работает... Вы откуда инфу черпали?

[Димитрий]

Джон Уокенбах "Профессиональное прграмирование на VBA в Excel 2002"

[AlexMin]

ЛОВИ:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If (Selection.Column = n) And (Selection.row = m) _
Then
cbox.Clear
cbox.AddItem ....
cboxSlot.Left = Selection.Left
cboxSlot.Top = Selection.Top
cboxSlot.Visible = True
Cancel = True
End If
End Sub

' cbox
Private Sub cbox_Change()
If cbox.Visible Then
Selection.FormulaR1C1 = cboxSlot.Text
cbox.Visible = False
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If cbox.Visible Then cbox.Visible = False
End Sub

[AlexMin]

РЕДАКЦИЯ, НО СМЫСЛ ПОНЯТЕН
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If (Selection.Column = n) And (Selection.row = m) _
Then
cbox.Clear
cbox.AddItem ....
cbox.Left = Selection.Left
cbox.Top = Selection.Top
cbox.Visible = True
Cancel = True
End If
End Sub

' cbox
Private Sub cbox_Change()
If cbox.Visible Then
Selection.FormulaR1C1 = cbox.Text
cbox.Visible = False
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If cbox.Visible Then cbox.Visible = False
End Sub

[Deja-vu]

Ух ты, мужики, спасибо большое! Хорошие люди на этом форуме.