Სარჩევი
VBA-ში შეგიძლიათ გამოიყენოთ სხვადასხვა მეთოდი ბოლო მწკრივის მოსაძებნად. ამ სტატიაში ვაპირებ ახსნას VBA-ს ბოლო მწკრივის პოვნის სხვადასხვა მეთოდები Excel-ში.
იმისთვის, რომ ეს ახსნა ხილული იყოს, მე ვაპირებ მონაცემთა ნიმუშის გამოყენებას. მონაცემთა ნაკრებში არის 4 სვეტი, რომელიც წარმოადგენს გაყიდვების ინფორმაციას. ეს სვეტებია გამყიდველი, რეგიონი, პროდუქტი, და ფასი .
ჩამოტვირთეთ სავარჯიშოდ
VBA იპოვეთ ბოლო მწკრივი.xlsm
VBA-ს ბოლო მწკრივის პოვნა Excel-ში
1. SpecialCells-ის გამოყენება ბოლო მწკრივის მოსაძებნად
შეგიძლიათ გამოიყენოთ SpecialCells მეთოდი ბოლო მწკრივის მოსაძებნად VBA -ის გამოყენებით.
პირველ რიგში, გახსენით დეველოპერი ჩანართი >> შემდეგ აირჩიეთ Visual Basic
გაჩნდება ახალი ფანჯარა Microsoft Visual Basic აპლიკაციებისთვის .
ახლა, ჩასმა >> აირჩიეთ მოდული
გაიხსნება მოდული .
შემდეგ ჩაწერეთ შემდეგი კოდი მოდული .
1419
აქ მე შევქმენი ქვეპროცედურა სახელწოდებით LastRow_SpecialCells , სადაც ტიპი Long ცვლადის LastRow დეკლარირებულია.
შემდეგ განვსაზღვროთ ცვლადი Range.SpecialCells მეთოდის გამოყენებით. აქ მე გამოვიყენე სვეტი A ( A:A ), როგორც დიაპაზონი. მოწოდებულია xlCellTypeLastCell როგორც SpecialCells ტიპის პარამეტრი, ეს დააბრუნებს დიაპაზონის ბოლო უჯრედს (ამ შემთხვევაში, სვეტიდან A ).
გამოვიყენე შეტყობინებების ველი შედეგის საჩვენებლად.
ამის შემდეგ, შეინახეთ კოდი და დაბრუნდით სამუშაო ფურცელი.
ისევ გახსენით ნახვა ჩანართი >> მაკროდან >> აირჩიეთ მაკროს ნახვა
შემდეგ, დიალოგური ფანჯარა გაჩნდება.
ახლა, მაკროს სახელიდან აირჩიეთ LastRow_SpecialCells ასევე აირჩიეთ სამუშაო წიგნი მაკროსში -ში.
ბოლოს, გაუშვით შერჩეული მაკრო .
ამგვარად, გამოჩნდება შეტყობინების ყუთი, რომელიც აჩვენებს ბოლო რიგის ნომერს.
2. Rows.Count-ის გამოყენება არა ცარიელი უჯრედებისთვის
შეგიძლიათ გამოიყენოთ Rows.Count მეთოდი ბოლო მწკრივის მოსაძებნად VBA გამოყენებით .
ახლა გახსენით დეველოპერი ჩანართი >> შემდეგ აირჩიეთ Visual Basic
გაჩნდება ახალი ფანჯარა Microsoft Visual Basic აპლიკაციებისთვის .
ახლა, ჩასმა >> აირჩიეთ მოდული
გაიხსნება მოდული .
შემდეგ ჩაწერეთ შემდეგი კოდი მოდული .
6107
აქ მე შევქმენი ქვეპროცედურა სახელწოდებით LastRow_NonEmpty, სადაც არის Long ტიპის ცვლადი LastRow გამოცხადდა.
ახლა, CELLS(Rows.Count, 1) დათვლის რამდენი მწკრივია პირველ სვეტში. შემდეგ გამოყენებულია End(xlUp). Row ახლა ის იპოვის ბოლო გამოყენებულ მწკრივს Excel-ის დიაპაზონში.
ბოლოს, მე გამოვიყენე შეტყობინების ყუთი საჩვენებლად.შედეგი.
შემდეგ, შეინახეთ კოდი და დაუბრუნდით სამუშაო ფურცელს.
აქ გახსენით View ჩანართი >> მაკროდან >> აირჩიეთ მაკროს ნახვა
ახლა გამოჩნდება დიალოგური ფანჯარა .
შემდეგ, მაკროს სახელიდან აირჩიეთ LastRow_NonEmpty ასევე აირჩიეთ სამუშაო წიგნი მაკროსში -ში.
ბოლოს, გაუშვით შერჩეული მაკრო .
ამგვარად, გამოჩნდება შეტყობინების ყუთი, რომელიც აჩვენებს ბოლო რიგის ნომერს.
3. Rows.Count-ის გამოყენება ნებისმიერი არჩეული სვეტისთვის
ნებისმიერი არჩეული სვეტის გამოყენებით VBA, შეგიძლიათ იპოვოთ ბოლო მწკრივი.
პირველი , გახსენით დეველოპერი ჩანართი >> შემდეგ აირჩიეთ Visual Basic
გაჩნდება ახალი ფანჯარა Microsoft Visual Basic აპლიკაციებისთვის .
ახლა, ჩასმა >> აირჩიეთ მოდული
გაიხსნება მოდული .
შემდეგ ჩაწერეთ შემდეგი კოდი მოდული .
9546
აქ მე შევქმენი ქვეპროცედურა სახელად LastRow_AnyColumn, სადაც არის Long ტიპის ცვლადი LastRow გამოცხადდა.
შემდეგ, დიაპაზონში მოცემულია სვეტი B როგორც პარამეტრი და ასევე Rows.Count , ეს დათვლის რამდენი მწკრივია მოცემულ სვეტში B . შემდეგი, გამოიყენება End(xlup). მწკრივი რომელიც იპოვის ბოლო გამოყენებულ მწკრივს Excel-ის დიაპაზონში.
ბოლოს, მე გამოვიყენე შეტყობინების ყუთი საჩვენებლადშედეგი.
შემდეგ, შეინახეთ კოდი და დაუბრუნდით სამუშაო ფურცელს.
შემდეგ გახსენით View ჩანართი >> მაკროდან >> აირჩიეთ მაკროს ნახვა
აქ გამოჩნდება დიალოგური ფანჯარა .
ახლა, მაკროს სახელიდან აირჩიეთ LastRow_AnyColumn ასევე აირჩიეთ სამუშაო წიგნი მაკროსში -ში.
ბოლოს, გაუშვით შერჩეული მაკრო .
ამგვარად, გამოჩნდება შეტყობინების ყუთი, რომელიც აჩვენებს ბოლო რიგის ნომერს.
მსგავსი წაკითხვები:
- VBA იპოვეთ სვეტში Excel-ში (7 მიდგომა)
- იპოვეთ და ჩაანაცვლეთ VBA-ს გამოყენებით (11 გზები)
- იპოვეთ ზუსტი შესატყვისი VBA-ს გამოყენებით Excel-ში (5 გზა)
- როგორ მოვძებნოთ სტრიქონი VBA-ით Excel-ში (8 მაგალითი)
4. UsedRange-ის გამოყენება ბოლო მწკრივის მოსაძებნად
შეგიძლიათ გამოიყენოთ სამუშაო ფურცლის UsedRange თვისება უკანასკნელის საპოვნელად მწკრივი VBA -ის გამოყენებით.
ახლა გახსენით დეველოპერი ჩანართი >> შემდეგ აირჩიეთ Visual Basic
შემდეგ, გამოჩნდება Microsoft Visual Basic აპლიკაციებისთვის ახალი ფანჯარა.
<. 0>ახლა, ჩასმა >> აირჩიეთ მოდული
გაიხსნება მოდული .
შემდეგ ჩაწერეთ შემდეგი კოდი მოდული .
8964
აქ მე შევქმენი ქვეპროცედურა სახელად LastRow_UsedRange, სადაც ცვლადის Long ტიპი LastRow გამოცხადდა.
შემდეგი, განისაზღვრაცვლადი ActiveSheet.UsedRange.Rows მეთოდის გამოყენებით ასევე მოწოდებულია ActiveSheet.UsedRange.Rows.Count როგორც ActiveSheet.UsedRange.Rows პარამეტრი, ეს დააბრუნებს ბოლო მწკრივი.
გამოვიყენე შეტყობინებების ველი შედეგის საჩვენებლად.
ახლა, შეინახეთ კოდი და დაუბრუნდით სამუშაო ფურცელს.
შემდეგ გახსენით View ჩანართი >> მაკროდან >> აირჩიეთ მაკროს ნახვა
შემდეგი, დიალოგური ფანჯარა გაჩნდება.
შემდეგ, მაკროდან სახელი აირჩიეთ LastRow_UsedRange ასევე აირჩიეთ სამუშაო წიგნი მაკროებში .
საბოლოოდ, გაუშვით არჩეული მაკრო .
ამგვარად, გამოჩნდება შეტყობინებების ყუთი, რომელიც აჩვენებს ბოლო რიგის ნომერს.
5. Range.Find-ის გამოყენებით უკანასკნელის საპოვნელად მწკრივი
შეგიძლიათ გამოიყენოთ Range.Find მეთოდი ბოლო მწკრივის მოსაძებნად VBA -ის გამოყენებით.
ახლა გახსენით დეველოპერი ჩანართი >> შემდეგ აირჩიეთ Visual Basic
აქ გამოჩნდება ახალი ფანჯარა Microsoft Visual Basic აპლიკაციებისთვის .
ახლა, -დან. 2>ჩასმა >> აირჩიეთ მოდული
გაიხსნება მოდული .
შემდეგ ჩაწერეთ შემდეგი კოდი მოდულში .
2054
აქ მე შევქმენი ქვეპროცედურა სახელწოდებით Range_Find_Method, სადაც გამოცხადებულია ცვლადის Long ტიპი LastRow .
შემდეგ განვსაზღვროთ ცვლადი Cells.Find მეთოდის გამოყენებით. აი, გამოცხადდა 7პარამეტრები. რა პარამეტრში გამოვიყენე (“*”), რომელიც იპოვის პირველ არაცარიელ უჯრედს. მოცემულია A1 როგორც დიაპაზონი After პარამეტრში დასაწყებად. LookAt პარამეტრში მოცემულია xlPart ტექსტის ნებისმიერი ნაწილის სანახავად უჯრედის შიგნით.
LookIn:=xlFormulas პარამეტრი მოძებნის ფორმულები თუ არსებობს. SearchOrder:=xlByRows პარამეტრი გადავა მარჯვნიდან მარცხნივ და ასევე შემოიჭრება თითოეულ მწკრივში, სანამ არ იპოვის ცარიელ უჯრედს.
MatchCase:=False პარამეტრი იტყვის Find არ განიხილოს დიდი ან პატარა ასოები. როდესაც აღმოჩნდება არა ცარიელი, ის ჩერდება და აბრუნებს რიგის ნომერს.
გამოვიყენე შეტყობინებების ველი შედეგის საჩვენებლად.
ახლა, შეინახეთ კოდი და დაუბრუნდით სამუშაო ფურცელს.
აქ გახსენით View ჩანართი >> მაკროდან >> აირჩიეთ მაკროს ნახვა
ახლა გამოჩნდება დიალოგური ფანჯარა .
ახლა, მაკროს სახელიდან აირჩიეთ Range_Find_Method ასევე აირჩიეთ სამუშაო ფურცელი მაკროსში -ში.
ბოლოს, გაუშვით შერჩეული მაკრო .
ამგვარად, გამოჩნდება შეტყობინების ფანჯარა, რომელიც აჩვენებს ბოლო რიგის ნომერს.
დასკვნა
ამ სტატიაში მე ავხსენი 5 გზა VBA ექსელში ბოლო მწკრივის მოსაძებნად. ბოლო რიგის მოსაძებნად შეგიძლიათ მიჰყვეთ რომელიმე მეთოდს. თუ თქვენ გაქვთ რაიმე დაბნეულობა ან შეკითხვა ამ მეთოდებთან დაკავშირებით, შეგიძლიათკომენტარი ქვემოთ.
