Vẫn dùng spin button hoặc không, nhưng viết code tạo vòng lặp từ a đến b (số nguyên giống như nhấn spin). Câu lệnh là ActiveSheet.PrintOut
Tuy vậy, code luôn luôn chạy nhanh hơn máy in nên cẩn thận máy in bị tràn bộ nhớ.
Cảm ơn bạn @ptm0412 đã rất tận tình với vấn đề của mình đưa ra!
Hôm nay mình mới có thời gian để trả bài cho bạn được, mong bạn bỏ chút thời gian xem lại giùm mình với.
Với mong muốn xử lý hồ sơ được tối ưu, nên mình muốn việc ẩn hiện dòng không cần đến nút Spinner. Vì khi in nhiều hồ sơ mình...
Từ sáng giờ loay hoay đủ cách của các bạn chỉ bảo mà nó vẫn không chịu chạy đúng ý đồ. Mình xin gửi lại file và nói rõ ý đồ của mình hơn để các bạn dể dàng giúp đỡ. File này có 2 sheet, 1 sheet dữ liệu gốc (DATABASE) và 1 sheet xuất kết quả (PHIEU KET QUA THI NGHIEM). Tại sheet xuất kết quả ô...
Nên được đặt sự kiện vào Spinner Change, nháy phải lên Spinner gán macro (edit để tạo mới) rồi dùng code sau
Sub Spinner5902_Change()
Rows("25:35").Hidden = False
If Range("$Q$24").Value + 26 < 35 Then
Rows((Range("$Q$24").Value + 26) & ":35").Hidden = True...
Cảm ơn bạn nhiều, mình hiểu ý định của bạn, nhưng công thức ở Q24 là không thể thay đổi, vì chính nó quyết định đến việc tự động ẩn hiện dòng, còn ở cột P là chỉ để đánh giá, nhiều khi đánh giá ko đạt nhưng vẫn phải hiển thi để xuất hồ sơ
Tuổi tác chưa khi nào là vấn đề (có tuổi thì không dùng từ chat chit như "ko"). Bạn đọc không vào, thì bạn hỏi lại cho đến khi vào. Tôi thì quan tâm còn bạn thì thay vì hỏi lại cho "vào" lại lo giải thích chuyện không đáng.
Tạo 1 module, dùng thủ tục sau và gán cho cái spin button. Nếu làm...
Theo
Theo gợi ý của Anh @ptm0412 bạn thử làm theo cách sau:
1 /Xóa bỏ công thức ở Q24
2/ Thêm đoạn code sau vào module Sh PHIEU...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim t&
If Target.Address = "$Q$24" Then
For Each Rng In [P26:P35]
If Rng = "P" Then t = t + 1...
Mình có file như đính kèm và đã có đoạn mã code, tuy nhiên đoạn mã code ẩn dòng có điều kiện cho địa chỉ Q24 của sheet PHIEU KET QUA THI NGHIEM chỉ chạy được khi đánh vào, còn khi nó là giá trị của công thức thì không thể chạy được. Anh/chị/em rành về mã code có thể sửa giúp mình với
Mình xin...
Nói rõ vậy mà bạn vẫn không hiểu à. Lại càng chứng tỏ phía trên là nói đại cho vui.
Từ Office 2016 khi cài đặt ấn 1 phát là cài tuốt tuồn tuột. Không có cái chuyện chọn chiếc gì cả như bạn nói. Bạn đã hiểu chưa?
Muốn cài đặt riêng cái gì đó thì trình độ phải ở dạng không tầm thường.
Làm như thế...
khi cài đặt nó có chỗ chọn các ứng dụng mình cần cài mà. em chọn mình excel ( cả word và pp ko chọn luôn , khi cần soạn các hợp đồng hay phiếu xuất gì em cũng làm luôn excel)
1731121015
???
1 dấu hỏi lớn trong lòng em :(
VD về stock reconciliation:
- một vế: tổng nhâp - tổng xuất = tổng phát sinh trong tài khoản hàng
- vế thứ hai: tổng các hóa đơn nhập - tổng các phiếu xuất liên quan đến hàng.
Hai vế phải là hai số cân nhau.
Thường thì tổng các hóa đơn nhập và tổng các phiếu xuất làm rất thủ công và khó cho nên...
Cảm ơn bạn! Để mình chỉnh lại phần I3 và I4
Còn 2 cái mã phiếu mình đọc code hiểu code được 2 phần đầu. Còn phần 3 - phần thứ tự đọc code do không biết các hàm này nên đọc không biết code chạy như nào. Để mình tìm hiểu thêm
Nói chung là cảm ơn bạn rất nhiều, đã hỗ trợ mình thời gian qua.
Các trường hợp 1,2,3,4 tôi tạm hiểu thế này : Do sh (Sheet) không có dữ liệu dẫn đến mảng để tính toán số phiếu không tìm thấy và gây lỗi.
Để không còn bị nữa bạn dùng hàm IFERROR để xử lý: Cụ thể : I3=IFERROR(SOPHIEU();""), tương tự với I4. Thay dấu ";" trong công thức theo máy của bạn.
Còn về...
Cảm ơn bạn nhiều nhé. Bữa giờ mình có việc cá nhân nên chưa vào coi và sử dụng. Nay mới vào lại được. Có đọc qua code của bạn thì cũng cũng hiểu tạm tạm. Chỉ có phần Function TT là chưa hiểu hết được.
Còn lại file thì chạy ổn hết rồi.
Tuy nhiên có một chỗ này bị lỗi nhưng vẫn dùng được. Bạn có...
Công thức tại ô A12:
=IFERROR(INDEX('Dữ liệu bán hàng'!$C$2:$J$11,AGGREGATE(15,6,ROW($A$1:$A$100)/('Dữ liệu bán hàng'!$A$2:$A$11="PT0001"),ROW(A1)),COLUMN(A1)),"")