Kết quả tìm kiếm cho từ khóa: in phiếu thu

Mọi người giúp mình giải quyết vấn đề với ạ, mình cảm ơn nhiều. Mình có bảng nhập liệu bán hàng, mình có viết lệnh nhập để gán số liệu qua bảng kê nhưng lệnh của mình mỗi lần tất cả nội dung chỉ gán được trên một dòng. Nhưng công ty mình có trường hợp 1 số phiếu XK sẽ xuất nhiều mặt hàng thành...

mình đang tìm kiếm công thức cho vấn đề này, nhưng làm mấy hôm mới tìm được 1 nửa công thức cho ô p56, còn 1 nửa còn lại của công thức thì tìm mãi không ra, các bạn chuyên excel có giải pháp gì giúp mình với Giả sử có 2153 usd vốn ban đầu, Giải ngân được 1500 mua 1 quyền put (ô d3 điền 1), dư...

mình đang tìm kiếm công thức cho vấn đề này, nhưng làm mấy hôm mới tìm được 1 nửa công thức cho ô p56, còn 1 nửa còn lại của công thức thì tìm mãi không ra, các bạn chuyên excel có giải pháp gì giúp mình với Giả sử có 2153 usd vốn ban đầu, Giải ngân được 1500 mua 1 quyền put (ô d3 điền 1), dư...

em xin cám ơn rất nhiều

Số lượng của sản phẩm khác nhau không cộng với nhau Option Explicit Sub LayDuLieuSangTrangIn() Dim sArr(), res(), aTong() Dim i&, j&, k&, sRow&, sCol&, eRow&, total# eRow = ShList.Range("C" & Rows.Count).End(xlUp).Row sArr = Sheets("ShList").Range("A21:J" & eRow + 1).Value sRow =...

Em muốn sau mỗi dòng cộng của phiếu in được in đậm và thêm một dòng tổng cộng của số lượng và thành tiền phải làm như nào nữa anh. Em xin cám ơn rất nhiều

@Chủ bài đăng: Như vậy số phiếu của bạn luôn có độ dài là 9; Nhưng như vậy cũng luôn có 2 ký tự bất biến là ký tự 'P' & '/' Thực ra nếu với mình 2 kí tự này sẽ bỏ đi; Thêm nữa: a./ Bỡi trong mã luôn có kí tự như 'KT' nên tháng ta nên xài dãy sau '123456789ABC' Cái tiện của nó không chỉ là rút...

Cảm ơn anh, qua năm sau em làm sổ kế toán mới

Bạn test code dưới đây. "PTK" đã sửa thành "PKT" Option Explicit Sub PKT() Dim MaNgay Dim phieuSo Dim i, j, k Dim lr As Long lr = Sheet1.Range("C" & Rows.Count).End(xlUp).Row MaNgay = Sheet1.Range("B8:C" & lr) ReDim phieuSo(1 To UBound(MaNgay) - 1, 1 To 1) For i = 2 To UBound(MaNgay) If...

Lưu ý là bảng này dùng trong 1 năm. Nếu qua năm sau thì số phiếu sẽ trùng nhé. Option Explicit Sub test() Dim lr&, count&, k&, cell As Range, arr() lr = Cells(Rows.count, "B").End(xlUp).Row ReDim arr(1 To lr - 8, 1 To 1) On Error Resume Next For Each cell In Range("B9:B" & lr) k = k + 1...

Đúng rồi, cảm ơn các bạn nhiều 1654659858 Bạn giúp mình sửa lại 1 chút (xin lỗi do tôi mô tả chưa rỏ) Nếu qua tháng mới thì số phiếu bắt đầu là 001/tháng Code hiện tại đang đánh số liên tục qua các tháng xin xem file. Cảm ơn rất nhiều ạ!

............................................ Option Explicit Sub xxx() Dim MaNgay Dim phieuSo Dim i, j MaNgay = Sheet1.Range("B8:C16") ReDim phieuSo(1 To UBound(MaNgay) - 1, 1 To 1) For i = 2 To UBound(MaNgay) If MaNgay(i, 1) <> MaNgay(i - 1, 1) Or MaNgay(i, 2) <> MaNgay(i - 1, 2) Then...

Nhờ các bạn tạo code cho đánh số phiếu kế toán theo ngày và mã đơn vị Đánh số phiếu theo quy ước: 1/ Nếu những hàng liền kề nhau mà có cùng ngày tháng và mã đơn vị thì đánh cùng số phiếu 2/ Ví dụ số phiếu: PKT001/06 được quy ước là * 001 số thứ tự phát sinh trong tháng (số từ 001 đến 999, trong...

Bạn thử F4: =SUM(IF((A4:$A$50=A4)*(COUNTIF($A$4:$A4,A4)=1),B4:$B$50*C4:$C$50)) 'Kết thúc bằng Ctrl+Shift+Enter G4: =SUM(IF((A4:$A$50=A4)*(COUNTIF($A$4:$A4,A4)=1),D4:$D$50*E4:$E$50)) 'Kết thúc bằng Ctrl+Shift+Enter

Chào các bạn Mình có gửi File đính kèm và ô màu vàng bôi đen trong Sheet Excel là ô cần tính tổng cộng các mã phiếu xuất hàng giống nhau. Nhờ các bạn giúp mình công thức với Trân trọng cám ơn Nguyễn Trường Văn

Em chào các anh chị ạ. Em có dữ liệu bán hàng như file đính kèm Với các mặt hàng đã có tỷ lệ quy đổi theo cấp đóng gói lớn dần như Danh mục hàng hóa sau Em có ứng dụng Query để "đi đường vòng" ra được kết quả mong muốn như sau: Em cũng mới tìm hiểu học thêm về Power Query nên rất mong muốn...

Bạn phải mô tả chứ. Bạn muốn tôi ngồi phân tích code của bạn rồi đoán ý bạn? Thế sao bạn không nói ngay cái ý đó mà bắt tôi nhọc công đoán? Bạn đi nhờ mà làm thế thì chịu. Muốn làm gì thì mô tả kỹ. Thậm chí lấy ví dụ để dễ mô tả. Khó hay dễ đoán...

Sửa gì hả bạn? Bạn có đính kèm code nào đâu? Tập tin docx không thể chứa code.

Chào bác @batman1 : Mỗi lần xuất dữ liệu từ phần mềm của BGD: Hình thức thì giống nhau nhưng nền tảng lại khác. Em đã viết được code đánh số phiếu cho một trong các kiểu đó. Nhưng code quá dài. Bác có thể bớt chút thời gian sửa lại em với. Em cảm ơn.

Biết ngay mà. Lúc đầu mỗi trang chỉ có 1 shape, bây giờ nhỏ giọt thêm thông tin. Sub danh_so() Const START = 120000 Dim shp As Shape, k As Long For Each shp In ThisDocument.Shapes shp.Select k = Selection.Information(wdActiveEndPageNumber) If shp.Type =...