Satura rādītājs
Nosacījuma paziņojumus izmanto, lai programmēšanas valodās veiktu darbību kopumu atkarībā no norādītā nosacījuma. Šajā rakstā mēs jums parādīsim, kas ir nosacījums. Ja - Tad - Ja - Tad - Vai nosacījuma paziņojums VBA Excel ir un kā to lietot.
Lejupielādēt darba burtnīcu
No šejienes varat lejupielādēt bezmaksas praktisko Excel darba burtnīcu.
If-Then-Else programmā VBA.xlsm
Ievads par If - Then - Else paziņojumu programmā VBA
VBA If - Then - Else Nosacījuma izteikumu galvenokārt izmanto, lai noteiktu nosacījumu izpildes gaitu. Ja nosacījums ir patiess, tad tiek izpildīts noteikts darbību kopums, bet, ja nosacījums ir nepatiess, tad tiek izpildīts cits darbību kopums.
- Sintakse
Ja nosacījums Tad [paziņojumi] [Ja citādi else_statements] Vai,
Ja nosacījums Tad [paziņojumi] [Citādi [else_statements]] Beidz If Šeit,
| Arguments | Obligāti/pēc izvēles | Apraksts |
|---|---|---|
| stāvoklis | Nepieciešams | Skaitliska izteiksme vai virknes izteiksme, kas izvērtē, vai izteiksme ir True vai Viltus Ja stāvoklis ir Null, tas tiek uzskatīts par Viltus . |
| paziņojumi | Pēc izvēles | Vienas rindas veidlapa, kurā nav Citādi klauzula. Viens vai vairāki apgalvojumi ir jāatdala ar divpunktu. Ja stāvoklis ir True , tad tiek izpildīts šis paziņojums. |
| else_statements | Pēc izvēles | Tiek veikts viens vai vairāki paziņojumi, ja nav iepriekšējo stāvoklis ir . True . |
4 piemēri VBA If - Then - Else paziņojumu izmantošanai programmā Excel
Šajā sadaļā uzzināsiet, kā izmantot Ja-Tad-Tad-Anāk vietnē VBA kods ar 4 piemēriem.
1. Atrast lielāko skaitli starp diviem skaitļiem ar If - Then - Else paziņojumu
Ja jums ir divi skaitļi un vēlaties noskaidrot, kurš no tiem ir lielāks (vai mazāks), varat izmantot funkciju Ja-Tad-Tad-Anāk paziņojums VBA .
Soļi:
- Spiediet Alt + F11 uz tastatūras vai atveriet cilni Izstrādātājs -> Visual Basic lai atvērtu Visual Basic redaktors .
- Iznirstošajā koda logā izvēlnes joslā noklikšķiniet uz Ievietot -> Modulis .
- Nokopējiet un ielīmējiet kodu logā šādu kodu.
Private Sub BiggestNumber() Dim Num1 As Integer Dim Num2 As Integer Num1 = 12345 Num2 = 12335 If Num1> Num2 Then MsgBox "1. skaitlis ir lielāks par 2. skaitli" ElseIf Num2> Num1 Then MsgBox "2. skaitlis ir lielāks par 1. skaitli" Else MsgBox "1. skaitlis un 2. skaitlis ir vienādi" End If End Sub Tagad jūsu kods ir gatavs darbam.
Šeit mēs salīdzinām divus skaitļus 12345 un 12335 , lai noskaidrotu, kurš no tiem ir lielāks. Šis process parasti ir ideāli piemērots, lai atrastu lielus skaitļus lielā datu kopā.
- Preses F5 uz tastatūras vai izvēlnes joslā izvēlieties Run -> Run Sub/UserForm Varat arī vienkārši noklikšķināt uz maza ikona Atskaņot apakšizvēlnes joslā, lai palaistu makro.
Rezultātu iegūsiet Excel MsgBox
Mūsu gadījumā skaits 12345 - saglabāts mainīgajā Num1 - ir lielāks par skaitli 12335 , Num2 . Tātad MsgBox parāda mums, ka Pirmais skaitlis ir lielāks par otro skaitli .
Lasīt vairāk: Excel formula nejauša skaitļa ģenerēšanai (5 piemēri)
2. Studenta rezultātu pārbaude, izmantojot If - Then - Else paziņojumu VBA programmā
Jūs varat pārbaudīt, vai students eksāmenu ir nokārtojis vai nav nokārtojis, izmantojot šo paziņojumu. VBA kods.
Soļi:
- Tāpat kā iepriekš, atveriet Visual Basic redaktors no Izstrādātājs cilne un Ievietot a Modulis koda logā.
- Koda logā nokopējiet un ielīmējiet šādu kodu.
Sub CheckResult() If Range("D5").Value> 33 Then MsgBox "Jāņa rezultāts ir pozitīvs" Else MsgBox "Jāņa rezultāts ir slikts" End If End If End Sub Tagad jūsu kods ir gatavs darbam.
Šajā kodā tiks pārbaudīts, vai Cell D5 ir vērtība, kas ir lielāka par 33 . Ja tas tā ir, tad tiks parādīts viens izvads, bet, ja nav, tad tiks parādīts kaut kas cits.
- Palaist makro un iegūsiet rezultātu saskaņā ar savu kodu.
Aplūkojiet iepriekš minēto datu kopu ar rezultātu, Cell D5 tur 95 kas noteikti ir vairāk nekā 33 , tāpēc tiek parādīts Rezultāts ir Pass . Bet, ja mēs palaižam Cell kodu D7 (22), tad tas tiktu parādīts citādi.
Lasīt vairāk: Kā lietot VBA gadījuma paziņojumu (13 piemēri)
Līdzīgi lasījumi
- Kā lietot logaritma funkciju programmā Excel VBA (5 piemēroti piemēri)
- VBA LTrim funkcijas izmantošana programmā Excel (4 piemēri)
- Kā lietot VBA FileDateTime funkciju programmā Excel (3 izmantošanas veidi)
- VBA Mod operatora lietošana (9 piemēri)
- VBA EXP funkcija programmā Excel (5 piemēri)
3. Atjaunināt komentārus skolēna vērtējumā, izmantojot vairākus If - Then - Else paziņojumus VBA programmā
Jūs esat iemācījies, kā iegūt, vai students ir vai nav caurlaidējs, izmantojot vienu Ja-Tad-Tad-Tad-Ankādēļ paziņojumu, bet šoreiz jūs uzzināsiet par Vairāki If-Then-Else ar šādu piemēru.
Mēs palaidīsim VBA kodu, lai aizpildītu šos Komentārs kastes, pamatojoties uz vairākiem nosacījumiem.
Soļi:
- Tāpat kā iepriekš, atveriet Visual Basic redaktors no Izstrādātājs cilne un Ievietot a Modulis koda logā.
- Koda logā nokopējiet un ielīmējiet šādu kodu.
Sub UpdateComment() For Each grade In Range("D5:D10") If grade = "A" Then grade.Offset(0, 1).Value = "Great Work" ElseIf grade = "B" Then grade.Offset(0, 1).Value = "Keep It Up" ElseIf grade = "C" Then grade.Offset(0, 1).Value = "Needs Improvement" Else grade.Offset(0, 1).Value = "Nepieciešami uzlabojumi" Else grade.Offset(0, 1).Value = "Vecāku un skolotāju tikšanās" End If Next grade EndSub Tagad jūsu kods ir gatavs darbam.
Šis kods izdrukās komentārus atbilstoši skolēnu sasniegtajai pakāpei.
- Palaist šo kodu un aplūkojiet nākamo attēlu, kurā komentāru lodziņi ir aizpildīti ar attiecīgajiem rezultātiem.
4. If-Then-Else paziņojums kardinālo virzienu atjaunināšanai, pamatojoties uz Excel kodu
Varat izmantot arī Ja-Tad-Tad-Anāk lai uzzinātu virzienus, pamatojoties uz norādīto rādītāja kodu. Aplūkojiet nākamo attēlu, kurā mēs uzzināsim virzienus, pamatojoties uz dotajiem iniciāļiem.
Soļi:
- Atvērt Visual Basic redaktors no Izstrādātājs cilne un Ievietot a Modulis koda logā.
- Koda logā nokopējiet un ielīmējiet šādu kodu.
Sub UpdateDir() For Each iDirection In Range("B5:B8") If iDirection = "N" Then iDirection.Offset(0, 1).Value = "North" ElseIf iDirection = "S" Then iDirection.Offset(0, 1).Value = "South" ElseIf iDirection = "E" Then iDirection.Offset(0, 1).Value = "East" Else iDirection.Offset(0, 1).Value = "West" End If Next iDirection EndSub Tagad jūsu kods ir gatavs darbam.
- Palaist šo kodu, un jūs saņemsiet virzienu nosaukumus attiecīgajās šūnās.
Ja vēlaties atrast tikai vienu virzienu, pamatojoties uz kodu, varat izmantot tālāk norādīto kodu.
Sub UpdateDirections() Dim iDirection As String Dim iDirectionName As String iDirection = Range("B5").Value If iDirection = "N" Then iDirectionName = "North" ElseIf iDirection = "S" Then iDirectionName = "South" ElseIf iDirection = "E" Then iDirectionName = "East" Else iDirectionName = "West" End If Range("C5").Value = iDirectionName End Sub Šis kods ņems vērtību no šūnas B5 vērā un atbilstoši tam atgriež rezultātu šūnā Cell C5 .
Piemēram, ja rakstāt " N " in Cell B5 , tas jums sniegs " Ziemeļos ; ja jūs rakstāt " S " in Cell B5 , tas parādīs jums " South " in Cell C5 .
Secinājums
Šajā rakstā tika parādīts, kā izmantot Ja - Tad - Vai paziņojums programmā Excel ar VBA . es ceru, ka šis raksts jums ir bijis ļoti noderīgs. Ja jums ir kādi jautājumi par šo tēmu, droši jautājiet.
