Note: The other languages of the website are Google-translated. Back to English

 Làm cách nào để tự động tăng giá trị ô sau mỗi lần in?

Giả sử, tôi có một trang bảng tính cần in 100 bản, ô A1 là số séc Công ty-001, bây giờ, tôi muốn con số sẽ tăng thêm 1 sau mỗi bản in. Điều đó có nghĩa là khi tôi in bản thứ hai, số sẽ tự động được tăng lên thành Công ty-002, bản thứ ba, số sẽ là Công ty-003… một trăm bản, số sẽ là Công ty-100. Có thủ thuật nào để giải quyết vấn đề này trong Excel một cách nhanh chóng và có thể không?

Tự động tăng giá trị ô sau mỗi lần in với mã VBA


mũi tên màu xanh bong bóng bên phải Tự động tăng giá trị ô sau mỗi lần in với mã VBA

Thông thường, không có cách nào trực tiếp để bạn giải quyết công việc này trong Excel, nhưng ở đây, tôi sẽ tạo một mã VBA để giải quyết nó.

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Giá trị ô tăng tự động sau mỗi lần in:

Sub IncrementPrint()
'updateby Extendoffice
    Dim xCount As Variant
    Dim xScreen As Boolean
    Dim I As Long
    On Error Resume Next
LInput:
    xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
    If TypeName(xCount) = "Boolean" Then Exit Sub
    If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
        MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
        GoTo LInput
    Else
        xScreen = Application.ScreenUpdating
        Application.ScreenUpdating = False
        For I = 1 To xCount
            ActiveSheet.Range("A1").Value = " Company-00" & I
            ActiveSheet.PrintOut
        Next
        ActiveSheet.Range("A1").ClearContents
        Application.ScreenUpdating = xScreen
    End If
End Sub

3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc xuất hiện để nhắc bạn nhập số lượng bản sao mà bạn muốn in trang tính hiện tại, xem ảnh chụp màn hình:

tăng doc khi in 1

4. Nhấp chuột OK và trang tính hiện tại của bạn đang được in, đồng thời, các trang tính đã in được đánh số Công ty-001, Công ty-002, Công ty-003… trong ô A1 khi bạn cần.

Chú thích: Trong đoạn mã trên, ô A1 sẽ được chèn các số thứ tự mà bạn đã đặt hàng và giá trị ô ban đầu trong A1 sẽ được xóa. Và “Công ty-00”Là số thứ tự, bạn có thể thay đổi chúng theo nhu cầu của mình.


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (51)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã này thật tuyệt vời, nó chính xác là thứ tôi cần, tuy nhiên, tôi tự hỏi liệu có cách nào để bắt đầu in từ số được nhập vào ô "A1" không? Ví dụ: nếu tôi đã in 100 bản, trong lần in tiếp theo, tôi sẽ cần in từ số 101 và đếm từ đó lên. Tôi đã thử một vài điều chỉnh mã nhưng dường như chỉ lấy số được nhập trong ô tức là 101, thêm 1 và sau đó phần còn lại của các bản in bị mắc kẹt với một số đó, tức là 102 ... Sự trợ giúp của bạn sẽ được đánh giá rất cao: -)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nếu bạn chưa tìm thấy giải pháp, bạn có thể chỉnh sửa dòng 17 của mã thành dòng này: ActiveSheet.Range ("A1"). Value = Range ("A1"). Value + 1
Điều này sẽ quảng cáo +1 đến số bạn có trong ô A1.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó không gửi đến máy in của tôi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bonjour,

en exécutant la macro ça efface le nombre de ma cellule.
Je voudrais par exemple avoir A1= 153, je lance une Impression de 10 bản. J'ai dis feuilles imprimée de 154 à 164 ET je voudrais que le nombre de la cellule soit aussi 164.
Comme ça quand je relance un ấn tượng ça prend le chiffre dans A1.
J'aimerais aussi si could na pas à avoir aller dans basic. je voudrais que la la macro s'active direction via l'option Impression. C'est có thể?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bonjour,

en exécutant la macro ça efface le nombre en A1.

je voudrais si c'est possible par exemple A1=153 et faire une Impression de 10 bản sao. donc je récupéré 10 lần hiển thị numérotées de 154 à 164 ET je voudrais aussi que le 153 en A1 s'incrémente jusqu'à 164.

Je voudrais aussi si could ne pas à avoir utiliser basic pour l'impression. je voudrais pouvoir declancher directement la macro en utilisant l'option ấn tượng toout đơn giản.

Cảm ơn bạn đã giúp đỡ của bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, kaji,
Để giải quyết vấn đề của bạn, vui lòng áp dụng đoạn mã dưới đây:
Sub IncrementPrint_Num()
Dim xCount As Variant
Dim xScreen As Boolean
Dim I As Long
Dim xInt As Integer
On Error Resume Next
xInt = 153 'number
LInput:
xCount = Application.InputBox("Please enter the number of copies you want to print:", "Kutools for Excel")
If TypeName(xCount) = "Boolean" Then Exit Sub
If (xCount = "") Or (Not IsNumeric(xCount)) Or (xCount < 1) Then
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCount
xInt = xInt + 1
ActiveSheet.Range("A1").Value = xInt
ActiveSheet.PrintOut
Next
Application.ScreenUpdating = xScreen
End If
End Sub

Hãy dùng thử, hy vọng nó có thể giúp ích cho bạn, nếu bạn có vấn đề nào khác, hãy bình luận tại đây.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tìm các mã đã sửa đổi đính kèm.

Và đây là văn bản:
Phụ tăngPrint ()
'cập nhật bởi Extendoffice
Dim xEnd dưới dạng biến thể
Dim xStart dưới dạng biến thể
Làm mờ xScreen dưới dạng Boolean
Dim I As Long
On Error Resume Next
Đầu vào:
xStart = Application.InputBox ("Vui lòng nhập số đầu tiên:", "Kutools cho Excel")
xEnd = Application.InputBox ("Vui lòng nhập số cuối cùng:", "Kutools cho Excel")
If TypeName (xCount) = "Boolean" Then Exit Sub
Nếu (xStart = "") Hoặc (Không phải là Số (xStart)) Hoặc (xStart <1) Sau đó
MsgBox "Đã nhập lỗi, vui lòng nhập lại", vbInformation, "Kutools cho Excel"
GoTo LInput
Khác
xScreen = Ứng dụng.ScreenUpdating
Application.ScreenUpdating = Sai
Đối với I = xStart To xEnd
ActiveSheet.Range ("A1"). Value = "Company-00" & I
ActiveSheet.PrintOut
Sau
ActiveSheet.Range ("A1"). ClearContents
Application.ScreenUpdating = xScreen
Cuối Nếu
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cần các số sê-ri như IA1-055242, IA1-055243, IA1-055244 .....
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn đã đăng bài này, nó rất hữu ích. Câu hỏi của tôi là: Tôi có 2 mã vạch khác nhau cần được tăng dần trên một trang, làm cách nào tôi có thể sửa đổi mã để thực hiện điều đó?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin lỗi vì đã hỏi điều này trên một bài đăng riêng ... Các số sê-ri của tôi bắt đầu bằng số KHÔNG, nhưng khi tôi chạy chương trình, nó sẽ loại bỏ các số không. Tôi đã cố gắng chuyển đổi trường số thành văn bản, nhưng điều đó không khắc phục được. Những ý tưởng khác?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
R-Click vào Ô, Định dạng, Tùy chỉnh, trong đó có nội dung 'Chung', hãy thay thế bằng nhiều Zeros tùy theo số sê-ri của bạn. Điều này sẽ buộc số lượng số không cần thiết ở phía trước số sê-ri của bạn. Nếu tôi có một nhóm số sê-ri là 10 số sê-ri, tôi nhập 0000000000 vào trường Loại để lấy '0004563571' để hiển thị trong trường số sê-ri.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn Art. Tôi đã thử điều đó nhưng mã vạch vẫn tiếp tục loại bỏ các số không ở đầu ... ngay cả sau khi thực hiện định dạng số tùy chỉnh.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
số sê-ri của tôi bắt đầu bằng 227861 làm cách nào tôi có thể in từ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
in như in 30 bản mà giờ không in được, chạy script nhiều lần nhưng không được, không làm được gì :(
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cảm ơn bạn cho ở trên, thực sự hữu ích. có thể lưu và ghi nhớ giá trị cuối cùng không
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Pieter,
Để lưu và ghi nhớ giá trị in cuối cùng khi bạn in lần sau, bạn nên áp dụng mã VBA sau:

Phụ tăngPrint ()
Dim xCount làm biến thể
Làm mờ xScreen dưới dạng Boolean
Dim I As Long
Dim xM As Long
Làm mờ xMNWS dưới dạng trang tính
Làm mờ xAWS dưới dạng trang tính
On Error Resume Next
Đầu vào:
xCount = Application.InputBox ("Vui lòng nhập số lượng bản sao bạn muốn in:", "Kutools cho Excel")
If TypeName (xCount) = "Boolean" Then Exit Sub
Nếu (xCount = "") Hoặc (Không phải là Số (xCount)) Hoặc (xCount <1) Sau đó
MsgBox "đã nhập lỗi, vui lòng nhập lại", vbInformation, "Kutools cho Excel"
GoTo LInput
Khác
xScreen = Ứng dụng.ScreenUpdating
Đặt xAWS = ActiveSheet
Về lỗi GoTo EMarkNumberSheet
Đặt xMNWS = Sheets ("IncrementPrint_MarkNumberSheet")
Bảng số EMark:
Nếu xMNWS không có gì thì
Đặt xMNWS = Application.Worksheets.Add (Loại: = xlWorksheet)
xMNWS.Name = "IncrementPrint_MarkNumberSheet"
xMNWS.Range ("A1"). Giá trị = 0
xM = 0
xMNWS.VABLE = xlSheetVeryHidden
Khác
xM = xMNWS.Range ("A1"). Giá trị
Cuối Nếu
Application.ScreenUpdating = Sai
Đối với I = 1 Đến xCount
xM = xM + 1
xAWS.Range ("A1"). Giá trị = "Công ty-00" & xM
xAWS.PrintOut
Sau
xMNWS.Range ("A1"). Giá trị = xM
xAWS.Range ("A1"). ClearContents
Application.ScreenUpdating = xScreen
Cuối Nếu
End Sub

Nếu bạn cần đặt lại số đã in về số mặc định, trước tiên hãy chạy mã bên dưới, sau đó thực thi mã trên để in.

Phụ tăngPrint_Reinstall ()
Làm mờ xMNWS dưới dạng trang tính
Về lỗi GoTo EMarkNumberSheet
Đặt xMNWS = Sheets ("IncrementPrint_MarkNumberSheet")
Bảng số EMark:
Nếu không xMNWS thì không có gì
Application.DisplayAlerts = Sai
xMNWS.VABLE = xlSheetHidden
xMNWS.Xóa
Ứng dụng.DisplayAlerts = Đúng
Cuối Nếu
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, cảm ơn vì mã này .. Tôi có một câu hỏi. Tôi đã sử dụng mã này nhưng chuỗi đang nhảy như 0071,0072,0073. xảy ra giống như 3x giữa loạt 1-100. Vì vậy, tôi đã đóng vba mà không lưu lại mã cài đặt nhưng nó in loạt cuối cùng đã được lưu (0032). Câu hỏi của tôi là làm thế nào tôi có thể in liên tục mà không bị nhảy loạt và làm thế nào tôi có thể in lại bắt đầu từ 101? sẽ thực sự đánh giá cao câu trả lời của bạn. xin lỗi vì điều này. Tôi không phải là một lập trình viên, tôi hy vọng bạn hiểu. Cảm ơn bạn! 
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cảm ơn bạn đã đăng bài này, nó rất hữu ích. Câu hỏi của tôi là: Tôi có 2 mã vạch khác nhau cần được tăng dần trên một trang, làm cách nào tôi có thể sửa đổi mã để thực hiện điều đó?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Desmond,
Nếu bạn có 2 địa điểm trên một trang (như 2 Phiếu giảm giá hoặc 2 mẫu / 2 phiếu mua hàng, v.v.), thì bạn có thể thử sử dụng mã bên dưới. (Giả sử mã vạch đầu tiên và mã vạch thứ 1 của bạn nằm trong các ô "A2" và "A1" của cùng một trang, mã này sẽ tăng các giá trị như Công ty-20 và Công ty-001 trên trang đầu tiên và Công ty-002 và Công ty-003 trên trang thứ hai và v.v. Bạn có thể chỉnh sửa ô số và Tên công ty như bạn muốn trong các dòng 004, 20, 21, 23 và 24 của mã. 
Nó cũng sẽ yêu cầu bạn nhập số bắt đầu và số kết thúc (Cảm ơn thiên tài về phần mã này). Vì vậy, ví dụ như bắt đầu của bạn không. là 1 và kết thúc là không. 8, nó sẽ in 4 trang 1,2 trên trang 1, 3,4 trên trang 2, 5,6 trên trang 3 và cuối cùng là 7,8 trên trang 4. Hy vọng nó sẽ giúp ích cho bạn hoặc bất cứ ai đang tìm kiếm loại nhu cầu / yêu cầu này. 
Mã sửa đổi: ----------------------------------------------- ------------ Sub IncrementPrint ()
'cập nhật bởi Extendoffice
Dim xEnd dưới dạng biến thể
Dim xStart dưới dạng biến thể
Làm mờ xScreen dưới dạng Boolean
Dim I As Long
On Error Resume Next
Đầu vào:
xStart = Application.InputBox ("Vui lòng nhập số đầu tiên:", "Kutools cho Excel")
xEnd = Application.InputBox ("Vui lòng nhập số cuối cùng:", "Kutools cho Excel")
If TypeName (xCount) = "Boolean" Then Exit Sub
Nếu (xStart = "") Hoặc (Không phải là Số (xStart)) Hoặc (xStart <1) Sau đó
MsgBox "Đã nhập lỗi, vui lòng nhập lại", vbInformation, "Kutools cho Excel"
GoTo LInput
Khác
xScreen = Ứng dụng.ScreenUpdating
Application.ScreenUpdating = Sai
Đối với I = xStart To xEnd
Nếu tôi Mod 2 = 0 thì
ActiveSheet.Range ("A1"). Giá trị = "Công ty-00" & I + 1
ActiveSheet.Range ("A20"). Value = "Company-00" & I
Khác
ActiveSheet.Range ("A20"). Giá trị = "Công ty-00" & I + 1
ActiveSheet.Range ("A1"). Value = "Company-00" & I
ActiveSheet.PrintOut
Cuối Nếu
Sau
ActiveSheet.Range ("A1"). ClearContents
ActiveSheet.Range ("A20"). ClearContents
Application.ScreenUpdating = xScreen
Cuối Nếu
End Sub

-------------------------------------------------- -------------------------------------------------- ----- Cảm ơn, RNS
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ô của tôi là I3 và số là 2298 khi tôi thử (Mã VBA: Giá trị ô tăng tự động sau mỗi lần in :) nó cho tôi 22981. Làm cách nào để tôi chuyển nó thành 2298,2299,2300
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, jennifer,
Để giải quyết vấn đề của bạn, vui lòng áp dụng mã VBA sau:
Lưu ý: Vui lòng thay đổi văn bản tiền tố và số thành của riêng bạn.

Sub IncrementPrint_Num ()
Dim xCount làm biến thể
Làm mờ xScreen dưới dạng Boolean
Dim I As Long
Làm mờ xStr dưới dạng chuỗi
Dim xInt dưới dạng số nguyên
On Error Resume Next
xStr = "Company-" 'văn bản tiền tố
xInt = 2291 'số
Đầu vào:
xCount = Application.InputBox ("Vui lòng nhập số lượng bản sao bạn muốn in:", "Kutools cho Excel")
If TypeName (xCount) = "Boolean" Then Exit Sub
Nếu (xCount = "") Hoặc (Không phải là Số (xCount)) Hoặc (xCount <1) Sau đó
MsgBox "đã nhập lỗi, vui lòng nhập lại", vbInformation, "Kutools cho Excel"
GoTo LInput
Khác
xScreen = Ứng dụng.ScreenUpdating
Application.ScreenUpdating = Sai
Đối với I = 1 Đến xCount
xInt = xInt + 1
ActiveSheet.Range ("A1"). Giá trị = xStr & xInt
ActiveSheet.PrintOut
Sau
ActiveSheet.Range ("A1"). ClearContents
Application.ScreenUpdating = xScreen
Cuối Nếu
End Sub

Hãy thử nó, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, bạn có thể giúp tôi điều này? Tôi muốn xINT có nhiều hơn 5 chữ số. Mỗi khi tôi đặt một số có 6 chữ số, số đếm trở lại 1. Làm cách nào để ngăn chặn điều đó?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, rất thú vị mặc dù tôi đang tìm một giải pháp khác mà tôi không thể tìm thấy và ngay cả khi tôi đã cố gắng tùy chỉnh mã vẫn không thể đạt được cho đến nay. Làm theo ví dụ của bạn, tôi sẽ cần in cùng một trang 100 lần, vào cùng một tệp PDF chẳng hạn và trên mỗi trang, số trang tăng lên. NHƯ tôi đã thử phương pháp đối chiếu nhưng theo tôi hiểu, nó cho phép bạn in cùng nhau nếu bạn cần nhiều bản sao của cùng một bản in. cảm ơn trước Giuseppe
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, mã này đang hoạt động tốt, nhưng sau một lần nữa giá trị ô 32767, nó sẽ trở về 1. Sau giá trị này, nó sẽ in từ số 1.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cảm ơn bạn rất nhiều, nó làm việc cho tôi. Và tôi cố gắng thực hiện một vài thay đổi nhỏ để phù hợp với nhu cầu của mình. Thực sự đánh giá cao chia sẻ của bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Jennifer, Hãy thử cái này
Phụ tăngPrint ()
'cập nhật bởi Extendoffice 20160530
Dim xCount làm biến thể
Làm mờ xScreen dưới dạng Boolean
Dim I As Long
On Error Resume Next
Đầu vào:
xCount = Application.InputBox ("Vui lòng nhập số lượng bản sao bạn muốn in:", "Kutools cho Excel")
If TypeName (xCount) = "Boolean" Then Exit Sub
Nếu (xCount = "") Hoặc (Không phải là Số (xCount)) Hoặc (xCount <1) Sau đó
MsgBox "đã nhập lỗi, vui lòng nhập lại", vbInformation, "Kutools cho Excel"
GoTo LInput
Khác
xScreen = Ứng dụng.ScreenUpdating
Application.ScreenUpdating = Sai
Đối với I = 1 Đến xCount

ActiveSheet.PrintOut
ActiveSheet.Range ("J18"). Giá trị = ActiveSheet.Range ("J18"). Giá trị + 1
Sau
'ActiveSheet.Range ("J18"). ClearContents'

Application.ScreenUpdating = xScreen
Cuối Nếu
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn rất nhiều
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hoạt động tốt để in các # tăng dần. Làm cách nào để in mỗi ngày 5, 10, khi cần?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để chọn những giá trị tôi muốn in không? ví dụ tôi đã in chuỗi 1 đến 30 nhưng cần in lại chuỗi 15 đến 19 một lần nữa.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
hey tôi muốn thay đổi số lượng ô K11 sau khi in thành 1-2-3-4-5-6, vv làm ơn bạn có thể giúp được không? và cũng cho tôi biết làm thế nào để gọi chức năng đó, làm ơn giúp tôi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã tự hỏi làm thế nào để thực hiện một thay đổi nhỏ để nó in 1 trong 10, 2 của 10, 3 của 10, v.v.
Nếu không, điều này hoạt động tuyệt vời. Thanks.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
xin chào, tên tôi là suresh tôi có một dữ liệu ở định dạng excel không có bất kỳ số sê-ri nào. Tôi cần xem nó là bản in 100 trang và cần in số sê-ri mà tôi cần từ 4 chữ số nhưng trong khi in tôi phải làm theo cách thủ công. bạn có thể giải thích ai để in tự động tạo mã số sê-ri trong khi in không
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tuyệt quá !! Tôi không phải là một lập trình viên nhưng tôi đã quản lý để thay đổi tham chiếu ô và đánh số uniq mà tôi muốn. Làm việc tuyệt vời cho tôi Chúa phù hộ cho bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cũng có thể thêm vào mã này, để 2 bản sao được tự động in?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi nghĩ bạn có thể thay đổi phần này: ActiveSheet.Range ("A1"). Value = "Company-00" & I
ActiveSheet.PrintOut

đến
ActiveSheet.Range ("A1"). Value = "Company-00" & I
ActiveSheet.PrintOut
ActiveSheet.PrintOut

để có được 2 bản sao của mỗi cái.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã tự hỏi liệu bạn có thể in thẳng tệp ra sau khi mở lại và nó vẫn theo số thứ tự không?
Những gì tôi hiện đang làm là mỗi khi tôi mở tệp, ALT + F11 rồi F5 và cho biết số lượng bản sao. Sau đó, nó sẽ in tệp với số chính xác, sau đó chỉ cần lưu lại. và khi tôi sẽ mở lại, tôi chỉ cần thực hiện bước tương tự.
Nếu có một mã mà bạn có thể in thẳng nó ra mỗi khi bạn mở tệp và nó sẽ vẫn theo cách đánh số tuần tự?
cảm ơn trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã tự hỏi liệu bạn có thể in thẳng tệp ra sau khi mở lại và nó vẫn theo số thứ tự không?

Những gì tôi hiện đang làm là mỗi khi tôi mở tệp, ALT + F11 rồi F5 và cho biết số lượng bản sao. Sau đó, nó sẽ in tệp với số chính xác, sau đó chỉ cần lưu lại. và khi tôi sẽ mở lại, tôi chỉ cần thực hiện bước tương tự.

Nếu có một mã mà bạn có thể in thẳng nó ra mỗi khi bạn mở tệp và nó sẽ vẫn theo cách đánh số tuần tự?

cảm ơn trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều vì đã chia sẻ đoạn mã trên. Nó rất hữu ích cho tất cả mọi người. Chúng tôi có thể thêm một số mã nữa để tăng 8 số thay vì 1 sau khi in được không? Đang chờ trả lời của bạn. Thanks
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL