Nhờ viết code cho bảng tổng hợp nhập xuất tồn có nhiều nhóm hàng. (2 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)
T

tranthanhktt

Thành viên chính thức
Tham gia
7/9/10
Bài viết
55
Được thích
20
Chào các bạn ! mình đang gặp chút vấn đề trong file nhập xuất tồn kho, vì file có rất nhiều công thức nên rất nặng, mình đang chuyển qua sử dụng bằng vba nhưng mà chưa biết viết code cho bảng tổng hợp NXT cónhiềunhómhàng như thế nào. Rất mong các bạn giúp đỡ . Cám ơn nhiều.
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
File đã chỉnh sửa

Cám ơn bạn . mình gửi file đã chỉnh sửa một số lỗi và các macro theo hướng dẫn của các bạn trên diễn đàn để chúng ta cùng nghiên cứu học hỏi tiếp nha. thật sự mỗi một hướng dẫn của các bạn rất hứu ích đối với mình để mình làm các chương trình khác ứng dụng cho công việc của mình . cám ơn cả nhà .http://www.mediafire.com/?p9tu4enuw24mroz
 
Upvote 0
Đây là 2 macro cha & mẹ & 1 macro con ( vừa cả & vừa là út)

Cám ơn bạn . mình gửi file đã chỉnh sửa một số lỗi và các macro theo hướng dẫn của các bạn trên diễn đàn để chúng ta cùng nghiên cứu học hỏi tiếp nha. thật sự mỗi một hướng dẫn của các bạn rất hứu ích đối với mình để mình làm các chương trình khác ứng dụng cho công việc của mình . cám ơn cả nhà
Nhấp chuột vào đây để mở rộng...

Macro cha có nội dung là:

Mã: 
 Option Explicit
[B]Sub pn()[/B]
   FieuNhapXuat
[B]End Sub[/B]

Macro mẹ có vẻ dài hơn chút:

Mã: 
 [B] Sub PX()[/B]
     FieuNhapXuat False
 [B]End Sub[/B]


Macro con:

PHP: 
Sub FieuNhapXuat(Optional Nhap As Boolean = True)
 Dim I, HC, T As Long, Id As Long
 Dim TKNo As Range
 Dim TK As String, ShName As String
 
 If Nhap Then ShName = "pn" Else ShName = "px"              '<=|'
 Sheets(ShName).Select:                     TK = Range("D6")    '*'
 Range("A13:J65536").Clear
 Application.Calculation = xlCalculationManual
 Application.ScreenUpdating = False
 HC = Sheets("PHATSINH").Range("b60000").End(xlUp).Row
 I = 12:                                    T = 0
 For Each TKNo In Sheets("PHATSINH").Range("b7:b" & HC)
    If TKNo.Offset(0, IIf(Nhap, 3, 4)) = TK Then            '<=|'
        I = I + 1:                          T = T + 1
        Range("A" & I) = T:                 Range("C" & I) = TKNo
        Range("B" & I) = TKNo.Offset(0, 1)
        Range("D" & I) = TKNo.Offset(0, 2)
        Range("E" & I) = TKNo.Offset(0, 14)     '?'
        Range("F" & I) = TKNo.Offset(0, 14)     '?'
        Range("g" & I) = TKNo.Offset(0, 17)
        Range("H" & I).Formula = "=rc[-1]*rc[-2]"
    End If
 Next TKNo
 Set TKNo = Nothing          '<=| Lenh Này Là Thuà'
 If I = 13 Then
    Range("g13:h" & I).NumberFormat = "###,00"
    Range("A13 :h" & I).Font.Size = 11
    Range("A13:h" & I).VerticalAlignment = xlCenter
    Range("A13:h" & I + 1).WrapText = True
    Range("A13:h" & I + 7).Font.Name = "arial"
    Range("A" & I + 1 & ":h" & I + 7).Font.ColorIndex = 5
    Range("A" & I + 1 & ":h" & I + 1).Font.Bold = True
    Range("A" & I + 1 & ":h" & I + 1).Interior.ColorIndex = 20
    Range("B" & I + 2).Value = "=doc & vnd(r[-1]c[6])"
    Range("B" & I + 2).Font.Italic = True
    Range("B" & I + 2).Font.Name = "VNI-TIMES"
    
    If Nhap Then Id = 22 Else Id = 21                   '<=|'
    Range("E" & I + 4).Value = Sheets("THONGTIN").Range("A" & Id).Value
    Range("B" & I + 3).Value = Sheets("THONGTIN").Range("A14")
    Range("B" & I + 5).Value = Sheets("THONGTIN").Range("A15")
    
    If Nhap Then Id = 19 Else Id = 18                  '<=|'
    Range("C" & I + 5).Value = Sheets("THONGTIN").Range("A" & Id)
    Range("E" & I + 5).Value = Sheets("THONGTIN").Range("A16")
    Range("G" & I + 5).Value = Sheets("THONGTIN").Range("A17")
    Range("b" & I + 1).Value = Sheets("THONGTIN").Range("A20")
    Range("H" & I + 1).Formula = "=round(SUM(R13C:R" & I & "C),0)"
    Range("b" & I + 1).HorizontalAlignment = xlCenter   '**'
    Range("B" & I + 2 & ":h" & I + 2).MergeCells = True
    Range("B" & I + 2 & ":h" & I + 2).WrapText = True
    Range("B" & I + 2 & ":h" & I + 2).VerticalAlignment = xlCenter
'    Range("b" & I + 1).HorizontalAlignment = xlCenter'
    Range("C13:f" & I + 1).HorizontalAlignment = xlCenter
    Range("g" & I + 5 & ":h" & I + 5).MergeCells = True
    Range("g" & I + 5 & ":h" & I + 5).HorizontalAlignment = xlCenter
    Range("e" & I + 4 & ":h" & I + 4).HorizontalAlignment = xlCenter
    Range("e" & I + 4 & ":h" & I + 4).MergeCells = True
 'Goi Macro Cho 5 Dòng Lenh Này:'
    Range("A13:h" & I).Borders(xlEdgeLeft).LineStyle = xlContinuous     '7'
    Range("A13:h" & I).Borders(xlEdgeRight).LineStyle = xlContinuous    '10'
    Range("A13:h" & I).Borders(xlEdgeBottom).LineStyle = xlContinuous   '9'
    Range("A13:h" & I).Borders(xlEdgeTop).LineStyle = xlContinuous      '8'
    Range("A13:h" & I).Borders(xlInsideVertical).LineStyle = xlContinuous '11'
 'Goi Tiép Macro Cho 5 Dòng Lenh Này:'
    Range("A13:h" & I + 1).Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("A13:h" & I + 1).Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("A13:h" & I + 1).Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("A13:h" & I + 1).Borders(xlEdgeTop).LineStyle = xlContinuous
    Range("A13:h" & I + 1).Borders(xlInsideVertical).LineStyle = xlContinuous
 End If
' Set TKNo = Nothing  <=| Lenh Này Là Thuà'
 If I > 13 Then
    Range("g13:h" & I).NumberFormat = "###,00"
    Range("A13 :h" & I).Font.Size = 11
    Range("A13:h" & I).VerticalAlignment = xlCenter
    Range("A13:h" & I + 1).WrapText = True
    Range("A13:h" & I + 7).Font.Name = "arial"
    Range("A" & I + 1 & ":h" & I + 7).Font.ColorIndex = 5
    Range("A" & I + 1 & ":h" & I + 1).Font.Bold = True
    Range("A" & I + 1 & ":h" & I + 1).Interior.ColorIndex = 20
    Range("B" & I + 2).Value = "=doc & vnd(r[-1]c[6])"
    Range("B" & I + 2).Font.Italic = True
    Range("B" & I + 2).Font.Name = "VNI-TIMES"
    If Nhap Then Id = 22 Else Id = 21                   '<=|'
    Range("E" & I + 4).Value = Sheets("THONGTIN").Range("A" & Id).Value
    Range("B" & I + 3).Value = Sheets("THONGTIN").Range("A14")
    Range("B" & I + 5).Value = Sheets("THONGTIN").Range("A15")
    
    If Nhap Then Id = 19 Else Id = 18                  '<=|'
    Range("C" & I + 5).Value = Sheets("THONGTIN").Range("A" & Id)
    Range("E" & I + 5).Value = Sheets("THONGTIN").Range("A16")
    Range("G" & I + 5).Value = Sheets("THONGTIN").Range("A17")
    Range("b" & I + 1).Value = Sheets("THONGTIN").Range("A20")
    Range("H" & I + 1).Formula = "=round(SUM(R13C:R" & I & "C),0)"
    
    Range("b" & I + 1).HorizontalAlignment = xlCenter
    Range("B" & I + 2 & ":h" & I + 2).MergeCells = True
    Range("B" & I + 2 & ":h" & I + 2).WrapText = True
    Range("B" & I + 2 & ":h" & I + 2).VerticalAlignment = xlCenter
   
    Range("C13:f" & I + 1).HorizontalAlignment = xlCenter
    Range("g" & I + 5 & ":h" & I + 5).MergeCells = True
    Range("g" & I + 5 & ":h" & I + 5).HorizontalAlignment = xlCenter
    Range("e" & I + 4 & ":h" & I + 4).HorizontalAlignment = xlCenter
    Range("e" & I + 4 & ":h" & I + 4).MergeCells = True
 'Goi Macro Cho 5 Dòng Lenh Này:'
    Range("A13:h" & I).Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("A13:h" & I).Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("A13:h" & I).Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("A13:h" & I).Borders(xlEdgeTop).LineStyle = xlContinuous
    Range("A13:h" & I).Borders(xlInsideVertical).LineStyle = xlContinuous
    
    Range("A13:h" & I).Borders(xlInsideHorizontal).LineStyle = xlDot
 'Goi Tiép Macro Cho 5 Dòng Lenh Này:'
    Range("A13:h" & I + 1).Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("A13:h" & I + 1).Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("A13:h" & I + 1).Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("A13:h" & I + 1).Borders(xlEdgeTop).LineStyle = xlContinuous
    Range("A13:h" & I + 1).Borders(xlInsideVertical).LineStyle = xlContinuous
 End If
 If I < 13 Then
    MsgBox "Um! khong phat sinh so phieu tren!", , "Thong báo"
    Exit Sub
 End If
 Application.Calculation = xlCalculationAutomatic
 Application.ScreenUpdating = True
                   
End Sub


Bạn chịu khó đối chiếu cái nha.
 
Lần chỉnh sửa cuối:
Upvote 0
Code tính xuất nhập tồn bằng kiểu mảng

tranthanhktt đã viết:
Cám ơn bạn . mình gửi file đã chỉnh sửa một số lỗi và các macro theo hướng dẫn của các bạn trên diễn đàn để chúng ta cùng nghiên cứu học hỏi tiếp nha. thật sự mỗi một hướng dẫn của các bạn rất hứu ích đối với mình để mình làm các chương trình khác ứng dụng cho công việc của mình . cám ơn cả nhà .http://www.mediafire.com/?p9tu4enuw24mroz
Nhấp chuột vào đây để mở rộng...
Link die rồi bạn ơi. up lại file cho mình nghiên cứu với. Ko bít giúp được gì cho bạn ko nhưng theo mình, nếu nhiều mã hàng (hàng ngàn, chục ngàn dòng) thì nên viết code kiểu dữ liệu mảng tốc độ sẽ nhanh hơn.
Bạn xem và tham khảo thử code mình viết coi đúng ý bạn ko nhé.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
cám ơn bạn ! nhưng nó báo lỗi đoạn này bạn xem lại dùm nhé. ReDim arr(1 To UBound(arr1, 1), 1 To 6)
 
Upvote 0
tranthanhktt đã viết:
cám ơn bạn ! nhưng nó báo lỗi đoạn này bạn xem lại dùm nhé. ReDim arr(1 To UBound(arr1, 1), 1 To 6)
Nhấp chuột vào đây để mở rộng...
ah. lỗi này là do vị trí đặt của dòng ReDim arr(1 To UBound(arr1, 1), 1 To 6) này mình để ở phía trên. lúc test xong code mình lại chuyển nó lên ở đầu ở mục khai báo để nhìn cho dễ ai ngờ lại lỗi. Giờ bạn cắt đoạn code đó paste xuống dưới dòng "44 ln" nhé. Mình up lại file đã sữa lại lỗi này.
 

File đính kèm

Upvote 0
Cám ơn bạn! phương pháp củabạn chạy cũng khá nhanh nhưng nó chưa loạc dữ liệu theo ngày được, bạn xem lại dùm nhé để mình học hỏi với!
 
Upvote 0
tranthanhktt đã viết:
Cám ơn bạn! phương pháp củabạn chạy cũng khá nhanh nhưng nó chưa loạc dữ liệu theo ngày được, bạn xem lại dùm nhé để mình học hỏi với!
Nhấp chuột vào đây để mở rộng...
"Lọc dữ liệu theo ngày" ý bạn là mình chọn kỳ để xem báo cáo thì nó sẽ lọc ra đúng ko, vậy thì chỉ cần chọn kỳ xem là tháng là đủ rồi. ví dụ cần xem báo cáo tháng 1 mình chọn tháng 1 sẽ lọc ra toàn bộ phát sinh nhập xuất trong tháng 1 nhưng quan trọng là phải kết chuyển đc số tồn cuối kỳ của tháng trước chuyển qua tháng sau thôi đúng ko. Để mình làm thử.
 
Upvote 0
ĐÚNG VẬY, CHỌN KỲ LÀ THÁNG HOẶC TỪ NGÀY ĐẾN NGÀY CŨNG ĐƯỢC . SẴN BẠN LÀM THỬ MÌNH GỬI FILE CỦA MÌNH LÊN BẠN NGHIÊN CỨU "MỔ SẺ LÀM THỊT NÓ " DÙM MÌNH NẾU CÓ NẤU ĐƯỢC MÓN NÀO NGON CHO MÌNH THƯỞNG THỨC VỚI! HIHI :http://www.4shared.com/rar/rWC-8pfR/QUAN_LY_KHO_NAM_2012__.html
FILE NÀY MỤC ĐẦU KỲ Ở BẢNG TỔNG HỢP MÌNH VẪN CHƯA BIẾT LỌC THEO THỜI GIAN VÌ VẬY MỖI THÁNG PHẢI LÀM RIÊNG 1 FILE CŨNG HƠI BẤT TIỆN,NẾU GIẢI QUYẾT ĐƯỢC VẤNĐỀ NÀY THÌ MỘT NĂM CHỈ CẦN MỘT FILE LÀ ĐỦ. NẾU ĐƯỢC BẠN NGHIÊN CỨU DÙM LUÔN NHE.!
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

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

A
  • Question Question
Em nhờ anh/chị/em/chú/bác giúp em viết code tổng hợp dữ liệu. em tính công thức nó nặng quá. em cám ơn (2 người xem)
Trả lời
10
Đọc
202
pycckuu410
pycckuu410
T
  • Question Question
Xin thầy/cô và anh chị giúp đỡ cách điền thông tin ca kíp trực trong bảng Excel bằng VBA (2 người xem)
Trả lời
0
Đọc
15
tiennd67
T
T
Cần hỏi về bảng Table (1 người xem)
Trả lời
3
Đọc
35
trungdtbidi
T
HeSanbi
Office Tool Plus - Ứng dụng tải, cài đặt, gỡ bỏ, nhập khóa, xóa khóa bản quyền Office nhanh chóng (1 người xem)
    • Thích
Trả lời
4
Đọc
238
ptm0412
ptm0412
C
Lọc chỉ tiêu sheet 1, kết quả tự động ở các sheet còn lại
Trả lời
2
Đọc
58
Cuong_98
C
Nguyễn Duy Tuân
Lập trình VBA với Google Drive, OneDrive, DropBox cho Upload-Download-Copy-Move...
    • Cảm ơn
Trả lời
3
Đọc
191
Nguyễn Duy Tuân
Nguyễn Duy Tuân
P
  • Question Question
Lấy giá trị duy nhất nhiều cột khác nhau
Trả lời
4
Đọc
123
Duy Tùng 9x
Duy Tùng 9x
4
EXCEL TỰ ĐỘNG MỞ TRÊN WEB
Trả lời
8
Đọc
192
HeSanbi
HeSanbi
N
Công thức tính điền số lượng lũy kế giao hàng theo điều kiện
Trả lời
0
Đọc
34
Ngocminh19
N
A
Xin các bác chỉ giúp cách thống kê danh sách học sinh
Trả lời
6
Đọc
117
Anhnn9
A
Việt Nguyễn 86
Excel hay bị tắt đột ngột và hiện trang trắng khi làm việc
Trả lời
7
Đọc
284
Việt Nguyễn 86
Việt Nguyễn 86
cadafi
Hướng dẫn tạo Macro chuyển số thành chữ trong Open Office 3.1 (Tiếng Việt Unicode)
Trả lời
11
Đọc
25K
minnad123
M
T
hỏi về đếm số ngày doanh thu tăng và giảm
Trả lời
5
Đọc
78
VetMini
V
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711) (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
12 13 14
Trả lời
263
Đọc
28K
ongke0711
ongke0711
T
xin công thức tính được số người còn lại theo từng cột
Trả lời
1
Đọc
62
bebo021999
B
D
Hỏi về cách sử dụng data table
Trả lời
2
Đọc
85
ptm0412
ptm0412
hieuxd
  • Question Question
Khi nhập dữ liệu tự động chèn thêm dòng khi số dòng trong bảng mẫu sắp hết (2 người xem)
2
Trả lời
21
Đọc
24K
Bát Giới
Bát Giới
TrungChinhs
  • Question Question
Hỏi cách làm tròn số trong VBA
Trả lời
10
Đọc
7K
VetMini
V
SA_DQ
[Xin hỏi] Cách tính số tiền bình quân của tài khoản trong 1 tháng
Trả lời
15
Đọc
311
ptm0412
ptm0412
dangvandang
Addin mở rộng cho xây dựng
    • Thích
2
Trả lời
34
Đọc
3K
vlba
V
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

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALKSHOW KHÁM PHÁ SỨC MẠNH HÀM FILTER TRONG EXCEL 365
Back
Top Bottom