Thêm hàng loạt Control trong USERFORM

LI�N HỆ QUẢNG C�O TẠI Đ�Y : 0988 123 126

Khi đó cần tạo ra giao diện “nhập – xuất” riêng thông qua việc sử dụng UserForm trong dự án VBA. Tổng quát lại, để nhập – xuất dữ liệu trong dự án VBA ta có thể sử dụng một trong các cách, Sử dụng chính ứng dụng nền, Sử dụng UserForm

UserForm thực chất là một (nhiều) cửa số, do người dùng lập ra nhằm giải quyết các yêu cầu khác nhau của dự án. Vì thế trong UserForm luôn có những thành phần phục vụ cho nhu cầu tương tác giữa người dùng và chương trình: Nhập, xuất dữ liệu, lựa chọn cách xử lý dữ liệu (điều hướng xử lý dữ liệu), ra lệnh xử lý… Những thành phần này được gọi là điều khiển (Controls).

II. CODE Thêm hàng loạt Control trong USERFORM

BƯỚC 1 : Ví dụ ta có 1 danh sách sản phẩm như hình dưới :

Bạn copy đoạn code này vào userform

Sub Cot1()
Dim LR, i As Integer
LR = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
Set TenSP1 = UserForm1.Controls.Add("Forms.Textbox.1")
With TenSP1
    .Name = "Label" & i
    .Left = 5
    .Height = 30
    .Top = k + 5
    .Width = 200
    .Value = Sheet1.Cells(i, 1)
End With
Private Sub UserForm_Activate()
Call Cot1
End Sub

Lr , i  : Mình khai báo biên Integer vì nó là 1 con số

Lr : ở đây mình đang tìm kiếm dòng cuối cùng của dữ liệu ở Sheet1

For i : mình cho vòng lặp chạy từ 2 đến dòng cuối chung

UserForm1.Controls.Add : ở Userform mình add các Controls có dạng là Textbox , ( bạn có thể thay đổi Label , hoặc nhìu thứ khác )

With :  để mình không cần lập lại đối tượng đó nhìu lần

Name : tên control tạo là gì ( không đc giống nhau )

Top , Left , Hight , With : các chiều cao rông, dài ngắn , nằm trên hoặc dưới , tùy vào người dùng tạo ra

Value : giá trị trả về nó là gi  ở sheet1

Sub UserForm_Activate() : khi userform bật lên là tạo các control ở code trên

Bạn có thể thêm các Properties tùy vào sở thích của bạn .

Nếu bạn muốn thêm các Textbox, chứa thông tin Tên SP trong hình dưới đây bạn phải làm như thế nào, bạn có thể tham khảo code dưới đây:

Sub Cot1()
Dim LR, i As Integer
LR = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
Set TenSP1 = UserForm1.Controls.Add("Forms.Textbox.1")
Set TenSP2 = UserForm1.Controls.Add("Forms.Textbox.1")
Set TenSP3 = UserForm1.Controls.Add("Forms.Textbox.1")
Set TenSP4 = UserForm1.Controls.Add("Forms.Textbox.1")
With TenSP1
    .Name = "Label" & i
    .Left = 5
    .Height = 30
    .Top = k + 5
    .Width = 200
    .Value = Sheet1.Cells(i, 1)
End With
With TenSP2
    .Name = "Label" & i
    .Left = 205
    .Height = 30
    .Top = k + 5
    .Width = 200
    .Value = Sheet1.Cells(i, 2)
End With
With TenSP3
    .Name = "Label" & i
    .Left = 405
    .Height = 30
    .Top = k + 5
    .Width = 50
    .Value = Sheet1.Cells(i, 3)
End With
With TenSP4
    .Name = "Label" & i
    .Left = 465
    .Height = 30
    .Top = k + 5
    .Width = 50
    .Value = Sheet1.Cells(i, 4)
End With
 k = k + 35
Next i
End Sub

Private Sub UserForm_Activate()
Call Cot1
End Sub

III. TẢI DEMO

CLICK VÀO ĐÂY ĐỂ DOWN DEMO

Kết : Như vậy, chúng tôi đã giới thiệu và hướng dẫn cho bạn về cách Thêm hàng loạt Control trong USERFORM, bài viết này có thể giúp bạn nâng cao kĩ năng tin học của mình về Desgin userform 1 cách chuyện nghiệp.

Các bài viết liên quan bên dưới.

Cuộn chuột trong Listbox Combobox WINDOWN API

Phần mềm xuất nhập tồn bằng Excel miễn phí 2021

Cho phép nhập liệu số trong TEXTBOX