Lỗi khi dùng Hàm SELECTCASE

[spacemanforever]

Chào mọi người!
Mình gởi bạn file excel Draft gồm 2 sheet:
----Sheet Detail: là sheet đưa ra lỗi phát sinh (lỗi mình đang gặp)
----Sheet Click: là sheet bạn có thể làm để thấy lỗi phát sinh.
Nội dung lối tóm tắt như sau:
--Em muốn tạo form nhập liệu cho mỗi ngày (ở đây là A, B, C, D, E, F, G).
B1: em tiến hành thiết kế userform1 gồm 1 combobox và 1 DTpicker.
B2: em viết code
--Code1: xuất hiện userform1

Sub Click()
UserForm1.Show
End Sub

---Code2: Code tạo form:
(Vì quá dài không thể copy lên được mong mọi người thông cảm xem file dùm)*** ở đây em dùng hàm selectcase.
---Nhưng khi chạy lại báo lỗi tại dòng Case "A" nếu click vào nút RUN phía trên sẽ xuất hiện lỗi lần lượt ở Case "B", Case "C" .. nếu click nữa sẽ chạy được bình thường.
---Khi phát sinh lỗi này không có thông báo gì?
Cho em hỏi thêm nếu muốn cố định khi mở form thì DTPicker luôn chọn ngày hiện thị là today thì làm thế nào? (trong form em cứ mặc định là 16/9/2010 nhưng em không biết thay đổi)
Mong mọi người giúp dùm em.
cảm ơn mọi người nhiều

 

[ptm0412]

1. Lỗi Select Case:
Tôi chạy thử thì không có lỗi gì.
Tuy nhiên có thể bỏ hết select case và dùng 1 đoạn code duy nhất (tương đương 1 Case), nếu thay câu lệnh

         With Range("D5:F6")
         .Merge
             .Value =  "A DAILY REPORT"

Bằng :

         With Range("D5:F6")
         .Merge
              .Value = combobox1.Text & " DAILY REPORT"

Ngoài ra, nếu không có vấn đề gì liên quan đến việc phải xoá hết dữ liệu và định dạng rồi định dạng lại, thì Code chỉ cần bao nhiêu đây: (không xoá đi làm lại hết, mà chỉ thay giá trị ngày và tên vào 3 cell liên quan):

Private Sub CommandButton1_Click()
If ComboBox2.Text = "Choose name" Or ComboBox2.Text = "" Then
      MsgBox "Your form name is Blank. Please Choose your form name"
Else
  Range("D5").Value = ComboBox2.Text & " DAILY REPORT"
  Range("H6").Value = Me.ComboBox2.Text
  Range("H5").Value = Me.DTPicker1.Value
    Unload Me
End If
End Sub

2. Set ngày DTPicker bằng ngày hiện tại:

Trong Sub UserForm_Activate() thêm dòng lệnh sau:

Me.DTPicker1 = Date

Trong file kèm theo, có cả 2 code: Cả 2 code không dùng Select case, 1 code xoá hết làm lại và 1 code chỉ thay giá trị chỗ cần thay.