Nhờ giúp đỡ code vb trong excel (1 người xem)

[dungnvps]

Chào các bác mình có bài tập nhưng ko biết phải làm sao cụ thể là trong file mình có 2 sheet 1 sheet có combobox sheet còn lại thì chứa các thông số trong đó không phải dòng nào cũng có dữ liệu mình muốn hỏi là làm sao khi chọn trong combobox thì chỉ xuất hiên những dòng có dữ liệu ra còn những dòng không có sẽ không xuất hiện. |

Chân thành cám ơn

 

[quanluu]

Chào các bác mình có bài tập nhưng ko biết phải làm sao cụ thể là trong file mình có 2 sheet 1 sheet có combobox sheet còn lại thì chứa các thông số trong đó không phải dòng nào cũng có dữ liệu mình muốn hỏi là làm sao khi chọn trong combobox thì chỉ xuất hiên những dòng có dữ liệu ra còn những dòng không có sẽ không xuất hiện. |

Chân thành cám ơn

Bạn xóa listbox đi, và list tại A2 rùi dùng code sau (Dùng listbox làm gì trong khi tận dụng Datavalidation)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    If Target.Address = "$A$2" Then
        With Sheets("Sheet2")
        For i = 2 To .Range("A1000").End(3).Row
            If .Cells(i, 1) = Cells(2, 1) Then
                For j = 2 To 5
                    Cells(2, j) = .Cells(i, j)
                Next
            End If
        Next
        End With
    End If
End Sub

 

[dungnvps]

Tks bác đã xem nhưng mình chưa hiểu lắm, bác có thể hướng dẫn cụ thể hơn ko?

 

[dungnvps]

Bạn xóa listbox đi, và list tại A2 rùi dùng code sau (Dùng listbox làm gì trong khi tận dụng Datavalidation)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    If Target.Address = "$A$2" Then
        With Sheets("Sheet2")
        For i = 2 To .Range("A1000").End(3).Row
            If .Cells(i, 1) = Cells(2, 1) Then
                For j = 2 To 5
                    Cells(2, j) = .Cells(i, j)
                Next
            End If
        Next
        End With
    End If
End Sub

Tks bác đã xem nhưng mình chưa hiểu lắm, bác có thể hướng dẫn cụ thể hơn ko?

 

[quanluu]

Tks bác đã xem nhưng mình chưa hiểu lắm, bác có thể hướng dẫn cụ thể hơn ko?

Bạn chưa hiểu đoạn nào, về code, thì bạn ấn Alt +F11, click shet1 past code. Còn về List thì bạn sẻach về Validation, trong Validation có nhiều option trog đó có List

 

[dungnvps]

Bạn chưa hiểu đoạn nào, về code, thì bạn ấn Alt +F11, click shet1 past code. Còn về List thì bạn sẻach về Validation, trong Validation có nhiều option trog đó có List

Mình làm đc rồi nhưng vấn đề là mình muốn nó show luôn 2 dòng điểm với tên môn và lấy tất cả chứ ko chỉ riêng dòng đâu tiên nhưng chỉ hiện nhưng dòng có số
ví dụ: thế này

thành thế này

 

[dungnvps]

Bạn biết ko??? giúp mình với!

 

[quanluu]

Bạn biết ko??? giúp mình với!

B dùng code này

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i, k As Integer
    k = 1
    If Target.Address = "$A$2" Then
        Range("B1:K2").ClearContents
        With Sheets("Sheet2")
        For i = 2 To .Range("A1000").End(3).Row
            If .Cells(i, 1) = Cells(2, 1) Then
                For j = 2 To 11
                    If .Cells(i, j) <> "NA" Then
                        k = k + 1
                        Cells(2, k) = .Cells(i, j)
                        Cells(1, k) = .Cells(1, j)
                    End If
                Next
            End If
        Next
        End With
    End If
End Sub

 

[dungnvps]

B dùng code này

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i, k As Integer
    k = 1
    If Target.Address = "$A$2" Then
        Range("B1:K2").ClearContents
        With Sheets("Sheet2")
        For i = 2 To .Range("A1000").End(3).Row
            If .Cells(i, 1) = Cells(2, 1) Then
                For j = 2 To 11
                    If .Cells(i, j) <> "NA" Then
                        k = k + 1
                        Cells(2, k) = .Cells(i, j)
                        Cells(1, k) = .Cells(1, j)
                    End If
                Next
            End If
        Next
        End With
    End If
End Sub

Hay quá, tks bác nhiều!!