Giúp cố định Listbox active trong Excel (1 người xem)

[congnguyen88]

Mình có dùng đoạn code sau để bật tắt Listbox
lislbox khong hiểu sau kích thước lislbox mình đã Design rồi, nhưng sau mỗi lần chạy code thì Listbox cứ dịch chuyển sang trái


Sub thaydoi()
With Sheets("Ban hang").TextBox1
.Visible = False
.Visible = True
.Left = ActiveCell.Left
.Top = ActiveCell.Top
.Width = ActiveCell.Width
.Height = ActiveCell.Height * 1.2
.Value = ""
.Activate
End With
With Sheets("Ban hang").ListBox1
.Visible = False
.Visible = True
.Clear
End With
End Sub


Sub Hide()
With Sheets("Ban hang").TextBox1
.Visible = False
End With
With Sheets("Ban hang").ListBox1
.Clear
.Visible = False
End With
End Sub





Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$H$2" Then
thaydoi
Else
Hide
End If
End Sub

 

[Hoàng Trọng Nghĩa]

Có phải cái ListBox luôn luôn hiện ra và ở vị trí dưới cái TextBox hay không?

 

[congnguyen88]

Có phải cái ListBox luôn luôn hiện ra và ở vị trí dưới cái TextBox hay không?

đúng rồi anh ơi, và code này cũng là e lấy của anh đó. anh giúp em làm sao nó nằm dưới và giử đúng kích thước khi design

 

[Hoàng Trọng Nghĩa]

đúng rồi anh ơi, và code này cũng là e lấy của anh đó. anh giúp em làm sao nó nằm dưới và giử đúng kích thước khi design

Vậy thì bạn copy code này vào Module của bạn:

Sub thaydoi()
    With Sheets("Ban hang").TextBox1
        .Visible = False
        .Visible = True
        .Left = ActiveCell.Left
        .Top = ActiveCell.Top
        .Width = ActiveCell.Width
        .Height = ActiveCell.Height * 1.2
        .Value = ""
        .Activate
    End With
    With Sheets("Ban hang").ListBox1
        .Left = TextBox1.Left - (.Width - TextBox1.Width)
        .Top = TextBox1.Top + TextBox1.Height
        .Visible = False
        .Visible = True
        .Clear
    End With
End Sub