Ko nga korero tino nui e whakamahia ana i roto i te Excel VBA ko nga korero Mena ... Na и Tīpako Take. Ko enei korero e rua he whakamatautau i tetahi, neke atu ranei nga tikanga, a, i runga i te hua, ka mahi i nga mahi rereke. Ka korero maatau mo enei kaiwhakahaere here e rua mo nga korero a muri ake nei.
“Ki te…Na” Tauākī i roto i te Visual Basic
Tohutūmahi Mena ... Na ka tirohia te ahuatanga, a, ki te pono (TRUE), ka mahia te huinga o nga mahi kua tohua. Ka taea hoki te tautuhi i te huinga o nga mahi ka mahia mena he he te ahuatanga.
Te wetereo kaiwhakahaere Mena ... Na penei:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
I roto i tenei korero, ko nga huānga Inaa и atu Ko nga tikanga ka taea te whakakore i te kaiwhakahaere ki te kore e hiahiatia.
Kei raro nei tetahi tauira e whakamahi ana i te kaiwhakahaere Mena ... Na Ka huri te tae whakakī o te pūtau hohe i runga i te uara o roto:
Mena ko te Activeclm.Value <5 kactivecell.intior.color = 65280 'явеrйка окейка окейка окейка окейёный звеrйка оветваетстсвс окрашивается в красный цвет Whakamutunga Mehemea
Kia mahara ko te wa e pono ai te ahuatanga, ka whakakorehia te whakatinanatanga o te korero herenga. Na reira, ki te te uara o te taurangi ActiveCell iti iho i te 5, katahi ka pono te ahuatanga tuatahi, ka tae ki te kaakaariki. Whai muri i tera, ka mahia te korero Mena ... Na ka haukotia, karekau hoki era atu tikanga e tirohia.
Ako atu mo te whakamahi i te kaiwhakahaere here i roto i te VBA Mena ... Na ka kitea i runga i te Whatunga Kaiwhakawhanake Microsoft.
Tauākī "Tīpakohia te Take" ki Visual Basic
Tohutūmahi Tīpako Take rite ki te kaiwhakahaere Mena ... Na i roto i te mea ka tirohia ano e ia te pono o te ahuatanga, a, i runga i te hua, ka kowhiria tetahi o nga whiringa.
Te wetereo kaiwhakahaere Tīpako Take penei:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
huānga Take Atu kaore e hiahiatia, engari e taunaki ana mo te whakahaere i nga uara ohorere.
I roto i te tauira e whai ake nei, te whakamahi i te hanga Tīpako Take ka huri i te tae whakakī o te pūtau onāianei i runga i te uara o roto:
Tīpakohia te Take ActiveCell.Value Case He <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет Take 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 ActiveCell.Interior.Color = 10 'ActiveCell.Interior.Color = 65535 'Ячейка окрашивается в зелёный цвет Color = 11 'Ячейка окрашивается в жёлтый цвет Case 20 To 10498160 ActiveCell.Interior.Color = 255 'Ячейка окрашивается в лиловый цвет Case Else ActiveCell.Interior.Color = XNUMX 'Ячейка окрашивается в красный цвет End Select
Ko te tauira i runga ake nei e whakaatu ana me pehea e taea ai e koe te whakarite uara mo tetahi huānga ma nga huarahi rereke. Case i roto i te hanga Tīpako Take. Ko enei nga huarahi:
| Take Ko <= 5 | Na, ma te whakamahi i te kupu matua Take Ko ka taea e koe te tirotiro mena ka makona te uara Nga Korero te ahua o te ahua <= 5. |
| Case 6, 7, 8, 9 | Ma tenei ka taea e koe te tirotiro mena he rite te uara Nga Korero me tetahi o nga uara kua whakarārangihia. Ko nga uara kua whakarārangitia ka wehea e te piko. |
| Case 10 | Ma tenei ka tirotiro mena he rite te uara Nga Korero me te uara. |
| Case 11 Koia tena 20 | Na, ka taea e koe te tuhi korero hei tirotiro mena ka makona te uara Nga Korero te ahua o te ahua i 11 ki 20 (he rite ki te riterite "11<=uara<=20"). |
| Take Atu | Ka rite ki tenei, te whakamahi i te kupu matua atu, ka tohuhia nga mahi mo te keehi mena ko te uara Nga Korero e kore e taurite ki tetahi o nga whiringa kua whakarārangihia Case. |
Ka kitea tetahi o nga tikanga, ka mahia nga mahi e rite ana, ka puta te hanganga. Tīpako Take. Arā, ahakoa he aha, kotahi anake nga peka kua whakarārangitia ka mahia. Case.
He maha atu nga korero mo te mahi o te korero VBA Tīpako Take ka kitea i runga i te Whatunga Kaiwhakawhanake Microsoft.