Excel

[dr.dimm]

Подскажите, можно ли в экселе написать функцию, которая бы добавляла элемент, combobox например, на пустую форму, с указанием параметров расположения и других ? Если да, но можно ли увидеть пример?

Думаю как не рисовать 40 форм, а каждый раз вызывать одну, но с разными параметрами.

[maksim_serg]

With UserForm1.Controls.Add("Forms.ComboBox.1")
.Left = 50
.Top = 50
.Name = "Combobox1"
'и т.д. и т.п.
End With

[dr.dimm]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      Column = Target.Column
      Row = Target.Row
      If Column = 23 And Row = 173 Then
      Target.Font.Name = "Marlett"
      Cancel = True
          If Target = "a" Then
              Target = ""
          Else
              Target = "a"
          End If
      End If
End Sub

Макрос ставит галку по двойному клику, но если ячейка объединенная, вылетает ошибка Помогите пожалуйста это исправить.

[IgorGO]

          If Target.Cells(1) = "a" Then
              Target = ""
          Else
              Target.Cells(1) = "a"
          End If

[dr.dimm]

Подскажите, можто в VBA вместо

With UserForm1.Controls.Add("Forms.ComboBox.1")

Писать

With UserForm1.Controls.Add("Forms.ComboBox.(n)")

(n=1)

Хочу сделать что то такое:

Dim n As Integer
Function SetGlobal()
n = 1
End Function
Function Add()
    With UserForm1.Controls.Add("Forms.ComboBox.(n)")
        .Name = "ComboBox(n)"
    End With
End Function

[Казанский]

Попробуйте

Private Sub UserForm_Initialize()
Dim i&
For i = 1 To 3
  With Me.Controls.Add("Forms.ComboBox.1", "Combobox" & i)
    .Top = i * 20
    'другие свойства
  End With
Next
End Sub

[dr.dimm]

Спасибо, но хотелось бы с использованием глобальных переменных, и функции. Типа нажал кнопку "+" добавился комбо бокс в форму.

С циклом тоже можно, наверное так сделаю, если не будет больше предложений.

[IgorGO]

как говорили у нас, в мужской балетной школе, "одно другому не мешает".
Вам показали как сделать то, что Вы пытались сделать. пользуйтесь...

[dr.dimm]

Вот еще вопрос: Пытаюсь добавить контрол на форму через код, но не молучается В чем у меня ошибка:

Private Sub UserForm_Initialize()
    Dim cControl As Control
    Set cControl = Me.Controls.Add("Forms.CheckBox.20", "ComboBox20", True)
    With cControl
        .Width = 150
        .Height = 50
        .Top = 20
        .Left = 20
        .ZOrder (0)
    End With
End sub

(Текст ошибки: недопустимая строка с названием класса)

[IgorGO]

а так:

Set cControl = Me.Controls.Add("Forms.CheckBox.1", "ComboBox20", True)

и еще вопрос, что у Вас в школе по логике было?
добавляете CheckBox, а называете его ComboBox20... это случайно, или специально?