Giúp lọc dữ liệu từ Sheet này qua Sheet khác có điều kiện (3 người xem)

DIEMXUA1810 · 6/3/12

Em có 1 file trong đó có 2 sheet làm việc, 1 sheets để in, 1 sheet nhập liệu.
mỗi lần in phải copy từng số liệu rồi in nên rất mất thời gian.
anh/chị nào giúp em chỉ cần nhập số serial là những số liệu còn lại sẽ được đưa vào đúng những ô tương ứng.
em gửi file đính kèm anh chị tham khảo.
trên diễn đàn cũng có nói nhiều, nhưng em không vận dụng được.
Note : em có thể thay đổi tên file, tên sheet vì file được dùng nhiều tháng khác nhau
Thanks nhiều !

Ba Tê · 6/3/12

DIEMXUA1810 đã viết:
Em có 1 file trong đó có 2 sheet làm việc, 1 sheets để in, 1 sheet nhập liệu.
mỗi lần in phải copy từng số liệu rồi in nên rất mất thời gian.
anh/chị nào giúp em chỉ cần nhập số serial là những số liệu còn lại sẽ được đưa vào đúng những ô tương ứng.
em gửi file đính kèm anh chị tham khảo.
trên diễn đàn cũng có nói nhiều, nhưng em không vận dụng được.
Note : em có thể thay đổi tên file, tên sheet vì file được dùng nhiều tháng khác nhau
Thanks nhiều !

Tôi xài Excel 2003 và đang tập với VBA, làm bằng VBA cho bạn xem thử nhé.

DIEMXUA1810 · 6/3/12

Ba Tê đã viết:
Tôi xài Excel 2003 và đang tập với VBA, làm bằng VBA cho bạn xem thử nhé.

Thanks Ba Tê nhiều lắm,
Mình thấy cũng được rồi, nhưng có 1 vấn đề là Ba Tê đã tahy đổi vị trí Cell của mình,
Mình muốn File của mình vẫn giữ nguyên đúng vị trí của từng danh mục vậy.

Ba Tê · 6/3/12

DIEMXUA1810 đã viết:
Thanks Ba Tê nhiều lắm,
Mình thấy cũng được rồi, nhưng có 1 vấn đề là Ba Tê đã tahy đổi vị trí Cell của mình,
Mình muốn File của mình vẫn giữ nguyên đúng vị trí của từng danh mục vậy.

Xem lại file này đi, thay địa chỉ ô một chút thôi mà.

DIEMXUA1810 · 7/3/12

Ba Tê đã viết:
Xem lại file này đi, thay địa chỉ ô một chút thôi mà.

Tuyệt rồi Ba Tê ah ! Nhưng cho mình hỏi chút xíu nữa nha :
- Tại sao khi mình thêm số serial bên sheet2 thì ở sheet1 tại cột H lại hiện lên, muốn làm cho nó mất không được. (cái này dư thừa quá)
- Nếu ta nhập sai số serial vào ô B1 Sheet1 thì VBA báo lỗi, có cách nào néu ta nhập sai số serial hoặc số serial ko nằm trong danh sách sẽ xuất hiện 1 Box Messenger "Sai số số serial hoặc serial không có" OK !
Hic... được voi đòi tiên .... }}}}}

Giúp mình lần nữa đi Ba Tê !

Thanks nhiều !

Ba Tê · 7/3/12

DIEMXUA1810 đã viết:
Tuyệt rồi Ba Tê ah ! Nhưng cho mình hỏi chút xíu nữa nha :
- Tại sao khi mình thêm số serial bên sheet2 thì ở sheet1 tại cột H lại hiện lên, muốn làm cho nó mất không được. (cái này dư thừa quá)
- Nếu ta nhập sai số serial vào ô B1 Sheet1 thì VBA báo lỗi, có cách nào néu ta nhập sai số serial hoặc số serial ko nằm trong danh sách sẽ xuất hiện 1 Box Messenger "Sai số số serial hoặc serial không có" OK !
Hic... được voi đòi tiên ....
Giúp mình lần nữa đi Ba Tê !

Thanks nhiều !

"Chời ơi!", "cực khổ" lắm mới làm được cái cột H để làm Validaion cho ô B1 dễ tìm và không thể nhập số Seri không có bên Sheet2,
Giờ lại đòi nhập thủ công vào ô B1 ư? Cái cột H có thể ẩn đi được mà, có xấu lắm đâu.
"Muốn thì chìu". Giờ thì nhập thủ công vào ô B1 nhé, hổng có nút để chọn đâu.

DIEMXUA1810 · 7/3/12

Ba Tê đã viết:
"Chời ơi!", "cực khổ" lắm mới làm được cái cột H để làm Validaion cho ô B1 dễ tìm và không thể nhập số Seri không có bên Sheet2,
Giờ lại đòi nhập thủ công vào ô B1 ư? Cái cột H có thể ẩn đi được mà, có xấu lắm đâu.
"Muốn thì chìu". Giờ thì nhập thủ công vào ô B1 nhé, hổng có nút để chọn đâu.

OK ! quá tuyệt ! còn gì bằng, bây giờ mình sẽ nghiên cứu tiếp những đoạn code của Ba Tê ...! Phải tập làm VBA nhiều thôi. mình tụt hậu quá !
Thanks nhiều nhiều ...!

shuya1988 · 7/3/13

DIEMXUA1810 đã viết:
OK ! quá tuyệt ! còn gì bằng, bây giờ mình sẽ nghiên cứu tiếp những đoạn code của Ba Tê ...! Phải tập làm VBA nhiều thôi. mình tụt hậu quá !
Thanks nhiều nhiều ...!

Gửi anh Ba Tê !
Em cũng có bài tương tự nè, em dựa theo bai của anh làm mà không được, anh có thể giải thích code cho em ko? hướng dẫn cách làm cụ thể á. Em cảm ơn anh nhé

xuan.nguyen82 · 8/3/13

shuya1988 đã viết:
Gửi anh Ba Tê !
Em cũng có bài tương tự nè, em dựa theo bai của anh làm mà không được, anh có thể giải thích code cho em ko? hướng dẫn cách làm cụ thể á. Em cảm ơn anh nhé

Tại sheet "ngaygiaohang", ô C3, bạn nhập ngày.
Tại sheet "solenhmuahang" bạn nhập số lệnh...
Code:

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tem As Date, sArr(), dArr(), I As Long, J As Long, K As Long
If Target.Address = "$A$3" Then
    If Target <> "" Then
        Tem = Target.Value
        With Sheets("Total")
            sArr = .Range(.[B1], .[B65000].End(xlUp)).Resize(, 11).Value
        End With
        ReDim dArr(1 To UBound(sArr, 1), 1 To 11)
        For I = 1 To UBound(sArr, 1)
            If sArr(I, 1) = Tem Then
                K = K + 1
                For J = 1 To 11
                    dArr(K, J) = sArr(I, J)
                Next J
            End If
        Next I
    End If
    [A7:K1000].ClearContents
    [A7:K1000].Borders.LineStyle = xlNone
    If K Then
        [A7].Resize(K, 11).Value = dArr
        [A7].Resize(K, 11).Borders.LineStyle = xlContinuous
    End If
End If
End Sub

File đính kèm:

Good-Luck · 8/3/13

Ba Tê đã viết:
"Chời ơi!", "cực khổ" lắm mới làm được cái cột H để làm Validaion cho ô B1 dễ tìm và không thể nhập số Seri không có bên Sheet2,
Giờ lại đòi nhập thủ công vào ô B1 ư? Cái cột H có thể ẩn đi được mà, có xấu lắm đâu.
"Muốn thì chìu". Giờ thì nhập thủ công vào ô B1 nhé, hổng có nút để chọn đâu.

không biết có phải là Anh nói đùa hay ko nữa, thấy Anh thường xài VBA mà
cái của Anh cho em mạn phép mạo mụi thay đổi cái này 1 chút : để bỏ cột phụ, ko biết có vi phạm quyền tác giả ko, nếu có mong anh Ba Tê lưỡng thứ nghen!
thay dòng này : [gpecode=vb] Sheet1.Range("H1").Resize(k).Value = Arr[/gpecode]
bằng các dòng
[GPECODE=vb]Sheet1.Range("b1").Validation.Delete
Sheet1.Range("b1").Validation.Add 3, , , Join(Dic.keys, ",")
[/GPECODE]

DIEMXUA1810 đã viết:
Tuyệt rồi Ba Tê ah ! Nhưng cho mình hỏi chút xíu nữa nha :
- Tại sao khi mình thêm số serial bên sheet2 thì ở sheet1 tại cột H lại hiện lên, muốn làm cho nó mất không được. (cái này dư thừa quá)
- Nếu ta nhập sai số serial vào ô B1 Sheet1 thì VBA báo lỗi, có cách nào néu ta nhập sai số serial hoặc số serial ko nằm trong danh sách sẽ xuất hiện 1 Box Messenger "Sai số số serial hoặc serial không có" OK !
Hic... được voi đòi tiên ....
Giúp mình lần nữa đi Ba Tê !

Thanks nhiều !

để có thông báo lỗi ta thay bằng như sau :
[GPECODE=vb]
With Sheet1.Range("b1").Validation.Delete
.Add 3, , , Join(Dic.keys, ",")
.ErrorTitle = "L" & ChrW(7895) & "i m" & ChrW(227) & " nh" & ChrW(7853) & "p"
.ErrorMessage = "Seri b" & ChrW(7841) & "n nh" & ChrW(226) & "p kh" & ChrW(244) & "ng t" & ChrW(7891) & "n t" & ChrW(7841) & "i, mong b" & ChrW(7841) & "n ki" & ChrW(7875) & "m tra l" & ChrW(7841) & "i"

End With[/GPECODE]

shuya1988 · 8/3/13

OK. thanks ban nhe. ban co the giai thich code cho minh hieu ko ? hi hi .moi hoc VBA thoi ah

[warning1]Nhớ viết bài tiếng Việt có dấu nhé bạn.[/warning1]

Ba Tê · 8/3/13

Good-Luck đã viết:
không biết có phải là Anh nói đùa hay ko nữa, thấy Anh thường xài VBA mà
cái của Anh cho em mạn phép mạo mụi thay đổi cái này 1 chút : để bỏ cột phụ, ko biết có vi phạm quyền tác giả ko, nếu có mong anh Ba Tê lưỡng thứ nghen!
thay dòng này : [gpecode=vb] Sheet1.Range("H1").Resize(k).Value = Arr[/gpecode]
bằng các dòng
[GPECODE=vb]Sheet1.Range("b1").Validation.Delete
Sheet1.Range("b1").Validation.Add 3, , , Join(Dic.keys, ",")
[/GPECODE]

để có thông báo lỗi ta thay bằng như sau :
[GPECODE=vb]
With Sheet1.Range("b1").Validation.Delete
.Add 3, , , Join(Dic.keys, ",")
.ErrorTitle = "L" & ChrW(7895) & "i m" & ChrW(227) & " nh" & ChrW(7853) & "p"
.ErrorMessage = "Seri b" & ChrW(7841) & "n nh" & ChrW(226) & "p kh" & ChrW(244) & "ng t" & ChrW(7891) & "n t" & ChrW(7841) & "i, mong b" & ChrW(7841) & "n ki" & ChrW(7875) & "m tra l" & ChrW(7841) & "i"

End With[/GPECODE]

Khà khà khà....
Bài viết 1 năm trước, khi mình mới tò te vào VBA, đọc lại thấy ..."ngộ quá". Nhưng đó là những gì mình mới bắt đầu vào "con đường đau khổ".
Khi xem lại mới thấy rằng mình đã lỡ bước "hơi bị xa".
Mừng quá. Cảm ơn GPE.
Mình không thể xa GPE là vì thế, mình tiến bộ nhờ GPE, mình cũng muốn tất cả đều tiến bộ nhờ GPE.

Good-Luck · 8/3/13

Ba Tê đã viết:
Khà khà khà....
Bài viết 1 năm trước, khi mình mới tò te vào VBA, đọc lại thấy ..."ngộ quá". Nhưng đó là những gì mình mới bắt đầu vào "con đường đau khổ".
Khi xem lại mới thấy rằng mình đã lỡ bước "hơi bị xa".
Mừng quá. Cảm ơn GPE.
Mình không thể xa GPE là vì thế, mình tiến bộ nhờ GPE, mình cũng muốn tất cả đều tiến bộ nhờ GPE.

Ôi, đúng là mắt Minh cần đi Khám rồi, nhìn Thấy bài, mà ko nhìn Thấy Ngày tháng (7/3/2012 tưởng nhầm hôm qua) nhìn đầu không nhìn đuôi , ôi thật là!

xuan.nguyen82 · 9/3/13

Good-Luck đã viết:
Ôi, đúng là mắt Minh cần đi Khám rồi, nhìn Thấy bài, mà ko nhìn Thấy Ngày tháng (7/3/2012 tưởng nhầm hôm qua) nhìn đầu không nhìn đuôi , ôi thật là!

Đúng 1 năm rồi đó:
Một năm trước code mẫu giáo.
Một năm sau, code thầy giáo.
Năm sau nữa: code giáo sư...
hihi
Bao giờ mình có thể???? chắc còn lâu.......

hungtt24 · 13/4/13

Nhờ anh @Ba Tê và anh @Good-Luck giúp giùm vấn đề này với. Tương tự như bài của chủ thớt thôi, em đã down file IN2 của anh goodluck rồi nhưng chỉnh sửa không được.

Em có 1 file quản lý bán hàng như đính kèm, file đó em cũng dùng những hàm để tham chiếu từ các sheet data khác, em chỉ cần nhập ngày/tháng, mã hàng, mã ĐL, số lượng vào thôi, tự động exel sẽ cập nhật tên hàng, giá, thành tiền, tên KH, địa chỉ, ...

Em cũng cần 1 form in như chủ thớt đây, tức là chỉ cần nhập mã số KH vào thì nó tự động liệt kê tất cả các giao dịch vào bảng bên dưới.

Xin các anh giúp em với.

Ba Tê · 13/4/13

hungtt24 đã viết:
Nhờ anh @Ba Tê và anh @Good-Luck giúp giùm vấn đề này với. Tương tự như bài của chủ thớt thôi, em đã down file IN2 của anh goodluck rồi nhưng chỉnh sửa không được.

Em có 1 file quản lý bán hàng như đính kèm, file đó em cũng dùng những hàm để tham chiếu từ các sheet data khác, em chỉ cần nhập ngày/tháng, mã hàng, mã ĐL, số lượng vào thôi, tự động exel sẽ cập nhật tên hàng, giá, thành tiền, tên KH, địa chỉ, ...

Em cũng cần 1 form in như chủ thớt đây, tức là chỉ cần nhập mã số KH vào thì nó tự động liệt kê tất cả các giao dịch vào bảng bên dưới.

Xin các anh giúp em với.

Bạn về đây hỏi tiếp đi, sao lại hỏi nhiều nơi vậy?
http://www.giaiphapexcel.com/forum/...1-sheet-sang-1-sheet-khác&p=491338#post491338

Giúp lọc dữ liệu từ Sheet này qua Sheet khác có điều kiện (3 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên mới

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên mới

Cạo Rồi Khỏi Gội

File đính kèm

Thành viên mới

Thành viên mới

File đính kèm

Thành viên tích cực

File đính kèm

Thành viên tiêu biểu

File đính kèm

Thành viên mới

Cạo Rồi Khỏi Gội

Thành viên tiêu biểu

Thành viên tích cực

Thành viên mới

File đính kèm

Cạo Rồi Khỏi Gội

Đếm ngược thời gian