Không biết có phải như vầy không
Combobox mà chỉ hiện ra có 1 giá trị thì sao gọi là combobox ta? Bạn dùng label thì hơn
K phải ra 1 giá trị. Ra một mảng là các giá trị cột của dòng đầu tiên ( tức là những ơi màu xám trong file. Thỏa điều kiện ơi k2 và dòng chứa nó khác rổng
Theo như hàm bạn viết thì kết quả không phải 1 mảng mà chỉ duy nhất 1 giá trị mà thôi.
combobox hiện ra những ô tô màu xanh trong file dinh kem, trong file này chi hiện được 1 ô , mình muốn hiện hết những ô màu xanh, khi các dòng ứng với ô K2 khasc rổng
Tóm lại là bạn có một hàng, trên hàng đó có vài ô tô màu, giờ muốn đưa giá trị của các ô đó vào combobox
Có thể cái chủ Topic yêu cầu giống bài này (thay vì dùng Validation phụ thuộc thì lại dùng Form):
Nôn nao đốt thời gian mong chọn mơ ước, nao hay đâu bạn ý có nói rõ đâu.
Vậy bạn thay lại cái hàm listwire cũ bằng hàm này thử xem
Function listwire(ByVal ter As String, Darr())
Dim dic As Object, i As Long, j As Long
Set dic = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(Darr)
If Darr(i, 1) = ter Then
For j = 2 To UBound(Darr, 2)
If Darr(i, j) <> Empty Then
dic.Add Darr(1, j), ""
End If
Next j
End If
Next i
listwire = dic.Keys
End FunctionMinh chua hiểu ý bạn. Nhưng minh viết chương trình tìm kiếm dữ liệu. Do phần này ảnh hưởng đen mảng và dictionary
mọi ngừoi không ai quan tâm là mảng hay dic, quan tâm là bạn đang muốn gì, ý định là gì. lập trình là cứ nước chảy bèo trôi thôi. thớt này bị kéo dài là do bạn cứ loanh quanh không nói rõ yêu cầu, toàn nói chuyện trăng sao. Khó nói thế thì dùng gạch đầu dòng
hì bặm mình cũng nói rỗ rồi, bạn Hoa bất tử đã code giúp đúng ý mình
Em đâu biết gì đâu. Chỉ xóa đại mấy cái dòng kia Ai ngờ lại được khen. Thật ngại quá đi ... Xí hổ quá
Nếu tôi không nhìn nhầm thì về cơ bản ý tưởng GoTo Thoat của bạn là đúng, nhưng bạn đặt sai chỗ. Phải đặt sau Next j
Next j
GoTo ThoatNext j
Exit ForDạ cái GoTo Thoat là do em thêm vào ạ. Chứ Code của bài 1 là Exit Function. Cám ơn anh nhiều ạ
