| Вопрос: ПОМОГИТЕсСозданием USERFORM в VBA в Excel,не рукам | Добавлено: 01.02.07 11:18 |
Автор вопроса:  Alex
|
|
Убедительная просьба сам столкнулся с этим в первый раз. Обычно создавал вручную в vba excel.
Но на этот раз нужно создать USERFORM1 при помощи макроса ,т.е. модулем или как нибудь ещё, но не вручную инсерт USERFORM. В конечном итоге после запуска макроса форма должна сама создаться потом запуститься и дальше я сам подторкну свой код. Только не спрашивайте зачем это , т.к. одним письмом не ответить. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Konstantin Вопросов: 7 Ответов: 12 |
Профиль | Цитата | #1 | Добавлено: 05.02.07 17:14 |
|
Попробуй так.
Private Sub UserForm_Activate()  im rng As Range
Set rng = ActiveWindow.ActiveCell im c As String
c = ActiveWindow.ActiveSheet.Name If ActiveWindow.ActiveSheet.Name = "лист1" Then If Not (Application.Intersect(rng, Range("….:…."  ) Is Nothing) Then
UserForm1.Caption = "______________" UserForm1.Width = "250" UserForm1.Height = "450" ListBox1.Width = "250" ListBox1.ColumnWidths = "35;85;130" ListBox1.Height = "450" ListBox1.ColumnCount = 3 ListBox1.RowSource = "лист1!...:…." ListBox1.MultiSelect = fmMultiSelectSingle ElseIf Not (Application.Intersect(rng, Range("….:…" ) Is Nothing) Then
UserForm1.Caption = "_____________" UserForm1.Width = "320" UserForm1.Height = "440" ListBox1.Width = "320" ListBox1.ColumnWidths = "20;300" ListBox1.Height = "440" ListBox1.ColumnCount = 2 ListBox1.RowSource = " лист1!...:…." ListBox1.MultiSelect = fmMultiSelectSingle Else UserForm1.Hide MsgBox "Íåò çíà÷åíèé", vbOKOnly End If End Sub |
||
Страница: 1 |