এক্সেল ম্যাক্রো একই সংখ্যা এবং তারপরে ইনক্রিমেন্ট সহ 3 পৃষ্ঠা মুদ্রণ করবে

Question

আমি 3 পৃষ্ঠাগুলির একটি সেট মুদ্রণের জন্য আমার একটি এক্সেল শীট রয়েছে যা আমি টাইমশিটের জন্য ব্যবহার করি। আমার এমন এক ধরণের ম্যাক্রো দরকার যা প্রতি তিনটি শীট মুদ্রণের পরে সংখ্যা পরিবর্তন করতে পারে। সুতরাং, প্রথম তিনটি শীট হল 0001 এবং পরের তিনটি 0002 পরের তিনটি 0003, তাই।

যদি সম্ভব হয় তবে আমি যেখানেই ছেড়ে গিয়েছিলাম সেখান থেকে শুরু করতে সক্ষম হওয়া দরকার। আমি এ পর্যন্ত চেষ্টা করেছি এখানে:

Sub PrintCopies_ActiveSheet()

Dim CopiesCount As Long
Dim copynumber As Long

CopiesCount = Application.InputBox("How many copies do you want?", Type:=1)
'Now the program wants you to input how many pages you like to print.
'You can input 100 here.

For copynumber = 1 To CopiesCount
With ActiveSheet
   .Range("E1").Value = copynumber 'I assume your invoice number is in cell E1.
   For i = 1 To 3
    .PrintOut 'Print the sheet
End With
Next copynumber
End Sub

দু'পক্ষের সমস্যা:

1. এটি একই নম্বর দিয়ে শীটটি তিনবার মুদ্রণ করে না
2. লিডার জিরো (যেমন, 0001, 0002 ...

কোন সমাধান?

Comments

এটি

— পেয়েছে

দেখে মনে হচ্ছে আপনি কেবল কোডটি অনুলিপি করেছেন superuser.com/questions/203892/… থেকে ... আপনি কীভাবে আছেন edited it a bit? আপনি এটি কীভাবে চালিয়ে যাওয়ার চেষ্টা করেছেন তা ব্যাখ্যা করতে পারেন যাতে এটি কোথায় ভুল হয়েছে তা আমরা দেখতে পারি?

— ডেভ

Answer 1

আপনি ইতিমধ্যে দাবি করেছেন যে আপনি সবেমাত্র অন্যান্য কোড অনুলিপি করেছেন এবং নিজেই করেননি। আপনি যদি এই রুটটি অবিরত রাখেন, আপনি হারিয়ে যাবেন, আমি আপনাকে আপনার প্রয়োজনীয় ছোট কোডটি শিখার প্রস্তাব দিই।

এই ফাংশনটি ডেমোস করে যে কীভাবে আপনি প্রতি 3 বার বৃদ্ধি করে নম্বরটি পাবেন এবং কীভাবে শীর্ষস্থানীয় শূন্যগুলি যুক্ত করবেন। আপনার উদাহরণ অনুসারে (যেখানে আপনি লিখেছেন (eg, 0001, 0002 ... 000n)) আমি ধরে নিয়েছি , আপনি সর্বদা সামনে 3 টি জিরো চান।

Sub doThis()

Dim page As Integer
page = 1

Dim pageToUse As String
pageToUse = "000" & page

Dim copyNumber As Integer
Dim copiesCount As Integer
copiesCount = 5

For copyNumber = 1 To copiesCount

    If copyNumber Mod 4 = 0 Then     'needs to be 4 as you start with 1
        pageToUse = "000" & page + 1
    End If

Next copyNumber

End Sub