Hướng dẫn tạo Form nhập liệu trên Excel {ĐẶC BIỆT} – VBA 28



Hướng dẫn tạo Form nhập liệu trên Excel
▷ Xem thêm “Thành thạo Excel trong 7 ngày”:
▷ Xem thêm “Tự động hoá Excel và báo cáo với VBA”:

▷ Video được cung cấp miễn phí bởi
▷ Facebook Page:
Tạo form nhập dữ liệu trong Excel bằng VBA. Form nhập liệu trong bài có thể thay đổi, đổi tên, thêm bớt và sắp xếp 1 cách linh hoạt.

▷ Download file tại đây:

▷ Video được cung cấp bởi
▷ Facebook Page:
▷ Facebook Group:

Nguồn: https://marishka-moi.com/

Xem thêm bài viết: https://marishka-moi.com/category/cong-nghe

25 Replies to “Hướng dẫn tạo Form nhập liệu trên Excel {ĐẶC BIỆT} – VBA 28”

  1. Đây là nội dung nhỏ trong bộ khoá học:

    ▷ Khoá học "Học Excel, Có Việc Ngay": http://bit.ly/2uPgEXL
    ▷ Khoá học "Hãy để VBA giúp bạn tăng năng suất làm việc": http://bit.ly/2tcCvGI

    ▷ Video được cung cấp miễn phí bởi https://hocexcel.online

  2. mình bị lỗi ở phần

    With cmdSaveData

    .Top = currentTopPos
    ——— >>>>>>>>>>>>>>>>> gây lỗi
    .Left = 310 – cmdSaveData.Width

    End With

    bạn có thể giúp mình xử llys lỗi này với , cảm ơn bài của của bạn rất tiện ích .

  3. Cám ơn thầy. Mất có 30ph xem video mà tạo được form nhập liệu giúp tiết kiệm thời gian lắm luôn ạ 🙂

  4. Anh/em xây dựng hoàn toàn có thể ứng dụng video này để tạo form nhập số liệu trong sheet Danh mục Nghiệm thu công việc hoặc Danh mục nghiệm thu vật liệu. Cảm ơn sự chia sẻ của tác giả.

  5. Cho e hỏi, scrollbars mình click chuột và kéo thì ok, nhưng lăn chuột lại k được, mong add giúp vì mình hơn 220 textbox lận. Tks add

  6. Làm tới 33:31 là không được như video. Thành scrollbar không có phần kéo lên xuống ạ. Ai cho mình xin hoá giải vụ này với ạ

  7. Ad cho mình hỏi nếu tạo textbox bằng code như này thì khi muốn làm sự kiện Change cho textbox nào đó thì sẽ phải làm như nào ah.

  8. Minh khong the copy thong tin san co vao text box. phai nhap tay chu khong copy va paste vao text box duocj ah. Cac cao thu tra loi giup em voi

  9. Lỗi sau khi bấm F8 nó chạy đến Next Index lại quay lên lại With Me, mình không biết sữa như thể nào để có thể bấm hiện form ra mong ad hoặc thầy Thanh chỉ giúp cám ơn

  10. Anh Thanh ơi.
    Em đã làm được userform nhưng tới lúc nhập liệu và ấn Save nó hiện lỗi "run_time error '9' – Subscrip out of range.
    Khi ấn debug nó hiện lỗi ở dòng code" info(index) = .Controls(settings(index, 1)) " trong đoạn code sau:
    "Private Sub cmdSaveData_Click()

    Dim settings As Variant

    Dim info() As String

    Dim index As Long

    With Sheets(SHEET_SETTINGS)

    ReDim info(1 To getLR(.Name, "A") – 1)

    settings = .Range("A2:D" & getLR(.Name, "D")).Value

    For index = LBound(settings, 1) To UBound(settings, 1)

    With Me

    info(index) = .Controls(settings(index, 1))

    End With

    Next index

    End With

    With Sheets(SHEET_DATA)

    .Range("A" & getLR(.Name, "A")).Resize(, UBound(info)) = info

    End With

    End Sub".

    Mong anh giúp đỡ ạ. Em cảm ơn!

  11. Rất cám ơn anh! Video rất hay và bổ ích.
    Em đang sử dụng excel 2016, khi click vào insert thì nó không có user form hiện ra. Mà chỉ có ModuleModule, class module và proceduure.Anh có thể cho em biết là tại sao không ạ.
    Xin cám ơn anh nhiều.

  12. Bạn ơi ngay chỗ
    With cmdSaveData
    .Top = currentTopPos
    .Left = 310 – cmdSaveData.Width

    Thì nó lại hiện bảng báo lỗi "run-time error '424': Object required

  13. Bạn này ko những giỏi mà còn rất thông minh, cái cách hướng dẫn úp úp mở mở khiến người xem tò mò muốn tham gia khóa học của bạn, giống như đang coi phim bộ đến khúc gây cấn thì hết phìm,… rất hay. Cá nhân mình rất thích những video của bạn.

  14. Mình copy một dảy ở ngoài rồi paste đc không bạn nhỉ, hay chỉ nhập từng ô vậy tôi ? xin cảm ơn.

  15. Cảm ơn Video của bạn, rất hữu ích. Mình đã cố làm thử nhưng excel vẫn báo lỗi ở cái phần UserForm1. Khi mình nhấn vào nút tạo form thì excel báo lỗi là Run-time error'438': Object doesn't support this property or method. Mình cũng dùng phương pháp kiểm tra từng dòng code 1 như bạn nói thì hình như là lỗi ở :
    .Height = settings(index, 3) * UI_LINE_HEIGHT
    Bạn giúp mình check va fix lỗi này với.
    Mình đang dùng Excel 2016
    Vì không upload file lên đây được nên mình đã uploaded lên MediaFire:
    https://www.mediafire.com/?mox639343d9oahj
    Hy vọng nhận đc sự giúp đỡ của bạn
    Cảm ơn bạn rất nhiều!

  16. Bấm chạy lỗi tại dòng:   UserForm1.Show
    Mã: Dim currentTopPos As Long
    Private Sub UserForm_Initialize()
        Dim settings As Variant
        Dim index As Long
        Dim label As MSForms.label
        Dim textbox As MSForms.label
       
        currentTopPos = 20
        With Sheets(SHEET_SETTINGS)
            settings = .Range("A2:D" & getLR(.Name, "D")).Value                  (Lỗi từ dòng này khi bấm F8)
            
            For index = LBound(settings, 1) To UBound(settings, 1)
                With Me
                    Set label = .Controls.Add("Forms.label.1")
                    With label
                        .Left = ui_left
                        .Top = currentTopPos
                        .Width = settings(index, 4)
                        .Height = ui_line_height
                        currentTopPos = .Top + .Top + .Height + UI_GAP
                        .Caption = settings(index, 2)
                    End With
                End With
            Next index
        End With
    End Sub

    Nhờ anh kiểm tra giúp để sửa lỗi, xin cảm ơn1

  17. bạn ơi ! cho hỏi thêm chút nhé. Tôi đã xem hướng dẫn của bạn và là được gần như hoàn thành rồi, chỉ duy có 1 điều là ở ô 2 và 3 dòng tôi không thể gõ xuống dòng .như ô "thêm bạn gái" có 2 dòng nhưng tôi chỉ gõ vào được Text5 mà không gõ thêm được text6 ở dòng dưới. Xin cảm ơn bạn và mọi người giúp dùm.

Leave a Reply

Your email address will not be published. Required fields are marked *