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,238 Được thích 24,768 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,238 Được thích 24,768 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,859 Được thích 10,349 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

Nếu diễn đàn GPE đóng cửa? (1 người xem)

• PhanTuHuong
• Hôm qua, lúc 23:46
• Thư giãn

Trả lời 1 Đọc 27 Hôm nay lúc 01:00 Gà Con yêu VBA D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện (1 người xem)

• dieppk.nb92
• Hôm qua, lúc 01:22
• Hàm và công thức Excel

Trả lời 4 Đọc 144 Hôm qua, lúc 22:15 Phan Thế Hiệp N Công thức trích xuất riêng các ký tự trong chuỗi họ tên

• Ngựa con 2002
• Thứ bảy lúc 23:07
• Xử lý chuỗi ký tự

Trả lời 7 Đọc 86 Hôm qua, lúc 18:57 Ngựa con 2002 N H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel

• H_P
• Thứ bảy lúc 14:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 1 Đọc 60 Hôm qua, lúc 08:42 Gà Con yêu VBA Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện

• QUANSUNG
• Thứ bảy lúc 10:55
• Hàm và công thức Excel

Trả lời 2 Đọc 99 Hôm qua, lúc 00:02 dungpham01 D Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Thứ bảy lúc 16:15 le_vis L Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

• HeSanbi
• Thứ bảy lúc 15:41
• Xử lý chuỗi ký tự

Trả lời 0 Đọc 72 Thứ bảy lúc 15:41 HeSanbi D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc (2 người xem)

• Dinh Hong Nhung
• Thứ năm lúc 10:36
• Hàm và công thức Excel

Trả lời 14 Đọc 564 Thứ bảy lúc 10:43 Cúc Hr C D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• Thứ sáu lúc 15:39
• Lập Trình với Excel

Trả lời 3 Đọc 128 Thứ bảy lúc 07:17 HUONGHCKT H CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ

• • 
  • 

• PhanTuHuong
• 4/10/22
• Thư giãn

Trả lời 8 Đọc 2K Thứ bảy lúc 00:09 PhanTuHuong D

• Question Question

IN TỰ ĐỘNG TỪ DỮ LIỆU CÓ SẴN

• duongnhuxuyen
• 12/11/25
• Lập Trình với Excel

Trả lời 14 Đọc 444 Thứ sáu lúc 19:42 duongnhuxuyen D V Biểu diễn số đếm theo hình vẽ từ Shape

• Vũ Hải Sơn
• 2/12/25
• Hàm và công thức Excel

Trả lời 34 Đọc 663 Thứ sáu lúc 15:31 Vũ Hải Sơn V T Xử lý lỗi xuất hiện màu cam khi chọn 1 ô trong excel.

• Thúy Sa
• Thứ năm lúc 17:17
• Những vấn đề chung

Trả lời 1 Đọc 91 Thứ năm lúc 20:29 Maika8008 L

• Question Question

Tạo ComboBox để tìm kiếm tên (1 người xem)

• lyvanthang
• Thứ năm lúc 10:36
• Lập Trình với Excel

Trả lời 4 Đọc 184 Thứ năm lúc 20:26 HUONGHCKT H T Điên đầu vì Countif

• TVT230279
• 5/12/25
• Hàm và công thức Excel

Trả lời 5 Đọc 256 Thứ năm lúc 11:30 87kilua H Quên mật khẩu khóa protect

• Hoale85
• 20/2/25
• Những vấn đề chung

Trả lời 22 Đọc 1K Thứ năm lúc 09:10 Gà Con yêu VBA

• Question Question

Hướng dẫn sửa lỗi không khởi động được ứng dụng Excel

• • 
  • 

• HeSanbi
• Thứ tư lúc 23:52
• Lập Trình với Excel

Trả lời 0 Đọc 102 Thứ tư lúc 23:52 HeSanbi K Lập trình để xoá giá trị trong file PDF

• khoa289
• 28/11/25
• Excel và các ngôn ngữ lập trình khác

Trả lời 14 Đọc 585 Thứ tư lúc 17:05 khoa289 K E

• Question Question

VBA code thay thế cho pivot-table lấy top 10, bottom 10

• • 

• eagle12
• 8/12/25
• Lập Trình với Excel

Trả lời 12 Đọc 340 Thứ tư lúc 15:26 87kilua TaxCode v4.21 - Add-in Tra cứu mã số thuế từ tổng cục thuế nhanh chóng (1 người xem)

• • 
  • 

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

Trả lời 15 Đọc 1K Thứ tư lúc 12:44 HeSanbi 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

• Maika8008 32
• dungpham01 18
• thanthanhan 16
• ongke0711 16
• nguyenanhtruong2409 14
• vic_it 11
• nhhnam 10
• eagle12 10
• Phan Thế Hiệp 10
• Vũ Hải Sơn 9
• HUONGHCKT 9
• pycckuu410 8
• bsbnhh 7
• HeSanbi 7
• Hana2610 6
• Gà Con yêu VBA 6
• Phuocam 5
• ketoan113 5
• Emyeuexcel 5
• huuthang_bd 5

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

• Phan Thế Hiệp 57
• Maika8008 26
• ongke0711 17
• thanthanhan 13
• HeSanbi 9
• dungpham01 9
• Cúc Hr 8
• eagle12 7
• HUONGHCKT 7
• Mr.hieudoanxd 5
• befaint 5
• SA_DQ 4
• nguyenanhtruong2409 4
• pycckuu410 4
• Phuocam 4
• Emyeuexcel 2
• nhhnam 2
• Dinh Hong Nhung 2
• huuthang_bd 2
• dieppk.nb92 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