Kết quả 1 đến 4 của 4

Chủ đề: Viết giúp mình code userform

  1. #1
    thieuk55 Guest

    Viết giúp mình code userform

    Mình đã thiết kế cái userform nhưng không biết về VBA nên không viết được code cho nó add dữ liệu vào file excel khi nhập. Bạn nào rành viết giúp mình với.
    Chỗ mục sex mình làm combo box nhưng không viết được code cho nó hiện ra Nam và Nữ để chọn.
    Các option button thì khi nào click vào thì nghĩa là yes, ngược lại thì không.
    Ô về ngày thì dd/mm/yy còn giờ thì AM/PM.
    Chỗ ID nếu được code làm sao giúp mình chỉ cho nhập số (ko nhập chữ cái được), chỉ tối đa 3 ký tự số và mỗi ID là độc nhất, không trùng nhau.
    Giup mình với nhé. Rất cảm ơn mọi người.

  2. #2
    gaunhoiboom Guest
    Trích dẫn Gửi bởi bachduongstar
    Mình đã thiết kế cái userform nhưng không biết về VBA nên không viết được code cho nó add dữ liệu vào file excel khi nhập. Bạn nào rành viết giúp mình với.
    Chỗ mục sex mình làm combo box nhưng không viết được code cho nó hiện ra Nam và Nữ để chọn.
    Các option button thì khi nào click vào thì nghĩa là yes, ngược lại thì không.
    Ô về ngày thì dd/mm/yy còn giờ thì AM/PM.
    Chỗ ID nếu được code làm sao giúp mình chỉ cho nhập số (ko nhập chữ cái được), chỉ tối đa 3 ký tự số và mỗi ID là độc nhất, không trùng nhau.
    Giup mình với nhé. Rất cảm ơn mọi người.
    Bạn đã xây dựng được như vậy rồi thì mình nghĩ mọi việc không khó với bạn, chỉ là vấn đề thời gian thôi. Một số góp ý:
    - Về phần Symtomps: bạn cần thay các option button bằng check box do 1 người đồng thời có thể đau đầu + đau bụng + buồn nôn... Phần Meals không rõ có tương tự không?
    - Sex nên được thay bằng Gender (mặc dù 2 từ này không đồng nghĩa, mình cũng không phân biệt được) vì nếu bạn dùng chương trình này ở Việt Nam thì s.e.x dễ bị nhầm với p.o.r.n! Trong Sub Userform_Initialize bạn dùng phương thức cboSex.AddItem để gán giá trị "Male" hay "Female", dùng cboSex.Text để lấy giá trị và ghi xuống sheet.
    - Để cho textbox chỉ nhận số thì bạn dùng IsNumeric(Textbox1.Text) trong thủ tục sự kiện Textbox1_Change để kiểm tra. Để chỉ nhận date thì dùng IsDate.
    - ID không trùng nhau thì bạn lấy số liên tiếp: người 1 ID là 2, người 2 ID 2...

  3. #3
    lehoang1488 Guest
    Trích dẫn Gửi bởi Hau151978
    Bạn đã xây dựng được như vậy rồi thì mình nghĩ mọi việc không khó với bạn, chỉ là vấn đề thời gian thôi. Một số góp ý:
    - Về phần Symtomps: bạn cần thay các option button bằng check box do 1 người đồng thời có thể đau đầu + đau bụng + buồn nôn... Phần Meals không rõ có tương tự không?
    - Sex nên được thay bằng Gender (mặc dù 2 từ này không đồng nghĩa, mình cũng không phân biệt được) vì nếu bạn dùng chương trình này ở Việt Nam thì s.e.x dễ bị nhầm với p.o.r.n! Trong Sub Userform_Initialize bạn dùng phương thức cboSex.AddItem để gán giá trị "Male" hay "Female", dùng cboSex.Text để lấy giá trị và ghi xuống sheet.
    - Để cho textbox chỉ nhận số thì bạn dùng IsNumeric(Textbox1.Text) trong thủ tục sự kiện Textbox1_Change để kiểm tra. Để chỉ nhận date thì dùng IsDate.
    - ID không trùng nhau thì bạn lấy số liên tiếp: người 1 ID là 2, người 2 ID 2...
    Thank bạn rất nhiều, mình chưa đủ kiến thức làm đc như bạn nói nhưng cũng hỉu được chút chút. Cảm ơn bạn.

  4. #4
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Giup mình vơi.............................................. ........

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •