Nhờ các bạn giúp mình cập nhật số liệu vào form có sẵn (1 người xem)

  • Thread starter Thread starter nilt02
  • Ngày gửi Ngày gửi
Liên hệ QC

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

nilt02

Thành viên hoạt động
Tham gia
19/3/08
Bài viết
119
Được thích
17
Giới tính
Nam
Mình có file hóa học cần xuất ra theo form có sẵn(sheet FormMau), số liệu hàng nghìn dòng nhưng mình chỉ cắt ra một phần(Sheet DATA), ngày trước mình thường làm rất thủ công+-+-+-+ như ở sheet LAM . Số liệu ngày càng nhiều khiến mình làm rất vất vả. Thực ra trong bảng chỉ có 2 việc phải làm là sắp xếp dữ liệu và tính Trungbinh, Max, Min, nhưng công việc nhai đi nhai lại cơ cực vì quá nhiều số liệu, bạn nào có thể tạo cho mình liên kết trong FormMau để khi mình chỉ đánh mã Wellcode thì kết quả ra như trong bảng FormMau thì tốt quá.
Có File đính kèm các bạn xem nhé.
Rất cảm ơn các bạn đã đọc và góp ý cho mình!
 

File đính kèm

Làm theo thủ công của bạn quá phức tạp ( phải dùng VBA )
Nếu chỉ cần kết quả là Max - Min
thì làm thế này được không ?
Chọn ô C27 -> click mũi tên chọn wellcode
 

File đính kèm

Lần chỉnh sửa cuối:
Làm theo thủ công của bạn quá phức tạp ( phải dùng VBA )
Nếu chỉ cần kết quả là Max - Min
thì làm thế này được không ?
Chọn ô C27 -> click mũi tên chọn wellcode
Cảm ơn bác rất...rất nhiều :clown:
Dạ cách của bác gần đúng ý em rồi, nhưng bác có thể đặt cho em theo thứ tự như trong bảng đc ko ạ, em chỉ cần báo cáo từ 2005-2009, còn số liệu cũ đến 2009 chỉ để tính trungbinh, max, min. Mặc dù em có thể tranpose và sắp xếp lại theo thứ tự nhưng vẫn mất thời gian cho đúng với form trên. Em thử copy thêm dữ liệu vào thì Wellcode ko tự động nhận đc? vì dữ liệu em sẽ thêm vào vài nghìn dòng nên các bác nghĩ dùm em cách nào cho tiện với..:(
Thankkkkk!%#^#$
 
Lần chỉnh sửa cuối:
Thêm 2 cell chọn từ năm xxxx đến năm xxxx
Câu 2 : thử thì biết nếu cần bổ sung thì yêu cầu tiếp
Khi thêm dữ liệu thì : Control + F3 Chọn name thay đổi địa chỉ để công thức tham chiếu
sort Bang theo năm
 

File đính kèm

Lần chỉnh sửa cuối:
Thêm 2 cell chọn từ năm xxxx đến năm xxxx
Câu 2 : thử thì biết nếu cần bổ sung thì yêu cầu tiếp
Khi thêm dữ liệu thì : Control + F3 Chọn name thay đổi địa chỉ để công thức tham chiếu
sort Bang theo năm
Cảm ơn bác có ý tưởng mới cho thêm menu chọn theo năm rất hay^^, nhưng khi em chọn theo năm thì giá trị trungbinh, max, min lại thay đổi, trong khi điều kiện TB,max,min là tính từ khi có số liệu tới năm cuối cùng(VD: em có số liệu từ 1992-2009, em chọn năm 2005-2009 thì TB,max,min vẫn tính từ 1992-2009). Bác có thể thay đổi vị trí thành phần hóa học và các năm gần nhau để khi em tranpose thì pase lại bảng cũ cho nhanh ko ạ? hoặc làm cái bảng giống mẫu của em cung cấp thì tốt quá, em đỡ phải thực hiện nhiều thao tác --=0
Cảm ơn bác rất nhiều!!
 
Mình viết 1 số hàm nhỏ sau rồi áp vào, bạm kiểm tra giùm

Mã:
Option Explicit
Function Gtri(Tg, Mua, Ct As String)
Dim Fc As WorksheetFunction
Set Fc = Application.WorksheetFunction
Dim i, j As Long
With Sheet3
i = Fc.Match(Ct, .[d2:u2], 0) + 3
For j = 3 To .[a65536].End(xlUp).Row
If .Cells(j, 1) = Tg And .Cells(j, 2) = Right(Mua, 1) And .Cells(j, 3) = Val(Left(Mua, 4)) Then
Gtri = .Cells(j, i)
Exit Function
End If
Next
End With
End Function
'-----------------------------------------------------------
Function TB(Ct As String)
Dim Fc As WorksheetFunction
Set Fc = Application.WorksheetFunction
Dim i, j, k As Long
With Sheet3
i = Fc.Match(Ct, .[d2:u2], 0) + 3
j = .[a65536].End(xlUp).Row
TB = Fc.Average(.Range(.Cells(3, i), .Cells(j, i)))
End With
End Function
'-----------------------------------------------------------
Function Mi(Ct As String)
Dim Fc As WorksheetFunction
Set Fc = Application.WorksheetFunction
Dim i, j, k As Long
With Sheet3
i = Fc.Match(Ct, .[d2:u2], 0) + 3
j = .[a65536].End(xlUp).Row
Mi = Fc.Min(.Range(.Cells(3, i), .Cells(j, i)))
End With
End Function
'-----------------------------------------------------------
Function Ma(Ct As String)
Dim Fc As WorksheetFunction
Set Fc = Application.WorksheetFunction
Dim i, j, k As Long
With Sheet3
i = Fc.Match(Ct, .[d2:u2], 0) + 3
j = .[a65536].End(xlUp).Row
Ma = Fc.Max(.Range(.Cells(3, i), .Cells(j, i)))
End With
End Function
 

File đính kèm

Mình viết 1 số hàm nhỏ sau rồi áp vào, bạm kiểm tra giùm
Cách của bác giữ nguyên đc form của em, em copy thêm DATA vào nhận đc tốt ^^, nhưng phần trungbinh, max,min vẫn chưa chạy dc bác ah, bác sửa đc phần đó thì tốt cho em quá. Cảm ơn bác rất nhiều...:))
 
Có thể mình hiểu sai ý bạn trong tính trung bình, Min, Max. Giả sử tính trung bình của Ca2. Do lấy trung bình từ khi có dữ liệu đến hết năm 2009 vậy thì tương đương trung bình của cột D. Mà đã trung bình của cả cột rồi thì làm sao đổi theo kỳ nào được nữa.
Bạn nên giải thích rõ hơn mình sẽ sửa lại.
 
Có thể mình hiểu sai ý bạn trong tính trung bình, Min, Max. Giả sử tính trung bình của Ca2. Do lấy trung bình từ khi có dữ liệu đến hết năm 2009 vậy thì tương đương trung bình của cột D. Mà đã trung bình của cả cột rồi thì làm sao đổi theo kỳ nào được nữa.
Bạn nên giải thích rõ hơn mình sẽ sửa lại.
Cảm ơn bác nhiệt tình giúp em, em để sheet Lam bác nhìn sẽ rõ Q.64 em tính tb,max,min ntn.
VD: wellcode: Q.64 có số liệu từ 1992-->2009, Form báo cáo em lập chỉ cần lấy từ 2005-2009, còn giá trị trungbinh, max, min tính từ lúc có số liệu đến 2009 (lấy từ 1992-->2009).
Bác giúp em nốt 3 cái cột tb, max, min nhé, chỉ còn 3 cột đó là xong thôi bác ạ. Thank bác rất nhiều ^^
 
Bạn kiểm tra giùm, cho gì thông bao lai nha
 

File đính kèm

Mình test thấy ổn, bạn xem lại nhé
(Lưu ý dữ liệu phải được sắp xếp thep cột A)
 

File đính kèm

Lần chỉnh sửa cuối:
Làm như file mẫu
Thử test lại coi đúng ý chưa
 

File đính kèm

Lần chỉnh sửa cuối:
Em nhờ các bác xem lại dùm em cái form này với ạ, em Ctrl+ F3 update theo wellcode rồi mà trong list chọn ko chịu ra, không biết nguyên nhân vì sao ?
Cảm ơn các bác đã giúp đỡ ;;;;;;;;;;;
 
Lần chỉnh sửa cuối:
Nhờ các anh tạo công thức lấy dữ liệu từ sheet Xuat Kho cua files In phieu xuat vào sheet DC cua files DC giúp em với, em không biết làm thế nào để có thể lấy với nhiều ddieeuf kiện như kho nhận,mã hàng , ngày trong tháng nữa. anh Giúp em với nhé!.

http://www.mediafire.com/?zwzjzagiwmu

Em cảm ơn!
 
Nhờ các bạn sửa giúp mình phần tổng hợp TB,max,min trong sheet Formmau này nhé
Lần trước bạn TVD giúp mình làm chính xác phần tổng hợp TB, max, min. Còn bạn sealand lập bảng giúp mình bảng dò tìm chính xác, nhưng bây giờ mình muốn chính xác hơn trong file đính kèm bên dưới.
Rất cảm ơn các bác đã giúp đỡ :)
 

File đính kèm

Lần chỉnh sửa cuối:
mình đang cần quá, ai đó giúp mình với :(
 
Web KT

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

Back
Top Bottom