Kết quả tìm kiếm

Bác nào biết cách làm cái tính năng như ở trên hình chỉ em với ạ (VB.NET). Em tưởng là Tabcontrol nhưng không phải.

Như tiêu đề các anh chị cho e hỏi trong listview có cách nào hiển thị dòng cuối cùng không ạ?

Như tiêu đề bác nào chỉ giúp em cách tạo báo cáo report với dữ liệu lấy từ listview ko a? em vướng mắc quá! Thanks các bác ạ.

Xin chào các bạn qua tìm hiểu thì viết tiếng việt có dấu trong vba excel có vẻ khá nan giải, cũng có 1 số cách của các pro chỉ dẫn nhưng mình thấy nó vẫn chưa phải là cách dễ. Sau 1 hồi tìm tòi lục lọi, mình đã tìm ra cách không biết đã có ai biết chưa nếu có vô tình giống các của topic nào đó...

Hiện tại em đang tìm hiểu về scripting.dictionary. Theo ý hiểu của em thì mỗi 1 Item nó giống như 1 cái TÚI để chứa dữ liệu và tên của từng cái TÚI đó là KEY. Cho em hỏi ngu xíu là giờ em muốn gọi 1 cái túi với tên cụ thể thì dùng phương thức nào với ạ? Thanks các bác ạ?

Em có bảng cdsl excel (thực tế nhiều dòng với các giao dịch được xắp xếp hỗn độn, có có nào dùng VBA để lọc ra được thành 1 ds như phía dưới. Ý định của em là đưa cái kết quả vào vào 1 listbox, nhưng em chưa tìm ra thuật toán cũng như code để giải quyết, các bác giúp em với. Thanks các bác nhiều ạ.

Các bác ơi giúp em với! Em mới học vba, em có đoạn code như này: Sub demo() Dim endrow As Long endrow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row ................... End Sub Bây giờ em muốn thay thế cái chữ "Sheet2" bôi đỏ kia bằng 1 giá trị của 1 ô cell thì làm như nào ạ? Thanks các bác?

Sub lap() Dim a, b, c As Long Dim endrow As Long Dim kq1() endrow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row arr2 = Sheet2.Range("A1:O" & endrow).Value For c = 1 To 14 ReDim kq1(1 To UBound(arr2, 1) - c, 1 To UBound(arr2, 2) - c) For a = 1 To (UBound(arr2, 1) - 1) For b = 2 To UBound(arr2...

Sub lap() Dim a, b, c As Long Dim endrow As Long Dim kq1() endrow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row arr2 = Sheet2.Range("A1:O" & endrow).Value For c = 1 To 14 ReDim kq1(1 To UBound(arr2, 1) - c, 1 To UBound(arr2, 2) - c) For a = 1 To (UBound(arr2, 1) - 1) For b = 2 To UBound(arr2...

Sub lap() Dim a, b, c As Long Dim endrow As Long Dim kq1() endrow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row arr2 = Sheet2.Range("A1:O" & endrow).Value For c = 1 To 14 ReDim kq1(1 To UBound(arr2, 1) - c, 1 To UBound(arr2, 2) - c) For a = 1 To (UBound(arr2, 1) - 1) For b = 2 To UBound(arr2...

Sub lap() Dim a, b, c As Long Dim endrow As Long Dim kq1() endrow = Sheet2.Range("A" & Rows.Count).End(xlUp).Row arr2 = Sheet2.Range("A1:O" & endrow).Value For c = 1 To 14 ReDim kq1(1 To UBound(arr2, 1) - c, 1 To UBound(arr2, 2) - c) For a = 1 To (UBound(arr2, 1) - 1) For b = 2 To UBound(arr2...

Các cao nhân cho mình hỏi, có cách nào để dữ liệu luôn dc làm mới trên listbox khi ta nhập dữ liệu vào bảng, và trên list box hiện thị dòng cuối của bảng dữ liệu thay vì hiện dòng đầu tiên của bảng. Thanks các bác