Lập trình cho vùng dữ liệu (1 người xem)

[thesaintzero]

Ai có thể cho mình hỏi viết Code VB như thế nào để mình có thể đặt 1 vùng dữ liệu bao gồm row và column để khi hiển thị thì có thể lấy dữ liệu trong vùng mình đã đặt.
VD cụ thể : mình có nhiều vùng dữ liệu tương đồng bao gồm 5 cột và 10 dòng.
VÙng thứ 1 A1:E10) cách khoảng 3 dòng là tới vùng dữ liệu thứ 2
Vùng thứ 2 A13:E23)cách khoảng 3 dòng là tới vùng dữ liệu thứ 3
.....
.....
Vậy mong các thầy và các cao thủ giúp đỡ sao cho khi hiển thị trong listbox sẽ có được vùng dữ liệu cụ thể.....cám ơn các thầy và các cao thủ trước

 

[SA_DQ]

Chọn vùng cần thiết tại [G1]

Macro sự kiện sẽ chép vùng cần cho bạn đến vùng đã gán tên là 'ListBOX'

Chuyện còn lại là của bạn, khì, khì,. . .

 

[thesaintzero]

Cám ơn bạn, nhưng cái mình muốn hỏi là cái list box trong form đó. Mình có tạo 1 nút tìm kiếm cho tên, nhưng cái tên lại nằm giữa 2 vùng dữ liệu, khi mình bấm cái nút tìm kiếm thì trong listbox sẽ hiện ra vùng dữ liệu nắm phía dưới cái tên đó.
Mình có viết thử nhưng không biết sai chỗ nào bạn xem lại dùm mình được không?
Mong chờ tin của bạn....

 

[SA_DQ]

(1)Nhìn code bạn viết thế này, thì muốn bye bạn luôn

Private Sub cmdtim1_Click()
On Error Resume Next
Dim strFind As String, strSearch As String
strSearch = txttim1.Value
Sheet1.Activate
If dg = False Then
Set rngFind = Cells.find(strSearch)
               If Not rngFind Is Nothing Then
               rngfinddau = rngFind.Address
                rngFind.Select
                dg = True
                Exit Sub
                Else
                MsgBox "Khong tim thay", , "THONG BAO"
                Exit Sub
                End If
End If
If dg = True Then
Set rngFind = Cells.FindNext(After:=rngFind)
rngFind.Select
              If rngFind.Address = rngfinddau Then
               dg = False
                MsgBox "Tim kiem da hoan tat", , "THONG BAO"
                End
                End If
End If
End Sub

Khi nhập vào thông tin tìm kiếm "cụ thể là tên hoặc số cmnd" xong bấm nút tìm thì bàng Userform2 hiện ra

Nhưng khi đó, tên người cần tìm lại là "Bà: Cao Thị T­ư"
hay CMND thì bạn lưu giữ kiểu không giống ai, thế này: "Sinh năm: 1944 Số CMND: 021127970 tại công an TPHCM"
Trong khi đó, câu lệnh bạn fán là"

Set rngFind = Cells.find(strSearch)

thì VBA tìm ra được cho bạn mới là đáng sợ!

Tóm lại, bạn nên tìm hiểu thêm thế nào là 1 CSDL tốt, rồi chúng ta hãy tiếp tục./.

 

[thesaintzero]

thì mình mới nói là mình là người mới tìm hiểu mà, với lại file dữ liệu người ta quy định thế thì làm sao mình thay đổi được, cái mình cần là làm sao để lấy đc nó, bời vậy mình mới viết nhiều cách trong đó xem cách nào sử dụng được, nếu bạn biết mình sai chỗ nào bạn có thể chỉ chỗ cho mình sửa đc ko?