Chèn Thêm Dòng Có điều Kiện Và Tính Tổng Và Lọc Ra Những Dữ Liệu ...

Menu Menu Đăng nhập Đăng ký Tắt quảng cáo Menu Install the app Cài đặt

• Trang chủ
• Diễn đàn Bài viết mới
• Có gì mới Bài viết mới New resources Hoạt động mới nhất
• Resources Latest reviews

• Kế toán Căn bản thực chiến về Logistic/Forwarder
• Kế toán Căn Bản F&B " 2 buổi online - tự tin bước vào nghề!

Chèn thêm dòng có điều kiện và tính tổng và lọc ra những dữ liệu cần xử lý với Macro

• Thread starter phuongla83
• Ngày gửi 20/3/15

• Diễn đàn
• THÔNG TIN CẦN BIẾT VÀ HỎI ĐÁP NGHIỆP VỤ
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. P

phuongla83

Guest

20/3/15 2 0 1 37 Chào các anh, chi. Mình có file Excel được viết Macro tính tổng sản lượng mỗi công đoạn của mỗi chuyền mày. Tự động chèn thêm dòng và tính tổng số lượng của mỗi công đoạn. Nhờ các anh chị viết thêm dùm mình, lọc ra những công đoạn đã nhập với số lượng lớn hơn số lượng cho phép và tính ra con số trồi là bao nhiêu. Chi tiết xin vui lòng xem file đính kèm. Mình có 8 chuyền may, có cách nào một Macro sẽ dùng được cho tất cả các file excel chứa dữ liệu gốc không ? Xem file gốc đính kèm. Các file gốc lần lược cho các chuyền từ 1 đến 8 giống cấu trúc như nhau. Cám ơn.

Đính kèm

• ChenDongTong_New2.xls 83.5 KB · Lượt xem: 185
• File goc chua xu ly.XLS 37.5 KB · Lượt xem: 126

A

alodie123

Guest

11/3/15 4 0 1 38 Sub them() Dim ws As Worksheet, quote As Long, i As Long, d As Long, e As Long Set ws = Sheets("Data") ws.Select quote = ws.Range("J2") ws.AutoFilterMode = False i = Range("G" & Rows.Count).End(xlUp).Row Columns("F:I").Select Selection.AutoFilter Field:=1, Criteria1:="" Selection.AutoFilter Field:=4, Criteria1:=">=" & quote Range("F2:I" & i).SpecialCells(xlCellTypeVisible).Copy Range("O1").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False ws.AutoFilterMode = False d = Range("R" & Rows.Count).End(xlUp).Row For e = 1 To d ws.Range("K" & e + 1) = Right(Range("P" & e), 2) ws.Range("L" & e + 1) = Range("R" & e) - quote Next e Columns("O:R").Delete End Sub mình mới tập tành VBA nên co lẽ hơi thủ công tý. Sub trông hoa mắt nhưng cũng dễ sử dụng thôi bạn. Bạn chỉ việc copy sub này vào cùng module với sub trên rồi thêm dòng lệnh: call them() trước cụm từ End Sub của bạn là đc. Sửa lần cuối: 22/3/15 P

phuongla83

Guest

20/3/15 2 0 1 37

alodie123 nói: Sub them() Dim ws As Worksheet, quote As Long, i As Long, d As Long, e As Long Set ws = Sheets("Data") ws.Select quote = ws.Range("J2") ws.AutoFilterMode = False i = Range("G" & Rows.Count).End(xlUp).Row Columns("F:I").Select Selection.AutoFilter Field:=1, Criteria1:="" Selection.AutoFilter Field:=4, Criteria1:=">=" & quote Range("F2:I" & i).SpecialCells(xlCellTypeVisible).Copy Range("O1").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False ws.AutoFilterMode = False d = Range("R" & Rows.Count).End(xlUp).Row For e = 1 To d ws.Range("K" & e + 1) = Right(Range("P" & e), 2) ws.Range("L" & e + 1) = Range("R" & e) - quote Next e Columns("O:R").Delete End Sub mình mới tập tành VBA nên co lẽ hơi thủ công tý. Sub trông hoa mắt nhưng cũng dễ sử dụng thôi bạn. Bạn chỉ việc copy sub này vào cùng module với sub trên rồi thêm dòng lệnh: call them() trước cụm từ End Sub của bạn là đc. Nhấn để mở rộng...

Cám ơn bạn nhiều lắm. Mình đang test có gì bạn giúp đỡ mình nha A

alodie123

Guest

11/3/15 4 0 1 38

phuongla83 nói: Mình có 8 chuyền may, có cách nào một Macro sẽ dùng được cho tất cả các file excel chứa dữ liệu gốc không ? Các file gốc lần lược cho các chuyền từ 1 đến 8 giống cấu trúc như nhau. Cám ơn. Nhấn để mở rộng...

Bạn có thể nghiên cứu videos này để giải quyết vấn đề của bạn. Bạn phải đăng nhập hoặc đăng ký để bình luận.

Similar threads

Hacker ‘binanhang123’ tuyên bố đã xâm phạm dữ liệu của 100 triệu người dùng Zalo

• Webketoan.vn
• 14/11/24
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 0 Lượt xem 521 Tech Hub: AI - An toàn thông tin - Tin học quản lý 14/11/24 Webketoan.vn Top 5 công cụ bảo mật doanh nghiệp nào cũng nên trang bị

• Webketoan.vn
• 11/11/24
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 0 Lượt xem 738 Tech Hub: AI - An toàn thông tin - Tin học quản lý 11/11/24 Webketoan.vn Bảo vệ doanh nghiệp trước các mối đe dọa do AI

• Webketoan.vn
• 20/11/24
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 0 Lượt xem 2K Tech Hub: AI - An toàn thông tin - Tin học quản lý 20/11/24 Webketoan.vn Nên mua than hoạt tính lọc nước ở đâu TP HCM

• MTXuyenViet
• 6/11/24
• Quảng cáo, rao vặt

Trả lời 0 Lượt xem 35 Quảng cáo, rao vặt 6/11/24 MTXuyenViet S Lọc danh sách sinh nhật theo quý nhơ hàm tự tạo

• SA_DQ
• 11/5/23
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 1 Lượt xem 35K Tech Hub: AI - An toàn thông tin - Tin học quản lý 12/5/23 SA_DQ S Chia sẻ: Facebook Email Chia sẻ Link

Xem nhiều

• M Thi tuyển công chức thuế năm 2012!
  • Started by MINA
  • 5/5/12
  • Lượt xem: 8,750,919
  Phát triển bản thân
• M Thi công chức hải quan!
  • Started by meomalem
  • 2/5/10
  • Lượt xem: 3,404,510
  Phát triển bản thân
• T Lập nhóm ôn thi công chức bhxh 2013
  • Started by truongvucanh
  • 29/3/13
  • Lượt xem: 2,988,865
  Phát triển bản thân
• M Tổng hợp các nội dung liên quan đến việc thi tuyển vào ngân hàng!
  • Started by mechipchip
  • 18/7/06
  • Lượt xem: 2,907,712
  Chế độ kế toán khác
• J Thi tuyển công chức thuế 2014
  • Started by jinna
  • 23/12/13
  • Lượt xem: 2,554,154
  Thi công chức thuế

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Share this page Chia sẻ Facebook Email Chia sẻ Link Top Bottom