Tạo Form Nhập Liệu Trong Excel

[sebweb]

xin chào các bạn mình là thành viên mới gia nhập, mình đang làm nhập liệu trong excel nhưng bí quá mong các bạn giúp đỡ.mình muốn làm một form trong macro gồm 10 textbox và 2 combobox:1 nút combobox nhập, 1 combox thoát. khi nhập liệu vào các textbox và nhấn vào nút nhập thì macro sẽ lưu những dữ liệu mình vừa nhập vào file excel.(khi mình mở file excel thì macro tự kích hoạt và hiển thị ra form để mình nhập liệu).rất mong các bạn giúp đỡ mình đang rất cần.

View more random threads:

• Xin giúp đỡ code lệnh tìm kiếm vba
• Ngày cuối tháng
• Nhờ Giải thích Code Mở 1 file Excel Trong VBA
• Giúp đỡ công thức tính đơn giá
• Tạo mã phiếu thu( hay chi,nhập,. . . .) có dạng MMDDYYxxx
• Xin mẫu Báo cáo tài chính - Nhật ký chung
• Cách quản lý File Scan và dùng Excel để mở nó.
• Hướng dẫn Lập Công Thức Tách Dòng
• Giúp đỡ về xử lý dữ liệu giữa các sheet
• HỎI VỀ MARCO

[magebay]

xin chào các bạn mình là thành viên mới gia nhập, mình đang làm nhập liệu trong excel nhưng bí quá mong các bạn giúp đỡ.mình muốn làm một form trong macro gồm 10 textbox và 2 combobox:1 nút combobox nhập, 1 combox thoát. khi nhập liệu vào các textbox và nhấn vào nút nhập thì macro sẽ lưu những dữ liệu mình vừa nhập vào file excel.(khi mình mở file excel thì macro tự kích hoạt và hiển thị ra form để mình nhập liệu).rất mong các bạn giúp đỡ mình đang rất cần.

Đó là 2 nút command, ko phải combo box.
Bạn muốn hỏi như thế nào mới được chứ, tùy vào cách tổ chức file excel của bạn và bạn đã làm được gì và làm đến đâu, hay là làm lại từ đầu ?:smash:

[kientrogia24h]

Bạn ơi thật sự mình ko rành về phần này lắm nên bạn có thể hướng dẫn mình làm từ đầu được ko? Cám Ơn bạn nhiều lắm. đúng là 2 nút command mình lộn rồi.

[blazefuzy143]

Ðề: Tạo Form Nhập Liệu Trong Excel

xin chào các bạn mình là thành viên mới gia nhập, mình đang làm nhập liệu trong excel nhưng bí quá mong các bạn giúp đỡ.mình muốn làm một form trong macro gồm 10 textbox và 2 combobox:1 nút combobox nhập, 1 combox thoát. khi nhập liệu vào các textbox và nhấn vào nút nhập thì macro sẽ lưu những dữ liệu mình vừa nhập vào file excel.(khi mình mở file excel thì macro tự kích hoạt và hiển thị ra form để mình nhập liệu).rất mong các bạn giúp đỡ mình đang rất cần.

cái đó là gì bạn ơi..mình chịu pó tay mấy món này...xương quá đi...hic
cho mình bít với.;bạn nào hiểu rõ thì làm ơn hướng dẫn chi tiết nhé..cám ơn các bạn nhìu...:surprise:

[thaypiniphone6s]

Ðề: Tạo Form Nhập Liệu Trong Excel

xin chào các bạn mình là thành viên mới gia nhập, mình đang làm nhập liệu trong excel nhưng bí quá mong các bạn giúp đỡ.mình muốn làm một form trong macro gồm 10 textbox và 2 combobox:1 nút combobox nhập, 1 combox thoát. khi nhập liệu vào các textbox và nhấn vào nút nhập thì macro sẽ lưu những dữ liệu mình vừa nhập vào file excel.

Đối với command nhập: bạn có thể sử dụng các hàm Offset để gắn bản ghi vào sheet, hoặc bạn có thể gán bằng cách dùng Range("..").value=...
Đối với command thoát: bạn đặt code Unload Me

(khi mình mở file excel thì macro tự kích hoạt và hiển thị ra form để mình nhập liệu).rất mong các bạn giúp đỡ mình đang rất cần.

Bạn dùng biến cố

 
Private Sub Workbook_Open()
userform.show
End Sub

đặt trong This Workbook.
Nói chung nhiều cách làm, và tùy vào việc bố trí file của bạn mà mỗi cách có nhiều ưu, nhược khác nhau. Mình cũng chỉ biết có thế. Bạn có thể tham khảo về excel nhiều hơn tại diễn đàn http://******************
Thân chào./.

[thuvov]

Ðề: Tạo Form Nhập Liệu Trong Excel

Tôi cần tài liệu tự học tạo form trên excel bác nào có cho tôi xin với. Cám ơn nhiều

[tungyoung]

Ðề: Tạo Form Nhập Liệu Trong Excel

Tôi cần tài liệu tự học tạo form trên excel bác nào có cho tôi xin với. Cám ơn nhiều

Chào bạn.Việc tạo Form luôn luôn gắn với lập trình các đối tượng trên Form.Bạn hãy vào thư viện của ****************** mà tải về bạn nhé.

[yeuyeu90]

Ðề: Tạo Form Nhập Liệu Trong Excel

bạn có thể mua cuốn excell của ông văn thông bản version 2 dành cho quản lý kế toán để tham khảo, nếu chưa biết thì cuốn này cũng là tư liệu tham khảo bổ ích.

[bacgyang]

Ðề: Tạo Form Nhập Liệu Trong Excel

xin chào các bạn mình là thành viên mới gia nhập, mình đang làm nhập liệu trong excel nhưng bí quá mong các bạn giúp đỡ.mình muốn làm một form trong macro gồm 10 textbox và 2 combobox:1 nút combobox nhập, 1 combox thoát. khi nhập liệu vào các textbox và nhấn vào nút nhập thì macro sẽ lưu những dữ liệu mình vừa nhập vào file excel.(khi mình mở file excel thì macro tự kích hoạt và hiển thị ra form để mình nhập liệu).rất mong các bạn giúp đỡ mình đang rất cần.

Trước tiên bạn tạo 1 Sheet có tên là Data để lưu trữ dữ liệu.
-Nhấn tổ hợp phím Alt+F11 để vào cửa sổ VBA
-Vào Insert\ Userform
-Vẽ 10 TextBox, 2 command button vào form và đặt tên cho chúng.
+ Tên nút command thứ nhất đặt tên cmdAdd, thứ 2 là cmdClose
+ Tên các textbox lần lược như sau: txtCont, txtName, txtAdd, txtTel, txtID, txtDate, txtLocal, txtAccount, txtnote, txtRemaks.

-Sau khi tạo xong các nút, bạn vào View\Code.
Cửa sổ code hiện ra, bạn copy và chép đoạn code sau vào đó.
* Cho nút Thêm

[COLOR=#000000]
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub cmdAdd_Click[/COLOR][COLOR=#007700]()[/COLOR][COLOR=#0000BB]Dim iRow [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]LongDim ws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]WorksheetSet ws [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"DATA"[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]iRow [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ws[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]_  [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Trim[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtCont[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#DD0000]"" [/COLOR][COLOR=#0000BB]Then  Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtCont[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]SetFocus  MsgBox [/COLOR][COLOR=#DD0000]"Vui long dien so hop dong"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]vbInformation  [/COLOR][COLOR=#007700]Exit [/COLOR][COLOR=#0000BB]SubEnd [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]ws[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtCont[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtName[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtAdd[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtTel[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]5[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtID[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]6[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtDate[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtLocal[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]8[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtAccount[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]9[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtnote[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]10[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtRemaks[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ValueMe[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtCont[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtName[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtAdd[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtTel[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtDate[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtLocal[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtAccount[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtID[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtnote[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtRemaks[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtCont[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]SetFocusEnd Sub[/COLOR] 

*Cho nút thoát.

[COLOR=#000000]
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub cmdClose_Click[/COLOR][COLOR=#007700]()  [/COLOR][COLOR=#0000BB]Unload MeEnd Sub[/COLOR] 

Sau đó nhấn F5 chạy Form để nhập liệu thử

Chúc bạn thành công.

P/S: Sao diễn đàn mình không cho gửi Attach file vậy các bạn?

[hoangocbn123]

Ðề: Tạo Form Nhập Liệu Trong Excel

Trước tiên bạn tạo 1 Sheet có tên là Data để lưu trữ dữ liệu.
-Nhấn tổ hợp phím Alt+F11 để vào cửa sổ VBA
-Vào Insert\ Userform
-Vẽ 10 TextBox, 2 command button vào form và đặt tên cho chúng.
+ Tên nút command thứ nhất đặt tên cmdAdd, thứ 2 là cmdClose
+ Tên các textbox lần lược như sau: txtCont, txtName, txtAdd, txtTel, txtID, txtDate, txtLocal, txtAccount, txtnote, txtRemaks.

-Sau khi tạo xong các nút, bạn vào View\Code.
Cửa sổ code hiện ra, bạn copy và chép đoạn code sau vào đó.
* Cho nút Thêm

[COLOR=#000000]
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub cmdAdd_Click[/COLOR][COLOR=#007700]()[/COLOR][COLOR=#0000BB]Dim iRow [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]LongDim ws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]WorksheetSet ws [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"DATA"[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]iRow [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]ws[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]_[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row[/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Trim[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtCont[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#DD0000]"" [/COLOR][COLOR=#0000BB]ThenMe[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtCont[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]SetFocusMsgBox [/COLOR][COLOR=#DD0000]"Vui long dien so hop dong"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]vbInformation[/COLOR][COLOR=#007700]Exit [/COLOR][COLOR=#0000BB]SubEnd [/COLOR][COLOR=#007700]If[/COLOR][COLOR=#0000BB]ws[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtCont[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtName[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]3[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtAdd[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]4[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtTel[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]5[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtID[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]6[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtDate[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]7[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtLocal[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]8[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtAccount[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]9[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtnote[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Valuews[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]iRow[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]10[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtRemaks[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ValueMe[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtCont[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtName[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtAdd[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtTel[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtDate[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtLocal[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtAccount[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtID[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtnote[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtRemaks[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]""[/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]txtCont[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]SetFocusEnd Sub[/COLOR] 

*Cho nút thoát.

[COLOR=#000000]
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub cmdClose_Click[/COLOR][COLOR=#007700]()[/COLOR][COLOR=#0000BB]Unload MeEnd Sub[/COLOR] 

Sau đó nhấn F5 chạy Form để nhập liệu thử

Chúc bạn thành công.

P/S: Sao diễn đàn mình không cho gửi Attach file vậy các bạn?

Bạn hướng dẫn mình vẽ cái Text box ấy được không? Loay hoay mãi mà chẳng làm được gì cả. Insert được mỗi cái userform, còn cái textbox thì không biết lấy ở đâu ra... hic hic hic
Xin cảm ơn!