আমার কাছে কয়েক হাজার সারি সহ একটি এক্সেল স্প্রেডশিট রয়েছে। আমি সেই স্প্রেডশিট থেকে প্রতি 7 তম সারিতে নির্বাচন করতে চাই। ("নির্বাচন করুন" দ্বারা আমার অর্থ অন্য সমস্ত সারি মুছে ফেলুন বা নির্বাচিত সারিগুলি একটি নতুন ওয়ার্কশিটে অনুলিপি করুন))
এক্সেল 2003 এ করার সহজতম উপায়টি কী?
উত্তর:
ব্যক্তিগতভাবে, আমি প্রথম তিন বা চারটি লাইন করতে অবশ্যই ম্যাক্রো রেকর্ড করতাম (অবশ্যই 7-সারির বর্ধিত সময়ে) এবং লাইনগুলি একটি নতুন শীটে অনুলিপি করতাম। তারপরে আমি একটি লুপ ব্যবহার করতে ম্যাক্রোগুলি সম্পাদনা করব যা শীটের পপুলেটেড সারিগুলির সংখ্যার সাথে গণনা করা হয়, 7 ধাপে।
সিউডো-কোড উদাহরণ:
Dim i as Integer
For i = 1 To 1000 Step 7
'Add current row to selection
...
Next i
'Copy the selected rows to new sheet
...
সত্যিই কেবল র্যান্ডলফ পটারের ধারণাটি শেষ হয়েছে ...
রেকর্ডটির জন্য, আমি মনে করি না যে আপনি কখনও রেকর্ডিংয়ের মাধ্যমে এটি নিয়ে আসতে পারেন। ম্যাক্রো রেকর্ডিং নিজেকে এক্সেল অবজেক্ট মডেলের সাথে পরিচিত করার একটি ভাল উপায় তবে পুনরায় ব্যবহারযোগ্য ফাংশনগুলি লেখার খুব ভাল উপায় নয়।
Option Explicit
'A simple test that copies every 7th row from the active sheet to a new sheet.
Sub SimpleTest()
Dim r As Range
Dim ws As Worksheet
Set r = GetEveryNthRow(7)
If Not r Is Nothing Then
Set ws = Worksheets.Add(Before:=Sheets(1))
r.Copy ws.Range("A1")
Else
MsgBox "Nothing came back from GetEveryNthRow"
End If
Set ws = Nothing
Set r = Nothing
End Sub
'
Function GetEveryNthRow(ByVal NthRow As Long) As Range
Dim keepRows As Range
Dim r As Range
If NthRow > 0 Then
Set keepRows = Rows(1)
For Each r In ActiveSheet.UsedRange.Rows
If (r.Row Mod NthRow) = 0 Then
Set keepRows = Union(keepRows, Rows(r.Row))
End If
Next r
Set GetEveryNthRow = keepRows
Else
MsgBox "The row multiple provided must be greater than 0"
End If
Set keepRows = Nothing
End Function
1।প্রতি 7th ম সারিটি নির্বাচন করার জন্য এখানে একটি সহজ উপায় রয়েছে: আপনার কলামের প্রথম r টি সারিটিতে একটি (প্রথম) আপনি কিছু ভিতরে লিখেছেন। তারপরে আপনি এই 7 টি সারিটি নির্বাচন করুন এবং এটিকে পুরো কলামে অনুলিপি করুন। এখন আপনার যা দরকার তা কেবল নির্বাচন-> বিশেষে যান-> ব্লঙ্কগুলি নির্বাচন করুন>> ঠিক আছে আপনার প্রতিটি 7 টি সারিতে একটি নির্বাচন রয়েছে। এখন আপনি যা চান তা করতে পারেন। উপভোগ করুন!
প্রতি 7 তম সারির জন্য,