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

Thử code này coi nào Sub ABC() If ActiveCell.Column = 2 Then If ActiveCell.Row >= 4 Then Sheets("Phieu").Range("F1").Value = ActiveCell.Value End If End If End Sub

Các bạn sửa giúp code copy theo điều kiện như sau: Chọn bất kỳ 1 ô của cột B của trang Dulieu (từ B4 trở xuống), rồi sau đó sang trang Phiếu, paste value vào ô F1 Tôi có record macro nhưng không biết sửa cho phù hợp, nhờ các bạn giúp sửa code Sub Macro2() Range("B7").Select...

Ban tham khảo link này: Liên kết: https://www.youtube.com/watch?v=tFp6w9WvZa0

:D :D :D HOA CẢI VEN SÔNG (/ề trở lại dòng sông mơ ước Rữa mặt mình, khoát nước miên man Bao năm phiêu bạc nhân gian Vẫn luôn kí ức uốn quanh cuối làng Sao bao năm sông quê vẫn vậy Hiền hòa xuôi mãi chảy về đông Xa xa vạc cải xanh nồng Trổ hoa rực rỡ nhánh ngồng vàng tươi Trở về đây lang...

Cảm ơn bạn, mình của chưa rành VBA lắm nên có những chỗ dùng Vlook. Này mình sẽ nghiên cứu thêm. 1656037232 Cảm ơn bạn! Khả năng của mình hạn chế, mình sẽ nghiên cứu đề xuất của ban.

1 phiếu nhập hay xuất kho đều có 2 phần chính yếu, mà mình gán chúng tương ứng là phần chung & phần chi tiết Phần chung gồm có: Ngày (Xuất/nhập); Họ tên người giao/nhận; Mã số thuế, . . . . . Phần chi tiết gồm: STT, Mã hàng, tên hàng, Đơn vị tính; số lượng, đơn giá, . . . . Mình khuyên chủ bài...

Tạm sửa lại code cho bạn trên nền code cũ. bạn căn cứ vào đó để làm cho các cột tiếp theo. Xem file Nếu biết về mảng thì đưa dữ liệu của sheet Form thành 1 mảng, sau đó gán xuongs sheet BangKe 1 lần. Ps: Đã dùng VBA rồi thì hạn chế dùng công thức Vlookup; Nên đưa file lên có ít nhất 10- 20 dòng...

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