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

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

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

4 მაკრო მწკრივის ნომრის მოსაძებნად VBA Excel-ში

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

მაკრო 1: VBA მწკრივის ნომრის მოსაძებნად შერჩევის შეცვლით

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

ნაბიჯები:

• მარჯვნივ- დააწკაპუნეთ ფურცლის სათაურზე და აირჩიეთ კოდის ნახვა კონტექსტური მენიუდან .

• შემდეგ ჩაწერეთ შემდეგი კოდები-

1783

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

კოდის დაყოფა:

• პირველ რიგში, შევქმენი პირადი სუბ პროცედურა – სამუშაო ფურცლის_არჩევის შეცვლა .
• შემდეგ გამოცხადდა ცვლადი Rnumber როგორც მთელი .
• სტრიქონი განსაზღვრავს აქტიური უჯრედის მწკრივის ნომერს.
• შემდეგ, If განცხადება შეამოწმებს აქტიური უჯრედი ცარიელია თუ არა, და შემდეგ MsgBox აჩვენებს გამოსავალს.

• ახლა უბრალოდ დააწკაპუნეთ ნებისმიერ გამოყენებულ უჯრედზე და ის გაჩვენებთ მწკრივს. ნომერი.

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

მაკრო 2: იპოვეთ აქტიური უჯრედის მწკრივის ნომერი VBA გამოყენებით

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

ნაბიჯები:

• დააჭირეთ ALT + F11 VBA ფანჯრის გასახსნელად .

• შემდეგი, დააწკაპუნეთ შემდეგნაირად ახალი მოდულის ჩასართავად: ჩასმა > მოდული .

• ამის შემდეგ ჩაწერეთ შემდეგი კოდები მოდულში-

7941

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

კოდის დაყოფა:

• აქ , Find_Row_Number_of_an_Active_Cell() არის Sub
• wSheet გამოცხადებულია Worksheet
• შემდეგ განცხადება Set შეარჩევს აქტიურ უჯრედს
• Range დააბრუნებს მწკრივის ნომერს გამომავალ უჯრედში.

• ახლა აირჩიეთ უჯრედი და დააწკაპუნეთ შემდეგნაირად: დეველოპერი >მაკრო .

• Macro დიალოგურ ფანჯარაში გამოჩენის შემდეგ უბრალოდ აირჩიეთ მაკროს სახელი და დააჭირეთ გაუშვით .

მალევე ნახავთ, რომ არჩეული უჯრედის რიგის ნომერი დაბრუნდა ჩვენს გამომავალ უჯრედში.

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

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

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

• როგორ გავზარდოთ მწკრივის ნომერი Excel ფორმულა (6 მოსახერხებელი გზა)
• მიიღეთ რიგის ნომერი დიაპაზონიდან Excel VBA-ით (9 მაგალითი)
• როგორ დავაბრუნოთ მწკრივის ნომერი Cell Match in Excel (7 მეთოდი)
• როგორ მივიღოთ მწკრივის ნომერი უჯრედის მნიშვნელობიდან Excel-ში (5 მეთოდი)

მაკრო 3: VBA მწკრივის ნომრის პოვნა მნიშვნელობის შესატყვისით

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

ნაბიჯები:

• მიჰყევით პირველს ორი ნაბიჯი წინა მეთოდიდან ახალი მოდულის ჩასართავად.
• შემდეგ, ჩადეთ მასში შემდეგი კოდები-

1147

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

კოდის დაყოფა:

• აქ Find_Row_Matching_a_Value() არის Sub
• და wBook და wSheet გამოცხადებულია როგორც Worksheet და fCell გამოცხადებულია Range .
• wBook და wSheet დაყენებულია ActiveWorkbook და ActiveSheet -ისთვის.
• Const მიიღებს შენატანს საძიებო მნიშვნელობისთვის.
• მოგვიანებით, Range მოიძიებს მნიშვნელობას აღნიშნული სვეტის მეშვეობით.
• შემდეგ, If და Else დებულებები აჩვენებს შედეგს MsgBox გამოყენებით.

• მოგვიანებით, მიჰყევით მე-5 საფეხურს წინა მეთოდიდან რათა გახსნათ Macro დიალოგური ფანჯარა.
• აირჩიეთ მაკროს სახელი და უბრალოდ დააჭირეთ Run .

მალე შეტყობინების ყუთი გაჩვენებთ რიგის ნომერს.

დაწვრილებით: Excel VBA: დაბრუნების რიგის მნიშვნელობის რაოდენობა (5 შესაფერისი მეთოდი)

მაკრო 4: ღილაკი მწკრივის ნომრის მოსაძებნად

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

ნაბიჯები:

• ისევ მიჰყევით პირველ ორ ნაბიჯს მეორე მეთოდიდან ახალი მოდულის ჩასართავად.
• შემდეგ, ჩადეთ მასში შემდეგი კოდები-

9143

• შემდეგ დაბრუნდით შენიფურცელი.

კოდის დაყოფა:

• პირველ რიგში შევქმენი Sub პროცედურა Find_Row_Number().
• შემდეგ გამოცხადდა ორი ცვლადი, mValue როგორც String და row როგორც Range .
• შემდეგ გამოიყენეთ InputBox მნიშვნელობის ჩასასმელად.
• მოგვიანებით, Set და If განცხადება იპოვის მწკრივის ნომერს, თუ ის ცარიელი არ არის.
• საბოლოოდ, MsgBox გამოჩნდება გამოსავალი.

• მოგვიანებით დააწკაპუნეთ დეველოპერი > ჩასვით და შემდეგ აირჩიეთ ღილაკი ბრძანება ფორმის კონტროლის განყოფილებიდან .

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

• შემდეგი, დააჭირეთ ღილაკს მარჯვენა ღილაკით და აირჩიეთ ტექსტის რედაქტირება ღილაკის სახელის შესაცვლელად.

• აკრიფეთ ღილაკის სახელი, შემდეგ დააწკაპუნეთ ნებისმიერ ადგილას ღილაკის გარეთ და სახელი შეიცვლება.

კარგი .

ახლა შეხედეთ, ნაჩვენებია შესატყვისი რიგის ნომერიმნიშვნელობა.

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

დასკვნა

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