Lipolelo tsa maemo a bohlokoa ka ho fetisisa tse sebelisitsoeng ho Excel VBA ke lipolelo Haeba ... Joale и Kgetha Taba. Lipolelo tsena ka bobeli li lekola boemo bo le bong kapa ho feta, 'me, ho latela sephetho, li etsa liketso tse fapaneng. Re tla bua ka li-operators tsena tse peli ka botlalo nakong e tlang.
“Haeba…Joale” Polelo ho Visual Basic
Operator Haeba ... Joale e hlahloba boemo 'me, haeba e le' nete (TRUE), joale sete e boletsoeng ea liketso e etsoa. E ka boela ea hlalosa sete sa liketso tse lokelang ho etsoa haeba boemo bo le BOHATA.
Syntax ea opereishene Haeba ... Joale rata sena:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
Polelong ena, likarolo E 'ngoeHaeba и hape maemo a ka qheleloa ka thoko haeba a sa hlokehe.
Ka tlase ke mohlala oo ho oona, ho sebelisa opareitara Haeba ... Joale 'Mala o tlatsitsoeng oa sele e sebetsang o fetoha ho latela boleng ba eona:
If ActiveCell.Value < 5 Then ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 10 Then ActiveCell.Interior.Color = 49407 Яшенка = 255 цвет Else ActiveCell.Interior.Color = XNUMX 'Ячейка окрашивается в красный цвет Qetella Haeba
Hlokomela hore hang ha boemo bo fetoha 'nete, ho etsoa ha polelo ea maemo ho tlosoa. Ka hona, haeba boleng ba ho feto-fetoha ActiveCell ka tlase ho 5, joale boemo ba pele bo fetoha 'nete' me sele e na le 'mala o motala. Ka mor'a moo, phethahatso ea polelo Haeba ... Joale e sitisoa mme maemo a mang ha a hlahlojoe.
Ithute haholoanyane mabapi le ho sebelisa opareitara e nang le maemo ho VBA Haeba ... Joale e ka fumanoa ho Microsoft Developer Network.
"Khetha Taba" Polelo ho Visual Basic
Operator Kgetha Taba e tshoanang le mosebeletsi Haeba ... Joale ka hore e boetse e hlahloba 'nete ea boemo' me, ho itšetlehile ka sephetho, e khetha e 'ngoe ea likhetho.
Syntax ea opereishene Kgetha Taba rata sena:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
elements Taba e 'ngoe ha e hlokehe, empa e khothalletsoa ho sebetsana le litekanyetso tse sa lebelloang.
Mohlala o latelang, ho sebelisoa mohaho Kgetha Taba e fetola 'mala o tlatsitsoeng oa sele ea hajoale ho latela boleng ba eona:
Khetha Case ActiveCell.Value Case Ke <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет Case 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 'Ячейка окрашивается в зелёный цвет Case 10, 65535, 11, 20 ActiveCell.Interior.Color = 10498160 ый цвет Case 255 ActiveCell.Interior. Colour = XNUMX 'Ячейка окрашивается в жёлтый цвет Case XNUMX To XNUMX ActiveCell.Interior.Color = XNUMX 'Ячейка окрашивается в лиловый ElseinteriorXNUMXCall. окрашивается в красный цвет Qetella Khetha
Mohlala o ka holimo o bontša kamoo u ka behang boleng ba element ka litsela tse fapaneng. Case kahong Kgetha Taba. Tsena ke mekhoa:
| Nyeoe Ke <= 5 | Kahoo, ho sebelisa keyword Nyeoe Ke o ka hlahloba hore na boleng bo khotsofatsa Litlhaloso boemo ba sebopeho <= 5. |
| Case 6, 7, 8, 9 | Ka tsela ena o ka hlahloba hore na boleng bo lumellana Litlhaloso ka e 'ngoe ea litekanyetso tse thathamisitsoeng. Lintlha tse thathamisitsoeng li arotsoe ke lifehelo. |
| Case 10 | Sena se lekola hore na boleng bo lumellana Litlhaloso ka boleng bo fanoeng. |
| Case 11 Ho felile ke lehlohonolo 20 | Kahoo, o ka ngola polelo ho lekola hore na boleng boa khotsofatsa Litlhaloso boemo ba sebopeho ho tloha 11 ho ea 20 (ho lekana le ho se lekane "11<=value<=20"). |
| Taba e 'ngoe | Joalo ka sena, sebelisa mantsoe a sehlooho hape, liketso li bontšoa bakeng sa nyeoe haeba boleng Litlhaloso ha e tsamaellane le efe kapa efe ea likhetho tse thathamisitsoeng Case. |
Hang ha e 'ngoe ea maemo a fumanoa, liketso tse lumellanang li etsoa' me sebopeho se tsoa. Kgetha Taba. Ke hore, leha ho le joalo, ho tla phethisoa lekala le le leng feela ho tse thathamisitsoeng. Case.
Lintlha tse ling mabapi le ts'ebetso ea polelo ea VBA Kgetha Taba e ka fumanoa ho Microsoft Developer Network.