38 Replies to “Tạo Form nhập liệu trên excel”

  1. Mình muốn hiện thông báo nhập trùng và không cho nhập trùng dữ liệu đã nhập trước đây rồi thì làm thế nào?

  2. anh ơi nhờ anh giúp em với. em làm được hết rồi nhưng phần trả lại khoản trắng để nhập dữ liệu mới thì không được. sau khi save thì form vẫn còn chữ của dữ liệu vừa nhập xong ạ.

  3. Private Sub btnClosed_Click()
    Unload Me

    End Sub

    Private Sub btneditsave_Click()
    Dim EndR As Long

    With Sheets("nhaplieu")

    EndR = .Range("A" & Rows.Count).End(xlUp).Row

    .Range("A" & EndR + 1) = txtmsbn.Text
    .Range("B" & EndR + 1) = txthovaten.Text
    .Range("C" & EndR + 1) = txtdienthoai.Text
    .Range("D" & EndR + 1) = txtdiachi.Text
    .Range("E" & EndR + 1) = txtnoidung.Text
    .Range("F" & EndR + 1) = txtthanhtien.Text
    End With
    Unload Me

    End Sub

    Private Sub btnSave_Click()
    Dim EndR As Long
    With Sheets("nhaplieu")
    EndR = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & EndR + 1) = txtmsbn.Text
    .Range("B" & EndR + 1) = txthovaten.Text
    .Range("C" & EndR + 1) = txtdienthoai.Text
    .Range("D" & EndR + 1) = txtdiachi.Text
    .Range("E" & EndR + 1) = txtnoidung.Text
    .Range("F" & EndR + 1) = txtthanhtien.Text
    End With
    Dim ctr As Control
    For Each ctr In Me.Controls
    If TypeName(ctr) = "TextBox" Then

    ctr.Text = ""
    End If

    Next ctr
    txtmsbn.SetFocus
    End Sub

  4. Hi anh
    Em bấm chọn txtname.text không được, nó chỉ cho chọn .TextAlign
    Private Sub btnSAVE_Click()
    Dim EndR As Long
    With Sheets("DATA")
    EndR = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & EndR + 1) = txtngayxuat.TextAlign
    End With
    Unload Me
    End Sub

  5. anh có thể làm video tạo form để xuất kết quả từ excel được không… cảm ơn anh nhiều.

  6. vậy làm sao để lưu lại dữ liệu trên form vậy , để sau khi đóng dữ liệu trên form ko bị mất đi mà khi mở lại sẽ hiện đầy đủ dữ liệu trước khi đóng

  7. em học theo mà ko làm dc hii. ở giây 2:15 anh gõ gì vậy? anh ghi lại cho em nhé " …phongban" em cảm ơn anh

  8. admin ơi! cho tôi xin hỏi làm sao để gõ xuống dòng trong ô diển giải của Form vậy? Xin cảm ơn

  9. anh ơi sau khi chèn hình nền vào userform thì file excel của e toàn báo đầy bộ nhớ ko save đc. bjo em muốn gỡ cái ảnh nền của userform ra thì làm thế nào ạ. e loay hoay mãi mà ko làm đc

  10. Nếu sau khi em điền tất cả các thông tin vào form thì em muốn in nó ra trước khi được đưa vào database thì phải làm sao ah

  11. Cảm ơn anh Dũng rất nhiều. Tôi nghĩ nếu bác để thêm File hoặc code ở dưới để anh em học hỏi thêm thì hay biết mấy.
    1 triệu Like cho bác.

  12. em bị lỗi màu vàng ở dòng thứ 3. nhờ ad giúp em vơi

    Private Sub btncat_Click()
    Dim EndR As Long
    With Sheets("phongban")
    EndR = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A" & EndR + 1) = txtMaphong.Text
    .Range("B" & EndR + 1) = txttenphong.Text
    .Range("C" & EndR + 1) = txtdiengiai.Text
    End With
    Unload Me
    End Sub

    Private Sub Label1_Click()

    End Sub

    Private Sub UserForm_Click()

    End Sub

  13. Anh ơi, em đã làm được nhưng không hiểu sao nó ko ghi vô giá trị tiếp theo mà toàn ghi đè lên thôi< a chỉ giúp em với ạ. Cảm ơn anh

  14. nếu e có cột stt có stt sẵn thì viết code cho 1 textbox tự hiện stt của dòng đang nhập liệu đó như thế nào vậy anh?

  15. nếu như mình không muốn dữ liệu xếp theo hàng ngang mà theo cột dọc có được không anh?
    Hoặc nhập vào 1 ô bất kì chứ không theo chuỗi nữa?

  16. Dear Mr Dung !
    Mình muốn hỏi tạo list box mã phòng cố định để mỗi lần nhập chỉ cần chọn mã phòng và nhập liệu. nội dung mã Phòng cũ sẽ được chèn vào nội dung mới .

  17. Ủa anh ơi làm sao lưu lại form lun
    Ko can mở éc seo ko anh
    Như mình đua form lên mang để tải form về ko v

  18. Em muốn nhập liệu từ textbox vào 1 cell duy nhất, không cho xuống hàng thì code thế nào vậy tiền bối

  19. Ad cho em hỏi tình huống sau khi em ấn nhập liệu. Khai báo xong sẽ đổ dữ liệu vào cột Excel. Và các cột này ghi chết luôn ko cho sủa lại. Muốn sủa phải ấn vào nút sua thì em làm tiếp Code thế nào ạ

  20. Chào anh Dung Nguyen Viet! anh có thể tạo thêm nút xóa nữa được không anh? Khi mà mình làm nút tìm kiếm gọi lên mã phòng sau đó nếu không cần mình xóa mp đó luôn

  21. (bổ sung) Để đỡ phải thiết kế form nhiều, tôi dự tính sẽ gọi form từ data form trong excel, tuy nhiên ô nhập liệu toàn bộ là text mà không phải là combox, làm thế nào để thay text = combox với nền dữ liệu đã sử dụng datavidation.

  22. Mã phòng, Tên phòng tôi muốn sử dụng ActiveX Combox để khai báo nhập liệu thay cho hộp textbox thì sẽ nên như nào, xin bác Dũng tý kinh nghiệm.

  23. Cảm ơn bạn đã có video hay
    Tôi cũng đã xem nhiều lần và làm theo, tuy nhiên tôi gặp phải trở ngại, không biết lỗi từ đâu, giúp tôi tháo gỡ với
    1, Nút "cất và thêm" không xóa trắng được các TextBok để chuẩ bị cho nhập liệu mới
    2, Không nhảy dòng mới khi nhập liệu, lại nhập vào đúng ô trước?
    3, Khi tạo được form, tắt máy đi, khởi động máy tính lại và mở form đó ra thì báo lỗi không hoạt động được?
    Xin Cảm ơn nhiều!

  24. Video rất hay, cảm ơn anh nhiều ạ, hy vọng a có thêm nhiều video giúp đỡ mọi người. Anh cho em hỏi là khi em làm bảng nhập liệu như a, em muốn thêm ô sản phẩm, ô kia là giá tiền, em nhập tên sản phẩm là nó hiện giá tiền thì làm thế nào ạ. Xin anh giúp đỡ

  25. chào bạn bạn có thể cho mình xin email đươc ko? mình muốn hỏi bạn 1 chút. email của mình là hoangvankybvdkcg@gmail.com. mong phản hồi từ bạn

  26. cảm ơn bạn nhiều. Cho mình hỏi thêm : nếu muốn tạo thêm nút điều khiển để xóa mẫu tin đã nhập sai, tìm kiếm theo phòng chẳng hạn thì làm ntn ah.

Leave a Reply

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