Cov ntsiab lus tseem ceeb tshaj plaws uas siv hauv Excel VBA yog cov nqe lus Yog tias…Thaum ntawd и Xaiv Case. Ob qho kev qhia no sim ib lossis ntau qhov xwm txheej thiab, nyob ntawm qhov tshwm sim, ua haujlwm sib txawv. Peb mam li tham txog ob tus neeg ua haujlwm muaj cai no hauv kev nthuav dav ntxiv tom ntej.
“Yog…Tom qab ntawd” Nqe Lus hauv Visual Basic
Tus neeg teb xov tooj Yog tias…Thaum ntawd tshuaj xyuas qhov xwm txheej thiab, yog tias nws muaj tseeb (TRUE), ces cov txheej txheem teev tseg tau ua tiav. Nws kuj tseem tuaj yeem txhais tau tias yuav tsum tau ua yog tias qhov xwm txheej yog FALSE.
Operator syntax Yog tias…Thaum ntawd zoo li no:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
Hauv qhov kev qhia no, cov ntsiab lus Lwm Yog и lwm tus Tus neeg teb xov tooj yuav raug tshem tawm yog tias tsis xav tau.
Hauv qab no yog ib qho piv txwv uas, siv tus neeg teb xov tooj Yog tias…Thaum ntawd Cov xim puv ntawm cov active cell hloov nyob ntawm tus nqi hauv nws:
Yog tias ActiveCell.Value < 5 Ces ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 10 Ces ActiveCell.Interior.Color = '49407. оранжевый цвет Lwm yam ActiveCell.Interior.Color = 255 'Ячейка окрашивается в красный цвет Xaus Yog
Nco ntsoov tias sai li sai tau raws li qhov xwm txheej tshwm sim, qhov kev ua tiav ntawm cov lus hais raug rho tawm. Yog li ntawd, yog tias tus nqi ntawm qhov sib txawv ActiveCell tsawg dua 5, tom qab ntawd thawj qhov xwm txheej yuav tshwm sim thiab lub xov tooj ntawm tes yog xim ntsuab. Tom qab ntawd, kev ua tiav ntawm nqe lus Yog tias…Thaum ntawd raug cuam tshuam thiab lwm yam kev mob tsis raug kuaj xyuas.
Kawm ntxiv txog kev siv tus neeg teb xov tooj hauv VBA Yog tias…Thaum ntawd tuaj yeem pom ntawm Microsoft Developer Network.
"Xaiv Case" nqe lus hauv Visual Basic
Tus neeg teb xov tooj Xaiv Case zoo ib yam li tus neeg teb xov tooj Yog tias…Thaum ntawd nyob rau hauv uas nws kuj xyuas qhov tseeb ntawm tus mob thiab, nyob ntawm seb qhov tshwm sim, xaiv ib qho ntawm cov kev xaiv.
Operator syntax Xaiv Case zoo li no:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
caij Lwm yam tsis tas yuav tsum tau, tab sis raug pom zoo rau kev tuav cov txiaj ntsig uas xav tau.
Hauv qhov piv txwv hauv qab no, siv qhov tsim Xaiv Case Hloov cov xim puv ntawm cov xov tooj tam sim no nyob ntawm tus nqi hauv nws:
Xaiv Case ActiveCell.Value Case Yog <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет Case 6, 7, 8, 9 ActiveCell.Interior.Color = '49407. оранжевый цвет Case 10 ActiveCell.Interior. Xim = 65535 'Ячейка окрашивается в жёлтый цвет Case 11 To 20 ActiveCell.Interior.Color = 10498160 'Ячейка окрашовается вилет Ячейка окрашовается вилйт 255 'Ячей окрашивается в красный цвет Xaus Xaiv
Cov piv txwv saum toj no qhia tau hais tias koj tuaj yeem teeb tsa tus nqi rau ib lub caij hauv ntau txoj hauv kev. Case hauv kev tsim kho Xaiv Case. Nov yog txoj hauv kev:
| Case yog <= 5 | Yog li, siv lo lus tseem ceeb Case yog koj tuaj yeem tshawb xyuas yog tias tus nqi txaus siab Qhia ua pob xwm txheej ntawm daim ntawv <= 5. |
| Case 6, 7, 8, 9 | Txoj kev no koj tuaj yeem tshawb xyuas seb tus nqi sib tw Qhia ua pob nrog ib qho ntawm cov nqi teev tseg. Cov nqi teev tseg raug cais los ntawm commas. |
| Case 10 | Qhov no xyuas yog tias tus nqi sib tw Qhia ua pob nrog tus nqi muab. |
| Case 11 Qhov ntawd yog nws 20 | Yog li, koj tuaj yeem sau ib qho kev qhia los xyuas seb tus nqi puas txaus siab Qhia ua pob xwm txheej ntawm daim ntawv los ntawm 11 rau 20 (sib npaug rau qhov tsis sib xws "11<=value<=20"). |
| Lwm yam | Zoo li no, siv lo lus tseem ceeb lwm tus, kev nqis tes ua yog qhia rau rooj plaub yog tias tus nqi Qhia ua pob tsis phim ib qho ntawm cov kev xaiv uas tau teev tseg Case. |
Thaum pom ib qho ntawm cov xwm txheej, cov kev coj ua tau ua thiab cov qauv tawm mus. Xaiv Case. Ntawd yog, txawm li cas los xij, tsuas yog ib qho ntawm cov npe teev npe yuav raug tua. Case.
Xav paub ntau ntxiv txog kev ua haujlwm ntawm VBA nqe lus Xaiv Case tuaj yeem pom ntawm Microsoft Developer Network.