Бид Excel-ээс мөрийн дугаарыг олон аргаар олох боломжтой боловч VBA илүү олон функц, тохируулга санал болгодог. Үүний тусламжтайгаар бид мөрийн дугаарыг ухаалаг аргаар олох боломжтой. Өнөөдөр энэ нийтлэлд Excel программ дээр VBA ашиглан мөрийн дугаар олох 4 хэрэгтэй макро харуулах болно.

Дадлагын ажлын номыг татаж авах

Та эндээс Excel-ийн ажлын номыг үнэгүй татаж авах боломжтой. бие даан дадлага хийх.

Excel дээр VBA ашиглан мөрийн дугаар олох 4 макро

Өөр өөр бүс нутагт борлуулагчдын борлуулалтыг төлөөлөх аргуудыг судлахад ашиглах манай мэдээллийн багцтай танилцана уу.

Макро 1: Сонголтыг өөрчлөх замаар мөрийн дугаарыг олох VBA

Эхлээд бид Excel програмын VBA макро ашиглан дурын нүдийг сонгон мөрийн дугаарыг олох болно. Энэ нь хэрэв та зүгээр л ашигласан нүдийг сонговол макро нь мөрийн дугаарыг шууд харуулах болно гэсэн үг юм. Үүний тулд та кодуудыг модульд биш харин хуудсанд хадгалах хэрэгтэй.

Алхам:

• Баруун- хуудасны гарчиг дээр товшоод контекст цэснээс Код харах -г сонгоно уу.

• Дараа нь дараахыг бичнэ үү. дараах кодууд-

2024

• Дараа нь кодуудыг ажиллуулах шаардлагагүй, зүгээр л хуудас руугаа буцна уу.

Код задаргаа:

• Эхлээд би Private Sub процедурыг үүсгэсэн – Worksheet_SelectionChange .
• Дараа нь Rnumber хувьсагчийг гэж зарласан Бүхэл тоо .
• мөр нь идэвхтэй нүдний мөрийн дугаарыг тодорхойлно.
• Дараа нь Хэрэв хэллэг шалгана. Идэвхтэй нүд хоосон ч бай, үгүй ​​ч бай, дараа нь MsgBox гаралтыг харуулах болно.

• Одоо зүгээр л ашигласан нүдэн дээр дарахад энэ нь танд мөрийг харуулах болно. дугаар.

Дэлгэрэнгүй унших: Excel VBA: Баганаас мөр олох ба мөрийн дугаарыг буцаана

Макро 2: VBA ашиглан идэвхтэй нүдний мөрийн дугаарыг олоорой

Энэ макро нь манай хуудасны заасан нүдэнд байгаа идэвхтэй нүдний мөрийн дугаарыг буцаана. Тиймээс бид кодууддаа ажлын хуудасны нэр болон гаралтын нүдийг дурдах хэрэгтэй болно. Энд бид D14 нүдийг гаралтын нүд болгон ашиглах болно.

Алхам:

• ALT + F11<товчийг дарна уу. 2> дарж VBA цонхыг нээнэ үү.

• Дараа нь шинэ модуль оруулахын тулд дараахыг товшино уу: Оруулах > Модуль .

• Үүний дараа модуль-

6353

• -д дараах кодуудыг бичнэ үү. Дараа нь хуудас руугаа буцна уу.

Код задаргаа:

• Энд , Идэвхтэй_нүдний_мөр_тоо_ол() нь Дэд
• wSheet нь Ажлын хуудас
• гэж зарлагдсан. Дараа нь Set хэллэг нь идэвхтэй нүдийг сонгоно
• Муж гаралтын нүдэнд мөрийн дугаарыг буцаана.

• Одоо нүдийг сонгоод дараах байдлаар дарна уу: Хөгжүүлэгч >Макро .

• Макро харилцах цонхонд гарч ирсний дараа макро нэрийг сонгоод товчийг дарна уу. Ажиллуулах .

Удалгүй та сонгосон нүдний мөрийн дугаар манай гаралтын нүдэнд буцаж ирэхийг харах болно.

Та B8 нүд сонгогдсоныг харж болно, тиймээс 8 нь гаралт юм.

Дэлгэрэнгүй унших: Excel-ийн одоогийн нүдний эгнээний тоог хэрхэн авах вэ (4 хурдан арга)

Ижил төстэй уншилтууд

• Мөрийн тоог хэрхэн нэмэгдүүлэх вэ Excel-ийн Формула (6 тохиромжтой арга)
• Excel VBA ашиглан мужаас мөрийн дугаарыг авах (9 жишээ)
• Хэрхэн мөрийн дугаарыг буцаах вэ Excel-ийн нүдийг тааруулах (7 арга)
• Excel-ийн нүдний утгаас мөрийн дугаарыг хэрхэн авах вэ (5 арга)

Макро 3: Утга тааруулж мөрийн дугаарыг олох VBA

Хэрэв та утгыг хайж мөрийн дугаарыг олохыг хүсвэл энэ макро танд зориулагдсан болно. Та доорх зурагт үзүүлсэн шиг хайлтын утга болон баганын дугаарыг кодонд дурдах хэрэгтэй.

Алхам:

• Эхний алхамыг дагана уу. шинэ модуль оруулахын тулд өмнөх аргын хоёр алхамыг хийнэ.
• Дараа нь дараах кодуудыг оруулна уу-

5295

• Үүний дараа өөрийн гэсэн хаяг руу буцна уу. хуудас.

Код задаргаа:

• Энд, Мөр_Тохирох_утгыг олох() нь Дэд
• болон wBook болон wSheet гэж зарласан Ажлын хуудас ба fCell -г Муж гэж зарласан.
• wBook болон wSheet -г тохируулсан. ActiveWorkbook болон ActiveSheet -д зориулагдсан.
• Const нь хайлтын утгыг оруулах болно.
• Дараа нь Муж нь дурдсан баганаар утгыг хайх болно.
• Дараа нь Хэрэв болон Өөр хэллэг нь MsgBox ашиглан үр дүнг харуулах болно.

• Дараа нь өмнөх аргын 5 дахь алхмыг дагана уу Макро харилцах цонхыг нээнэ үү.
• <-г сонгоно уу. 1>макро нэр болон Ажиллуулах товчийг дарахад л болно.

Удахгүй мэдэгдлийн хайрцаг танд мөрийн дугаарыг харуулах болно.

Дэлгэрэнгүй унших: Excel VBA: Утгын мөрийн тоог буцаах (5 тохиромжтой арга)

Макро 4: Мөрийн дугаарыг олох товчлуур

Сүүлийн аргад бид VBA макро ашиглан мөрийн дугаарыг тодорхойлох хамгийн ухаалаг аргыг танд үзүүлэх болно. Бид товчлуур хийж, түүнтэй макро онооно. Бид товчлуур дээр дарахад бид мөрийн дугаар оруулахыг хүссэн хайлтын утгыг оруулах боломжтой оролтын хайрцаг нээгдэнэ. Өмнөх макро нь дурдсан баганаар хайлт хийх боломжтой боловч энэ макро нь хүснэгтийн хаана ч байсан дурын баганыг хайж болно.

Алхам:

• Дахин Шинэ модуль оруулахын тулд хоёр дахь аргын эхний хоёр алхмыг дагана уу .
• Дараа нь дараах кодуудыг оруулна уу-

8415

• Дараа нь буцаж очно уу. чинийхуудас.

Код задаргаа:

• Эхлээд би <үүсгэсэн. 1>Дэд процедур Find_Row_Number().
• Дараа нь mValue -г Мөр , мөр -г Муж гэж нэрлэсэн хоёр хувьсагчийг зарлав. .
• Дараа нь InputBox -г ашиглан утга оруулав.
• Дараа нь Set ба Хэрэв хэллэг хоосон биш бол мөрийн дугаарыг олох болно.
• Эцэст нь MsgBox гаралтыг харуулна.

• Дараа нь дээр дарна уу. Хөгжүүлэгч > оруулах ба Маягтыг хянах хэсгээс Товчлуур командыг сонгоно уу.

• Дараа нь Та курсороороо нэмэх тэмдэг авах бөгөөд хүссэн хэмжээгээрээ хуудас дээрээ товшиж хаана ч чирээд товшилтыг суллана.

• Хулгана гаргасны дараа Макро оноох харилцах цонх автоматаар нээгдэнэ.
• Кодод дурдсанчлан макро нэр -г сонгоно уу.
• Дараа нь OK товчийг дарна уу.

• Дараа нь товчлуур дээр хулганы баруун товчийг дараад Текст засах гэснийг сонгоно уу. товчлуурын нэрийг засварлахын тулд.

• Товчлуурын нэрийг бичээд, товчлуурын гадна талд товшиж нэр өөрчлөгдөнө.

• Одоо товчлуур дээр дарвал оруулах талбар нээгдэнэ.
• Эцэст нь хайлтын утгыг оруулаад дарна уу. За .

Одоо хараарай, таарсан мөрийн дугаарыг харуулж байна.утга.

Дэлгэрэнгүй унших: Баганаас мөр олох ба Excel-д мөрийн дугаарыг буцаана (7 арга)

Дүгнэлт

Энэ бол нийтлэлийн хувьд. Дээр тайлбарласан процедур нь VBA ашиглан Excel дээр мөрийн дугаарыг олоход хангалттай байх болно гэж найдаж байна. Сэтгэгдэл хэсэгт ямар ч асуулт асууж, надад санал хүсэлтээ үлдээнэ үү. ExcelWIKI-д зочилж илүү ихийг судлаарай.