আমি Excel 2013 এ একটি সারণি তৈরি করেছি কিন্তু আমি কেবল নির্বাচিত ঘরগুলি সাজানোর জন্য চাই। টেবিল পরিসীমা A1: I200 তবে আমি শুধুমাত্র A150: I200 বাছাই করতে চাই। আমি কোষ নির্বাচন করার চেষ্টা করেছি, ডান ক্লিক করুন, সাজান, এটা পুরো টেবিলের সাজানো। এই একটি সমাধান আছে?
উত্তর:
নিম্নলিখিত ম্যাক্রো যে কাজ করে। আপনি প্রথমে সারণির আনলিস্ট করুন, তারপরে নির্বাচিত বিন্যাস সাজান, এবং তারপরে আবার তালিকাবিন্যাস তৈরি করুন। আপনি প্রয়োজনীয় হিসাবে সূক্ষ্ম সূক্ষ্ম সুর টিউব উপযোজন করা উচিত।
Sub part_sort()
Dim rng_sel As Range, rng_all As Range
Dim lo_table As ListObject, lo_name As String
Dim ws As Worksheet
Set ws = ActiveSheet
Set rng_sel = Selection
Set lo_table = rng_sel.ListObject
lo_name = lo_table.Name
Set rng_all = lo_table.Range
Debug.Print rng_all.Address
lo_table.Unlist
With ws.Sort
.SortFields.Clear
.SortFields.Add Key:=rng_sel.Columns(1), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange rng_sel
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Set lo_table = ws.ListObjects.Add(xlSrcRange, rng_all, , xlYes)
lo_table.Name = lo_name
End Sub
পিএস: এই প্রশ্ন সম্ভবত স্ট্যাক ওভারফ্লো জন্য উপযুক্ত।