Hỏi về tìm kiếm và lấy dữ liệu, rồi xóa trong userform

[qthanhhp]

Mn ơi cho em hỏi chút, em làm đến bước này hơi rối
Em muốn lấy dữ liệu ở sheet VN2
Ví dụ em vào sheet VN1, Bấm vào nút Lấy dữ liệu và nhập ngày, tháng, năm, sau đó bấm nút để lấy số thì sẽ lấy số của ngày đó trong sheet VN2 có ngày tháng năm tương ứng, ví dụ ngày 1-1-2018 em có 15 số, mỗi khi em bấm lấy số đó thì số đó sẽ xóa đi trong danh sách của sheet VN2, để lần sau em lấy được số khác ngày 1-1-2018
Thứ hai nữa là, khi em nhập vào bảng tên người làm, tên đơn vị, ngày, tháng, năm, nội dung và số chứng thư tự nhảy sang sheet VN3.
cám ơn mn giúp đỡ !

 

[SA_DQ]

Tạm thời là vầy; Bạn đồng ý ta tiếp tục

 

[qthanhhp]

Tạm thời là vầy; Bạn đồng ý ta tiếp tục

em cám ơn anh, anh ơi nhưng khi kích vào 1 trong những dãy số, nó ko xóa đi nhỉ, hơn nữa, anh giúp em nó ra 1 ô trong bảng userform và tên người làm, tên đơn vị, nội dung, ngày tháng năm ra 1 vị trí nào đấy trong excel đc ko ?

 

[qthanhhp]

Tạm thời là vầy; Bạn đồng ý ta tiếp tục

thôi anh chỉ cần làm giúp em kích vào xóa đc con số đó đi và cho các nội dung tên người làm, tên đơn vị, nội dung, ngày tháng năm ra 1 vị trí nào đấy trong excel để em link sang file # là đc rồi, em cám ơn ^^

 

[SA_DQ]

Bạn xem file & cho ý kiến để bổ sung những cần thiết

(Thời gian hiệp fụ bắt đầu, VN đá hay quá!)

 

[qthanhhp]

Bạn xem file & cho ý kiến để bổ sung những cần thiết

(Thời gian hiệp fụ bắt đầu, VN đá hay quá!)

ANH LÀM QUÁ HAY RỒI Ạ ! NHƯNG ANH THÊM GIÚP EM CODE ĐỂ KO CHỈNH SỬA ĐƯỢC, KO XÓA DÒNG ĐƯỢC TỪ CỘT A- CỘT H VỚI, VÌ E KO MUỐN CHO AI SỬA DỮ LIỆU KHI XUẤT RA, THỨ 2 LÀ những cột A-H này sau khi khóa rồi thì em muốn link sang file # đc ko ?
A giải thích giúp e ở chỗ code lấy từ dữ liệu sheet VN2 nhé, vì có thể em phải thêm rất nhiều số anh ạ

 

[SA_DQ]

(1.1) ANH LÀM QUÁ HAY RỒI Ạ ! NHƯNG ANH THÊM GIÚP EM CODE ĐỂ KO CHỈNH SỬA ĐƯỢC, KO XÓA DÒNG ĐƯỢC TỪ CỘT A- CỘT H VỚI, VÌ E KO MUỐN CHO AI SỬA DỮ LIỆU KHI XUẤT RA, (1.2) THỨ 2 LÀ những cột A-H này sau khi khóa rồi thì em muốn link sang file # đc ko ?
(2) A giải thích giúp e ở chỗ code lấy từ dữ liệu sheet VN2 nhé, vì có thể em phải thêm rất nhiều số anh ạ

(1.1) Bạn đang cần khóa dữ liệu trang nào, trong các trang cua file? Nhưng chắc bạn phải nhờ các bạn khác trên cộng đồng hay tìm trên diễ đàn đi vậy
(1.2) Chuyện này mình chưa rành, nên cũng nên thực hiện như (1.1)
(2)

Option Explicit
Dim Ar0()
Dim TriXoa As Long

Private Sub CmdLaySo_Click()
  Dim Rws As Long, J As Long, W As Integer
Dim Sh As Worksheet, Arr()
1 ReDim Ar0(1 To 200, 1 To 1)
Set Sh = ThisWorkbook.Worksheets("VN2")
3 Rws = Sh.[B1].CurrentRegion.Rows.Count
Arr() = Sh.[B2].Resize(Rws, 4).Value
5 Ar0(1, 1) = "Sô Trong Ngày":                 W = 1
For J = 1 To UBound(Arr())
7    If Arr(J, 3) = CLng(Me!tbNam.Value) Then
        If Arr(J, 2) = CInt(Me!tbThang.Value) And Arr(J, 1) = CInt(Me!tbNgay.Value) Then
9            W = W + 1:                              Ar0(W, 1) = Arr(J, 4)
        End If
11    End If
Next J
13 Me!lbSTN.List = Ar0()
End Sub

Dòng thứ 2 & 3: Khai báo những tham biến dùng chung
2 dòng trên dòng có số 1: Khai báo các biến xài trong macro
D1: Khai báo lại chỉ số cho biến mảng dùng chung
Ta có thể thay con số 200 tùy thuộc dữ liệu ít hay nhiều
D2: Đem trang tính 'VN2' gán vô tham biến đã khai báo
D3: Lấy tổng số dòng trong vùng dữ liệu gán vô biến tương ứng
D4: Đem vùng dữ liệu bắt đầu bỡi ô [B2] trãi dài theo chỉ số dòng & 4 cột gán vô mảng đã khai báo;
D5: Mệnh đề đầu: Ấn định trị đầu tiên trong mãng là 1 chuỗi
Mệnh đề sau: Ấn định biến đếm (của mảng) là 1
D6: Thiết lập vòng lặp For . . . Next để duyệt toàn bộ dòng trong mảng
Vòng lặp này kết thúc tại D12
D7: Điều kiện Nếu thành tố thứ 3 trong dòng đang duyệt bằng với chuỗi số (đã biến đổi sang số) của TextBox có tên là tbNam thì thực hiện các lệnh trước dòng lệnh D11
D8: Điều kiện kép nếu thành tố thứ 2 của dòng đang duyệt bằng với (. . .) tbThang & . . . thì thực hiện 2 mệnh đề của D9
D9: Cộng biến đếm thêm 1 đơn vị
Gán trị của thành tố cuối (của dòng đang duyệt) vô mảng dùng chung (đã khai báo)
D10: Kết thúc điều kiện (D8)
D13: Lấy những gì chứa trong mảng gán làm List của ListBox

Những mong ít nhiều giúp được bạn!

 

[qthanhhp]

(1.1) Bạn đang cần khóa dữ liệu trang nào, trong các trang cua file? Nhưng chắc bạn phải nhờ các bạn khác trên cộng đồng hay tìm trên diễ đàn đi vậy
(1.2) Chuyện này mình chưa rành, nên cũng nên thực hiện như (1.1)
(2)

Option Explicit
Dim Ar0()
Dim TriXoa As Long

Private Sub CmdLaySo_Click()
  Dim Rws As Long, J As Long, W As Integer
Dim Sh As Worksheet, Arr()
1 ReDim Ar0(1 To 200, 1 To 1)
Set Sh = ThisWorkbook.Worksheets("VN2")
3 Rws = Sh.[B1].CurrentRegion.Rows.Count
Arr() = Sh.[B2].Resize(Rws, 4).Value
5 Ar0(1, 1) = "Sô Trong Ngày":                 W = 1
For J = 1 To UBound(Arr())
7    If Arr(J, 3) = CLng(Me!tbNam.Value) Then
        If Arr(J, 2) = CInt(Me!tbThang.Value) And Arr(J, 1) = CInt(Me!tbNgay.Value) Then
9            W = W + 1:                              Ar0(W, 1) = Arr(J, 4)
        End If
11    End If
Next J
13 Me!lbSTN.List = Ar0()
End Sub

Dòng thứ 2 & 3: Khai báo những tham biến dùng chung
2 dòng trên dòng có số 1: Khai báo các biến xài trong macro
D1: Khai báo lại chỉ số cho biến mảng dùng chung
Ta có thể thay con số 200 tùy thuộc dữ liệu ít hay nhiều
D2: Đem trang tính 'VN2' gán vô tham biến đã khai báo
D3: Lấy tổng số dòng trong vùng dữ liệu gán vô biến tương ứng
D4: Đem vùng dữ liệu bắt đầu bỡi ô [B2] trãi dài theo chỉ số dòng & 4 cột gán vô mảng đã khai báo;
D5: Mệnh đề đầu: Ấn định trị đầu tiên trong mãng là 1 chuỗi
Mệnh đề sau: Ấn định biến đếm (của mảng) là 1
D6: Thiết lập vòng lặp For . . . Next để duyệt toàn bộ dòng trong mảng
Vòng lặp này kết thúc tại D12
D7: Điều kiện Nếu thành tố thứ 3 trong dòng đang duyệt bằng với chuỗi số (đã biến đổi sang số) của TextBox có tên là tbNam thì thực hiện các lệnh trước dòng lệnh D11
D8: Điều kiện kép nếu thành tố thứ 2 của dòng đang duyệt bằng với (. . .) tbThang & . . . thì thực hiện 2 mệnh đề của D9
D9: Cộng biến đếm thêm 1 đơn vị
Gán trị của thành tố cuối (của dòng đang duyệt) vô mảng dùng chung (đã khai báo)
D10: Kết thúc điều kiện (D8)
D13: Lấy những gì chứa trong mảng gán làm List của ListBox

Những mong ít nhiều giúp được bạn!

(1) em cám ơn anh đã nhiệt tình giúp đỡ và phân tích cho em hiểu, ý em là cột A-cột G khi em đánh dữ liệu vào bảng thì nó xuất ra đấy, nhưng em ko muốn ai được sửa hay xóa dòng, chèn dòng trong vùng cột A-H này, nếu yêu cầu sửa thì em có tạo cột H ghi chú để ai muốn sửa cái gì thì tự gõ tay vào.
(2) em đã thử tìm kiếm và để làm cái userform gõ nhập tìm kiếm nhưng ít có tài liệu, em nhờ anh giúp em tạo cái bảng userform tìm kiếm theo các cột A- cột H.
Chân thành cảm ơn anh !
File em đính kèm, để a dễ hiểu ý em hơn

 

[snow25]

(1) em cám ơn anh đã nhiệt tình giúp đỡ và phân tích cho em hiểu, ý em là cột A-cột G khi em đánh dữ liệu vào bảng thì nó xuất ra đấy, nhưng em ko muốn ai được sửa hay xóa trong vùng cột A-H này, nếu yêu cầu sửa thì em có tạo cột H ghi chú để ai muốn sửa cái gì thì tự gõ tay vào.
(2) em đã thử tìm kiếm và để làm cái userform gõ nhập tìm kiếm nhưng ít có tài liệu, em nhờ anh giúp em tạo cái bảng userform tìm kiếm theo các cột A- cột H.
Chân thành cảm ơn anh !
File em đính kèm, để a dễ hiểu ý em hơn

Mở xem code lại còn có cả pass.Hi.

 

[qthanhhp]

Mở xem code lại còn có cả pass.Hi.

mìng đang ứng dụng để 1 sheet đầu vào thôi, bạn xem lại nhé, cám ơn ^^

 

[qthanhhp]

(1.1) Bạn đang cần khóa dữ liệu trang nào, trong các trang cua file? Nhưng chắc bạn phải nhờ các bạn khác trên cộng đồng hay tìm trên diễ đàn đi vậy
(1.2) Chuyện này mình chưa rành, nên cũng nên thực hiện như (1.1)
(2)

Option Explicit
Dim Ar0()
Dim TriXoa As Long

Private Sub CmdLaySo_Click()
  Dim Rws As Long, J As Long, W As Integer
Dim Sh As Worksheet, Arr()
1 ReDim Ar0(1 To 200, 1 To 1)
Set Sh = ThisWorkbook.Worksheets("VN2")
3 Rws = Sh.[B1].CurrentRegion.Rows.Count
Arr() = Sh.[B2].Resize(Rws, 4).Value
5 Ar0(1, 1) = "Sô Trong Ngày":                 W = 1
For J = 1 To UBound(Arr())
7    If Arr(J, 3) = CLng(Me!tbNam.Value) Then
        If Arr(J, 2) = CInt(Me!tbThang.Value) And Arr(J, 1) = CInt(Me!tbNgay.Value) Then
9            W = W + 1:                              Ar0(W, 1) = Arr(J, 4)
        End If
11    End If
Next J
13 Me!lbSTN.List = Ar0()
End Sub

Dòng thứ 2 & 3: Khai báo những tham biến dùng chung
2 dòng trên dòng có số 1: Khai báo các biến xài trong macro
D1: Khai báo lại chỉ số cho biến mảng dùng chung
Ta có thể thay con số 200 tùy thuộc dữ liệu ít hay nhiều
D2: Đem trang tính 'VN2' gán vô tham biến đã khai báo
D3: Lấy tổng số dòng trong vùng dữ liệu gán vô biến tương ứng
D4: Đem vùng dữ liệu bắt đầu bỡi ô [B2] trãi dài theo chỉ số dòng & 4 cột gán vô mảng đã khai báo;
D5: Mệnh đề đầu: Ấn định trị đầu tiên trong mãng là 1 chuỗi
Mệnh đề sau: Ấn định biến đếm (của mảng) là 1
D6: Thiết lập vòng lặp For . . . Next để duyệt toàn bộ dòng trong mảng
Vòng lặp này kết thúc tại D12
D7: Điều kiện Nếu thành tố thứ 3 trong dòng đang duyệt bằng với chuỗi số (đã biến đổi sang số) của TextBox có tên là tbNam thì thực hiện các lệnh trước dòng lệnh D11
D8: Điều kiện kép nếu thành tố thứ 2 của dòng đang duyệt bằng với (. . .) tbThang & . . . thì thực hiện 2 mệnh đề của D9
D9: Cộng biến đếm thêm 1 đơn vị
Gán trị của thành tố cuối (của dòng đang duyệt) vô mảng dùng chung (đã khai báo)
D10: Kết thúc điều kiện (D8)
D13: Lấy những gì chứa trong mảng gán làm List của ListBox

Những mong ít nhiều giúp được bạn!

Gửi anh SA_DQ
Em có 2 nút bấm Tìm kiếm VN1 và Tìm kiếm VN4, em muốn tìm kiếm theo các ô từ A-G, để tìm cho nhanh ấy ạ
Lưu ý là ở nút Tìm kiếm VN2 vẫn ở sheet VN1 và tìm kiếm dữ liệu ở sheet VN4
Cảm ơn Anh ạ

 

[SA_DQ]

Thú thực chưa thể rõ ý của bạn lắm; Hay bạn vận hành thử file này

 

[qthanhhp]

Thú thực chưa thể rõ ý của bạn lắm; Hay bạn vận hành thử file này

TRỜI ƠI, DỄ HIỂU MÀ, SAO KO AI HIỂU LÀ SAO ??? ((((((((
anh đọc tin nhắn em gửi inbox riêng cho anh và anh thử tải lại em có gửi ở trên phần trả lời file "text number 1" đi ạ

 

[qthanhhp]

Thú thực chưa thể rõ ý của bạn lắm; Hay bạn vận hành thử file này

anh thấy cái của em có khả thi ko anh ?