Біз Excel бағдарламасында жол нөмірлерін көптеген жолдар арқылы таба аламыз, бірақ VBA көбірек мүмкіндіктер мен теңшеулерді ұсынады. Оның көмегімен біз жол нөмірлерін ақылды түрде таба аламыз. Бүгін бұл мақалада VBA көмегімен Excel бағдарламасында жол нөмірін табу үшін 4 пайдалы макрос көрсетіледі.

Тәжірибе жұмыс кітабын жүктеп алу

Тегін Excel жұмыс кітабын осы жерден жүктеп алуға болады және дербес жаттығу.

Excel бағдарламасында VBA пайдалану арқылы жол нөмірін табу үшін 4 макро

Әртүрлі аймақтардағы кейбір сатушы сатуларын көрсететін әдістерді зерттеу үшін қолданатын деректер жиынымен танысыңыз.

1-макрос: Таңдауды өзгерту арқылы жол нөмірін табу үшін VBA

Біріншіден, Excel бағдарламасындағы макросты VBA кез келген ұяшықты таңдау арқылы жол нөмірін табу үшін қолданамыз. Бұл кез келген пайдаланылған ұяшықты таңдасаңыз, макрос жол нөмірін бірден көрсетеді. Ол үшін кодтарды модульде емес, парақта сақтау керек.

Қадамдар:

• Оң- парақ тақырыбын басыңыз және контекстік мәзірден Кодты қарау таңдаңыз.

• Содан кейін мынаны жазыңыз келесі кодтар-

5950

• Кейінірек кодтарды іске қосудың қажеті жоқ, жай ғана парағыңызға оралыңыз.

Кодтың бөлінуі:

• Біріншіден, мен Жеке ішкі процедурасын жасадым – Жұмыс парағының_таңдауынөзгерту .
• Содан кейін Rnumber айнымалысы ретінде жарияланды Бүтін .
• жол белсенді ұяшықтың жол нөмірін анықтайды.
• Одан әрі Егер операторы тексереді белсенді ұяшық бос па, жоқ па, сосын MsgBox шығысты көрсетеді.

• Енді кез келген пайдаланылған ұяшықты нұқыңыз, ол сізге жолды көрсетеді. саны.

Толығырақ оқу: Excel VBA: бағандағы жолды табу және жол нөмірін қайтару

2-макрос: VBA көмегімен белсенді ұяшықтың жол нөмірін табыңыз

Бұл макрос парақтың көрсетілген ұяшығындағы белсенді ұяшықтың жол нөмірін қайтарады. Сонымен, кодтарымызда жұмыс парағының атауы мен шығыс ұяшығын атап өтуіміз керек. Мұнда шығыс ұяшығы ретінде D14 ұяшығын қолданамыз.

Қадамдар:

• ALT + F11<пернелерін басыңыз. 2> VBA терезесін ашу үшін.

• Одан әрі жаңа модульді кірістіру үшін келесіні басыңыз: Кірістіру > Модуль .

• Одан кейін модульде келесі кодтарды теріңіз-

7996

• Содан кейін парағыңызға оралыңыз.

Кодтың бөлінуі:

• Осы жерде , Белсенді_ұяшықтың_жолын_табыңыз() - Ішкі
• wSheet Жұмыс парағы
• ретінде жарияланған Содан кейін Set операторы белсенді ұяшықты таңдайды
• Ауқым шығыс ұяшығындағы жол нөмірін қайтарады.

• Енді ұяшықты таңдап, келесідей басыңыз: Әзірлеуші ​​>Макростар .

• Макро тілқатысу терезесінде пайда болғаннан кейін жай ғана макрос атын таңдап, түймесін басыңыз. Орындау .

Көп ұзамай сіз таңдалған ұяшықтың жол нөмірі шығыс ұяшықта қайтарылғанын көресіз.

Сіз B8 ұяшығының таңдалғанын көре аласыз, сондықтан 8 - шығыс.

Толығырақ оқу: Excel бағдарламасында ағымдағы ұяшықтың жол санын қалай алуға болады (4 жылдам әдіс)

Ұқсас көрсеткіштер

• Жол санын қалай көбейтуге болады Excel формуласы (6 ыңғайлы әдіс)
• Excel VBA көмегімен ауқымнан жол нөмірін алу (9 мысал)
• Жол нөмірін қайтару жолы Excel бағдарламасындағы ұяшықтарды сәйкестендіру (7 әдіс)
• Excel бағдарламасындағы ұяшық мәнінен жол нөмірін алу жолы (5 әдіс)

Макрос 3: мәнді сәйкестендіру арқылы жол нөмірін табу үшін VBA

Егер мәнді іздеу арқылы жол нөмірін тапқыңыз келсе, бұл макрос сізге арналған. Төмендегі суретте көрсетілгендей кодтарда іздеу мәні мен баған нөмірін атап өтуіңіз керек.

Қадамдар:

• Біріншіні орындаңыз жаңа модульді кірістіру үшін алдыңғы әдістен екі қадам .
• Содан кейін оған келесі кодтарды енгізіңіз-

8068

• Осыдан кейін өзіңіздің компьютеріңізге оралыңыз. парақ.

Кодтың бөлінуі:

• Мұнда, Find_Row_Matching_a_Value() бұл Sub
• Және wBook және wSheet ретінде жарияланады Жұмыс парағы және fCell Ауқым ретінде жарияланған.
• wBook және wSheet орнатылған ActiveWorkbook және ActiveSheet үшін.
• Const іздеу мәні үшін енгізуді қабылдайды.
• Кейінірек, Ауқым аталған баған арқылы мәнді іздейді.
• Кейін, Егер және Басқа операторы MsgBox көмегімен нәтижені көрсетеді.

• Кейін, Макрос диалогтық терезені ашу үшін алдыңғы әдістен 5-қадамды орындаңыз.
• макрос атауы және Орындау түймесін басыңыз.

Жақында хабарландыру терезесі жол нөмірін көрсетеді.

Толығырақ оқу: Excel VBA: мәннің қайтару жолы (5 қолайлы әдіс)

Макрос 4: Жол нөмірін табу түймесі

Соңғы әдісімізде VBA макростары арқылы жол нөмірін анықтаудың ең ақылды әдісін көрсетеміз. Біз түймені жасаймыз және онымен макрос тағайындаймыз. Түймені басқан кезде, ол енгізу жолағын ашады, онда біз жол нөмірін қажет ететін іздеу мәнін енгізуге болады. Алдыңғы макрос аталған баған арқылы іздей алады, бірақ бұл макрос парақтың кез келген жерінен кез келген бағанды ​​іздей алады.

Қадамдар:

• Қайтадан жаңа модульді кірістіру үшін екінші әдістің алғашқы екі қадамын орындаңыз.
• Кейін оған келесі кодтарды енгізіңіз-

4818

• Содан кейін қайтып оралыңыз сіздіңпарақ.

Кодты бөлу:

• Біріншіден, мен Қосымша процедурасы Find_Row_Number().
• Содан кейін екі айнымалы, mValue Жол және жол Ауқым ретінде жарияланды. .
• Содан кейін мәнді енгізу үшін InputBox пайдаланылды.
• Кейінірек Set және If операторы бос болмаса, жол нөмірін табады.
• Соңында MsgBox шығысты көрсетеді.

• Кейінірек түймесін басыңыз. Әзірлеуші ​​> Кірістіру , содан кейін Пішін басқару элементтері бөлімінен Түймелік пәрменін таңдаңыз.

• Одан кейін курсормен қосу белгісін аласыз, парақты қалаған өлшеміңізге сәйкес басу арқылы кез келген жерге сүйреңіз, содан кейін шертуді босатыңыз.

• Тінтуірді жібергеннен кейін Макросты тағайындау диалогтық терезесі автоматты түрде ашылады.
• Кодтарда айтылғандай макрос атауын таңдаңыз.
• Одан кейін жай ғана OK түймесін басыңыз.

• Келесі, түймені тінтуірдің оң жақ түймешігімен басып, Мәтінді өңдеу пәрменін таңдаңыз. түйменің атын өңдеу үшін.

• Түйменің атын теріңіз, одан кейін түйменің сыртындағы кез келген жерді басыңыз, сонда атау өзгертіледі.

• Енді түймені басыңыз, ол енгізу жолағын ашады.
• Соңында, іздеу мәнін енгізіп, түймесін басыңыз. Жарайды .

Енді қараңыз, ол сәйкес жолдың нөмірін көрсетедімән.

Толығырақ оқу: Бағандағы жолды табу және Excel бағдарламасындағы жол нөмірін қайтару (7 әдіс)

Қорытынды

Барлығы мақала үшін. Жоғарыда сипатталған процедуралар VBA көмегімен Excel бағдарламасында жол нөмірін табу үшін жеткілікті жақсы болады деп үміттенемін. Түсініктеме бөлімінде кез келген сұрақ қойыңыз және маған кері байланыс беріңіз. Қосымша мәліметтер алу үшін ExcelWIKI сайтына кіріңіз.