Okwu ọnọdụ kachasị mkpa ejiri na Excel VBA bụ nkwupụta Ọ bụrụ na… Mgbe ahụ и Họrọ Ikpe. Okwu abụọ a na-anwale otu ọnọdụ ma ọ bụ karịa, dabere na nsonaazụ ya, mee omume dị iche iche. Anyị ga-ekwu maka ndị na-ahụ maka ọnọdụ ọnọdụ abụọ a n'ụzọ zuru ezu na-esote.
“Ọ bụrụ…Mgbe ahụ” Nkwupụta na Visual Basic
Onye ọrụ Ọ bụrụ na… Mgbe ahụ na-enyocha ọnọdụ ahụ ma, ọ bụrụ na ọ bụ eziokwu (EZIOKWU), mgbe ahụ, a na-eme ihe omume akọwapụtara. Ọ nwekwara ike kọwapụta usoro omume a ga-eme ma ọ bụrụ na ọnọdụ ahụ bụ Ụgha.
syntax onye ọrụ Ọ bụrụ na… Mgbe ahụ dị ka nke a:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
N'okwu a, ihe ndị ahụ Ọ bụrụ и ọzọ Enwere ike ịhapụ onye na-ahụ maka ọnọdụ ọnọdụ ma ọ bụrụ na achọrọghị ya.
N'okpuru ebe a bụ ọmụmaatụ nke, iji onye ọrụ Ọ bụrụ na… Mgbe ahụ Agba njuputa nke cell nọ n'ọrụ na-agbanwe dabere na uru dị na ya:
Ọ bụrụ na ActiveCell.Value < 5 Mgbe ahụ ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 10 Mgbe ahụ = ActiveCell.Interior 49407е 255 . ся в оранжевый цвет Else ActiveCell.Interior.Color = XNUMX 'Ячейка Akwụsị Ọ bụrụ
Rịba ama na ozugbo ọnọdụ ahụ ghọrọ eziokwu, a ga-ewepụ mmezu nke nkwupụta ahụ. Ya mere, ọ bụrụ na uru nke mgbanwe Cell arụ ọrụ ihe na-erughị 5, mgbe ahụ ọnọdụ mbụ na-aghọ eziokwu na cell na-acha akwụkwọ ndụ akwụkwọ ndụ. Mgbe nke ahụ gasịrị, mmezu nke nkwupụta ahụ Ọ bụrụ na… Mgbe ahụ Akwụsịla ma enyochaghị ọnọdụ ndị ọzọ.
Mụtakwuo maka iji onye na-ahụ maka ọnọdụ ọnọdụ na VBA Ọ bụrụ na… Mgbe ahụ enwere ike ịhụ na netwọkụ Mmepụta Microsoft.
Nkwupụta "Họrọ Case" na Visual Basic
Onye ọrụ Họrọ Ikpe yiri onye ọrụ Ọ bụrụ na… Mgbe ahụ na na ọ na-enyochakwa eziokwu nke ọnọdụ ahụ na, dabere na nsonaazụ ya, họrọ otu n'ime nhọrọ.
syntax onye ọrụ Họrọ Ikpe dị ka nke a:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
mmewere Ikpe ọzọ achọghị, mana akwadoro maka ijikwa ụkpụrụ ndị a na-atụghị anya ya.
N'ihe atụ na-esonụ, na-eji ihe nrụpụta Họrọ Ikpe na-agbanwe agba njupụta nke cell ugbu a dabere na uru dị na ya:
Họrọ Case ActiveCell.Value Case bụ <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет Case 6, 7, 8, 9 ActiveCell.Interior 49407Ј10 = ActiveCell. тся в оранжевый цвет Ikpe 65535 ActiveCell.Interior. Agba = 11 'Ячейка окрашивается в жёлтый цвет Case 20 Ka 10498160 ActiveCell.Interior.Color = 255 'Ячейка окрашивается окрашивается окрашивается . Agba = XNUMX 'Ячейка окрашивается в красный цвет Ọgwụgwụ Họrọ
Ihe atụ dị n'elu na-egosi otu ị nwere ike isi tọọ uru maka mmewere n'ụzọ dị iche iche. Ileba na-ewu Họrọ Ikpe. Ndị a bụ ụzọ:
| Ikpe bụ <= 5 | N'ihi ya, na-eji Keyword Ikpe bụ ị nwere ike ịlele ma ọ bụrụ na uru na-eju afọ Nkwupụta okwu ọnọdụ nke ụdị <= 5. |
| Ileba 6, 7, 8, 9 | Otu a ị nwere ike ịlele ma uru ọ dabara Nkwupụta okwu ya na otu ụkpụrụ edepụtara. A na-ekewa ụkpụrụ ndị edepụtara site na rikoma. |
| Ileba 10 | Nke a na-enyocha ma uru ọ dabara Nkwupụta okwu na uru enyere. |
| Ileba 11 Ọ bụ ya 20 | Ya mere, ị nwere ike dee okwu iji lelee ma uru ọ bara Nkwupụta okwu ọnọdụ nke ụdị si 11 ka 20 (dakọrọ na ahaghị nhata "11 <= uru<=20"). |
| Ikpe ọzọ | Dị ka nke a, na-eji isi okwu ọzọ, A na-egosipụta omume maka ikpe ahụ ma ọ bụrụ na ọ bara uru Nkwupụta okwu adabaghị na nhọrọ ọ bụla edepụtara Ileba. |
Ozugbo a chọtara otu n'ime ọnọdụ ndị ahụ, a na-eme ihe ndị kwekọrọ na ihe nhazi ahụ. Họrọ Ikpe. Ya bụ, n'ọnọdụ ọ bụla, ọ bụ naanị otu n'ime alaka ndị edepụtara ka a ga-egbu. Ileba.
Ozi ndị ọzọ gbasara ọrụ nke nkwupụta VBA Họrọ Ikpe enwere ike ịhụ na netwọkụ Mmepụta Microsoft.