Làm Thế Nào để Có Thể Gán Biến Cho Form Và Cho Textbox Trong Form

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Làm thế nào để có thể gán biến cho Form và cho Textbox trong Form ? (1 người xem)

• Thread starter Thread starter BNTT
• Ngày gửi Ngày gửi 18/4/09

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2)

BNTT

Bùi Nguyễn Triệu Tường

Thành viên danh dự Tham gia 3/7/07 Bài viết 4,946 Được thích 23,213 Nghề nghiệp Dạy đàn piano Tôi có 3 Form, trong mỗi Form có vài Textbox. Những Textbox này khi nhấn đúp vào nó, sẽ mở Form Numpad ra. Form Numpad sẽ được dùng như một bàn phím để nhập số vào trong các Textbox. Vấn đề là, làm sao để Numpad nhập số vào đúng cái Textbox đã gọi nó? Tôi chỉ là dân amatơ về VBA, cho nên tôi đã dùng cách này: Tôi đặt trong Form Numpad 2 cái Textbox ẩn, có tên là AAA và BBB, và khi nhấn đúp vào một Textbox nào đó trong 3 cái Form kia, thì có một đoạn Code gán tên của Form cho AAA và gán tên của Textbox cho BBB. Ví dụ, khi nhấn đúp vào Textbox số 1 trong UserForm3: PHP: Sao chép. Private Sub TB1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) NumPad.AAA.Value = "UserForm3" NumPad.BBB.Value = "TB1" NumPad.Show End Sub Rồi khi nhấn vào các phím trong Numpad, thì sẽ chạy "một rừng" IF để kiểm tra xem sẽ nhập số vào cái nào... Ví dụ, khi nhấn nút có chữ C (ClearAll) dùng để xóa hết dữ liệu đang có trong một Textbox (khi nhập nhầm chẳng hạn), thì chạy code này: PHP: Sao chép. Private Sub CBClearAll_Click() If AAA.Value = "UserForm1" Then If BBB.Value = "TB1" Then UserForm1.TB1.Value = 0 If BBB.Value = "TB2" Then UserForm1.TB2.Value = 0 If BBB.Value = "TB3" Then UserForm1.TB3.Value = 0 If BBB.Value = "TB4" Then UserForm1.TB4.Value = 0 If BBB.Value = "TB5" Then UserForm1.TB5.Value = 0 ElseIf AAA.Value = "UserForm2" Then If BBB.Value = "TB1" Then UserForm2.TB1.Value = 0 If BBB.Value = "TB2" Then UserForm2.TB2.Value = 0 If BBB.Value = "TB3" Then UserForm2.TB3.Value = 0 If BBB.Value = "TB4" Then UserForm2.TB4.Value = 0 ElseIf AAA.Value = "UserForm3" Then If BBB.Value = "TB1" Then UserForm3.TB1.Value = 0 If BBB.Value = "TB2" Then UserForm3.TB2.Value = 0 If BBB.Value = "TB3" Then UserForm3.TB3.Value = 0 End If End Sub Chạy rất tốt, nhưng dài dòng quá! Có cách nào ngắn hơn không? Tối hôm qua, tôi có hỏi sư nương của tôi, nàng nói tôi thử dùng cái này: PHP: Sao chép. Private Sub CBClearAll_Click() UserForms(AAA).Controls(BBB).Value = 0 End Sub Mới đọc thì thấy khoái quá! Đúng rồi chứ còn gì nữa, nghĩa là khi nhấn vào CBClearAll thì gán cho cái Textbox có tên giống như tên của BBB ở trong cái Form có tên giống tên của AAA cái giá trị = 0... Thế nhưng, VBA hỏng hiểu! Nó hỏng biết UserForms(AAA) là cái gì, cũng chẳng hiểu Controls(BBB) là cái gì! Vậy xin gửi bài toán này lên đây, nhờ các cao thủ ra tay giúp.

File đính kèm

• Forms And NumPad.xls Forms And NumPad.xls 74.5 KB · Đọc: 154

Lần chỉnh sửa cuối: 18/4/09 Sắp xếp theo thời gian sắp xếp theo bầu chọn

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,239 Được thích 24,793 Em chưa xem kỹ, nhưng có thể dùng Select Case thay If nếu dài dòng. Nếu số TextBox không thay đổi bác có thể dùng biến dạng mảng cho gọn, vứt bên ngoài module. Upvote 0

Lệnh Hồ Đại Hiệp

Độc cô Cửu kiếm

Tham gia 20/10/08 Bài viết 299 Được thích 524 Dùng mấy cái Sub có tham số là Ok ngay thôi mà. Khi Form/Textbox nào gọi Numpad thì nó sẽ truyền cho Numpad 1 tham số nào đó. Dựa vào tham số này để biết rằng cái nào đang gọi nó. --CV-- Upvote 0

BNTT

Bùi Nguyễn Triệu Tường

Thành viên danh dự Tham gia 3/7/07 Bài viết 4,946 Được thích 23,213 Nghề nghiệp Dạy đàn piano Xin nói thêm. Đây chỉ là ví dụ, nên các Textbox có tên là TB1, TB2, TB3... và các UserForm có tên là UserForm1, UserForm2... Nhưng trong thực tế, chúng sẽ có những tên thật, những cái tên dễ nhớ.. Thành thử đừng dựa vào những con số 1, 2, 3... này mà làm. Cảm ơn ý kiến của Hướng và Hiếu. Nhưng... như vậy thì giống đánh đố mình quá. Cụ thể hơn đi. Please... Upvote 0

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,239 Được thích 24,793 Trước hết, bác dùng code này để "bắt" từng Name của các control trong UserForm1: Mã: Sao chép. Dim ControlObj As Control For Each ControlObj In UserForm1.Controls MsgBox ControlObj.Name Next Mã: Sao chép. Private Sub CBClearAll_Click() UserForms(AAA).Controls(BBB).Value = 0 End Sub Phải nói trước là trong 1 Form có nhiều kiểu control (có cái có hoặc không có thuộc tính Value), vì vậy bác gán value bằng không là KHÔNG ỔN, dễ gặp lỗi. Mà bác Tường ơi, sao TextBox bác gán cả 2 giá trị thuộc tính Text, Value làm gì. Bỏ Value đi. Đoạn code sau sẽ xóa toàn bộ nội dung text trong TextBox: Mã: Sao chép. Dim ControlObj As Control For Each ControlObj In UserForm1.Controls MsgBox ControlObj.Text=vbNullstring Next Lần chỉnh sửa cuối: 18/4/09 Upvote 0

sealand

Thành viên gạo cội

Tham gia 16/5/08 Bài viết 4,882 Được thích 7,687 Giới tính Nam Nghề nghiệp Kế Toán Mình khai báo 2 biến toàn cục để lưu đối tượng ,rất tiếc trong VBA không có MDI form nên không có tập hợp form. Đành dùng if hay select case gán cứng từng Form. Bạn tham khảo nhé.

File đính kèm

• Book1.xls Book1.xls 47.5 KB · Đọc: 147

Lần chỉnh sửa cuối: 18/4/09 Upvote 0

Lệnh Hồ Đại Hiệp

Độc cô Cửu kiếm

Tham gia 20/10/08 Bài viết 299 Được thích 524 Bác thân mến. Đây là Sub để truyền tham số cho 1 Control (Textbox, Combobox . . ), bất kỳ trong 1 Form bất kỳ. PHP: Sao chép. Sub ABC(FormName As String, TBName As String, GiaTri As String) Dim Ojb As Object Dim MyForm As Object Dim MyTB As Control On Error Resume Next For Each Ojb In VBA.UserForms If InStr(1, Obj.Name, FormName) > 0 Then Set MyForm = Ojb Exit For End If Next If MyForm Is Nothing Then _ Set MyForm = VBA.UserForms.Add(FormName) If MyForm Is Nothing Then Exit Sub Set MyTB = MyForm.Controls(TBName) MyTB.Value = GiaTri End Sub VD ": Muốn gán giá trị "GPE tuyet voi" vào Textbox "TB1" ở UserForm "UserForm1" thì câu lẹnh như sau : PHP: Sao chép. Call ABC("UserForm1", "TB1", "GPE - tuyet voi") Bác có thể tham khảo thêm tại đây Chúc bác thành công. Upvote 0

Nguyễn Duy Tuân

Nghị Hách

Thành viên danh dự Tham gia 13/6/06 Bài viết 4,862 Được thích 10,351 Giới tính Nam Nghề nghiệp Giáo viên, CEO tại Bluesofts Kỹ thuật dùng Class Hình như bác BNTT đang thực hiện một công trình hay ho nào đó? Em viết cái này tặng bác! Cho dù dùng bao nhiêu TextBox, bao nhiêu form thì anh cũng chỉ cần vài dòng lệnh mà thôi.

File đính kèm

• Forms And NumPad_New.zip Forms And NumPad_New.zip 26.5 KB · Đọc: 552

Upvote 0

hai2hai

VNUNi®

Thành viên danh dự Tham gia 14/6/06 Bài viết 1,137 Được thích 2,297 Nghề nghiệp Tư vấn giải pháp bán lẻ

BNTT đã viết: Tôi có 3 Form, trong mỗi Form có vài Textbox. Những Textbox này khi nhấn đúp vào nó, sẽ mở Form Numpad ra. Form Numpad sẽ được dùng như một bàn phím để nhập số vào trong các Textbox. Nhấp chuột vào đây để mở rộng...

Anh tạo 1 cái UserControl bao gồm: - 1 textbox - 1 button bên cạnh textbox (ai lại dùng cái "nhấn đúp" bí hiểm thế) - 1 form Numpad Khi click vào button thì nó show Numpad, sau khi "gõ số" thì gán vào textbox. Trên form chính, kéo n cái UserControl đó vào form. Thế là xong. Ưu điểm: - Viết 1 lần, dùng cho nhiều lần - Người sử dụng ko cần viết code Nhược điểm: - Phải biết ABC về UserControl Lần chỉnh sửa cuối: 20/4/09 Upvote 0 H

hoa35ktxd

Thành viên thường trực

Tham gia 8/2/07 Bài viết 298 Được thích 269 Thường thì khi truyền tham số ta hay dùng biến trung gian để thực hiện. Trong trường hợp này có thể làm như sau: Trong Form Numpad bạn khai báo 2 biến và code như sau PHP: Sao chép. Public Frm As Object, Txt As String Private Sub CBClearAll_Click() Frm.Controls(Txt).Text = "" End Sub Trong sự kiện Double_Click của Textbox trên Form nào đó ta code như sau PHP: Sao chép. Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) With Numpad Set .Frm = Me .Txt = TextBox1.Name .Show End With End Sub Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

• Đã giải quyết

FitRowXL v1.3 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới) (4 người xem)

• • 
  • 

• HeSanbi
• 18/4/21
• Lập Trình với Excel

Trả lời 75 Đọc 30K 12 phút trước chothadiem Copilot bình luận các ván cờ vua từng ngày. (1 người xem)

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 61 Đọc 2K Hôm nay lúc 04:52 SA_DQ E Giúp Đặt tên lại (Rename) cho hàng loạt các file PDF theo cùng 1 quy tắc (1 người xem)

• Excel my love_1
• 15/4/23
• Tin học mở rộng

Trả lời 4 Đọc 4K Hôm qua, lúc 15:20 luongha.ktqd L L Thu Chi Gia Đình (1 người xem)

• • 

• lehang0812
• Thứ năm lúc 17:12
• TPHCM

Trả lời 3 Đọc 104 Hôm qua, lúc 02:59 son193 S

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (4 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

5 6 7 Trả lời 622 Đọc 91K Thứ năm lúc 16:11 LOGANWover L

• Question Question

Chia sẻ một thuật toán đơn giản để trộn cells

• • 
  • 

• Quang_Hải
• Thứ tư lúc 10:14
• Lập Trình với Excel

Trả lời 12 Đọc 303 Thứ năm lúc 11:13 Quang_Hải TaxCode v4.33 - Tra cứu mã số thuế từ tổng cục thuế, masothue và thuvienphapluat

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 19 Đọc 3K Thứ năm lúc 08:54 HeSanbi

• Question Question

Tạo Add-in, tệp Excel, Word, Access tự động cập nhật phiên bản mới từ Cloud cho chính nó (3 người xem)

• • 
  • 

• HeSanbi
• Thứ hai lúc 20:14
• Lập Trình với Excel

Trả lời 1 Đọc 213 Thứ tư lúc 17:03 HeSanbi Hàm EXACT (1 người xem)

• • 

• TranThanhPhong
• 30/4/14
• Dự án: Công thức & Hàm 97-2019

Trả lời 3 Đọc 9K Thứ ba lúc 15:52 ptm0412 Add-Ins cho Excel 2007 -2016 32bit và 64bit (2 người xem)

• • 
  • 
  • 

• giaiphap
• 8/8/15
• Các Add-ins cho excel

4 5 6 Trả lời 518 Đọc 226K Thứ ba lúc 14:17 Gà Công Nghệ V Một Excel add-in vibe coding (1 người xem)

• • 

• vietdang170
• 28/1/26
• Các Add-ins cho excel

Trả lời 18 Đọc 701 Thứ ba lúc 11:10 vietdang170 V H Xin giúp đặt điều kiện trong Conditional Formating (1 người xem)

• hoanglocphat
• Thứ hai lúc 14:23
• Hỏi đáp những vấn đề khác

Trả lời 6 Đọc 186 Thứ ba lúc 10:13 Gà Con yêu VBA

• Dán lên cao

Phiên bản mới Add-in A-Tools AI v10 (2024) (1 người xem)

• • 

• Nguyễn Duy Tuân
• 13/9/24
• BLUESOFTS: A-Excel, A-Tools

Trả lời 61 Đọc 12K Thứ hai lúc 15:13 Nguyễn Duy Tuân Xin giúp hàm excel để tìm 1 số trong số có 2 chữ số (1 người xem)

• mrjun80
• 31/1/26
• Hàm và công thức Excel

Trả lời 4 Đọc 183 Chủ nhật lúc 08:38 Gà Con yêu VBA N Vấn đề về hiệu năng khi thực hiện ghép chuỗi trong VBA với tần suất lớn

• • 
  • 

• nguyendang95
• 23/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 36 Đọc 1K 31/1/26 ptm0412

• Question Question

Tra cứu thông tin mã số thuế (cập nhật lại code cũ)

• • 
  • 
  • 

• ongke0711
• 24/7/25
• Lập Trình với Excel

Trả lời 16 Đọc 2K 31/1/26 tuyethao T VNFastSearch – DLL tìm kiếm tiếng Việt tốc độ cao cho Excel VBA

• phuongnam366377
• 31/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 0 Đọc 160 31/1/26 phuongnam366377 N

• Question Question

Tạo khung viền ô theo số trong ô (1 người xem)

• • 

• Nguyễn Xuân Sơn
• 29/1/26
• Lập Trình với Excel

Trả lời 9 Đọc 257 31/1/26 Mr.hieudoanxd J Đừng chỉ "Cập nhật" dữ liệu. Hãy "Xếp chồng" chúng lên. (1 người xem)

• • 

• jack nt
• 29/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 5 Đọc 301 31/1/26 ptm0412 T gửi email đến nhân viên công ty

• tuantv9
• 26/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 2 Đọc 273 30/1/26 nguyendang95 N Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• HeSanbi 12
• chothadiem 9
• Gà Công Nghệ 5
• Officexinh 4
• vietdang170 4
• pycckuu410 3
• HieuCD 3
• chiendich 3
• hoanglocphat 3
• VietHoangPhan 2
• DeTong 2
• Gà Con yêu VBA 2
• Quang_Hải 2
• linhdao2909 1
• HUONGHCKT 1
• vuvannguyen1972 1
• Phuocam 1
• ptm0412 1
• LOGANWover 1
• luongha.ktqd 1

Thành viên có điểm tương tác cao nhất tháng

• HeSanbi 17
• Quang_Hải 7
• vietdang170 5
• Gà Con yêu VBA 4
• pycckuu410 3
• chiendich 3
• DeTong 3
• Phuocam 3
• Officexinh 2
• HUONGHCKT 2
• HieuCD 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom