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://dungquatiz.com/
Xem thêm bài viết khác: https://dungquatiz.com/category/cong-nghe/
Đâ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
Dạy này mà cũng đòi làm thầy haiz
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 .
ko download được file
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 ạ 🙂
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ả.
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
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 ạ
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.
Có dùng được phím enter thay cho nút save hay cả hai được không vậy bạn
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
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
Dùng Excel trên mac m ko thấy Userform. Hướng dẫn mình với ad ơi
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!
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.
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
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.
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.
Làm sao tải phần mềm này về máy được ADD
anh cho hỏi. làm cách nào mà e tạo form nhập liệu cứ báo lỗi sửa code.
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!
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
chiuj
em muốn download bài này đươc không a