Deepanshu thành lập ListenData với một mục tiêu đơn giản - Làm cho các phân tích trở nên dễ hiểu và dễ theo dõi. Ông có hơn 10 năm kinh nghiệm trong lĩnh vực khoa học dữ liệu. Trong nhiệm kỳ của mình, ông đã làm việc với các khách hàng toàn cầu trong nhiều lĩnh vực khác nhau như Ngân hàng, Bảo hiểm, Cổ phần tư nhân, Viễn thông và Nhân sự
Tôi đã kế thừa một công việc excel lớn là bộ phận tài chính đang nhập dữ liệu lớn vào SQL đang hoạt động nhưng câu hỏi ở đây là
Cột A chứa dữ liệu liên quan đến Cơ sở dữ liệu SQL
SAU
tháng 9
vân vân
Cột B chứa một số gồm 12 chữ số xuất phát từ các bản ghi hiện có trong cơ sở dữ liệu nhưng không có vẻ như họ muốn nhập và chuỗi trong A
Macro cực kỳ đơn giản này tăng giá trị trong một ô. Bạn có thể sử dụng điều này cho id duy nhất trên hóa đơn, ghi chú giao hàng, v.v.
Sub Increment[]
' change A1 to the cell you wish to increment
Range["A1"].Value = Range["A1"].Value + 1
End Sub
Giả sử tôi có một trang tính cần in 100 bản, ô A1 là số kiểm tra Company-001, bây giờ, tôi muốn số lượng sẽ tăng lên 1 sau mỗi lần in. Điều đó có nghĩa là khi tôi in bản thứ hai, số sẽ tự động 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à hiệu quả không?
Tự động tăng giá trị ô sau mỗi lần in bằng 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 để xử lý nó
1. Giữ phím ALT + F11 để mở cửa sổ Microsoft Visual Basic for Applications
2. Nhấp vào Chèn > Mô-đun và dán đoạn mã sau vào Cửa sổ Mô-đun
mã VBA. Tự động tăng giá trị ô 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 phím 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
4. Nhấp vào nú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 như bạn cần
Ghi chú. Đoạn code trên, ô A1 sẽ được chèn dãy số mà bạn đã sắp thứ tự, và giá trị gốc của ô A1 sẽ bị xóa. Và “Company-00” là dãy số, bạn có thể thay đổi 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ác công thức, biểu đồ phức tạp và bất kỳ thứ gì bạn đã sử dụng trước đây; . Encrypt Cells with password; Create Mailing List and send emails...
- 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]; . Reading Layout [easily read and edit large numbers of cells]; Paste to Filtered Range...
- Hợp nhất Ô/Hàng/Cột mà không làm mất Dữ liệu; . Ngăn chặn các ô trùng lặp; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
- Chọn hàng trùng lặp hoặc duy nhất ; . Select Blank Rows [all cells are empty]; Super Find and Fuzzy Find in Many Workbooks; Random Select...
- Sao chép chính xác Nhiều ô mà không thay đổi tham chiếu công thức; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
- Trích xuất văn bản , Thêm văn bản, Xóa theo vị trí, Xóa khoảng trắng ; . Convert Between Cells Content and Comments...
- Siêu bộ lọc [lưu và áp dụng lược đồ bộ lọc cho các trang tính khác]; . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
- Kết hợp Sổ làm việc và Trang tính ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
- 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. Đảm bảo hoàn tiền trong 60 ngày.
Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.
Tab Office Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều
- Bật chỉnh sửa và đọc theo tab 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 năng suất của bạn lên 50% và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày
Đọc thêm. Tải xuống miễn phí. Mua, tựa vào, bám vào.
Cũ nhất đầu tiên
Sắp xếp nhận xét theo
Cũ nhất đầu tiên
mới nhất đầu tiên
Nhận xét [ 51 ]
Chưa có xếp hạng nào. Hãy là người đầu tiên xếp hạng
Kerry
khoảng 5 năm 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
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 trong ô "A1" không? . Tôi đã thử một vài điều chỉnh mã nhưng dường như nó chỉ lấy số được nhập vào ô i. e. 101, thêm 1 và sau đó các bản in còn lại bị dính vào một số đó, tôi. e. 102. sự giúp đỡ của bạn sẽ được đánh giá rất cao. -]
Hồi đáp
0
0
Valentines Kerry
khoảng 5 năm 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
Nếu bạn chưa tìm ra giải pháp, bạn có thể chỉnh sửa dòng 17 của mã này thành. Bảng hoạt động. Phạm vi ["A1"]. Giá trị = Phạm vi["A1"]. Giá trị + 1
Điều này sẽ quảng cáo +1 cho số bạn có trong ô A1.
Hồi đáp
0
0
khách Valentas
khoảng 5 năm 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
Nó không gửi đến máy in của tôi
Hồi đáp
0
0
kaji Lễ tình nhân
tầm 1 tháng 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
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 une Impression ça prend le chiffre dans A1.
J'aimerais aussi si could na pas à avoir aller dans basic. je voudrais que la macro s'active direction via l'option Impression. Có thể không?
Hồi đáp
0
0
kaji Lễ tình nhân
tầm 1 tháng 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
Bonjour,
vi macro thực hiện 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 tout simplement.
Merci pour votre aide
Hồi đáp
0
0
skyyang kaji
tầm 1 tháng 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
Xin chào, kaji,
Để giải quyết vấn đề của bạn, vui lòng áp dụng mã bên dưới.
______1
Mời bạn dùng thử, hi vọng có thể giúp ích cho bạn, nếu có vấn đề gì khác vui lòng comment tại đây.
Hồi đáp
Bài báo cáo
0
0
thiên tài Kerry
khoảng 1 năm 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ìm các mã đã sửa đổi được đính kèm.
Và đây là văn bản.
Sub IncrementPrint[]
'updateby Extendoffice
Dim xEnd As Variant
Dim xStart As .
Dim xScreen As Boolean
Dim I As Long
On Error Resume Next
LInput:
xStart = Ứng dụng. InputBox["Vui lòng nhập số đầu tiên. ", "Kutools cho Excel"]
xEnd = Ứng dụng. InputBox["Vui lòng nhập số cuối cùng. ", "Kutools cho Excel"]
Nếu TypeName[xCount] = "Boolean" thì thoát Sub
If [xStart = ""] Or [Not IsNumeric[ . Đang cập nhật màn hình
MsgBox "Error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Ứng dụng. ScreenUpdating = False
For I = xStart To xEnd
ActiveSheet. Phạm vi ["A1"]. Value = " Company-00" & I
ActiveSheet. In ra
Tiếp theo
ActiveSheet. Phạm vi ["A1"]. ClearContents
Ứng dụng. ScreenUpdating = xScreen
End If
End Sub
Xem tệp đính kèm [ 1 / 5]
Hồi đáp
Bài báo cáo
0
0
Abdul
khoảng 5 năm 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 cần các số sê-ri như IA1-055242, IA1-055243, IA1-055244
Hồi đáp
0
0
Kris
khoảng 5 năm 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 đã đăng bài này, nó rất hữu ích. câu hỏi của tôi là thế này. 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 để sửa đổi mã để thực hiện điều đó?
Hồi đáp
0
0
Kris
khoảng 5 năm 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
Xin lỗi để hỏi điều này trên một bài viết riêng biệt. 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?
Hồi đáp
0
0
Nghệ thuật Kris
khoảng 5 năm 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
R-Click Ô, Định dạng, Tùy chỉnh, Ở đâu ghi 'Chung', hãy thay số đó bằng số 0 bằng 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à sê-ri gồm 10 chữ số, tôi nhập 0000000000 vào trường Loại để '0004563571' hiển thị trong trường số sê-ri
Hồi đáp
0
0
Kris Nghệ thuật
khoảng 4 năm 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 nghệ thuật. Tôi đã thử nhưng mã vạch vẫn loại bỏ các số 0 ở đầu. ngay cả sau khi thực hiện định dạng số tùy chỉnh
Hồi đáp
0
0
lãng mạn
khoảng 5 năm 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
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ừ
Hồi đáp
0
0
Kẻ bắn tỉa
khoảng 4 năm 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
in 30 bản mà giờ không in được, chạy script nhiều lần mà không được, chả làm được gì. [
Hồi đáp
0
0
Pieter
khoảng 4 năm 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 vì những điều trên, thực sự hữu ích. có thể lưu và ghi nhớ giá trị cuối cùng không
Hồi đáp
0
0
skyyang Pieter
khoảng 4 năm 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
Xin chào, Pieter,
Để lưu và ghi nhớ giá trị được in lần cuối khi bạn in lần sau, bạn nên áp dụng mã VBA sau.
Sub IncrementPrint[]
Dim xCount As Variant
Dim xScreen As Boolean
Dim I .
Dim xM As Long
Dim xMNWS As Worksheet
Dim xAWS As Worksheet
On Error Resume Next
LInput:
xCount = Ứng dụng. InputBox["Vui lòng nhập số bản muốn in. ", "Kutools cho Excel"]
Nếu TypeName[xCount] = "Boolean" thì thoát Sub
If [xCount = ""] Or [Not IsNumeric[ . Đang cập nhật màn hình
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Đặt xAWS = ActiveSheet
Bật lỗi GoTo EMarkNumberSheet
Đặt xMNWS = Sheets["IncrementPrint_MarkNumberSheet"]
EMarkNumberSheet:
Nếu xMNWS không có gì thì
Đặt xMNWS = Ứng dụng. bảng tính. Thêm [Loại. =xlWorksheet]
xMNWS. Tên = "IncrementPrint_MarkNumberSheet"
xMNWS. Phạm vi ["A1"]. Giá trị = 0
xM = 0
xMNWS. Hiển thị = xlSheetVeryHidden
Khác
xM = xMNWS. Phạm vi ["A1"]. Giá trị
Kết thúc Nếu
Ứng dụng. ScreenUpdating = False
For I = 1 To xCount
xM = xM + 1
xAWS. Phạm vi ["A1"]. Giá trị = " Công ty-00" & xM
xAWS. Bản in
Tiếp theo
xMNWS. Phạm vi ["A1"]. Giá trị = xM
xAWS. Phạm vi ["A1"]. ClearContents
Ứng dụng. ScreenUpdating = xScreen
End If
End Sub
Nếu bạn cần đặt lại số in về số mặc định, vui lòng chạy .
Sub IncrementPrint_Reinstall[]
Làm mờ xMNWS dưới dạng trang tính
Khi có lỗi GoTo EMarkNumberSheet
Đặt xMNWS .
EMarkNumberSheet:
Nếu không phải xMNWS thì không có gì
Ứng dụng. DisplayAlerts = Sai
xMNWS. Hiển thị = xlSheetHidden
xMNWS. Xóa
Ứng dụng. DisplayAlerts = True
End If
End Sub
Hồi đáp
Bài báo cáo
0
0
jovz skyyang
khoảng 1 năm 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
Xin chào, cảm ơn bạn cho mã này. tôi có một câu hỏi. Mình dùng mã này mà dãy cứ nhảy như 0071,0072,0073. đã xảy ra như 3x giữa loạt 1-100. Vì vậy, tôi đã đóng vba mà không lưu cài đặt lại mã nhưng nó in chuỗi 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 sê-ri và làm cách nào để tôi có thể in lại bắt đầu từ 101? . 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.
Hồi đáp
Bài báo cáo
0
0
Desmond
khoảng 4 năm 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 đã đăng bài này, nó rất hữu ích. câu hỏi của tôi là thế này. 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 để sửa đổi mã để thực hiện điều đó?
Hồi đáp
0
0
RNS Desmond
khoảng 10 tháng 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
Xin chào Desmond,
Nếu bạn có 2 địa điểm trên một trang [chẳng hạn như 2 Phiếu giảm giá hoặc 2 mẫu / 2 phiếu thưởng, v.v. ], sau đó bạn có thể thử sử dụng đoạn mã dưới đây. [Giả sử mã vạch thứ nhất và mã vạch thứ 2 của bạn nằm trong các ô "A1" và "A20" của cùng một trang, mã này sẽ tăng các giá trị như Công ty-001 và Công ty-002 trên trang đầu tiên và Công ty-003 và Công ty-004 trên trang thứ hai . Bạn có thể chỉnh sửa ô số. và Tên công ty tùy thích tại các dòng 20, 21, 23, 24, 28,29 của code.
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 Geniusman về phần mã này]. Vì vậy, ví dụ bắt đầu của bạn không. là 1 và kết thúc là không. 8 thì sẽ in được 4 trang 1,2 ở trang 1, 3,4 ở trang 2, 5,6 ở trang 3 và cuối cùng là 7,8 ở trang 4. Hy vọng nó sẽ giúp ích cho bạn hoặc bất kỳ ai đang tìm kiếm loại nhu cầu/yêu cầu này.
Mã đã sửa đổi. -------------------------------------------------- .
'updateby Extendoffice
Dim xEnd As Variant
Dim xStart As Variant
Dim xScreen As Boolean
Dim I As Long
On Error Resume Next
LInput:
xStart = Ứng dụng. InputBox["Vui lòng nhập số đầu tiên. ", "Kutools cho Excel"]
xEnd = Ứng dụng. InputBox["Vui lòng nhập số cuối cùng. ", "Kutools cho Excel"]
Nếu TypeName[xCount] = "Boolean" thì thoát Sub
If [xStart = ""] Or [Not IsNumeric[ . Đang cập nhật màn hình
MsgBox "Error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Ứng dụng. ScreenUpdating = False
For I = xStart To xEnd
If I Mod 2 = 0 Then
ActiveSheet. Phạm vi ["A1"]. Giá trị = " Company-00" & I + 1
ActiveSheet. Phạm vi["A20"]. Value = " Company-00" & I
Else
ActiveSheet. Phạm vi["A20"]. Giá trị = " Company-00" & I + 1
ActiveSheet. Phạm vi ["A1"]. Value = " Company-00" & I
ActiveSheet. In ra
Kết thúc nếu
Tiếp theo
ActiveSheet. Phạm vi ["A1"]. ClearContents
ActiveSheet. Phạm vi["A20"]. ClearContents
Ứng dụng. ScreenUpdating = xScreen
End If
End Sub
----------------
Hồi đáp
Bài báo cáo
0
0
jennifer
khoảng 4 năm 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ủa tôi là I3 và số là 2298 khi tôi thử [mã VBA. Tự động tăng giá trị ô sau mỗi lần in. ] nó cho mình 22981 làm sao để lên 2298,2299,2300
Hồi đáp
0
0
skyyang jennifer
khoảng 4 năm 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
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 As Variant
Dim xScreen As Boolean
Dim I .
Dim xStr As String
Dim xInt As Integer
On Error Resume Next
xStr = "Company-" 'prefix text
xInt = 2291 'number
LInput:
xCount = Ứng dụng. InputBox["Vui lòng nhập số bản muốn in. ", "Kutools cho Excel"]
Nếu TypeName[xCount] = "Boolean" thì thoát Sub
If [xCount = ""] Or [Not IsNumeric[ . Đang cập nhật màn hình
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Ứng dụng. ScreenUpdating = False
For I = 1 To xCount
xInt = xInt + 1
ActiveSheet. Phạm vi ["A1"]. Giá trị = xStr & xInt
ActiveSheet. In ra
Tiếp theo
ActiveSheet. Phạm vi ["A1"]. ClearContents
Ứng dụng. ScreenUpdating = xScreen
End If
End Sub
Hãy dùng thử, hy vọng nó có thể giúp ích cho bạn.
Hồi đáp
Bài báo cáo
0
0
Richard skyyang
khoảng 3 năm 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
Xin chào, bạn có thể giúp tôi với điều này? . Mỗi khi tôi đặt một số có 6 chữ số, số đếm sẽ quay trở lại 1. Làm thế nào tôi có thể ngăn chặn điều đó?
Hồi đáp
Bài báo cáo
0
0
Giuseppe skyyang
khoảng 2 năm 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
Xin chào, rất thú vị mặc dù tôi đang tìm kiế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ã cũng không thể đạt được cho đến nay. Theo ví dụ của bạn, tôi sẽ cần in cùng một trang 100 lần, thành cùng một tệp PDF chẳng hạn và trên mỗi trang, số trang tăng dần. NHƯ tôi đã nó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
Hồi đáp
0
0
Naresh kumar Satlapally skyyang
khoảng 9 tháng 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
Xin chào, mã này đang hoạt động rất tốt, nhưng sau khi giá trị ô 32767 lại quay về 1. Sau giá trị này, nó in từ số 1
Hồi đáp
0
0
tan chee ho jennifer
khoảng 3 năm 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, nó làm việc cho tôi. Và tôi quản lý để thực hiện một vài thay đổi nhỏ cho phù hợp với nhu cầu của mình. Thực sự đánh giá cao sự chia sẻ của bạn
Hồi đáp
0
0
Shahnawaz jennifer
khoảng 1 năm 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
Xin chào Jennifer, Hãy thử cái này
Sub IncrementPrint[]
'updateby Extendoffice 20160530
Dim xCount As Variant< .
Dim xScreen As Boolean
Dim I As Long
On Error Resume Next
LInput:
xCount = Ứng dụng. InputBox["Vui lòng nhập số bản muốn in. ", "Kutools cho Excel"]
Nếu TypeName[xCount] = "Boolean" Thì Thoát Sub
If [xCount = ""] Hoặc [Không phải là Số[ . Đang cập nhật màn hình
MsgBox "error entered, please enter again", vbInformation, "Kutools for Excel"
GoTo LInput
Else
xScreen = Application.ScreenUpdating
Ứng dụng. ScreenUpdating = False
For I = 1 To xCount
ActiveSheet. PrintOut
ActiveSheet. Phạm vi ["J18"]. Giá trị = ActiveSheet. Phạm vi ["J18"]. Giá trị + 1
Tiếp theo
'ActiveSheet. Phạm vi ["J18"]. ClearContents'
Ứng dụng. ScreenUpdating = xScreen
End If
End Sub
Hồi đáp
0
0
Phát ban
khoảng 4 năm 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 rất nhiều
Hồi đáp
0
0
Hóa đơn Turek
khoảng 3 năm 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
Hoạt động tốt để in số gia tăng. Làm cách nào để tôi in mỗi ngày 5, 10 khi cần?
Hồi đáp
Bài báo cáo
0
0
Ib Alsa
khoảng 3 năm 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ó cách nào để chọn những giá trị tôi muốn in không?
Hồi đáp
0
0
không xác định
khoảng 3 năm 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
này, tôi muốn thay đổi số ô K11 sau khi in thành 1-2-3-4-5-6, v.v. bạn có thể giúp gì không?
Hồi đáp
0
0
TBOne
khoảng 3 năm 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 đang thắc mắc làm thế nào để thực hiện một thay đổi nhỏ để nó in ra 1 trên 10, 2 trên 10, 3 trên 10, v.v.
Nếu không thì cái này hoạt động rất tốt. Cảm ơn.
Hồi đáp
0
0
chắc chắn kumar
khoảng 2 năm 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
xin chào, tên tôi là suresh, tôi có một dữ liệu ở định dạng excel mà không có bất kỳ số sê-ri nào, chẳng hạn như một ví dụ về hóa đơn. tôi cần in 100 trang và cần in số sê-ri những gì tôi cần từ 4 chữ số nhưng trong khi in tôi phải thực hiện theo cách thủ công. bạn có thể giải thích ai sẽ in tự động tạo mã số sê-ri trong khi in không
Hồi đáp
0
0
4g
khoảng 2 năm 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
Tuyệt quá. Tôi không phải là lập trình viên nhưng tôi đã cố gắng thay đổi Cell ref và cách đánh số uniq mà tôi muốn. Làm việc tuyệt vời cho tôi Chúa ban phước cho bạn
Hồi đáp
0
0
Nađia
khoảng 2 năm 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ũng có thể thêm vào mã này để 2 bản được in tự động?
Hồi đáp
0
0
Eric Nadia
khoảng 2 năm 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 nghĩ bạn có thể thay đổi phần này. Bảng hoạt động. Phạm vi ["A1"]. Value = " Company-00" & I
ActiveSheet. In ra
sang
ActiveSheet. Phạm vi ["A1"]. Value = " Company-00" & I
ActiveSheet. PrintOut
ActiveSheet. PrintOut
để lấy mỗi bản 2 bản.
Hồi đáp
0
0
mứt
khoảng 1 năm 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 thắc mắc liệu bạn có thể in thẳng tệp ra sau khi mở lại và tệp vẫn theo số thứ tự không?
Điều tôi hiện đang làm là mỗi khi tôi mở tệp, ALT . Sau đó, nó sẽ in tệp có đánh số chính xác, sau đó chỉ cần lưu lại. và khi tôi mở lại, tôi chỉ cần làm bước tương tự.
Nếu có một mã mà bạn có thể in thẳng mã đó ra mỗi khi mở tệp và mã vẫn sẽ đánh số thứ tự?
xin cảm ơn trước
Hồi đáp
0
0
mứt
khoảng 1 năm 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 thắc mắc liệu bạn có thể in thẳng tệp ra sau khi mở lại và tệp vẫn theo số thứ tự không?
Điều tôi hiện đang làm là mỗi khi tôi mở tệp, ALT . Sau đó, nó sẽ in tệp có đánh số chính xác, sau đó chỉ cần lưu lại. và khi tôi mở lại, tôi chỉ cần làm bước tương tự.
Nếu có một mã mà bạn có thể in thẳng mã đó ra mỗi khi mở tệp và mã vẫn sẽ đánh số thứ tự?
xin cảm ơn trước
Hồi đáp
Bài báo cáo
0
0
shazad
khoảng 1 năm 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ẻ mã trên. Nó rất hữu ích cho 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 không? Đang chờ trả lời của bạn. Cảm ơn