With UserForm1
If CheckBox1.Value = True Then
= ""
Else
= ""
End If
If CheckBox2.Value = True Then
= ""
Else
= ""
End If
End With
With Sheets("1")
.Cells(1, 1) =
.Cells(2, 1) =
End With
End Sub
4. , . 1 .
:
| CommandButton1 |
| ListBox1 |
| CommandButton2 |
:
| CommandButton1 | Caption | |
| CommandButton2 | Caption |
:
Private Sub CommandButton2_Click()
End
End Sub
:
Option Explicit
Private Sub CommandButton1_Click()
ListBox1.Clear
ListBox1.AddItem ""
ListBox1.AddItem ""
ListBox1.AddItem ""
End Sub
ListBox1.Clear, AddItem.
1 :
Private Sub ListBox1_Click()
Cells(1, 1) = ListBox1
End Sub
5. , . 1 .
:
| ComboBox1 |
| CommandButton1 |
| CommandButton2 |
:
| CommandButton1 | Caption | |
| CommandButton2 | Caption |
:
Private Sub CommandButton2_Click()
End
End Sub
:
Private Sub CommandButton1_Click()
Dim As String
With UserForm1
=.ComboBox1
End With
With Sheets("1")
.Cells(1, 1) =
End With
End Sub
:
Option Explicit
Private Sub UserForm_Initialize()
ComboBox1.AddItem ""
ComboBox1.AddItem ""
ComboBox1.AddItem ""
ComboBox1.Style = fmStyleDropDownList
End Sub
6. , , , 1.
:
| TextBox1 |
| CommandButton2 |
| SpinButton1 |
:
| CommandButton1 | Caption | |
| CommandButton2 | Caption |
|
|
|
:
Private Sub CommandButton2_Click()
End
End Sub
1:
Private Sub CommandButton3_Click()
Cells(1, 1) = TextBox1
End Sub
:
Private Sub SpinButton1_Change()
TextBox1.Text = CStr(SpinButton1.Value)
End Sub
, CStr.
:
Private Sub TextBox1_Change()
SpinButton1.Value = Cint(TextBox1.Text)
End Sub
, Cint.
.
.14 15
.
 |
.14
 |
:
.15
, :
Sub ()
UserForm1.Show
End Sub
:
. .
1
2
-
3
-
| - | . - | . | - | |||
| - | ||||||
4
| , | |||
5
| , , | - | ||
6
| , | |||
7
8
9
10
|
|
|
11
| , , | |||
12
| - | |||
13
