Хэрэв та VBA Range Offset-ийг ашиглах хамгийн хялбар аргуудыг хайж байгаа бол энэ нийтлэл танд үнэ цэнэтэй байх болно. VBA Range Offset-ийг ашиглах аргуудаас эхэлцгээе.

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

VBA Range Offset ашиглах 11 арга

Надад коллежийн зарим оюутнуудын мэдээллийг агуулсан дараах өгөгдлийн хүснэгт байна. Энэ өгөгдлийн багцыг ашиглан би VBA Range Offset-ийг ашиглах аргуудыг тайлбарлах болно.

Энэ зорилгоор би Microsoft Excel 365 хувилбарыг ашигласан, та дурын ч ашиглаж болно. өөр хувилбаруудыг өөрт тохиромжтой.

Арга-1: VBA мужийг ашиглан нүдийг сонгох

Энд бид <нэртэй нүдийг сонгоно. 8>Даниел Дефо. Энэ зорилгоор бид VBA доторх RANGE функцийг хэрэглэнэ.

Алхам-01 :

➤ Хөгжүүлэгч Таб>> Visual Basic Сонголт

Дараа нь Visual Basic Editor нээгдэнэ.

➤ Insert Tab>> Модуль Сонголт

руу очно уу.

Үүний дараа Модуль үүснэ.

Алхам-02 :

➤Дараах кодыг бичнэ үү

1162

Энэ нь B8 нүдийг сонгоно.

➤ F5 товчийг дарна уу.

Үр дүн :

Ийм байдлаар та Даниел Дефо сонгосон нүдийг авах болно.

Дэлгэрэнгүй унших: Excel дээр VBA-ийн хүрээний объектыг хэрхэн ашиглах талаар

Арга-2: VBA мужийг ашиглан зэргэлдээх нүднүүдийн бүлгийг сонгох

Та Оюутны нэр багана, Үр дүн бага зэрэг зэргэлдээх нүднүүдийн мужийг сонгож болно. дараах хүснэгтийг энэ аргыг дагаж мөрдөөрэй.

Алхам-01 :

➤ Алхам-01 -г дагаж мөрдөөрэй. -ийн Арга-1

6621

Энэ нь B5 -аас C10 хүртэлх нүднүүдийг сонгоно.

➤ F5

Үр дүн товчийг дарна уу:

Үүний дараа та Б баганын нүднүүдийг авах болно. болон C багана сонгосон.

Арга-3: VBA мужийг ашиглан зэргэлдээ бус нүднүүдийн бүлгийг сонгох

гэж бодъё. та Уильям Дэвид болон Майкл Энтони нэртэй оюутнуудыг өөрийн И-мэйл хаяг -г оруулан сонгохыг хүсэж байна. Эдгээр үл нийцэх нүднүүдийг сонгохын тулд та энэ аргыг дагаж болно.

Алхам-01 :

➤ Алхамыг дагана уу. -01 -ын Арга-1

4524

Энэ нь B6 , D6 , B9, <2 нүднүүдийг сонгоно>болон D9 .

➤ F5

Үр дүн :<3 дарна уу>

Дараа нь та оюутны нэр Уильям Дэвид , Майкл Энтони, болон тэдгээрийн И-мэйл хаяг сонгосон нүднүүдийг авах болно.

Арга-4: Зэргэлдээгүй нүднүүдийн бүлэг ба мужийг VBA мужийг ашиглан сонгох

Та хэд хэдэн нүд болон зарим зэргэлдээ бус нүднүүдийг нэгэн зэрэг сонгож болно. үүнийг дагаснаарарга.

Алхам-01 :

➤ Арга-01-ийн Алхам-01 -ыг дагаж мөрдөөрэй. 1

5492

Энэ нь B5:B10 муж дахь нүднүүдийн мужийг, нөгөө хоёр нүдийг D6 , D10 сонгоно. .

➤ F5

Үр дүн товчийг дарна уу:

Дараа нь та авах болно. баганын нүднүүдийг Оюутны нэр болон Уильям Дэвид болон Дональд Пол -н хоёр И-мэйл ID сонгосон.

Арга-5: VBA Range Offset ашиглан мужийг сонгох

Та Оюутны нэр баганын нүднүүдийн мужийг сонгох боломжтой. OFFSET функц .

Алхам-01 :

➤<-ийн Алхам-01 -ыг дагах 1>Арга-1

3419

Эхлээд Range(“A1:A6”) нь A1:A6 мужийг сонгоод дараа нь Offset(4, 1) нь A1 нүднээс 4 мөр доош, 1 баганыг баруун тийш шилжүүлнэ. Үүний дараа A1:A6 муж дахь тэнцүү тооны нүдийг эндээс сонгоно.

➤ F5 товчийг дарна уу.

Үр дүн :

Ийм байдлаар та Оюутны нэр баганыг сонгоно.

Арга-6: VBA Range Offset Negative

Та энэ аргыг дагаж И-мэйл ID баганыг сонгож болно.

Алхам-01 :

➤ Арга-1

9995

-ийн Алхам-01 -ыг дагах Эхлээд Range(“F11:F16”) нь F11:F16 мужийг сонгох ба дараа нь Offset(-6, -2) 6 руу шилжих болно. F11 нүднээс дээш мөр болон зүүн талд 2 багана. Үүний дараа F11:F16 муж дахь тэнцүү тооны нүдийг эндээс сонгоно.

➤ F5 товчийг дарна уу.

Үр дүн :

Үүний дараа та Имэйл ID баганыг сонгох боломжтой.

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

• Excel дэх муж дахь нүд бүрийн VBA (3 арга)
• Excel дээрх текстийг хэрхэн тоолох вэ (7 хялбар арга)

Арга-7: Идэвхтэй нүдтэй холбоотой мужийг сонгох

Энд Бидэнд идэвхтэй нүд ( A1 нүд) байгаа бөгөөд энэ нүдний хувьд бид өгөгдлийн мужийг энэ аргаар сонгоно.

Алхам-01 :

➤ Арга-1

2525

-ын алхам-01 -ыг дагана уу. activecell нь A1

Эхний хэсэг activecell.Offset(4, 1) нүднээс доош 4 мөр, баруун талд 1 багана сонгох болно A1 болон хоёр дахь хэсэг activecell.Offset(9, 3) A1 нүднээс баруун тийш 9 мөр доош 3 баганатай нүдийг сонгоно.

Эцэст нь бүгд энэ хоёрын хоорондох эсүүдийн нүднүүд сонгогдох болно.

➤ F5

Үр дүн товчийг дарна уу:

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

Арга-8: Мужийг хуулах

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

Алхам-01 :

➤ Алхам-01 -ыг дага. Арга-1

5059

Эхлээд, Range(“A1:A6”) нь A1:A6 мужийг сонгох ба дараа нь Offset(4, 1) нүднээс 4 мөр доош хөдөлнө. 1>A1 ба баруун талд 1 багана. Үүний дараа эндээс A1:A6 муж дахь тэнцүү тооны нүдийг сонгоно.

Эцэст нь B5:B10<2 муж дахь утгуудыг хуулна>.

➤ F5

Үр дүн товчийг дарна уу:

Үүний дараа та Оюутны нэр багана дахь өгөгдлийн мужийг хуулах боломжтой болно.

Арга-9: Мужийг устгах

Энд, Бид VBA код ашиглан олон тооны өгөгдлийг устгах арга замыг харуулах болно.

Алхам-01 :

➤ Арга-1

5163

-ын Алхам-01 -ыг дагаж мөрдөөрэй

5163

Эхлээд Муж("F11:F17") нь муж F11:F17 , дараа нь Offset(-7, -2) нь F11 нүднээс 7 мөр дээш, 2 баганыг зүүн тийш шилжүүлнэ. Үүний дараа F11:F17 муж дахь тэнцүү тооны нүдийг эндээс сонгоно.

Эцэст нь D4:D10 мужийг устгана.

➤ F5

Үр дүн товчийг дарна уу:

Ийм байдлаар та хуулах болно. И-мэйл Id багана дахь өгөгдлийн муж.

Арга-10: Утга оруулахын тулд VBA Range Offset ашиглах

Энд, Бид Оюутны нэр багана хоосон нүдтэй (бид энэ аргыг тайлбарлахын тулд энэ нүдний утгыг хассан) байгаа бөгөөд бид үүнийг Жозеф Майкл гэсэн нэрээр бөглөхийг хүсэж байна. ашиглан а VBA код нь бид энэ утгыг хялбархан оруулах боломжтой.

Алхам-01 :

➤<1-ийг дагаж мөрдөөрэй>Алхам-01 Арга-1

8828

Нэгдүгээрт, Муж(“A1”) нь A1 нүдийг сонгоно. дараа нь Offset(6, 1) A1 нүднээс 6 мөр доош, 1 баганыг баруун тал руу шилжүүлнэ. Үүний дараа B7 нүд сонгогдох бөгөөд эцэст нь энэ нүдэнд “Жозеф Майкл” утгыг оруулна.

➤ F5

Үр дүн товчийг дар:

Ийм байдлаар та Жозеф Майкл гэсэн нэрийг авах болно. B7 нүдэнд.

Арга-11: Гаралт авахын тулд VBA Range Offset-ийг ашиглах

Та Өнгөрсөн эсвэл бичихийг хүсэж байна гэж бодъё. Хаалтанд Тэцсэн эсвэл Бүтэлгүй гэж бичсэн Үр дүнгийн багана -аас хамааран Бүтэлгүй сурагчдаас нэрсийг харгалзах. Үр дүнгийн баганаас энэ дэд мөрийг олоод Тэнцсэн/Бүтэлгүйтсэн багананд бичихийн тулд энэ аргыг дагана уу.

Алхам-01 :

➤ Арга-1

9800

-ын Алхам-01 -ыг дагана уу. Энд нүдний муж C5:C10 -г Муж(“C5:C10”) -р сонгосон бөгөөд энэ нь Үр дүнгийн багана

InStr(нүд. утга, "Танах") > 0 нь тэгээс их байх нөхцөл (нүдэнд “Тэцэх” байгаа үед)   тэгвэл дараах мөр үргэлжлэх бөгөөд зэргэлдээх нүдэнд гаралтыг Өнгөрсөн<2 гэж өгнө>. Энд зэргэлдээх нүдийг сонгоно cell.Offset(0, 1) бөгөөд энэ нь оролтын нүднээс баруун тийш 1 баганыг зөөнө гэсэн үг юм.

Хэрэв нөхцөл худал болвол нүдэнд ямар ч байхгүй байна гэсэн үг. “Өвчлөх” дараа нь Үгүй бол -ын доорх мөрийг ажиллуулж, зэргэлдээх нүдэнд гаралтын утгыг Бүтэлгүй гэж өгнө.

Энэ давталт нь нүд бүрт үргэлжлэх болно. .

➤ F5

Үр дүн товчийг дар:

Дараа нь та дараах зүйлийг авах болно. Гаралтууд Тэнцсэн эсвэл бүтэлгүйтсэн Онц/Бүтэлгүй багананд.

Дадлага хийх хэсэг

Дасгал хийх Бид өөрөө Дасгал нэртэй хуудсанд доорх шиг Дадлага хэсгийг өгсөн. Үүнийг өөрөө хий.

Дүгнэлт

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