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

Ажиллах номыг татаж авах

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

Excel-д хүснэгтийн мөр хооронд давталт хийх VBA-тай 11 арга

Энэ хэсгийг даган та хүснэгтийн мөрүүдийг 11 өөр аргаар хэрхэн давтахыг сурах болно. Excel-ийн VBA макро ашиглан хоосон нүд хүртэл мөр хооронд давталт хийх, тодорхой утга олдох хүртэл мөр хооронд давталт хийх, мөр хооронд давталт хийх, тодорхой нүдийг будах гэх мэт.

Дээрх нь аргуудыг тайлбарлахын тулд энэ нийтлэлд дагаж мөрдөх өгөгдлийн багцын жишээ юм.

1. Хүснэгтийн мөр бүрийн нүдийг нүдний лавлагааны дугаараар оруулахын тулд VBA-г оруулна уу

Хэрэв та Excel-ийн ажлын хуудсан дээрх хүснэгтийн мөр бүрийн нүд бүрийг гүйлгэхийг хүсвэл нүдний лавлагааны дугаарыг буцаах утга болгон аваад доор авч үзсэн алхмуудыг дагана уу.

Алхам:

• Эхэндээ , гар дээрх Alt + F11 товчийг дарна уухувьсагч.

5893

Энэ кодын хэсэг нь 1-ээс 15 хүртэлх мөр хооронд давталт хийхэд зориулагдсан. Хэрэв энэ нь тодорхой " Эдж " үгийг олвол тухайн үгийг агуулсан нүдийг өнгөөр ​​будна. Энэ нь үг хайхдаа 1-ээс 15-р мөр хүртэлх бүх өгөгдлийг сканнердаж дуусах хүртлээ үүнийг үргэлжлүүлэн хийнэ.

Дэлгэрэнгүй унших: Үндэслэн VLOOKUP Хүснэгтийн массивыг хэрхэн ашиглах талаар Excel-ийн нүдний утга

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

• TABLE функц Excel-д байдаг уу?
• Хэрхэн Excel-д хүснэгтийг жагсаалт болгон хөрвүүлэх (3 хурдан арга)
• Excel дээр мужийг хүснэгт болгон хөрвүүлэх (5 хялбар арга)
• Excel хүснэгтэд томьёог үр дүнтэй ашиглах (4 жишээтэй)
• Excel хүснэгтийн нэр: Таны мэдэх ёстой бүх зүйл

7. Excel програмын мөр бүрээр давталт хийх, сондгой мөр бүрийг будахын тулд VBA-г хэрэгжүүлэх

Өмнөх хэсгээс бид тодорхой утгыг агуулсан нүдийг хэрхэн өнгөөр ​​будаж сурсан. Энэ хэсэгт бид Excel програмын VBA макро ашиглан хүснэгтийн мөр бүрийг давтаж, сондгой мөр бүрийг өнгөөр ​​будаж сурах болно.

Процессыг гүйцэтгэх алхамууд доор тайлбарласан болно.

Алхамууд:

• Өмнө нь харуулсанчлан Хөгжүүлэгчээс Visual Basic Editor -г нээнэ үү. tab болон Insert a Module -г кодын цонхонд хийнэ.
• Дараа нь дараах кодыг хуулж хуулбар хийнэ. кодын цонх.

6273

Таны код одоо ажиллахад бэлэн боллоо.

• Одоо, Макро ажиллуулаад дараах зургийг харна уу.

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

VBA кодын тайлбар

4477

Хувьсагчийг тодорхойл.

2174

Бидний ажиллах мужийг тодорхойл.

2098

Кодны энэ хэсэг нь одоогийн мөрийн дараагийн мөр болох B4<эхлэн бүх мөрийг давтахыг хэлнэ. 25>. Хэрэв мөрийн дугаарыг 2-т хуваах горим нь бүхэл тоонд хадгалагдсан буцаасан мөрийн дугаартай тэнцүү бол энэ код нь кодонд өгөгдсөн Өнгөний индексээр тооцоолсноор гаргаж авсан бүх мөрийг өнгөөр ​​будна. Энэ нь хүрээний төгсгөлд хүрэх хүртлээ бүх эгнээгээр хөдөлдөг.

8. Excel-д мөр хооронд давталт хийх, тэгш мөр бүрийг будахын тулд VBA-г хэрэгжүүлэх

Өмнөх хэсэгт бид хүснэгтийн сондгой мөр бүрийг хэрхэн өнгөөр ​​будаж сурсан. Энэ хэсэгт бид Excel-ийн VBA макро ашиглан хүснэгтийн мөр бүрийг давтаж, тэгш мөр бүрийг өнгөөр ​​будаж сурах болно.

Процессыг гүйцэтгэх алхмуудыг доор авч үзнэ.

Алхам:

• Эхлээд Хөгжүүлэгч табаас Visual Basic Editor -г нээж Оруулах a Модуль -г кодын цонхонд хийнэ.
• Дараа нь дараах кодыг хуулж буулгах -ыг кодын цонхонд хийнэ.

2388

Таны код одоо бэлэн боллооажиллуул.

• Дараа нь макро ажил хийгээд үр дүнг харахын тулд дараах зургийг харна уу.

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

VBA кодын тайлбар

2475

Хувьсагчийг тодорхойл.

8769

Бидний ажиллах мужийг тодорхойл.

3408

Энэ кодын хэсэг нь дараа нь давтаж эхэлнэ. одоогийн мөрийн гурван мөр, B4 . Энэ нь эхлээд үүнийг будаж, дараа нь мөрийн тоог 2-оор нэмэгдүүлж, өгөгдлийн багцын сүүлчийн мөрөнд хүрэх хүртэл үргэлжлүүлэн будна.

9. Excel-ийн хоосон нүд хүртэл мөр хооронд давтахын тулд макро ашиглах

Хэрвээ та өөрийн кодыг хүснэгтийн бүх мөрөнд эргэлдэж, хоосон нүдэнд хүрэх үед зогсох мэт ажиллахыг хүсвэл , тэгвэл энэ хэсэг танд зориулагдсан болно. Та Excel-ийн VBA дээрх FOR Loop болон Do-Until Loop -ээр хоёуланг нь гүйцэтгэж болно.

9.1. FOR давталттай

VBA Excel-ийн FOR давталт -тай хоосон нүд гарч ирэх хүртэл хүснэгтийн мөр хоорондын хүртэлх алхмуудыг доор өгөв.

Алхам:

• Эхлээд Хөгжүүлэгч табаас Visual Basic Editor -г нээж, Оруулах -г нээнэ үү. кодын цонхонд Модуль .
• Үүний дараа дараах кодыг хуулж хуулбар кодын цонхонд оруулна.

2856

Таны код одоо ажиллахад бэлэн боллоо.

• Дараа нь Ажиллуулах макро бөгөөд үр дүнг доорх gif-д харуулав.

Макро ажиллуулсны дараа хүснэгтийн бүх мөрийг давтаж эхэлсэн мөн хоосон нүд В8 -д хүрмэгц давталтыг зогсоов .

VBA кодын тайлбар

4636

Хувьсагчийг тодорхойл.

5055

Дэлгэц шинэчлэх үйл явдлыг унтраа.

2118

B4 нүднээс сүүлчийнх хүртэл бүх мөрийг хадгал.

8839

B4 нүдийг сонго.

6707

Энэ кодын хэсэг бүх мөрийг давж эхэлнэ. Дараалсан хоосон нүдийг олсны дараа түүнийг сонгоод төгсгөлд нь хүрэх хүртэл мөрүүдийг үргэлжлүүлэн скан хийнэ.

9975

Дэлгэц шинэчлэх үйлдлийг асаана уу.

9.2. Do-Until давталттай

VBA доторх Do-Until давталт бүхий хоосон нүдийг доор өгтөл мөр дундуур давталт хийх алхмуудыг доор өгөв.

Алхам:

• Эхлээд Хөгжүүлэгч табаас Visual Basic Editor -г нээж, Оруулах a Модуль -г кодын цонхонд оруулна.
• Дараа нь дараах кодыг хуулж хуулбар кодын цонхонд оруулна.

8360

Таны кодыг ажиллуулахад бэлэн боллоо.

• Дараа нь макро ажиллуулна уу. Үр дүнг дараах gif-д үзүүлэв.

Макро ажиллуулсны дараа энэ нь хүснэгтийн бүх мөрийг хэвлэн нэг удаа давтаж эхэлсэн. энэ нь хоосон нүд, B8 нүд рүү хүрч, давталтыг зогсоосон .

VBA кодТайлбар

3197

Бидний ажиллах нүдийг сонгоно уу.

9589

Хоосон нүд олдох хүртэл давталтыг эхлүүлж, үргэлжлүүлнэ.

9702

Хоосон нүд байх үед дараалан олоод сонгоод давталтыг зогсоо.

10. Excel-ийн олон хоосон нүд хүртэл мөр хооронд давтах VBA макро

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

Хүснэгт дотор олон хоосон нүд олдох хүртэл мөр дундуур давталт хийх алхмууд VBA Excel-тэй доор харуулав.

Алхам:

• Эхлээд Visual Basic Editor -г нээнэ үү. Хөгжүүлэгч таб болон Оруулах -ыг кодын цонхонд Модуль хийнэ үү.
• Дараа нь дараах кодыг хуулах ба кодын цонхонд буулгана уу.

7794

Таны код ажиллахад бэлэн боллоо.

• Одоо, Макро -г ажиллуулаад дараах gif-г харна уу.

Макро ажиллуулсны дараа зогссонгүй. эхний хоосон нүд, B8 нүд. Энэ нь В16 нүдэн дээр дараалсан хоёр хоосон нүдийг олоход зогссон.

VBA кодын тайлбар

3456

Нүдийг сонгоно уу Бид дараахаас ажиллах болно.

9942

Дараалсан хоёр хоосон нүд олдох хүртэл давталтыг эхлүүлж, үргэлжлүүлнэ.

8653

Дараалсан хоёр хоосон нүд олдох үед, дараа ньсонгоод давталтыг зогсоо.

11. Excel-ийн бүх баганыг хоосон болтол нь хооронд нь холбох замаар VBA-г оруулах

Энэ хэсэг нь хүснэгтийн бүх мөрүүдийг хооронд нь эргүүлж, хоосон нүд хүртэл бүх баганыг хооронд нь холбох аргыг харуулах болно. нь VBA Excel дээр олддог.

Үүнийг Excel-ийн VBA макро ашиглан хэрхэн хийхийг сурцгаая.

Алхам:

• Эхлээд Хөгжүүлэгч табаас Visual Basic Editor -г нээгээд Оруулах Модуль кодын цонхонд.
• Дараа нь дараах кодыг хуулж хийгээд кодын цонхонд наа хийнэ үү.

9313

Таны код одоо ажиллахад бэлэн боллоо.

• Дараа нь макро ажиллуулаад үр дүнг дараах gif-ээс харна уу.

Дээрх gif-ээс харахад MsgBox гарч ирэх цонхонд байгаа бүх баганын холбогдсон утгыг харуулдаг. Excel ажлын хуудасны хүснэгтээс мөр . Гэвч хоосон нүдэнд хүрмэгцээ зогссон .

VBA кодын тайлбар

3275

Хувьсагчдыг тодорхойл.

4852

Бидний ажиллах хуудасны нэрийг тохируулна уу (“ ConcatenatingAllColUntilBlank ” нь ажлын дэвтэр дэх хуудасны нэр).

1698

Бидний ажиллах мужийг тодорхойл.

2174

Энэ кодын хэсэг нь массиваар давталтыг эхлүүлнэ. Энэ нь массивын хамгийн том дэд тэмдэг болон доод хязгаарыг буцаах хүртлээ давталт хийсээр байнаэхний хэмжээс. Дараа нь хоёр дахь хэмжээсийн доод хязгаарыг задлах давталтад орно. Үүний дараа энэ нь iResult хувьсагчийн бүх задлагдсан утгуудыг нэгтгэж, үр дүнг MsgBox-д шидэх замаар дамжуулдаг. Энэ нь хоосон нүд олох хүртлээ үүнийг хийсээр байх болно.

Дүгнэлт

Дүгнэсгэхийн тулд энэ нийтлэл танд мөр дундуур давтах 11 үр дүнтэй аргыг харуулсан болно. Excel дээрх VBA макро бүхий хүснэгтийн . Энэ нийтлэл танд маш их ашиг тустай байсан гэж найдаж байна. Сэдвийн талаар асуух зүйлээ чөлөөтэй асуугаарай.

• Дараа нь гарч ирэх код цонхонд, цэсийн мөрөнд Insert -> Модуль .

• Дараа нь дараах кодыг хуулж код руу буулгана уу. цонх.

1295

Таны кодыг ажиллуулахад бэлэн боллоо.

• Одоо өөрийн гар дээрх F5 товчийг дарна уу. гар эсвэл цэсийн мөрнөөс Run -> Sub/UserForm -г ажиллуул. Та мөн макро ажиллуулахын тулд дэд цэсний жижиг Тоглуулах дүрс дээр дарж болно.

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

Код амжилттай хэрэгжсэний дараа үр дүнг харахын тулд дээрх gif-г харна уу. MsgBox гарч ирэх бөгөөд таны Excel хуудасны хүснэгтийн мөр бүрийн нүд бүрийн нүдний лавлагааны дугаарыг харуулах болно.

VBA кодын тайлбар

3436

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

6671

Бидний өгөгдөл эхэлдэг 4-р мөрийг тохируулна уу.

8655

Эхний эгнээнээс давталт хийх.

1860

Бидний өгөгдөл эхэлдэг 2-р баганыг тохируулна уу.

4283

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

5908

Эхний мөрөөс сүүлчийн мөр хүртэл баганыг давтахыг нэмэгдүүлнэ.

1287

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

Дэлгэрэнгүй унших: Excel хүснэгтэд хэрхэн автоматаар шинэ мөр нэмэх вэ

2 . VBA-г мөр бүрт нүд бүрийг утгаараа давталт хийх

Хэрэв та хүснэгтийн мөр бүрийн нүд бүрийг гүйлгэж, нүдэнд байгаа утгыг буцаах утга болгон шидэхийг хүсвэл. , дараа нь энэ хэсэг танд үүнийг VBA Excel-ээр хэрхэн хийхийг ойлгоход тусална.

Та үүнийг ListObject болон <1-ээр хийж болно. VBA -н>DataBodyRange шинж чанар. Бид макро кодыг объект болон шинж чанарын аль алинаар нь харуулах болно.

2.1. ListObject

Excel-ийн ListObject -ийн тусламжтайгаар хүснэгтийн мөр бүрийн нүд бүрийг нүднүүдийн утгаараа хүргэх алхмуудыг доор өгөв.

Алхам:

• Өмнө нь адил арга замаар Хөгжүүлэгч табаас Visual Basic Editor -г нээгээд Код цонхонд Модуль оруулна.
• Дараа нь кодын цонхонд дараах кодыг хуулж хуулбар хийнэ. үүнийг.

4726

Таны код одоо ажиллахад бэлэн байна.

• Үүний дараа макро ажиллуулна уу. Бид дээрх хэсэгт үзүүлсэн шиг. Үр дүнг gif дээр харуулавдоор.

MsgBox гарч ирэх мөр бүрээс нүд бүрт авчрах утгыг харуулах болно>өөрийн Excel хуудасны хүснэгтээс.

VBA кодын тайлбар

9763

Хувьсагчдыг тодорхойл.

7297

Энэ хэсэг код нь эхлээд хүснэгтийн мөрүүдээр дамжиж эхэлдэг (“ TblStudents ” нь бидний хүснэгтийн нэр). Дараа нь мөр бүрт багана оруулна. Үүний дараа нүдний утгыг MsgBox-д оруулна. Дараа нь дараагийн багана руу очно уу. Нэг мөрийн бүх баганыг давтаж дууссаны дараа дараагийн эгнээнд шилжиж, сүүлийн мөр хүртэл давталтын процессыг үргэлжлүүлнэ.

2.2. DataBodyRange Property

Хүснэгтээс гаргаж авсан өгөгдлүүдийг илүү тодорхой болгохын тулд та ListObject -ийн DataBodyRange шинж чанарыг ашиглаж болно. DataBodyRange шинж чанар нь толгойн мөр болон оруулах мөрийн хоорондох жагсаалтын мужийг агуулсан үр дүнг танд харуулах болно.

Мөр бүрийн нүд бүрийг хэрхэн гуулж болох тухай алхмууд. VBA Excel-ийн DataBodyRange бүхий хүснэгтийн нүднүүдийн утгыг доор өгөв.

Алхам:

• Зурагт үзүүлснээр өмнө Хөгжүүлэгч табаас Visual Basic Editor -г нээж, кодын цонхонд Оруулах Модуль хийнэ.
• Дараа нь , хуулбар дараах кодыг хуулж кодын цонхонд оруулна.

2005

Таны код одоо ажиллахад бэлэн боллоо.

• Дараа нь, Макро ажиллуулаад дараах gif-г харан гаралтыг харна уу.

Попап MsgBox<байх болно. 2> таны Excel хуудасны хүснэгтийн мөр бүрийн нүд бүрийн утгыг харуулж байна.

VBA кодын тайлбар

2256

Хувьсагчийг тодорхойл.

5908

Энэ кодын хэсэг нь эхлээд хүснэгтийн мөрүүдийн дундуур давталт хийж эхэлдэг (“ TblStdnt ” нь бидний хүснэгтийн нэр) бөгөөд дараах утгыг оруулахгүй. хүснэгтийн толгойн мөр. Дараа нь мужын утгыг MsgBox-д оруулна. Дараа нь дараагийн мөрөнд очиж мужийг задлах ба давталтын процессыг сүүлчийн мөр хүртэл үргэлжлүүлнэ.

3. Excel-ийн баганыг хооронд нь холбох замаар мөр хооронд давтахын тулд VBA макро хэрэглэх

Энэ хэсэг нь хүснэгт дэх багануудыг эхний баганатай өгөгдлийн багцын хооронд холбох замаар хэрхэн мөр хооронд давтахыг харуулах болно. Excel-д.

Жишээ нь, бид өгөгдлийн багцын хувьд эхлээд John B5 болон 101-ийг C5 нүдэн дээр холбож, дараа нь давтах болно. B5 нүдэн дэх Жон ба D5 нүдэнд 89-ийг 5-р мөр -ээс холбоно.

Танд үүнийг хэрхэн хийхийг зааж өгье. Excel дээрх VBA макро.

Алхам:

• Эхлээд Visual Basic Editor -г Хөгжүүлэгч таб болон кодын цонхонд Оруулах a Модуль .
• Хоёрдугаарт, кодын цонхонд хуулбар дараахыг хийнэ үү. код наа.

2131

Таны код одоо ажиллахад бэлэн боллоо.

• Гуравдугаарт, <1 Макро ажиллуулна уу. Үр дүнг харахын тулд доорх gif-г харна уу.

MsgBox гарч ирэх холбосон утгыг харуулах болно. эхний болон хоёр дахь баганын нүднүүдийн ( В баганын В5 нүдэнд Жон, С баганын C5 нүдний 101) ба дараа нь холбогдсон утга эхний болон гурав дахь баганын нүднүүдийн ( В5 баганын Жон баганын, 89-ийн D5 баганын D ) мөрийн дугаар 5 таны мэдээллийн багцаас. Мөн энэ холболтын үйлдэл нь хүснэгтийн сүүлчийн мөрөнд хүрэх хүртэл үргэлжлэх болно.

VBA кодын тайлбар

8746

Хувьсагчийг тодорхойл.

7561

Дараа нь код нь идэвхтэй хуудаснаас хүснэгтийг сонгоно (“ TblConcatenate ” манай хүснэгтийн нэр).

6478

Үүний дараа мөр бүрийг толгой хэсгийг оруулахгүйгээр давтаж эхэлнэ. багана. Хэрэв давталт нь баганын толгой ба мөрүүдийн хооронд тохирохыг олсон бол энэ утгыг iValue хувьсагчид хадгална.

8103

Хэрэв дээрх нөхцөл биелээгүй бол дараа нь код нь утгыг MsgBox-д шидэж, нөхцөлийг дуусгана. Үүний дараа энэ нь өөр мужид давталт руу шилжиж, төгсгөлийн эгнээ хүртэл давталтыг үргэлжлүүлнэ. Төгсгөлийн эгнээнд хүрмэгц макро нь кодын гүйцэтгэлийг дуусгана.

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

Энэ хэсэгт бид өгөгдлийн багц дахь мөр тус бүрд байгаа бүх баганыг хэрхэн -ээр холбох талаар сурах болно. Excel дээрх VBA макро.

Гүйцэтгэх алхмуудыг доор харуулав.

Алхам:

• Эхлээд <нээнэ үү. 1>Visual Basic Editor -г Developer табаас Insert a Module -г кодын цонхонд оруулна.
• Дараа нь дараах кодыг хуулж хуулснаар кодын цонхонд оруулна.

4235

Таны код одоо ажиллахад бэлэн боллоо.

• Дараа нь макро кодыг ажиллуулна .

Дээрх gif-ээс харж байгаагаар энд байна. MsgBox гарч ирэх бөгөөд таны Excel-ийн ажлын хүснэгтийн мөр бүрт байгаа бүх баганын холбосон утгыг харуулдаг.

VBA кодын тайлбар

4640

Хувьсагчдыг тодорхойл.

7924

Бидний ажиллах хуудасны нэрийг тохируулна уу (“ ConcatenatingAllCol ” нь хуудасны нэр ажлын дэвтэрт).

7136

Дэ бидний ажиллах хүснэгтийн нэрийг нарийн бичнэ үү (“ TblConcatenateAll ” нь манай өгөгдлийн багц дахь хүснэгтийн нэр).

9518

Хүснэгтийн мөр бүрээр давталт хийж эхэлнэ.

9095

Хүснэгтийн мөр бүрийн багана бүрээр давталт хийж эхэлнэ.

6250

Мөр бүрийн багана тус бүрд байгаа утгуудыг огтолж үр дүнг хадгална. Мөр бүрт байрлах бүх баганыг сканнердсаны дараа энэ нь өнгөрөвүр дүнд нь MsgBox гарч ирнэ. Дараа нь дараагийн мөрөнд дахин давталт хийж, хүснэгтийн сүүлчийн мөрөнд хүртлээ давталтыг үргэлжлүүлнэ.

Дэлгэрэнгүй унших: Excel VBA ашиглан хүснэгтийн олон баганыг хэрхэн эрэмбэлэх вэ (2 арга)

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

Та хүснэгтийнхээ мөрүүдийг давталт хийж, тодорхой утгыг олох үед давталтыг зогсооё гэж бодъё . Та үүнийг энгийн макро кодоор л хийж чадна.

Үүнийг Excel дээр VBA хэрхэн хийхийг сурцгаая.

Алхам:

• Эхлээд Хөгжүүлэгч табаас Visual Basic Editor -г нээж, кодын цонхонд Оруулах Модуль -г хийнэ үү.
• Дараа нь кодын цонхонд дараах кодыг хуулж хийгээд хуулбар хийнэ үү.

4076

Таны код одоо ажиллахад бэлэн боллоо. .

• Дараа нь макро ажиллуулна .
• Энэ нь хүрээг эхлүүлээд зогсох болно. мужаас тодорхой утгыг (“ Эдж ”) олж үр дүнг MsgBox -д шиддэг.

Дээрх зурган дээрээс харж байгаагаар $B$10 нүдний хаягийг харуулсан MsgBox гарч ирэх бөгөөд бидний олсон заасан утга, “ Эдж ” .

VBA кодын тайлбар

1961

Тодорхойлох хувьсагч.

7152

Энэ кодын хэсэг нь 1-ээс 15 хүртэлх мөрийг давтахад зориулагдсан болно. Хэрэв энэ нь тодорхой үгийг олвол“ Эдж ” дараа нь үр дүнг тухайн үгийг агуулсан нүдний хаягаар дамжуулна. Энэ нь үг хайхдаа 1-ээс 15-р мөр хүртэлх бүх өгөгдлийг сканнердаж дуустал үргэлжлүүлэн хийдэг.

Дэлгэрэнгүй унших: Excel хүснэгтээс мөр, баганыг хэрхэн оруулах, устгах талаар

6. Мөр бүрийг давталт хийж, Excel-ийн тодорхой утгыг будах VBA

Хэрэв та заасан утгын нүдний хаягийг MsgBox-д оруулахыг хүсэхгүй байвал яах вэ? Та хүсэж буй утгыг агуулсан нүдийг өнгөөр ​​будаж болно.

Үүнийг VBA макро ашиглан хэрхэн хийхийг сурцгаая.

Алхам:

• Өмнө нь адил арга замаар Хөгжүүлэгч табаас Visual Basic Editor -г нээгээд Оруулах a Модуль -г кодын цонхонд хийнэ.
• Дараа нь дараах кодыг хуулж хуулбар кодын цонхонд оруулна.

3261

Таны кодыг ажиллуулахад бэлэн боллоо.

• Үүний дараа макро ажиллуулна .
• Энэ нь хүрээг эхлүүлж, муж доторх тодорхой утгыг ( Ирмэг ) олж, Өнгийн индексээр нүдийг будах үед түүнийг зогсооно. кодонд оруулсан байна.

Дээрх зургаас харахад C B10 , бид заасан утгыг олсон бөгөөд “ Эдж ” кодыг гүйцэтгэсний дараа өнгөтэй байна.

VBA кодын тайлбар

1701

Тодорхойлох