VBA ცხრილის დასალაგებლად Excel-ში (4 მეთოდი)

Hugh West

18-06-2023 მაკროები & amp; Excel VBA
  • გააზიარეთ ეს
Hugh West

VBA მაკრო დანერგვა ყველაზე ეფექტური, სწრაფი და უსაფრთხო მეთოდია Excel-ში ნებისმიერი ოპერაციის გასაშვებად. ამ სტატიაში ჩვენ გაჩვენებთ, თუ როგორ დაალაგოთ ცხრილი Excel-ში VBA .

ჩამოტვირთეთ სამუშაო წიგნი

შეგიძლიათ ჩამოტვირთოთ Excel-ის უფასო პრაქტიკის სამუშაო წიგნი აქედან.

ცხრილის დახარისხება VBA.xlsm-ით

რა უნდა იცოდეთ VBA-ს დანერგვამდე დალაგების ცხრილი Excel-ში

არსებობს რამდენიმე პარამეტრი, რომელიც ხშირად უნდა გამოიყენოთ Sort მეთოდით VBA . ასე რომ, აქ განვიხილავთ ზოგიერთ პარამეტრს, რათა გაეცნოთ კოდის დაწერისას.

პარამეტრი საჭირო/სურვილისამებრ მონაცემთა ტიპი აღწერილობა
გასაღები სურვილისამებრ ვარიანტი მიუთითებს დიაპაზონს ან სვეტს, რომლის მნიშვნელობებიც უნდა იყოს დახარისხებული. 1>XlSortOrder მიუთითებს თანმიმდევრობას, რომლითაც განხორციელდება დახარისხება.
  • xlAscending = დახარისხება ზრდადი თანმიმდევრობით.
  • xlკლებად = დახარისხება კლებადობით.
Header სურვილისამებრ XlYesNoGuess აკონკრეტებს, შეიცავს თუ არა პირველი რიგი სათაურებს .
  • xlNo = როდესაც სვეტს არ აქვს სათაურები; ნაგულისხმევი მნიშვნელობა.
  • xlYes = როდესაც სვეტებს აქვთ სათაურები.
  • xlGuess = Excel-ის დაშვებაგანსაზღვრეთ სათაურები.

4 მეთოდი VBA დანერგვისას ცხრილის დასალაგებლად Excel-ში

ეს განყოფილება გაჩვენებთ, თუ როგორ დაალაგოთ Excel ცხრილები მნიშვნელობის, ფერების, ხატების და მრავალჯერადი სვეტების გათვალისწინებით VBA კოდით.

1. ჩადეთ VBA, რათა დაალაგოთ ცხრილი მნიშვნელობის მიხედვით Excel-ში

შემდეგი მაგალითის გათვალისწინებით, ჩვენ დავახარისხებთ ამ ცხრილს Mark <-ში არსებული მნიშვნელობების მიხედვით 2> სვეტი კლებადობით.

ნაბიჯები:

  • დააჭირეთ Alt + F11 თქვენი კლავიატურა ან გადადით ჩანართზე დეველოპერი -> Visual Basic გასახსნელად Visual Basic Editor .

  • pop-up კოდის ფანჯარაში, მენიუს ზოლიდან , დააწკაპუნეთ ჩასმა -> მოდული .

  • დააკოპირეთ შემდეგი კოდი და ჩასვით კოდის ფანჯარაში. 
2115

თქვენი კოდი ახლა მზად არის გასაშვებად.

აქ,

  • SortTBL → მითითებულია ცხრილის სახელი.
  • SortTBL[ნიშნები] -> მითითებულია ცხრილის სვეტის სახელი დასალაგებლად.
  • Key1:=iColumn → მიუთითეთ სვეტის დიაპაზონი, რათა კოდმა იცოდეს, ცხრილის რომელი სვეტი უნდა დახარისხდეს.
  • Order1:=xlDescending → დააკონკრეტა თანმიმდევრობა, როგორც xlDescending სვეტის დასალაგებლად კლებადობით. თუ გსურთ დაალაგოთ სვეტი ზრდადი თანმიმდევრობით, ჩაწერეთ xlAscending ნაცვლად.
  • Header:= xlYes → რადგან ამ ცხრილის სვეტს აქვსსათაური, ასე რომ, ჩვენ დავაზუსტეთ ის xlYes ოფციით.

  • დააჭირეთ F5 თქვენს კლავიატურაზე ან მენიუს ზოლში აირჩიეთ გაშვება -> გაუშვით Sub/UserForm . თქვენ ასევე შეგიძლიათ უბრალოდ დააწკაპუნოთ პატარა Play ხატულაზე ქვემენიუ ზოლში მაკროს გასაშვებად.

თქვენ ნახავთ, რომ თქვენი ცხრილის სვეტი ახლა დალაგებულია კლებადობით .

დაწვრილებით: როგორ დავახარისხოთ მონაცემები მნიშვნელობის მიხედვით Excel-ში (5 მარტივი მეთოდი )

2. ჩადეთ VBA მაკრო სორტირების ცხრილისთვის მრავალი სვეტისთვის

ასევე შეგიძლიათ დაახარისხოთ ცხრილი მრავალი სვეტისთვის Excel-ში VBA მაკროთი.

ზემოხსენებული ცხრილიდან ჩვენ დავახარისხებთ სვეტებს სახელი და განყოფილება ზრდადი თანმიმდევრობით. .

ნაბიჯები:

  • ისევე როგორც ადრე, გახსენით Visual Basic Editor Developer ჩანართიდან და ჩასვით მოდული კოდის ფანჯარაში.
  • კოდის ფანჯარაში დააკოპირეთ შემდეგი კოდი და ჩასვით. 
6644

თქვენი კოდი ახლა მზად არის გასაშვებად.

აქ,

  • TableValue → მითითებულია ცხრილის სახელი.
  • TableValue[Name] -> მითითებულია ცხრილის პირველი სვეტის სახელი დასალაგებლად.
  • TableValue[Department] -> მითითებულია ცხრილის მეორე სვეტის სახელი დასალაგებლად.
  • Key1:=iColumn1 → მითითებულია სვეტის დიაპაზონი, რათა კოდი იცოდეს, რომ ცხრილის პირველი სვეტი უნდა იყოსდალაგებულია.
  • Key1:=iColumn2 → მითითებულია სვეტის დიაპაზონი, რათა კოდი იცოდეს, რომ ცხრილის მეორე სვეტი უნდა დალაგდეს.
  • Order1: =xlAscending → მითითებული თანმიმდევრობა, როგორც xlAscending სვეტის დასალაგებლად კლებადობით. თუ გსურთ სვეტის დალაგება კლებადობით, მაშინ ჩაწერეთ xlკლებად სანაცვლოდ.
  • Header:= xlYes → რადგან ამ ცხრილის სვეტებს აქვთ სათაურები, ამიტომ ჩვენ დავაზუსტეთ ის. xlYes ოპციით.

  • გაუშვით ეს კოდი და მიიღებთ ორივეს ცხრილის სვეტები დალაგებულია აღმავალი თანმიმდევრობით.

წაიკითხეთ მეტი: როგორ ავტომატური დახარისხება მრავალი სვეტის Excel (3 გზა)

მსგავსი წაკითხვები

  • როგორ დავახარისხოთ უნიკალური სია Excel-ში (10 სასარგებლო მეთოდი)
  • დახარისხება მასივი Excel VBA-ით (როგორც აღმავალი, ასევე კლებადი თანმიმდევრობით)
  • როგორ დავახარისხოთ და გავფილტროთ მონაცემები Excel-ში (სრული სახელმძღვანელო)
  • Excel-ის ავტომატური დალაგება მონაცემთა ცვლილებისას (9 მაგალითი)
  • შემთხვევითი სორტირება Excel-ში (ფორმულები + VBA)

3. დანერგეთ მაკრო, რათა დაალაგოთ ცხრილი უჯრედის ფერის მიხედვით Excel-ში

ასევე შეგიძლიათ დაალაგოთ ცხრილი იმ უჯრედის ფერის მიხედვით , რომელიც მას შეიცავს.

<. 3>

ზემოხსენებული ცხრილის მაგალითით, ჩვენ გაჩვენებთ, თუ როგორ უნდა დაალაგოთ იგი ამ ცხრილის ფერების მიხედვით.

ნაბიჯები:

  • როგორც ადრე იყო ნაჩვენები, გახსენით Visual Basicრედაქტორი დეველოპერი ჩანართიდან და ჩადეთ მოდული კოდის ფანჯარაში.
  • კოდის ფანჯარაში დააკოპირეთ შემდეგი კოდი და ჩასვით. 
8298

თქვენი კოდი მზად არის გასაშვებად.

აქ არის RGB კოდები, რომლებიც ჩვენ მოგვაწოდეთ , შეგიძლიათ იპოვოთ ის ან ნებისმიერი სხვა RGB კოდი, რომელიც გსურთ ქვემოთ მოცემული gif-ის შემდეგ.

  • უბრალოდ დააწკაპუნეთ ფერად უჯრედზე .
  • მთავარი ჩანართში დააწკაპუნეთ ისარზე შევსების ფერის გვერდით შემდეგ აირჩიეთ მეტი ფერები . თქვენ იხილავთ RGB კოდებს Custom ჩანართში, რომელიც გამოჩნდა ფერები ამომხტარი ფანჯარა.

<. 3>

  • გაუშვით ეს კოდი და თქვენი ცხრილი დალაგდება ფერების მიხედვით .

დაწვრილებით: როგორ დაალაგოთ ფერის მიხედვით Excel-ში (4 კრიტერიუმი)

4. გამოიყენეთ VBA Excel ცხრილის ხატის მიხედვით სორტირებაზე

ვთქვათ, მონაცემთა ნაკრების ცხრილში არის ხატები უკეთესი წაკითხვისთვის. თქვენ შეგიძლიათ დაალაგოთ ცხრილი ხატულების მიხედვით Excel-ში VBA მაკროთი.

იხილეთ ზემოაღნიშნული მონაცემთა ნაკრები. აქ ცხრილს აქვს ხატები რიცხვების გვერდით Marks სვეტებში, რათა გავიგოთ რომელ მოსწავლეს აქვს კარგი, ცუდი ან საშუალო შედეგი.

გაითვალისწინეთ, რომ თუ თქვენ არ იცით, როგორ შეგიძლიათ ჩასვათ ხატი უჯრედში, ამის გაკეთება უბრალოდ შეგიძლიათ პირობითი ფორმატირების ფუნქციით Excel-ში.

  • აირჩიეთ მთელი დიაპაზონი ანსვეტი.
  • გადადით პირობითი ფორმატირება -> ხატულების ნაკრები . შემდეგ აირჩიეთ თქვენთვის სასურველი ხატების ნაკრები.

ეტაპები ხახულების მიხედვით ცხრილის დასალაგებლად მოცემულია ქვემოთ.

ნაბიჯები:

  • გახსენით Visual Basic Editor Developer ჩანართიდან და Insert a მოდული კოდის ფანჯარაში.
  • კოდის ფანჯარაში დააკოპირეთ შემდეგი კოდი და ჩასვით. 
4421

თქვენი კოდი ახლა მზად არის გასაშვებად.

აქ,

  • xl5Arrows -> ჩვენ ავარჩიეთ 5 ისრის ნაკრები პირობითი ფორმატირების ოფციიდან.
  • პუნქტი (1) -> მითითებულია პირველი ტიპის ისრის ხატულა.
  • პუნქტი (2) -> მითითებულია მეორე სახის ისრის ხატულა.
  • პუნქტი (3) -> მითითებულია მესამე ტიპის ისრის ხატულა.
  • პუნქტი (4) -> მითითებულია მეოთხე ტიპის ისრის ხატულა.
  • პუნქტი (5) -> მიუთითეთ მეხუთე ტიპის ისრის ხატულა.

  • გაუშვით ეს კოდი და ცხრილი იქნება დალაგებულია ხატების მიხედვით .

დაწვრილებით: როგორ მოვახდინოთ ცხრილის ავტომატური სორტირება Excel-ში (5 მეთოდი)

დასკვნა

ეს სტატია გასწავლით, თუ როგორ დაახარისხოთ ცხრილი Excel-ში VBA . ვიმედოვნებ, რომ ეს სტატია თქვენთვის ძალიან სასარგებლო იყო. თავისუფლად მკითხეთ, თუ გაქვთ რაიმე შეკითხვა თემასთან დაკავშირებით.

წინა პოსტი როგორ დავაკოპიროთ და ჩასვათ Excel-ში ფორმატის შეცვლის გარეშე
შემდეგი პოსტი როგორ მოვძებნოთ კრიტიკული მნიშვნელობა Excel-ში (2 სასარგებლო მეთოდი)

ჰიუ ვესტი არის Excel-ის ძალიან გამოცდილი ტრენერი და ანალიტიკოსი, რომელსაც აქვს 10 წელზე მეტი გამოცდილება ინდუსტრიაში. მას აქვს ბაკალავრის ხარისხი ბუღალტერიასა და ფინანსებში და მაგისტრის ხარისხი ბიზნესის ადმინისტრირებაში. ჰიუს აქვს სწავლების გატაცება და შეიმუშავა სწავლების უნიკალური მიდგომა, რომელიც ადვილად გასაგები და გასაგებია. მისი ექსპერტი Excel-ის ცოდნა დაეხმარა ათასობით სტუდენტს და პროფესიონალს მთელს მსოფლიოში, გაეუმჯობესებინათ თავიანთი უნარები და გამოირჩეოდნენ თავიანთ კარიერაში. თავისი ბლოგის საშუალებით, ჰიუ უზიარებს თავის ცოდნას მსოფლიოს, სთავაზობს უფასო Excel გაკვეთილებს და ონლაინ ტრენინგებს, რათა დაეხმაროს ინდივიდებსა და ბიზნესს თავიანთი პოტენციალის სრულად მიღწევაში.