Page 175 - Bửu Ngôn Du Lịch Ba Miền Tập 1

X = AcPITLVCeCell.Offset(l, l).Left
' Tính tọa độ y vị trí dưới phải của cell hiện hành
y = AcPITLVCeCell.Offset(l, l).Top
' Add 1 listbox vào Worksheet hiện hành tại vị trí x,y

Set Box = AcPITLVCeSheet.ListBoxes.Add(x, y, 100, 50)
' Thiết lập nội dung của listbox
Box.Addltem "Mục 1"
Box.Addltem "Mục 2"

Box.Addltem "Mục 3"
End Sub
Còn sau đây là macro chứa đoạn code VBA hiển thị
listbox theo cách 1 (trong ưserPorm):
'Macro hiển thị UserPorm chứa listbox lên trên
W orksheet
Sub UserPormDispO
Dim X As Integer
Dim y As Integer
' Tính tọa độ X vị trí dưới phải của cell hiện hành
X = AcPITLVCeCell.Offset(l, l).Left
' Tính tọa độ y vị trí dưới phải của cell hiện hành
y = AcPITLVCeCell.Offset(l, l).Top
' Đổi vị trí tương đối x,y thành vị trí tuyệt đối so với vị
trí trên trái màn hình

UserPorm l.StartUpPosition = 0
' Thiết lập nội dung của listbox
UserPorml.ListBoxl.Addltem "Muc 1"
UserPorml.ListBoxl.Addltem "Muc 2"
UserPorml.ListBoxl.Addltem "Muc 3"

177