Số tăng tự động macro excel

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?


Số tăng tự động macro excel
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

Số tăng tự động macro excel

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.
Số tăng tự động macro excel

Đọ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
Số tăng tự động macro excel

Đọ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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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

Số tăng tự động macro excel

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