Góp ý cho bạn:
Danh sách đó và em tự nhập trong công thức.
Arr = Array("a", "b", "c", "d")Private Sub ComboBox1_Change()
ComboBox1.List = Array("a", "b", "c", "d")
End Sub
Đối với object thuộc Form Controls bạn không làm vậy được! Cụ thể với ComboBox trong file của bạn, ta phải làm thế này:
Sub CreateCboList()
Dim drp As DropDown
Set drp = Sheet1.DropDowns("Drop Down 1")
drp.List = Array("a", "b", "c", "d")
End SubSub CreateCboList()
Sheet1.DropDowns("Drop Down 1").List = Array("a", "b", "c", "d")
End Sub
Bác quá siêu. E quá phục bác luôn
Làm như sau:Bác quá siêu. E quá phục bác luôn
bác cho e hỏi giờ muốn lấy giá trị trong mảng đó và kiểm tra điều kiện và lọc với mảng bên dưới để in danh sách thì phải khai báo kiểu gì để lấy được ra ạ. Em chưa kiểu rõ lắm
Public drp As DropDown
Private Sub Auto_Open()
Set drp = Sheet1.DropDowns("Drop Down 1")
CreateCboList
End Sub
Private Sub CreateCboList()
drp.List = Array("*", "a", "b", "c", "d")
End Sub
Sub CboFilter()
If drp Is Nothing Then Auto_Open
Dim sFilter As String, rng As Range
Set rng = Sheet1.Range("A5", Sheet1.Range("E60000").End(xlUp))
sFilter = drp.List(drp.Value)
If sFilter = "*" Then
rng.AutoFilter 3
Else
rng.AutoFilter 3, sFilter
End If
End Sub Public drp As DropDownIf sFilter = "*" Then
rng.AutoFilter 3
Else
rng.AutoFilter 3, sFilter
End IfĐúng là như vậy! Vì các sub điều có dùng đến biến drp nên khai báo chung 1 lần luôn
AutoFilter 3 nghĩa là ShowAll dữ liệu tại cột 3 ấy mà
Không phải cái đó, mà là cái UserForm trong bài viết ở Link sau:
Bác NDU cho em hỏi chút là với trường hợp các biến ở trong mảng khá nhiều và không muốn viết nó ra 1 vùng dữ liệu trong bảng tính thì kết với giữa việc nhập biến với vòng lặp for để thêm giá trị trong biến được không ạ?
Sub Array()
Dim Arr1(21)
Dim i As Integer
Arr(1)="*"
For i = 1 To 20
Arr(i+1) = "A" & i
Next i
End Subthay vì mình muốn tìm xi măng mình phải kéo từ A -> X. bây giờ mình nhập X thì nó sổ ra tòan bộ những sản phẩm có từ X
Mình nghĩ là cái này đúng là cái mình cần. Cám ơn bạn. Nếu nội dung cần tìm mình để ở sheet khác thì mình viết code như thế nào
Nội dung cần tìm ở sheet khác? Vậy khi bạn đứng tại sheet này và gõ thì làm cách nào bạn nhìn thấy cái sheet khác ấy có thay đổi?
VD. mình đang ở sheet bán hàng, nhưng mình cần tìm dư liệu ở kho hàng thi mình đâu làm theo cách này được
Bạn có thể filter ở sheet kia và copy giá trị đó in vào vùng hiển thị.
sFilter = drp.List(drp.Value)Public DD As DropDown 'DD: bien duoc dung chung cho ca Modules'
Private Sub Auto_Open()
Set DD = Sheet1.DropDowns("Drop Down 1")
CreateCboList
End Sub
Private Sub CreateCboList()
DD.RemoveAllItems
DD.AddItem ("*")
For i = 2 To 23
a = i-1
tCell = Sheet2.Range("B" & a).Value
If Len(tCell) > 0 Then
DD.AddItem (tCell)
End If
Next i
End Sub
Sub CboFilter()
Auto_Open
Dim sFilter As String, Rng As Range
Set Rng = Sheet1.Range("A5", Sheet1.Range("E60000").End(xlUp))
sFilter = DD.List(DD.Value)
If sFilter = "*" Then
Rng.AutoFilter 3
Else
Rng.AutoFilter 3, sFilter
End If
End SubBạn sửa sao cũng phải đưa file lên đây! Tôi không rảnh để giả lập dữ liệu rồi test giúp đâu
