อยากทราบว่า userform Calendar แบบนี้กำหนดช่องรับค่าอย่างไร

[godman]

สวัสดีครับ
พอดีผมต้องการสร้าง userform VB ใน Excel แต่ปัญหาที่ผมพบคือเมื่อเลือกวันที่จาก Calendar แล้วมันจะลง ช่อง Active cell ไม่กำหนดเฉพาะช่องเจาะจง อยากให้มันเจาะจงครับ
ทำอย่างไรครับ

Code: Select all

Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    On Error Resume Next
    Dim cell As Object
    For Each cell In Selection.Cells
        cell.Value = DateClicked
    Next cell
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    If IsDate(ActiveCell.Value) Then
        Me.MonthView1.Value = ActiveCell.Value
    End If
End Sub

[snasui]

จาก Code

Code: Select all

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    On Error Resume Next
    Dim cell As Object
    For Each cell In Selection.Cells
        cell.Value = DateClicked
    Next cell
    Unload Me
End Sub

เป็นการเลือกเซลล์ไว้ก่อนแล้ว หากต้องการจะกำหนดที่เซลล์ใด ๆ ก็ต้องปรับ Code ด้านล่าง

Code: Select all

    For Each cell In Selection.Cells
        cell.Value = DateClicked
    Next cell

ให้เหลือเป็นเช่น Range("A1").value = DateClicked ครับ

[godman]

ขอบคุณมาก ครับ ใช้ได้และจะขอนำไปประยุกต์ต่อ