Šajā rakstā es jums parādīšu, kā jūs varat izmantot Ja paziņojums vietnē VBA programmā Excel, pamatojoties uz šūnas vērtību.

Excel VBA: If paziņojums, pamatojoties uz šūnas vērtību (ātrs skats)

 Sub If_Statement_Based_On_a_Single_Cell() If Range("C3").Value>= 40 Then Range("D3").Value = "Izturējis" Else Range("D3").Value = "Neizturējis" End If End Sub 

Lejupielādēt Practice Workbook

Lejupielādējiet šo prakses darba burtnīcu, lai vingrinātos, kamēr lasāt šo rakstu.

If paziņojums, pamatojoties uz šūnas vērtību programmā Excel VBA

Šeit mums ir darba lapa, kurā ir nosaukumi un zīmes dažu skolas skolēnu eksāmenā.

Mūsu mērķis ir iemācīties izmantot Ja paziņojums programmā Excel VBA pamatojoties uz šūnas vērtību no šī datu kopuma.

1. If paziņojums, pamatojoties uz vienas šūnas vērtību programmā Excel VBA

Vispirms mēs iemācīsimies izmantot izteikumu If, pamatojoties uz vienas šūnas vērtību.

Piemēram, mēģināsim noskaidrot, vai Natālija Ostina nokārtoja eksāmenu vai nē, tas ir, vai atzīme šūnā C3 ir lielāks par 40 vai nē.

Kolonna D satur studentu rezultātu. Tas ir, ja šūnā C3 satur atzīmi, kas lielāka par 40, šūnā D3 saturēs "Izturējis" . Pretējā gadījumā tajā būs "Neveiksmīgs" .

Mēs izmantosim VBA Diapazons objektu, lai izveidotu šo Ja paziņojums pamatojoties uz šūnas vērtību.

Portāls VBA šim nolūkam tiks izmantots šāds kods:

⧭ VBA kods:

 Sub If_Statement_Based_On_a_Single_Cell() If Range("C3").Value>= 40 Then Range("D3").Value = "Izturējis" Else Range("D3").Value = "Neizturējis" End If End Sub 

⧭ Izvades:

Palaist kodu no Run Sub / UserForm rīks VBA rīkjoslu.

Tas padarīs šūnu D3 satur "Neveiksmīgs" , kā atzīme šūnā C3 ir mazāks par 40 ( 32 ).

2. If paziņojums, pamatojoties uz šūnu diapazona vērtībām programmā Excel VBA

Varat izmantot arī Ja paziņojums pamatojoties uz šūnu diapazona vērtībām. VBA . Varat izmantot for-loop šim nolūkam.

Piemēram, šeit mēs varam noskaidrot visu skolēnu rezultātu ar vienu kodu. Mēs iterēsim pa a for-loop kas pārbaudīs visas diapazona šūnas. C3:C12 un atgriezt atbilstošu rezultātu, "Izturējis" vai "Neveiksmīgs" .

Portāls VBA šim nolūkam tiks izmantots šāds kods:

⧭ VBA kods:

 Sub If_Statement_Based_On_a_Range_of_Cells() For i = 1 To Range("C3:C12").Rows.Count If Range("C3:C12").Cells(i, 1).Value>= 40 Then Range("D3:D12").Cells(i, 1).Value = "Izturējis" Else Range("D3:D12").Cells(i, 1).Value = "Neveiksmīgs" End If Next i End Sub 

⧭ Izvades:

Palaist kodu no Run Sub / UserForm rīks VBA rīkjosla. Tā atgriezīsies "Izturējis" zīmēm, kas ir lielākas par 40 , un "neizdevās" - tiem, kas ir mazāki par 1,5 %, un "neizdevās" - tiem, kas ir mazāki par 1,5 %. n 40 .

Lietas, kas jāatceras

Šeit es esmu parādījis Ja paziņojums ar vienu nosacījumu. Bet, ja vēlaties, varat izmantot vairākus nosacījumus vienā Ja paziņojums .

Ja izmantojat VAI ievadiet vairākus nosacījumus, pievienojiet tos ar VAI .

Un, ja izmantojat UN ievadiet vairākus nosacījumus, pievienojiet tos ar UN .

Piemēram, lai pārbaudītu, vai zīme šūnā B3 ir lielāks par 40 un mazāk nekā 50 vai nē, izmantot:

 Ja (Range("C3").Value> 40 Vai Range("C3").Value <50) Tad