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

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 =...

Cảm ơn bác cho em mở mang kiến thức. Với mỗi trang có 1 Shaper thì chạy tốt. Em nhờ bác viết code đánh số hộ em trong tài liệu sau: Trang 1 tại ô số phiếu là "Số phiếu: 120001" ứng với học sinh thứ nhất, trang 2 tại ô số phiếu là "Số phiếu: 120002" ứng với học sinh thứ hai.

Em chọn các Shaper bằng các ghi Marco thì thấy chỉ có lệnh: ActiveDocument.Shapes.Range(Array(" 90")).Select Khi chạy chọn được mỗi cái Shaper số 1. Em gửi file mẫu và file sản phẩm muốn có. Cảm ơn các bác rất nhiều ạ!

Dạ, em làm được rồi. Em cám ơn anh. Về phần code, em muốn tạo Name hàng loạt theo giá trị em để ở sheet quản lý code, trong đó các tên Name e đặt ở cột C, refer to ở cột D. Anh giúp e với ạ. Em cám ơn anh.

Cái gì chứ tính thống kê và giả thiết thì cả diễn đàn này không có mấy tay tính bằng tôi đâu. Nếu lớp bạn có 40-60 học sinh, và một tiết học là 1 giờ. Nếu học sinh "hoàn toàn hưởng ứng" lời bạn yêu cầu/khuyến khích thì bao nhiêu phần trăm sẽ hỏi? Giả sử 20% giư tay lên hỏi, mõi câu hỏi cần 1/2...

Có một ô thì dùng công thức cũng được rồi, cần gì phải viết code vậy bạn.

Chào các bạn, Mình có sheet Data sẽ có nhiều số phiếu trùng nhau ở cột A, ở sheet So-phieu mình nhập số phiếu ở ô D1 và kết quả là muốn ở ô C9 (muốn tìm thấy số phiếu đầu tiên và lấy số tiền) Công thức mình có lập ở ô C9 của Phieu-chi Các bạn giúp viết code giúp mình nhé Cảm ơn nhiều

Kế hoạch đầu tư Công ty cổ phần than Hà Anh Gia dự định đầu tư một nhà máy sản xuất than đá theo công nghệ mới với chi tiết như sau: Nhập khẩu một dây chuyền sản xuất từ Cộng hòa Liên bang Đức với giá 440 tỷ đồng, chi phí vận chuyển người bán chịu, thuế nhập khẩu người mua chịu là 10%, Công ty...

Như vậy, chừ tôi hiểu ý muốn của bạn là ở đoạn dưới: "em có thể gọi để sử dụng ở các bảng tính khác, để tiện việc tổng hợp nhiều mã chứng khoán khác nhau". Nếu chỉ có vậy thì ở 1 file nào đó, bạn chỉ cần gọi tên Net interest income_2020 với tham chiếu như sau: ='D:\Sample for VBA.xlsx'!Net...