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

Nhờ anh chị hỗ trợ sheet "Phiếu thu Chi" như phần mô tả

Chào bạn. Cho mình hỏi vấn đề ở trên có xử lý được ko bạn. Tks

nhờ các bác phá hộ e cái này, em viết cho bà kế toán mà quên pass, giờ người ta nhờ nâng cấp thêm tính năng. Bác nào muốn kiểm chứng có phải em viết thì cứ hỏi em, cơ bản là e dùng để in tự động cho phiếu thu tiền, có mấy lệnh in pdf và chạy lặp rà soát điều kiện mới in. thanks em đã thử dùng...

Gửi bạn salam Cho mình hỏi với . Do dữ liệu mình có mở rộng thêm ở mục loại Phiếu và phiếu nhập xuất kho có bổ sung thêm một số loại thành phẩm và hàng hoá. Nên mình chạy công thức hiển thị ra không đúng nơi. Nhờ bạn chỉ giúp mình với Trân trọng cám ơn Nguyễn Trường Văn

Đó là cách trả lời quá đơn giản. Tôi không thích cái cách trả lời, chứ không phải là không thích việc không dùng validation. Tôi sẽ không làm gì cho bạn nữa, vì bạn là người: - Không có chí học hỏi. Qua 2 bài mẫu và tài liệu có sẵn mà không học hỏi để tự làm. - Bạn có tính cẩu thả. Mã cổ phiếu...

dạ vâng em cảm ơn bác @ptm412 vì cách làm cũ em không làm được nên em mới tìm cách mới, và tìm thấy power query, em cảm ơn bác Phạm Thành Mỹ nhân tiện em nhờ bác @ptm412 nếu bác có thời gian lấy dùm em data từ link fialda về excel ( em lấy được về ggsheets thôi ạ, về excel em bó tay, em nhờ...

kính gửi bác @ptm0412 , nhân tiện nói lấy data từ web bằng power query, em đang làm 1 file lấy data từ google sheet về excel nhưng đang vướng 1 số mong bác giúp em với ạ 1. đặt dữ liệu tại ô A6 2. trong lúc edit data lấy về, sao em không xoá được dòng 1 bác nhỉ (dòng 1 là column1...

Thử xem, hi vọng đúng. Click chọn ở ô C8 /Sh GiayBao xem điều gì đã diễn ra. Các ngày Thứ 7, CN tôi đã làm hàm cho, ngày nghỉ khác bạn tự xác định. Chỉ cần gõ ngày 1/ tháng/năm các ô của dòng 5, 6 sẽ tự thay đổi.

Thiết kế dữ liệu dở quá 1. Không có MSNV (tên trùng nhau thì làm sao phân biệt ?) 2. Ngày trong tháng không nhập theo định dạng của date mà chỉ nhập 1->31 sẽ làm cho code rất phức tạp 3. Không có dòng thể hiện thứ trong tuần (để phân biệt ngày T7, CN là ngày làm thêm) nên code viết được cũng sẽ...

. Bạn cần trình bày rõ thêm: 1. Không có "Comment" tức là không có nội dung công việc có xuất qua không? 2. Căn cứ vào đâu để điền vào 2 cột " Từ giờ" + "Đến giờ"? 3. Căn cứ vào đâu để biết "Ngày lễ,T7,CN " ? .

Hiện tại em phải xuất file và in phiếu làm thêm giờ cho từng người, dữ liệu thì nhập bảng chấm công tháng, và xuất kết quả theo mẫu, tuy nhiên nội dung công việc thì xuất từ phần Comment của từng ngày, việc làm này mất rất nhiều thời gian, em kính nhờ các bác các anh chị giúp đỡ. Em xin chân...

Em gà mờ mới tập tành học tập mong được anh chị chỉ giáo, giúp đỡ. Hiện tại em có file word gồm phiếu tặng quà cho khách hàng (đính kèm). Hiện tại em đang làm công việc thủ công là thay đổi từng tên. Anh chị có cách nào tạo file excel liên kết để thay đổi họ tên (bôi đỏ) để in ra hàng loạt được...

Nếu từ code anh VetMini, chỉ cần tìm dòng cuối cột D, để nguyên code chạy từ đó trở xuống, sửa code ít Chỉ cần thay ngay = 0 thang = 0 ngayt = 0 For Each cll In Range(Cells(2, "D"), Cells(Cells(10000, "C").End(xlUp).Row, "D")) Bằng LastRw = Cells(10000, "D").End(xlUp).Row ngay = 0 ngayt =...

Sub t() Const MAHIEU = "SX6" Const COLOFFSET = 9 ' offset den cot mahieu Const SOPHIEU = "SP#SX6" 'Bo sung thong tin xac dinh thoi diem bat dau danh lai so phieu With Sheets("Sheet1") lstD = .Range("D" & Rows.Count).End(xlUp).Row lstM = .Range("M" &...

Góp vui cho thêm phần rộn ràng. Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) ' code cua HUONGHCKT Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("G6:G100000")) Is Nothing Then Dim Sh As Worksheet Dim DicDN...

Thử cái này. Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long, a As Long Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("M2:M1000")) Is Nothing Then If Target.Value = "SX6" Then For i = Target.Row -...

Thử hàm UDF này xem. Function DocNo(Rng As Range) As String Dim Arr2(), d&, Lr&, W&, F&, Ngay, Thang, key Dim Sh As Worksheet, DicDN As Object Set Sh = Sheets("Issue") Lr = Rng.Row Set DicDN = CreateObject("Scripting.Dictionary") For W = 2 To Lr If Sh.Cells(W, 3) <> Empty Then...

. Có thể dùng UDF, sau đó copy => paste value, chỉ cần chừa công thức vài dòng cuối. .

Mong thầy @VetMini chỉnh lại code dùm em ạ. Ví dụ em có 950 dòng đã chạy code lấy số phiếu xong rồi, sang hôm sau em nhập liệu 5 dòng tiếp, thì code chỉ chạy 5 dòng mới nhập thôi ạ, chư không chạy 955 dòng luôn ạ.

Chào các bạn trong GPE!!!! Mình có file này, nhò các bạn viết code để nhảy số phiếu khi cột M là SX6, còn không phải là SX6 thì không nhảy số phiếu ạ. Trong file mình có ghi chú quy luật của số phiếu. Mong các bạn giúp đỡ.