Snasui Excel Forum

Code: Select all

Private Sub UserForm_Initialize()                                                                       'ตอนเปิดปฏิธินขึ้นมา
    On Error Resume Next
    If Me.MonthView1.Value <> ActiveCell.Value Then                                                     'ถ้าวันที่ที่โชว์ไม่เท่ากับวันที่ในช่องที่เลือก ให้
         Me.MonthView1.Value = ActiveCell.Value                                                                      'โชว์วันที่ในช่องที่เลือกอยู่ (ถ้ามีวันที่เดิมอยู่แล้ว ให้โชว์หน้าปฏิธินที่วันที่เดิมอยู่)
    End If
    If ActiveCell.Value = "" Then                                                                                              'ถ้าช่องที่เลือกไม่มีค่า ให้
        Me.MonthView1.Value = Date                                                                                        'ให้โชว์หน้าที่มีวันที่ปัจจุบัน(Date คือวันที่ตามเครื่องคอม)
    End If
End Sub