როგორ გამოვიყენოთ VBA Excel-ში აქტიური უჯრედიდან დიაპაზონის ასარჩევად (3 მეთოდი)

Hugh West

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

ჩვენ ვაპირებთ გაჩვენოთ 3 მეთოდები Excel VBA აირჩიოთ დიაპაზონი აქტიური უჯრედიდან . ამის საჩვენებლად, ჩვენ შევარჩიეთ მონაცემთა ნაკრები 3 სვეტით : „ სახელი “, „ გვარი “ და „ ელფოსტა “. ჩვენ ვირჩევთ უჯრედს და Excel VBA ჩვენ ვირჩევთ დიაპაზონს ამ უჯრედიდან .

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

აირჩიეთ დიაპაზონი Active Cell.xlsm-დან

3 გზა Active Cell-დან დიაპაზონის არჩევის VBA-ს გამოყენებით Excel-ში

1. VBA გამოყენება დიაპაზონის არჩევისთვის აქტიური უჯრედიდან ბოლო არაცარიელ უჯრედამდე

პირველი მეთოდისთვის ჩვენ გამოვიყენებთ Range.End თვისებას.

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

ნაბიჯები:

  • პირველ რიგში, დეველოპერიდან ჩანართი >>> აირჩიეთ Visual Basic .

გაჩნდება ფანჯარა Visual Basic .

  • და ბოლოს, ჩასმა >>> აირჩიეთ მოდული .

ეს გამოვა მოდული ფანჯარა.

1.1. End(xlUp) თვისების გამოყენებით

ამ სექციაში ჩვენ ვაპირებთ ავირჩიოთ დიაპაზონი ზემოთ ბოლო არაცარიელ უჯრედამდე ჩვენი აქტიური უჯრედიდან .

ნაბიჯები:

  • პირველ რიგში, გახსენით მოდულის ფანჯარა.
  • მეორე, აკრიფეთ შემდეგი კოდი. 
1794

ჩვენ ვურეკავთ ჩვენს Sub პროცედურა ToUp . შემდეგ ჩვენ ვირჩევთ ჩვენს დიაპაზონს . პირველი მნიშვნელობა არის ჩვენი აქტიური უჯრედი . ბოლო მნიშვნელობა არის ActiveCell.End(xlUp) . და ბოლოს, ჩვენ ვირჩევთ დიაპაზონს დიაპაზონი . აირჩიეთ მეთოდი.

  • მესამე, შეინახეთ და დახურეთ ფანჯარა.
  • ამის შემდეგ აირჩიეთ უჯრედი C6 . ეს უჯრედი არის ჩვენი აქტიური უჯრედი .

ახლა ჩვენ ვაპირებთ გახსენით მაკრო ფანჯარა. ამისათვის -

  • დეველოპერი ჩანართიდან >>> აირჩიეთ მაკრო .

ამის შემდეგ გამოჩნდება მაკრო დიალოგური ფანჯარა .

  • შემდეგ, აირჩიეთ „ ToUp “ „ მაკროს სახელი: “-დან.
  • და ბოლოს, დააწკაპუნეთ Run .

ჩვენ ვხედავთ, რომ ჩვენ ავარჩიეთ უჯრედების დიაპაზონი C4:C6 .

დაწვრილებით: Excel VBA: დააკოპირეთ დინამიური დიაპაზონი სხვა სამუშაო წიგნში

1.2. End(xlDown) თვისების ჩართვა

ამ განყოფილებაში ჩვენ ვაპირებთ ავირჩიოთ დიაპაზონი ქვემოთ ჩვენი აქტიური უჯრედიდან .

ნაბიჯები:

  • პირველ რიგში, გახსენით მოდულის ფანჯარა.
  • მეორე, აკრიფეთ შემდეგი კოდი. 
6735

ჩვენ მოვუწოდებთ ჩვენს Sub პროცედურას ToDown . შემდეგ ჩვენ ვირჩევთ ჩვენს დიაპაზონს . პირველი მნიშვნელობა არის ჩვენი აქტიური უჯრედი . ბოლო მნიშვნელობა არის ActiveCell.End(xlDown) . საბოლოოდ, ჩვენ ვართაირჩიეთ დიაპაზონი დიაპაზონი . აირჩიეთ მეთოდი.

  • მესამე, შეინახე და დახურე ფანჯარა.
  • ამის შემდეგ აირჩიეთ უჯრედი C6 . ეს არის ჩვენი აქტიური უჯრედი .

  • შემდეგ, გახსენით მაკრო დიალოგური ფანჯარა .
  • აირჩიეთ „ ToDown “.
  • და ბოლოს, დააწკაპუნეთ Run .

ამგვარად, ჩვენ ავარჩიეთ დიაპაზონი ჩვენი აქტიური უჯრედიდან Excel VBA გამოყენებით.

წაიკითხეთ მეტი: Excel VBA დიაპაზონის გადასატანად ცარიელ უჯრედამდე (4 მაგალითი)

მსგავსი სტატიები

  • Excel VBA: სვეტების გადატანა დიაპაზონში (5 მაგალითი)
  • როგორ გამოვიყენოთ VBA თითოეული მწკრივისთვის დიაპაზონში Excel-ში
  • Excel მაკრო: დაალაგეთ მრავალი სვეტი დინამიური დიაპაზონით (4 მეთოდი)
  • VBA სტრიქონებისა და სვეტების დიაპაზონში გადასატანად Excel-ში (5 მაგალითი)
  • როგორ გადავიტანოთ დიაპაზონი მასივში Excel VBA-ში (3 გზა)

1.3. End(xlToLeft) თვისების გამოყენება

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

ნაბიჯები:

  • პირველ რიგში, გახსენით მოდულის ფანჯარა.
  • მეორე, აკრიფეთ შემდეგი კოდი. 
8891

ჩვენ მოვუწოდებთ ჩვენს ქვე პროცედურას მარცხნივ . შემდეგ ჩვენ ვირჩევთ ჩვენს დიაპაზონს . პირველი მნიშვნელობა არის ჩვენი აქტიური უჯრედი . ბოლო მნიშვნელობა არის ActiveCell.End(xlToLeft) . და ბოლოს, ჩვენ ვირჩევთ დიაპაზონს დიაპაზონი . აირჩიეთ მეთოდი.

  • მესამე, შეინახეთ და დახურეთ ფანჯარა.
  • ამის შემდეგ აირჩიეთ უჯრედი D7 . ეს არის ჩვენი აქტიური უჯრედი .

  • შემდეგ, გახსენით მაკრო დიალოგური ფანჯარა .
  • აირჩიეთ „ მარცხნივ “.
  • და ბოლოს, დააწკაპუნეთ Run .

ამგვარად, ჩვენ ავარჩიეთ დიაპაზონი ჩვენი აქტიური უჯრედიდან Excel VBA გამოყენებით.

1.4. End(xlToRight) თვისების დანერგვა

ამ განყოფილებაში ჩვენ ვაპირებთ ავირჩიოთ დიაპაზონი მარჯვნივ ჩვენი აქტიური უჯრედის .

ნაბიჯები:

  • პირველ რიგში, გახსენით მოდულის ფანჯარა.
  • მეორე, აკრიფეთ შემდეგი კოდი. 
2962

ჩვენ მოვუწოდებთ ჩვენს ქვეპროცედურას ToRight . შემდეგ ჩვენ ვირჩევთ ჩვენს დიაპაზონს . პირველი მნიშვნელობა არის ჩვენი აქტიური უჯრედი . ბოლო მნიშვნელობა არის ActiveCell.End(xlToRight) . და ბოლოს, ჩვენ ვირჩევთ დიაპაზონს დიაპაზონი . აირჩიეთ მეთოდი.

  • მესამე, შეინახეთ და დახურეთ ფანჯარა.
  • ამის შემდეგ აირჩიეთ უჯრედი C8 . ეს არის ჩვენი აქტიური უჯრედი .

  • შემდეგ, გახსენით მაკრო დიალოგური ფანჯარა .
  • აირჩიეთ „ მარჯვნივ “.
  • და ბოლოს, დააწკაპუნეთ Run .

ამგვარად, ჩვენ ავარჩიეთ დიაპაზონი ჩვენი აქტიური უჯრედიდან Excel VBA -ის გამოყენებით.

2. VBA Range.Offset თვისების გამოყენება აქტიური უჯრედიდან დიაპაზონის ასარჩევად VBA-ს გამოყენება Excel-ში

მეორე მეთოდისთვის, ჩვენ გამოვიყენებთ VBA Range.Offset თვისებას, რათა აირჩიოთ დიაპაზონი ჩვენი აქტიური უჯრედის გამოყენებით. .

ნაბიჯები:

  • პირველ რიგში, აკრიფეთ შემდეგი კოდი Module ფანჯარაში. 
2664

ჩვენ შევქმენით ჩვენი ქვეპროცედურა UsingOffset . შემდეგ ჩვენ ვირჩევთ ჩვენს დიაპაზონს . პირველი მნიშვნელობა არის ჩვენი აქტიური უჯრედი . ბოლო მნიშვნელობა არის ActiveCell.Offset (1,2) . Offset თვისებით ჩვენ გადავდივართ 1 მწკრივი ქვემოთ და 2 სვეტი მარჯვნივ . და ბოლოს, ჩვენ ვირჩევთ დიაპაზონს დიაპაზონი . აირჩიეთ მეთოდი.

  • მეორე, შეინახეთ და დახურეთ ფანჯარა.
  • ამის შემდეგ აირჩიეთ უჯრედი B8 . ეს არის ჩვენი აქტიური უჯრედი .

  • შემდეგ, გახსენით მაკრო დიალოგური ფანჯარა .
  • აირჩიეთ „ UsingOffset “.
  • და ბოლოს, დააწკაპუნეთ Run .

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

დაწვრილებით: Excel VBA: მიიღეთ უჯრედების დიაპაზონი მნიშვნელობებით (7 მაგალითები)

3. აირჩიეთ დიაპაზონი აქტიური უჯრედიდან VBA-ს გამოყენებით Excel-ში CurrentRegion თვისების გამოყენებით

ბოლო მეთოდისთვის ჩვენ გამოვიყენებთ Range.CurrentRegion თვისებას.

ნაბიჯები:

  • პირველ რიგში, აკრიფეთ შემდეგი კოდი მოდულის ფანჯარაში. 
1297

ჩვენ ვუწოდებთ ჩვენს ქვე პროცედურას cრეგიონი . შემდეგ ჩვენ ვირჩევთ ჩვენს დიაპაზონს . CurrentRegion თვისებით, ჩვენ ვირჩევთ დიაპაზონს ცარიელ უჯრედამდე . და ბოლოს, ჩვენ ვირჩევთ დიაპაზონს დიაპაზონი . აირჩიეთ მეთოდი.

  • მეორე, შეინახეთ და დაუბრუნდით Excel ფურცელს.
  • ამის შემდეგ აირჩიეთ უჯრედი C10 . ეს არის ჩვენი აქტიური უჯრედი .

  • შემდეგ, გახსენით მაკრო დიალოგური ფანჯარა .
  • აირჩიეთ „ cRegion “.
  • და ბოლოს, დააწკაპუნეთ Run .

ამგვარად, ჩვენ ავარჩიეთ დიაპაზონი ცარიელ უჯრედამდე .

პრაქტიკის განყოფილება

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

დასკვნა

ჩვენ“ ჩვენ გაჩვენეთ 3 მეთოდები Excel VBA აირჩიეთ დიაპაზონი აქტიური უჯრედიდან . თუ რაიმე პრობლემის წინაშე დგახართ ნაბიჯების გაგებაში, მოგერიდებათ კომენტარის გაკეთება ქვემოთ. გმადლობთ, რომ კითხულობთ, განაგრძეთ ბრწყინვალება!

წინა პოსტი როგორ გადავიტანოთ თარიღი ტექსტად YYYYMMDD (3 სწრაფი გზა)
შემდეგი პოსტი როგორ გამოვიყენოთ VBA DIR ფუნქცია Excel-ში (7 პრაქტიკული მაგალითი)

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