Tổng hợp số liệu trên nhiều Sheet (1 người xem)

cugia_codon_khatty · 25/2/10

Nhờ mọi người trên diễn đàn xem có cách nào tổng hợp giúp em số liệu trên nhiều sheet theo yêu cầu không nhé.

MinhCong · 25/2/10

cugia_codon_khatty đã viết:
Nhờ mọi người trên diễn đàn xem có cách nào tổng hợp giúp em số liệu trên nhiều sheet theo yêu cầu không nhé.

Cách đơn giản nhất là nhập công thức chon từng cột tương ứng cho từng sheet bằng dùng hàm VLOOKUP.
VD: tại ô D5 (Trực bảo vệ) tức nó thuộc sheet ThemgioBve chẳng hạn

Mã:

D5 =VLOOKUP($B5;'Them gioBVe'!$B$9:$Q$12;16;0)

Tương tự lập công thức cho các ô E5, F5, G5 sau đó copy công thức cho các ô còn lại.

cugia_codon_khatty · 25/2/10

MinhCong đã viết:
Cách đơn giản nhất là nhập công thức chon từng cột tương ứng cho từng sheet bằng dùng hàm VLOOKUP.
VD: tại ô D5 (Trực bảo vệ) tức nó thuộc sheet ThemgioBve chẳng hạn

Mã:

D5 =VLOOKUP($B5;'Them gioBVe'!$B$9:$Q$12;16;0)

Tương tự lập công thức cho các ô E5, F5, G5 sau đó copy công thức cho các ô còn lại.

Cám ơn MinhCong nhưng làm như vậy thì dễ sai địa chỉ lắm vì dòng có thể khác nhau,

Ba Tê · 25/2/10

cugia_codon_khatty đã viết:
Nhờ mọi người trên diễn đàn xem có cách nào tổng hợp giúp em số liệu trên nhiều sheet theo yêu cầu không nhé.

Xin chào Bạn thân mến.
Mình lại không biết code, tiếp tục dùng cột phụ và các hàm đơn giản của Excel, thử xem nhé!

SA_DQ · 25/2/10

PHP:

Option Explicit
Sub TongHopTruc()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Clls As Range
 Dim cCol As Byte, pCol As Byte
 Dim ShN As String
 On Error GoTo LoiTH
  Sheets("Tong hop").Select
 Range("d5:D" & [b65500].End(xlUp).Row).Resize(, 4).ClearContents
 For Each Clls In Range([C5], [c65500].End(xlUp))
   For Each Sh In Worksheets
      If Sh.Name <> "Tong hop" And Sh.Name <> "THE" Then
      
         Select Case Sh.Name
         Case "BVe"
            cCol = 13:                 pCol = 1
         Case "CMn", "ThG"
            cCol = 8:                  pCol = IIf(Sh.Name = "CMn", 2, 3)
         Case "TTh"
            cCol = 11:                 pCol = 4
         End Select
         
         Set Rng = Sh.Range(Sh.[D8], Sh.[D65500].End(xlUp))
         Set sRng = Rng.Find(Clls.Value, , xlValues, xlWhole)
         If Not sRng Is Nothing Then
            Clls.Offset(, pCol).Value = sRng.Offset(, cCol).Value
         End If
      End If
   Next Sh
 Next Clls
Err_:                Exit Sub
LoiTH:
   MsgBox ShN, , "Erl: " & Erl:        Resume Err_
End Sub

khieukienag · 25/2/10

Không thích VLOOKUP thì dùng SUMPRODUCT vậy.View attachment 42230

Lỗi về gửi ảnh đính kèm

candoi · 25/2/10

cả nhà ơi em cung muốn tổng hợp dữ liệu từ nhiều sheet trên excel nhưng dữ liệu của em là bảng lương nên em chỉ muốn cộng cột còn nhân giữa các tháng với nhau tương ứng với từng người thì làm thế nào?

Lê Duy Thương · 25/2/10

tôi đồng ý với anh công . theo tôi mỗi cột nên tham chiếu 1 sheet va dùng hàm vlookup là dễ nhất và chính xác nhất

cugia_codon_khatty · 25/2/10

Le duy Thuong đã viết:
tôi đồng ý với anh công . theo tôi mỗi cột nên tham chiếu 1 sheet va dùng hàm vlookup là dễ nhất và chính xác nhất

Cách anh Công làm thì chính xác nhưng do anh chưa hiểu hết yêu cầu của bài thôi, làm theo cách của anh Công thì những người trùng tên trên nhiều sheet sẽ khó lọc.

MinhCong · 25/2/10

cugia_codon_khatty đã viết:
Cách anh Công làm thì chính xác nhưng do anh chưa hiểu hết yêu cầu của bài thôi, làm theo cách của anh Công thì những người trùng tên trên nhiều sheet sẽ khó lọc.

Nếu Bạn sợ trùng tên khó lọc thì có thể căn cứ vào số tài khoản để lọc vậy. Không lẽ số tài khoản cũng trùng sao?

SA_DQ · 26/2/10

cugia_codon_khatty đã viết:
alô
Cám ơn đã quan tâm tới bài tập của tôi nhưng phần code bạn đưa vào mình tải về không dùng được là sao nhỉ? khi thay đổi số liệu thì nó cũng không thay đổi theo bạn có thể làm hoàn thiện giúp mình một file khác nhé. Thanks

Bạn cho biết, trên file đính kèm nó làm việc ra sao đi?!

cugia_codon_khatty · 26/2/10

SA_DQ đã viết:
Bạn cho biết, trên file đính kèm nó làm việc ra sao đi?!

Gần như không chạy mặc dù đã kiểm tra rất kỹ vẫn không biết nguyên nhân tại sao???

ChanhTQ@ · 26/2/10

Tại trang 'TongHop' bạn xóa các ký số có trên cột D => G; Sau đó bấm tổ hợp fím {CTRL}+{SHIFT}+T xem sao;
Mình vừa thử thấy OK mà!

dinhtrong · 11/7/10

Chào các bạn, mình là thành viên mới mình không biết nhiều về excel lắm nên mỗi lần trích lọc và tổng hợp dữ liệu rất thủ công,mình gửi file đính kèm các bạn giúp mình làm cách nào nhanh nhất và khoa học nhé, bảng dữ liệu này là tổng hợp nhu cầu nguyên liệu cần mua và là định mức cấp phát cho sản xuất, mỗi lệnh sản xuất cũng sẽ có các mã hàng giống nhau nên sẽ sử dụng nguyên vật liệu giống nhau , mình đã có sheet định mức nguyên vật liệu của từng sản phẩm, làm thế nào sheet tổng hợp mình liệt kê ra được số lượng sản phẩm sản xuất ,tổng cộng nguyên vật liệu cần mua của các sản phẩm. Xin được các bạn hỗ trợ giúp mình mình đang cần gấp nhưng không biết làm thế nào .
xin cảm ơn các bạn
chờ kết qủa của các bạn

các bạn ơi mình vẫn chưa nhận được sự hỗ trợ từ các bạn,mình đang cần gấp xin được sự giúp đỡ từ các bạn , cảm ơn các bạn nhiều

SA_DQ · 12/7/10

Từ từ, khoai cũng cần có thời gian để nhừ chứ!

các bạn ơi mình vẫn chưa nhận được sự hỗ trợ từ các bạn,mình đang cần gấp xin được sự giúp đỡ từ các bạn

Macro của bạn đây & coi thêm trong file đính kèm (chú ý tại trang 'TongHop')

PHP:

Option Explicit
Sub TongHopVT()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Const Dong As Long = 12:                 Dim Cot As Byte
    
 Set Sh = Sheets("DinhMuc"):              Set Rng = Sh.Range(Sh.[A4], Sh.[A11])
 For Each Cls In Range("B2:B8")
1 'Tìm Mã Hàng Tai Trang DinhMuc & Gán Só Luong:'
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      Exit For
   Else
      sRng.Offset(, 2).Value = Cls.Offset(, 2).Value
   End If
 Next Cls
2 ' Tìm Só Luong Tai DinhMuc & Gán:'
 Set Rng = Sh.Range(Sh.[D3], Sh.[iV3].End(xlToLeft))
 For Each Cls In Range([B11], [B11].End(xlDown))
   Set sRng = Rng.Find(Cls.Value)
   If Not sRng Is Nothing Then
      Cot = sRng.Column + 1
      Cls.Offset(, 1).Value = Sh.Cells(Dong, Cot).Value
   End If
 Next Cls
End Sub

Có biếu thêm 1 macro chép các vật tư để bạn ngâm cứu thêm.

2uan có cần nhưng dân chưa vội!
@uan có vội, 2uan lội quan sang!

dinhtrong · 12/7/10

Rất cám ơn ban SA_DQ đã giúp đỡ mình nhưng khi mình chèn thêm mã sản phẩm thì bảng tính lại không chạy chắc do mình làm sai động tác gì đó nhưng mình kg biết gì về Macro ,cho mình hỏi ngòai bảng tính viết bằng macro có thể sử dụng công thức Excel được không bạn ? nếu là excel trường hợp lỗi mình có thể mò mẫm ra được phần bị lỗi bạn giúp mình nhé , cám ơn bạn nhiều

SA_DQ · 12/7/10

Lập hàm excel (Công thức) thì mình chịu vì trình độ cũng chưa chắc hơn hay bằng bạn!

Nhưng khi mình chèn thêm mã sản phẩm thì bảng tính lại không chạy chắc do mình làm sai động tác gì đó nhưng mình kg biết gì về Macro ,cho mình hỏi ngòai bảng tính viết bằng macro có thể sử dụng công thức Excel được không bạn ? nếu là excel trường hợp lỗi mình có thể mò mẫm ra được phần bị lỗi bạn giúp mình nhé , cám ơn bạn nhiều

Khi chén thêm mã SF mới, thì bạn fải thực hiện những công việc sau:

Tại trang tính 'DinhMuc':
(*) Thêm dữ liệu cho dòng kế tiếp kể từ dòng 7 đến dòng 11 (Vì dòng 12 đã là dòng tổng)
(*) Thêm các trị của những cột định mức thuộc dòng đó;

Tại trang 'TongHop':

Thêm mã SF vô hàng trống cuối trong vùng B2:B8; (Khống chế đến B8 vì bên 'DanhMuc' bạn tự khống chế đến dòng 11 - không vượt được)

Sau khi thêm/thay trị tương ứng tại cột c (từ C2:C8) ta nhấn nút chạy macro

Bạn thử theo hướng dẫn lại 1 lần xem sao?!

Mong rằng bạn gặt hái được thành công.

dinhtrong · 12/7/10

Bạn chỉ giúp mình cách thêm dòng bên sheet định mức và sheet TH thì thêm mã SP và mã nguyên vật liệu ,vì mã sản phẩm bên mình khỏang 300 mã,nếu gặp 1 đơn hàng khỏang 50 mã sản phẩm thì mình làm thế nào? vì đơn hàng mẫu thường sảy ra ,cám ơn bạn nhiều

TongDe · 12/7/10

Theo mình thì bố trí dữ liệu logic thì mới tổng hợp bằng công thức được
Mình tạm sửa file của bạn để giải quyết vấn đề.
Nễu có gì chưa ổn thì post tiếp nha
Mở Sheet NVLCanNhap thay đổi số lượng sãn xuất trong G7;H7;I7
Bạn test lại nha
Làm sơ sơ cho bạn ngâm cứu
Không biết giúp được gì không ?

SA_DQ · 12/7/10

Bạn chỉ giúp mình cách thêm dòng bên sheet định mức và sheet TH thì thêm mã SP và mã nguyên vật liệu ,vì mã sản phẩm bên mình khỏang 300 mã,nếu gặp 1 đơn hàng khỏang 50 mã sản phẩm thì mình làm thế nào? vì đơn hàng mẫu thường sảy ra ,cám ơn bạn nhiều

(*) Bên trang 'DinhMuc':

Nếu khoảng 300 mã thì fải dời dòng 12 đến dòng 400 cho chắc ăn. (Từ dòng 300 không có dữ liệu trở đi bạn đem ẩn nó đi;

Nhập đủ các mã hàng & định mức như bài trên đã nói;

(*) Ben trang 'THop' Bạn cần đến gần 100 dòng nên fải dời cụm vùng A hay B sang các cột khác.

Nếu dời cụm vùng A (Hiện đang là A2

9 sang [F2] trở đi. Fương án này cũng fải sửa macro 1 tẹo;
Còn fương án kia thì dời cụm dưới cụm A sang cột F, có thể từ [F2] cũng không sao. Nhưng chuyện này thì macro đổi sẽ nhiều hơn.

Nhưng giành ưu tiên cho bạn chọn 1 trong 2 fương án. Rất hân hạnh được giúp bạn thời gian gần!

dinhtrong · 12/7/10

Cám ơn bạn Đệ và các bạn về giải pháp trên vì cũng đã ra được kết quả,nhưng đồng nghĩa với việc mình phải đặt 300 mã trên 300 cột vậy khi tìm mã sản phẩm để sản xuất có lâu không ,bạn còn cách nào nữa không giúp mình với còn không thì phải sử dụng cách của bạn

huuthang_bd · 12/7/10

dinhtrong đã viết:
Rất cám ơn ban SA_DQ đã giúp đỡ mình nhưng khi mình chèn thêm mã sản phẩm thì bảng tính lại không chạy chắc do mình làm sai động tác gì đó nhưng mình kg biết gì về Macro ,cho mình hỏi ngòai bảng tính viết bằng macro có thể sử dụng công thức Excel được không bạn ? nếu là excel trường hợp lỗi mình có thể mò mẫm ra được phần bị lỗi bạn giúp mình nhé , cám ơn bạn nhiều

Nếu bạn muốn dùng công thức thì đây.

Nếu ở bảng định mức bỏ bớt cột SL thì công thức sẽ đơn giản và dễ hiểu hơn.
Gửi xong mới thấy bài này của bạn.

dinhtrong đã viết:
Cám ơn bạn Đệ và các bạn về giải pháp trên vì cũng đã ra được kết quả,nhưng đồng nghĩa với việc mình phải đặt 300 mã trên 300 cột vậy khi tìm mã sản phẩm để sản xuất có lâu không ,bạn còn cách nào nữa không giúp mình với còn không thì phải sử dụng cách của bạn

Nghĩa là bạn không phụ thuộc vào mẫu có sẵn. Vậy tôi xóa bớt các sột SL trong sheet DM luôn cho nó gọn. Bạn xem trong file Cong thuc 1

dinhtrong · 12/7/10

Cám ơn bạn SA_DQ . làm phiền bạn giúp mình bên sheet THop theo phương án nào hiệu qủa và đỡ mất thời gian của bạn và bên sheet này bạn chỉ giúp mình cách thêm mã vật tư , mã sản phẩm bạn cho mình 100 dòng, nhưng cho thêm mình có nút filter xổ xuống và chọn căn cứ từ bên sheet định mức thay vì phải coppy mã sp qua ,phần vật tư nguyên liệu kèm theo cho sản phẩm cũng rất nhiều mã sử dụng cho sản phẩm mình mới chỉ liệt kê tượng trưng thôi,các bạn giúp mình nhé .
cảm ơn tất cả các bạn đã chia xẻ
Bây giờ mình mới biết khi tham gia diễn đàn đúng là không có gì không làm được rất vui được học hỏi từ các bạn,mong rằng những trang web hữu ích này luôn phát huy tốt và hiệu qủa, để Share cho nhau những kiến thức hữu ích , cám ơn đến các anh chị BQT của websize này chúc sức khỏe đến tất cả các thành viên

dinhtrong · 12/7/10

Tống Văn Đệ đã viết:
Theo mình thì bố trí dữ liệu logic thì mới tổng hợp bằng công thức được
Mình tạm sửa file của bạn để giải quyết vấn đề.
Nễu có gì chưa ổn thì post tiếp nha
Mở Sheet NVLCanNhap thay đổi số lượng sãn xuất trong G7;H7;I7
Bạn test lại nha
Làm sơ sơ cho bạn ngâm cứu
Không biết giúp được gì không ?

Cám ơn bạn Tống Văn Đệ đa giúp mình phần công thức cách của bạn đưa ra đã đúng theo ý mình, mình chỉ còn băn khoăn khi mỗi lần sản xuất việc tìm kiếm sản phẩm để gõ số lượng trên 300 cột thì chắc cũng lâu,bạn giúp mình tìm bằng cách nào nhanh nhất làm phiền bạn nhé mình gà về excel lắm ,cảm ơn bạn nhiều

SA_DQ · 12/7/10

bạn SA_DQ: làm phiền bạn giúp mình bên sheet THop theo phương án nào hiệu qủa và đỡ mất thời gian của bạn và bên sheet này bạn chỉ giúp mình cách thêm mã vật tư , mã sản phẩm bạn cho mình 100 dòng, nhưng cho thêm mình có nút filter xổ xuống và chọn căn cứ từ bên sheet định mức thay vì phải coppy mã sp qua ,phần vật tư nguyên liệu kèm theo cho sản phẩm cũng rất nhiều mã sử dụng cho sản phẩm mình mới chỉ liệt kê tượng trưng thôi,các bạn giúp mình nhé .
cảm ơn tất cả các bạn đã chia xẻ

Bạn xem thêm trong file & cho ý kiến về những điểm chưa thỏa nha;

Cái này để thay cho hàm LOOKUP()

PHP:

Option Explicit
Const Dong As Integer = 324

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("F2:F" & Dong)) Is Nothing Then
   Dim Sh As Worksheet, Rng As Range
   
   Set Sh = Sheets("DinhMuc"):      Set Rng = Sh.Range(Sh.[A4], Sh.[A65500].End(xlUp))
   Target.Offset(, 1).Value = Rng.Find(Target.Value, , xlFormulas, xlWhole).Offset(, 1).Value
 End If
End Sub

SA_DQ · 13/7/10

Thành thật xin lỗi bạn, vì file đưa lên còn lỗi nặng: Chưa xóa dữ liệu cũ

PHP:

Sub TongHopVT()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Dim Cot As Byte
    
 Set Sh = Sheets("DinhMuc")
 Set Rng = Sh.Range(Sh.[A4], Sh.[A5].End(xlDown))
 Rng.Offset(, 2).Value = ""               '<=|'
 For Each Cls In Range([f2], Cells(Dong, "F").End(xlUp))
1 'Tìm Mã Hàng Tai Trang DinhMuc & Gán Só Luong:'
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      Exit For
   Else
      sRng.Offset(, 2).Value = Cls.Offset(, 2).Value
   End If
 Next Cls
2 ' Tìm Só Luong Tai DinhMuc & Gán:'
 Set Rng = Sh.Range(Sh.[D3], Sh.[iV3].End(xlToLeft))
 For Each Cls In Range([B2], [B2].End(xlDown))
   Set sRng = Rng.Find(Cls.Value)
   If Not sRng Is Nothing Then
      Cot = sRng.Column + 1
      Cls.Offset(, 1).Value = Sh.Cells(Dong, Cot).Value
   End If
 Next Cls
End Sub

Hammelyso · 13/7/10

Ghép chữ trong excel ?

Em chào các anh, chị trên diễn đàn GPE
Em có trường hợp phải ghép chữ thế này muốn nhờ các anh các chị giúp đỡ
Em xin trân thành cảm ơn ạ.

dinhtrong · 13/7/10

Cám ơn bạn,trường hợp mình tăng mã vật tư bên sheet THop thì làm cách nào bạn hường dẫn giúp mình với ,và chỉ cho mình giới hạn vùng nào từ dâu đến đâu thì không được chèn dòng & cột mình không biết gì về macro giúp mình nhé Tks

SA_DQ đã viết:

PHP:

Sub TongHopVT()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Dim Cot As Byte
    
 Set Sh = Sheets("DinhMuc")
 Set Rng = Sh.Range(Sh.[A4], Sh.[A5].End(xlDown))
 Rng.Offset(, 2).Value = ""               '<=|'
 For Each Cls In Range([f2], Cells(Dong, "F").End(xlUp))
1 'Tìm Mã Hàng Tai Trang DinhMuc & Gán Só Luong:'
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      Exit For
   Else
      sRng.Offset(, 2).Value = Cls.Offset(, 2).Value
   End If
 Next Cls
2 ' Tìm Só Luong Tai DinhMuc & Gán:'
 Set Rng = Sh.Range(Sh.[D3], Sh.[iV3].End(xlToLeft))
 For Each Cls In Range([B2], [B2].End(xlDown))
   Set sRng = Rng.Find(Cls.Value)
   If Not sRng Is Nothing Then
      Cot = sRng.Column + 1
      Cls.Offset(, 1).Value = Sh.Cells(Dong, Cot).Value
   End If
 Next Cls
End Sub

SA_DQ · 13/7/10

ta nói theo file tại #26 nha:

Trường hợp mình tăng mã vật tư bên sheet THop thì làm cách nào bạn hường dẫn giúp mình với ,và chỉ cho mình giới hạn vùng nào từ dâu đến đâu thì không được chèn dòng & cột mình không biết gì về macro giúp mình nhé Tks

Trong file bạn sẽ fải thấy vùng tô màu lam tại cột 'F' của trang 'TongHop'
Đó là vùng để bạn chọn mã VT; & Sau khi chọn xong thì ô bên fải liền kề sẽ có tên vật tư của mã bạn đã chọn. Hiện tại ô cuối cùng của cột có chứa Validation lít là [F67]; Bạn muốn tăng ố ô sơn màu có chứa validation là chuyện hoàn toàn thuộc về excel của bạn. (Chắc chuyện này bạn đã rành không thua kém gì mình đâu!)

Như vậy muốn thêm mới danh mục vật tư ta fải & chỉ fải thêm bên trang DinhMuc
Ở trang này chúng ta có gán 1 name tên là MaSF; Mà dòng cuối đang chỉ là 109; Nếu số mã vượt dòng này thì bạn fải sửa lại chỉ số trong ngăn Refers to của tên này.

Chuyện này của những năm sau, nhưng cũng nêu lên để bạn ghi nhận & đỡ lúng túng cho những lần sảy ra sự kiện; Đó là con số Const =324.
Con số này là 2 ta tự thỏa thuận & ngầm hiểu là mức tối đa các mã vật tư khi sắp đến gần. Đó là dòng tính tổng các loại vật tư trong 'DinhMuc'

Đến lúc ấy bạn thừa khả năng thay đổi những thông số này do sự fát triển CSDL của bạn.

Trở lại vấn đề thêm danh mục vật tư: Bạn fải điền đủ các số liệu định mức của nó (Chắc nhắc chuyện này với bạn như là thừa!)
Bạn hãy thử hết các trường hợp mình nêu, để iên tâm khi vận hành workbook với macro mình gởi tặng 1 cách suông sẻ nhất.

Thân ái!.

dinhtrong · 13/7/10

Cám Ơn Bạn SA_DQ bạn cho mình hỏi thêm ,nếu tăng phần mã nguyên vật liệu kèm theo sản phẩm bên sheet định mức thì công thức phải sửa ở đâu ,vì sẽ có trường hợp sản phẩm có cấu trúc khác nhau nên sẽ có những vật tư kèm theo khác nhau ,mình vừa tăng 1 mã mới (vật tư ) nhưng bên sheet THop không chạy kết qua, phiền bạn giúp nốt cho mình nhé ,Tks

TongDe · 14/7/10

Đặt tên mã Sản phẩm theo từng nhóm rồi group lại
Cái này mình nghĩ bạn biết làm mà
Hoặc làm vài cái nút để Hide bớt column không có dữ liệu đi
chỉ để lại công thức dòng trên cùng
Còn những dòng sau thì paste value cho nhẹ file

ChanhTQ@ · 14/7/10

Cám Ơn Bạn SA_DQ, cho mình hỏi thêm ,nếu tăng phần mã nguyên vật liệu kèm theo sản phẩm bên sheet định mức thì công thức phải sửa ở đâu ,vì sẽ có trường hợp sản phẩm có cấu trúc khác nhau nên sẽ có những vật tư kèm theo khác nhau ,mình vừa tăng 1 mã mới (vật tư ) nhưng bên sheet THop không chạy kết qua, phiền bạn giúp nốt cho mình nhé ,Tks

(1) Điều đầu tiên là nhập vô dòng 3 của trang 'DinhMuc' giống như [BJ3] bây giờ. Việc tất nhiên tiếp theo là cột bên cạnh liền kề (biểu thị số lượng) fải được gán đầy đủ công thức như [BK] hiện hữu.

(2) Bạn chạy macro đã được biếu không trong file:

PHP:

Sub ChepDMVT()
 Dim Cls As Range, Rng As Range
 
 Sheets("DinhMuc").Select
 Set Rng = Range([D3], [iV3].End(xlToLeft))
 For Each Cls In Rng
   If Cls.Value <> "" Then
      With Sheets("TongHop").[B65500].End(xlUp).Offset(1)
         .Value = Cls.Value
      End With
   End If
 Next Cls
End Sub

Khi này bên trang 'THop' sẽ có thêm dòng mà bạn vừa thêm bên trang 'DinhMuc'
À, có 1 điều cần lưu í là tác giả macro chưa cho xóa các loại vật tư do chạy macro lần trước mà có. tại cột 'B' trang 'THop'. Vậy bạn chịu khó trước khi chạy macro bạn cắt chúng & chép đến nơi nào trống trãi (Tiện đối chiếu sau khi chạy macro thôi; Những lần sau có thể xóa luôn cũng OK)

Những mong bạn sẽ thành thục với CSDL thân thương của mình khi vận hành!

dinhtrong · 14/7/10

Bạn SA_DQ ơi File macro biếu không đó chỉ cach cho minh chạy đi thường thì mình phải vào Tools > macro> chepDMVT > run cũng chạy ra kết qủa nhưng như vậy có đúng cách không ah , tks

ChanhTQ@ · 14/7/10

Mình sẽ hướng dẫn bạn cách tiện dụng nhất: Gán tổ hợp fím cho 1 macro, như sau

Vô menu Tool => Macro; 1 CS (cửa sổ) con hiện bên cạnh menu, ta chọn Macro. . . trong CS đó; Trong khung CS vừa xuất hiện sẽ có ten macro ChepDMVT, ta chọn nó.

Sau đó trong dòng Option. . . được bấm sẽ xuất hiện CS khác có tên là Macro Option. (Nếu con trỏ chuột đang nháy trong ngăn Shortcut Key ta giữ fím {SHIFT} đồng thời bấm fím chữ cái nào bạn muốn (như C chẳng hạn). Sau cùng là bấm OK & đóng CS này lại.

Như vậy là ta đã gán xong tổ hợp {CTRL}+{SHIFT}+C cho macro này.

Lúc nào muốn chạy nó thì dùng ngón chân hay ngón tay giữ 2 fím CTRL & SHIFT đồng thời & bấm thêm C là macro chạy thôi.

Các cách khác bạn chịu khó tìm trên diễn đàn, như chạy từ nút lệnh trên trang tính, từ biểu tượng gắn thêm trên thanh menu,. . .

Chúc thành công, nha.

dinhtrong · 14/7/10

cám ơn bạn đã chỉ tận tình ,chúc bạn có thật nhiều sức khỏe và luôn ủng hộ các thành viên "gà" như mình

dinhtrong · 16/7/10

Ban ơi mình đã hòan thành file bạn làm giúp mình rồi nhưng khi ở máy của mình thì chạy được còn chuyển qua 3 máy khác thi mở được file ra gõ số liệu vào thì nhấn tổng hợp số liệu kg chạy và báo lỗi giúp mình với mình đang cần , cảm ơn nhiều

ChanhTQ@ · 16/7/10

Ban ơi;nhưng khi ở máy của mình thì chạy được còn chuyển qua 3 máy khác thi mở được file ra gõ số liệu vào thì nhấn tổng hợp số liệu kg chạy và báo lỗi giúp mình với mình đang cần , cảm ơn nhiều

Có thể như vầy:

(*) Máy của họ có chương trình diệt virus & nó chén tái con macro của bạn rối;

(*) Fải áp mức bảo mật macro ở 1 trong 2 mức dưới; Hai mức trên la không xong đâu.
Về điểm này, bạn nên vô manu Tool => Macro => Macro. . . & tìm hiểu kỷ thêm về chức năng có trong cửa sổ này

dinhtrong · 16/7/10

cám ơn bạn mình làm được rồi hiiii, chúc bạn sức khỏe

dinhtrong · 20/7/10

Ban ơi mình đã thêm mới vô cột sản phẩm và thêm mới mã vật tư nhưng số liệu không chạy xin hướng dẫn mình cụ thể ,xin cảm ơn bạn nhiều

Tống Văn Đệ đã viết:
Đặt tên mã Sản phẩm theo từng nhóm rồi group lại
Cái này mình nghĩ bạn biết làm mà
Hoặc làm vài cái nút để Hide bớt column không có dữ liệu đi
chỉ để lại công thức dòng trên cùng
Còn những dòng sau thì paste value cho nhẹ file

TongDe · 22/7/10

Theo hướng dẫn trong file kèm
Cần trợ giúp thêm thì mail
tongvande@yahoo.com
Hạn chế của 2003 có 256 cột
Nếu bạn xài 2003 thì 300 mặt hang không đủ
Chờ sửa lai file attach

Tổng hợp số liệu trên nhiều Sheet (1 người xem)

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

Thành viên chính thức

File đính kèm

Thành viên gắn bó

File đính kèm

Thành viên chính thức

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

File đính kèm

/(hông là gì!

File đính kèm

Thành viên thường trực

Thành viên mới

Cạo lấy gì gội (Dịch quá không gội được)

Thành viên chính thức

Thành viên gắn bó

/(hông là gì!

Thành viên chính thức

0901452không62

Thành viên mới

File đính kèm

/(hông là gì!

File đính kèm

Thành viên mới

/(hông là gì!

Thành viên mới

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

File đính kèm

/(hông là gì!

Thành viên mới

Chuyên gia GPE

File đính kèm

Thành viên mới

Thành viên mới

/(hông là gì!

/(hông là gì!

File đính kèm

Thành viên mới

File đính kèm

Thành viên mới

/(hông là gì!

Thành viên mới

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

File đính kèm

0901452không62

Thành viên mới

0901452không62

Thành viên mới

Thành viên mới

0901452không62

Thành viên mới

Thành viên mới

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

File đính kèm

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