- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
12#
發表於 2013-3-26 13:24
| 只看該作者
回復 9# Jared - 這個月的第一天 DateSerial(ComboBox1, ComboBox2, 1)
- 這個月的最後一天 DateSerial(ComboBox1, ComboBox2.Value + 1, 0)
- Option Explicit
- Dim Class_OB(1 To 7, 1 To 6) As New Class1
- Private Sub UserForm_Initialize()
- Dim I As Integer
- 日期項
- For I = 1980 To 2099
- ComboBox1.AddItem I
- Next
- ComboBox1.Value = Year(Date)
- For I = 1 To 12
- ComboBox2.AddItem I
- Next
- ComboBox2.Value = Month(Date)
- End Sub
- Private Sub ComboBox1_Change()
- 月曆
- End Sub
- Private Sub ComboBox2_Change()
- 月曆
- End Sub
- Private Sub 月曆()
- 月曆清除
- If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 Then 萬年曆
- End Sub
- Private Sub 萬年曆()
- Dim R As Integer, I As Date, WD As Integer
- R = 1
- For I = DateSerial(ComboBox1, ComboBox2, 1) To DateSerial(ComboBox1, ComboBox2.Value + 1, 0)
- WD = Weekday(I)
- With Controls(R & "_" & WD)
- .Enabled = True
- .Caption = Day(I)
- .ControlTipText = I
- End With
- If WD = 7 Then R = R + 1
- Next
- End Sub
- Private Sub 日期項()
- Dim OBtop As Integer, OBLeft As Integer, R As Integer
- Dim OB_1 As Integer, OB_2 As Integer
- R = Label1.Top + 30
- For OB_2 = 1 To UBound(Class_OB, 2)
- For OB_1 = 1 To UBound(Class_OB, 1)
- With Controls.Add("Forms.OptionButton.1", OB_2 & "_" & OB_1)
- .Visible = True
- .Top = R '
- .Left = Controls("Label" & OB_1).Left
- 'Controls("Label" & OB_1)->已建立星期之 Label控制項
- '名稱依序為Label1,Label2,Label3,Label4,Label5,Label6,Label7.
- .Height = 15
- .Width = 30
- .ControlTipText = ""
- End With
- Set Class_OB(OB_1, OB_2).OB = Controls(OB_2 & "_" & OB_1)
- Next
- R = R + 30
- Next
- End Sub
- Private Sub 月曆清除()
- Dim E As Control
- For Each E In Me.Controls
- If E.Name Like "*_*" Then
- E.Enabled = False
- E.Caption = ""
- E.ControlTipText = ""
- End If
- Next
- End Sub
|
|
發表於 2013-3-26 15:14
| 
