làm ơn giải thích hộ mình sao vba báo lỗi User - defined type not defined

[giaosy]

Option Explicit

Private Sub CheckBox1_Click()
If CheckBox1 Then
ListBox1.Visible = True
Else
ListBox1.Visible = False
End If
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Target As Range
Dim MySel As Range

Set Target = Range("VBA_Target")
Set MySel = Intersect(ActiveCell.EntireRow, Target)
MySel.Value = ListBox1.Value

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim L As Double
Dim T As Double
Dim MaxR As Double
Dim MaxB As Double
Dim n As Integer
Dim ListR As Double
Dim ListB As Double

ListBox1.Width = 250
ListBox1.Height = 200

MaxR = Cells(1, 256).Left + Cells(1, 256).Width
MaxB = Cells(65536, 1).Top + Cells(65536, 1).Height

If ActiveCell.Column >= 255 Then
n = 0
Else
n = 2
End If

L = ActiveCell.Offset(0, n).Left
T = ActiveCell.Top

ListR = L + ListBox1.Width
ListB = T + ListBox1.Height

If ListR >= MaxR Then
L = MaxR - ListBox1.Width - (MaxR - ActiveCell.Offset(0, -1).Left)
End If

If ListB >= MaxB Then
T = MaxB - ListBox1.Height
End If

ListBox1.Top = T
ListBox1.Left = L
End Sub

 

[SoiBien]

Properties của Listbox của bạn, nếu được thì bạn up file vd lên đi, mình thử rồi mà chẳng thấy lỗi gì cả.

 

[voda]

Tất cả các thủ tục trên phải được đặt ở sheet. Nếu đặt ở module, tất nhiên bị báo lỗi.

 

[anhtuan1066]

Ủa... tôi thấy đâu có lỗi gì ta!
ANH TUẤN

 

[giaosy]

Cảm ơn các bạn đã nghiên cứu

đây là đoạn code của file do bác glasses gửi lên trong ví dụ về listbox, không hiểu sao tôi copy vào sheet mà khi chạy vẫn báo lỗi.

 

[tedaynui]

Cảm ơn các bạn đã nghiên cứu
đây là đoạn code của file do bác glasses gửi lên trong ví dụ về listbox, không hiểu sao tôi copy vào sheet mà khi chạy vẫn báo lỗi.

Vậy bạn gởi file lên xem, như vậy sẽ dễ tìm lỗi hơn.

TDN

 

[anhtuan1066]

Nên nhớ file chạy dc nhờ nhiều thứ... ko phải chỉ có code ấy là xong đâu nha! E rằng trong file của bạn còn sai cái gì đó...Kiểm tra lại đi..

 

[nvson]

To giaosy!
- Tại sheet bất kỳ bạn thêm 01 Checkbox và 01 Listbox (bằng cách cho hiện thanh Control Toolbox....)
- Nhấn phải chuột vào tên Sheet đó (trên Sheet tab), chọn View Code rồi thêm đoạn Code mà bạn đã copy được.
- Thử nhấn chuột vào các ô khác nhau trong sheet chứa 2 đối tượng đó xem sao!

 

[giaosy]

Cảm ơn các bác đã giúp. em thử luôn cái
Nhân tiện, mong các bác chỉ giúp em làm thế nào để tạo listbox hỗ trợ khi minh nhập liệu. Ví dụ như muốn nhập mã cán bộ, nhưng mã đó rất khó nhớ, khi mình nhập liệu vào vùng mã cán bộ thì cứ mỗi khi chọn 1 cell trong vùng đó, sẽ hiện lên list box hỗ trợ. Mình chỉ cần chọn mã cần thiết, nhấp chuột chọn vao cell đó thôi.
(cái này khó quá, em nghĩ mãi không được)
Cảm ơn các bác

 

[tedaynui]

Nhân tiện, mong các bác chỉ giúp em làm thế nào để tạo listbox hỗ trợ khi minh nhập liệu.

Cái này bạn có thể dùng Data / Validiation có sẵn trên Menu Excel là đơn giản nhất. Khi nào yêu cầu cao hơn (hiện nhiều cột...) thì hãy dùng Combobox (có thể tham khảo File trên GPE của Mr.Hiếu)

TDN