VBA-20170207-做成中



Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()
    Unload 表示期間
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_queryclose(cancel As Integer, closemode As Integer)

    If closemode = 0 Then
        cancel = True
    End If
End Sub

------------------------------------------------------

        表示期間.ComboBox1.FontSize = 12
    Dim i As Integer
   
    For i = 1 To 24
        表示期間.ComboBox1.AddItem i
    Next
    '表示期間.ComboBox1.Style = 2
   ' 表示期間.ComboBox1.Height = 30

   
    表示期間.Show

--------------------------------------------