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

Excel VBA шинжилгээ: Хэрэв нүд нь утгыг агуулж байвал (Шуурхай харах)

7344

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

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

Excel VBA шинжилгээ: Хэрэв нүд нь утгыг агуулж байвал гаралтыг буцаана (Алхам алхмаар дүн шинжилгээ)

Энд бид Физик, Хими, Наранцэцгийн цэцэрлэг гэх сургуулийн Математикийн хичээл.

Хоосон нүднүүд нь тухайн сурагч ирээгүй, өөрөөр хэлбэл тухайн шалгалтанд хамрагдаагүй гэсэн үг юм. Одоо энэ өгөгдлийн багцын тусламжтайгаар нүдэнд утга агуулагдаж байгаа эсэхээс үл хамааран нөхцөл байдалд дүн шинжилгээ хийцгээе.

⧪ 1-р алхам: Нүдийг зарлах

Эхлээд бид Бид үнэ цэнийг нь шинжлэхийг хүсч буй нүдийг зарлана. Женнифер Марло Физикийн шалгалтанд орсон эсэхэд дүн шинжилгээ хийцгээе.

Тиймээс бид C12 нүдэнд утга агуулагдаж байгаа эсэхийг шалгах хэрэгтэй.

Үүний тулд, эхлээд бид C12 нүдийг зарлах ёстой.

Үүнийг биелүүлэх кодын мөр нь:

2668

⧪ Алхам 2: Нүдэнд байгаа эсэхийг шалгах Утга (тусгай утгыг багтаасан)

Дараа нь бид эсэхийг шалгах хэрэгтэй.нүд нь утгыг агуулж байгаа эсэх. Бид үүнийг Хэрэв нөхцөл ашиглан гүйцэтгэнэ. Кодын мөр нь:

4611

Хэрэв нүдэнд ямар нэгэн утга агуулж байвал энэ кодыг гүйцэтгэнэ. Утга байгаа эсэхийг шалгахын тулд (Жишээ нь, 100-г агуулж байгаа эсэх) тухайн тодорхой утгыг Тэнцүү тэмдгээр ашиглаарай.

6726

⧪ 3-р алхам: Даалгаврыг хуваарилах

Дараа нь нүдэнд утга (эсвэл тодорхой утгатай) байвал гүйцэтгэх даалгаврыг тохируулах хэрэгтэй.

Энд бид мессежийг харуулахыг хүсэж байна. “Женнифер Марло Физикийн шалгалтанд орсон.” . Тиймээс кодын мөр нь:

7309

⧪ Алхам 4: If блокыг дуусгах

Эцэст нь та If блокийн төгсгөлийг зарлах ёстой.

6670

Тиймээс бүрэн VBA код нь:

⧭ VBA код:

9546

Хэрэгслийн самбар дээрх Дэд/ХэрэглэгчийнФормыг ажиллуулах товчийг дарж энэ кодыг ажиллуулна уу.

Энэ нь “Женнифер Марло Физикийн шалгалтанд орлоо.” гэсэн мессежийг харуулах болно. C12 нүд нь 50 утгыг агуулж байна.

Хэрэв нүдэнд утга агуулагдаж байвал Excel-ийн VBA-д заасан гаралттай холбоотой жишээ

Бид нүдэнд утга агуулагдаж байгаа эсэхийг шинжилж сурсан. VBA -д биш. Одоо ойлголтыг тодорхой болгохын тулд зарим жишээг авч үзье.

1. Үнэ цэнийг шүүх макро боловсруулах Хэрэв харгалзах нүдэнд ямар нэгэн утга агуулагдаж байвал Excel VBA-д

Хөгжүүлье Макро шалгалт болгонд орсон оюутнуудыг шүүнэ.

Өөрөөр хэлбэл, бид хичээл бүрийн оноог агуулсан нүднүүдийг шалгаж, тэдгээрт утга агуулагдаж байгаа эсэхийг шалгах ёстой. эсвэл үгүй.

Хэрэв тийм бол бид харгалзах оюутны нэрийг ялгах ёстой.

Үүнийг биелүүлэх бүрэн VBA код нь:

⧭ VBA код:

7676

⧭ Гаралт:

Өгөгдлийн багцыг сонгоно уу ( Толгой -г оруулаад Макро -г ажиллуулна уу.

Эхлээд танаас эхнийх нь лавлагааг оруулахыг хүсэх болно. шүүсэн өгөгдлийг авахыг хүссэн нүд. Би G3 гэж орлоо.

Дараа нь OK дээр дарна уу. Та шалгалт бүрт ( Толгой орно) орсон оюутнуудын нэрийг G3 нүднээс эхлэн шинэ өгөгдлийн багцаас авах болно.

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

Одоо бид хэрэглэгчийн тодорхойлсон функцийг үүсгэх бөгөөд энэ нь оюутнуудын нэрийг буцаана. хичээл тус бүрт тодорхой оноо авсан хүмүүс.

Журмын дагуу дээрхтэй бараг ижил байна. Бид хичээл бүрийн тэмдэглэгээг агуулсан нүднүүдийг шалгаж, тэдгээр нь тодорхой утгатай тэнцүү эсэхийг шалгах ёстой.

Хэрэв байгаа бол бид харгалзах оюутны нэрийг буцаана.

VBA код нь:

⧭ VBA байх болно.Код:

3569

⧭ Гаралт:

Код нь Утгатай_нүд гэсэн функцийг үүсгэдэг. Муж ба Утга гэсэн хоёр аргумент авдаг.

Энэ функцийг ашиглан хичээл тус бүрт 100 оноо авсан сурагчдыг олж мэдэцгээе.

Ажлын хуудасныхаа нүднүүдийн мужийг сонгоод мужын эхний нүдэнд энэ функцийг оруулна уу:

[Энд B3: E3 нь миний өгөгдлийн багц ( Толгой багтсан) бөгөөд 100 нь миний тохирох утга юм. Та өөрийнхөө нэгийг ашигладаг.]

Дараа нь CTRL + SHIFT + ENTER ( Масивын томьёо ) дарна уу. Энэ нь Толгой зэрэг хичээл тус бүрээр 100 оноо авсан оюутнуудын нэрсээс бүрдсэн массивыг буцаана.

3. Excel VBA-ийн харгалзах нүд нь ямар нэгэн утга (эсвэл тодорхой утга) агуулж байвал утгыг гаргаж авах хэрэглэгчийн маягтыг боловсруулах нь

Эцэст нь бид UserForm -г гаргаж авах болно. Зарим тодорхой шалгалтанд орсон (эсвэл тодорхой оноо авсан) оюутнуудын нэрс.

⧪ 1-р алхам: Хэрэглэгчийн маягтыг нээх

Insert > Шинэ UserForm нээхийн тулд VBA засварлагч дахь UserForm сонголтыг хийнэ үү. UserForm1 нэртэй шинэ UserForm нээгдэнэ.

⧪ 2-р алхам: Хэрэгслийг UserForm руу чирэх

UserForm -ээс гадна та Toolbox -г авах болно. Курсороо Хэрэгслийн хайрцаг дээр аваачиж 4 шошго (Label1, Label2,Label3, Label4) ба 3 ListBoxs (ListBox1, ListBox2, ListBox3) болон TextBox (TextBox1) нь UserForm дээр тэгш өнцөгт хэлбэртэй байна.

Дараа нь өөр Шошго (Шошго5) ба TextBox (TextBox2) -г UserForm -ийн зүүн доод буланд чирнэ үү.

Эцэст нь CommandButton (CommandButton1) -г баруун доод буланд чирнэ үү.

Шошго -н дэлгэцийг Хайлтын багана болгон өөрчил, Буцах багана , Аливаа утга эсвэл тодорхой утга , Утга, ба Эхлэх нүд.

Мөн CommandButton1 -ийн дэлгэцийг OK болгож өөрчил.

⧪ 3-р алхам: ListBox3-ын код бичих

ListBox3 дээр давхар товшино уу. ListBox3_Click нэртэй Хувийн дэд процедур нээгдэнэ. Тэнд дараах кодыг оруулна уу.

8629

⧪ 4-р алхам: CommandButton1-ийн код бичих

Дараа нь CommandButton1 дээр давхар товшино уу. . CommandButton1_Click нэртэй өөр нэг Хувийн дэд процедур нээгдэнэ. Тэнд дараах кодыг оруулна уу.

9881

⧪ 5-р алхам: Хэрэглэгчийн маягтыг ажиллуулах код бичих

Эцэст нь <цонхноос шинэ Модуль оруулна уу. 1>VBA хэрэгслийн мөр -г оруулаад дараах кодыг оруулна уу.

6301

⧪ 6-р алхам: UserForm-г ажиллуулах (Эцсийн гаралт)

Таны UserForm одоо ашиглахад бэлэн боллоо. Ажлын хуудаснаас өгөгдлийн багцыг сонгоно уу ( B3:E13 энд) ( Толгой орно) болон Run_UserForm нэртэй Макро -г ажиллуул.

UserForm нь ажлын хуудсанд ачаалагдах болно. Харах багана хүснэгтээс би Физик ба Математик -ийг сонгосон, учир нь би Физик -д орсон оюутны нэрийг авахыг хүсэж байна. болон Математик шалгалтууд.

Би Буцах багана хүснэгтээс Оюутны нэр -г сонгосон, учир нь би оюутны нэрсийг авахыг хүсэж байна.

Мөн Аливаа утга эсвэл тодорхой утга хүснэгтээс би Аливаа утга -г сонгосон.

Эцэст нь Эхлэх нүд хайрцаг, би G3 -г тавьсан.

Дараа нь OK дарна уу. Та Физик болон Математикийн шалгалтанд орсон оюутнуудын нэрийг G3 нүднээс эхлэн авах болно.

Хэрэв та Аливаа утга эсвэл тодорхой утга хүснэгтээс Тодорхой утга -г сонгосон бол тодорхой утгыг оруулах өөр TextBox -тэй байх байсан.

Энд би 100 орууллаа.

OK дээр дарна уу. Мөн та Физик болон Хими -д 100 авсан оюутнуудыг авах болно.

Санах зүйлс

Бид хоёр хэмжээст массив ашиглан Хэрэглэгчийн тодорхойлсон функц жишээнд тайлбарласан 2 дахь оюутны нэрийг буцаалаа.