tirotiro
He waahi ka hiahiatia he kaupapa VBA ki te mahi i taua huinga hohenga i nga wa maha i te rarangi (ara, tukurua i te poraka kotahi o te waehere kia maha nga wa). Ka taea tenei ma te whakamahi i nga koropiko VBA.
Ko nga koropiko VBA kei roto:
Ka whai ake, ka ata titiro tatou ki ia o enei huringa.
Mo te Kaiwhakahaere Loop i Visual Basic
Ko te hanganga o te kaiwhakahaere koropiko te i roto i te Visual Basic ka taea te whakarite i tetahi o nga ahua e rua: hei kopikopiko Mo… Panuku hei koropiko ranei Mo Ia.
Porohita “Mo … Panuku”
Takahuri Mo… Panuku ka whakamahi i tetahi taurangi e tango ana i nga uara mai i tetahi awhe kua tohua. I ia huringa o te uara o te taurangi, ka mahia nga mahi i roto i te tinana o te huringa. He ngawari tenei ki te maarama mai i tetahi tauira ngawari:
Mo i = 1 Ki te 10 Tapeke = Tapeke + iArray(i) Panuku i
I roto i tenei kopikopiko ngawari Mo… Panuku ka whakamahia te taurangi i, e tango ana i nga uara 1, 2, 3, … 10, a mo ia o enei uara, ka mahia te waehere VBA kei roto i te kapiti. No reira, ka whakahiatotia e tenei kowhiti nga huānga o te huinga. iArray i roto i te taurangi tapeke.
I roto i te tauira i runga ake nei, kaore i te tohuhia te pikinga o te kopae, na ki te whakanui i te taurangi i mai i te 1 ki te 10, he pikinga te taunoa 1… Heoi, i etahi wa me whakamahi nga uara pikinga rereke mo te kapiti. Ka taea tenei ma te whakamahi i te kupu matua Hipangae whakaatuhia ana i te tauira ngawari e whai ake nei.
Mo te d = 0 Ki te 10 Hipanga 0.1 dTapeke = dTapeke + d Panuku d
I te mea i roto i te tauira o runga ake nei, ka whakatauritehia te taahiraa pikinga ki te 0.1, katahi te taurangi dTapeke mo ia tukuruatanga o te huringa ka mau ki nga uara 0.0, 0.1, 0.2, 0.3,… 9.9, 10.0.
Hei whakatau i te hikoi takahuri i roto i te VBA, ka taea e koe te whakamahi i te uara kino, hei tauira, penei:
Mo i = 10 Ki te 1 Hipanga -1 iArray(i) = i Panuku i
Anei te pikinga -1, na te taurangi i me ia tukuruatanga o te huringa ka mau ki nga uara 10, 9, 8, … 1.
Porowhita “Mō Ia”
Takahuri Mo Ia he rite ki te huringa Mo… Panuku, engari kaua e huri ki runga i te raupapa o nga uara mo te taurangi porotiti, ko te kapiti Mo Ia ka mahia he huinga mahi mo ia ahanoa i roto i te roopu ahanoa kua tohua. I roto i te tauira e whai ake nei, te whakamahi i te kopikopiko Mo Ia he tatau i nga rau katoa i te pukamahi Excel onāianei:
Whakamoemititia te wSheet Hei Pepamahi mo ia wSheet kei roto i nga Pepamahi Pouaka Pouaka "Kaiwhakahaere: " & wSheet.Ingoa Panuku wSheet
Tauākī haukoti porotiti “Puta atu Mo”
Tohutūmahi Putaatu Mo whakamahia ki te haukoti i te huringa. I te wa ka tutakihia tenei korero i roto i te waehere, ka mutu te mahinga o te mahinga ka puta ki te mahi i nga korero kei roto i te waehere i muri tonu mai i tenei kopae. Ka taea te whakamahi, hei tauira, ki te rapu i tetahi uara motuhake i roto i te huinga. Ki te mahi i tenei, ma te whakamahi i te kapiti, ka karapahia ia huānga o te huinga. Ka kitea te huānga e hiahiatia ana, kaore he take ki te tirotiro i te toenga - ka haukotia te huringa.
Tono kaiwhakahaere Putaatu Mo whakaaturia i roto i te tauira e whai ake nei. I konei ka huri te kapiti neke atu i te 100 nga whakaurunga hurangi me te whakataurite ia ia ki te uara o te taurangi dVal… Mēnā ka kitea he ōritenga, ka mutu te koropiko:
Mo i = 1 Ki te 100 Mēnā dValues(i) = dVal Kātahi IndexVal = i Puta atu mo te Whakamutunga Ki te Panuku i
Ko te Do While Loop i roto i te Visual Basic
Takahuri Mahi i te wa ka mahia he poraka waehere i te mea ka tutuki te tikanga kua tohua. E whai ake nei he tauira o te tukanga Sub, i roto i te whakamahi i te koropiko Mahi i te wa Ko nga nama Fibonacci e kore e neke ake i te 1000 ka whakaatuhia a-raupapa:
'Ka puta nga tikanga o raro i nga tau Fibonacci kaua e neke ake i te 1000 Sub Fibonacci() Dim i As Integer 'counter ki te tohu i te tuunga o te huānga i te raupapa Dim iFib As Integer 'puaki ana i te uara o naianei o te raupapa Dim iFib_Next I te mea ko te Integer ' ka penapena i te uara e whai ake nei o te raupapa Dim iStep As Integer 'whakaahua te rahi o te pikinga e whai ake nei' arataki i nga taurangi i me iFib_Next i = 1 iFib_Next = 0 'Do While ka mahia te koropiko kia nui ake te uara o te 'tau Fibonacci o naianei i te 1000 Do While iFib_Next < 1000 If i = 1 Na 'take motuhake mo te huānga tuatahi iStep = 1 iFib = 0 Kore 'tiakina te rahi o te pikinga e whai ake nei i mua i te tuhirua 'te uara o naianei o te raupapa iStep = iFib iFib = iFib_Next End Ki te 'taa te tau Fibonacci o naianei ki te pou A o te pepa mahi hohe 'i te rarangi me te taupū i Pūtau(i , 1). Uara = iFib ' tātaihia te tau Fibonacci e whai ake nei me te whakanui i te taupū tūnga huānga mā te 1 iFib_Next = iFib + iStep i = i + 1 Loop End Sub
I roto i te tauira i homai, te huru iFib_Next <1000 i takina i te timatanga o te kapiti. Na reira, ki te te uara tuatahi iFib_Next Mena he nui ake i te 1000, karekau te kapiti e mahia.
Ko tetahi atu huarahi ki te whakatinana i te kopikopiko Mahi i te wa - tuuhia te ahuatanga kaua i te timatanga, engari i te mutunga o te kopae. I tenei keehi, ka mahia te kapiti i te iti rawa i te kotahi, ahakoa kua tutuki te ahuatanga.
Ko te tikanga, he huringa penei Mahi i te wa me te tikanga kia tirohia i te mutunga ka penei te ahua:
Mahia ... Porowhita I te iFib_Next < 1000
Цикл «Mai Kia Taea» ki te Visual Basic
Takahuri Mahi Tae noa tino rite ki te huringa Mahi i te wa: ko te poraka o te waehere kei roto i te tinana o te kapiti ka mahia tonutia kia tutuki ra ano te tikanga kua tohua (ko te hua o te korero herenga he pono). I te tukanga e whai ake nei Sub te whakamahi i te huringa Mahi Tae noa tiki uara mai i nga pūtau katoa o te tīwae A raumahi kia tutaki te tīwae ki tētahi pūtau kau:
iRow = 1 Mahia Kia Putea(Cells(iRow, 1)) 'Kei te rongoa te uara o te pūtau onāianei ki te huānga dCellValues dCellValues(iRow) = Pūtau(iRow, 1).Uara iRow = iRow + 1 Loop
I te tauira i runga ake nei, ko te ahuatanga Kua Putea(Ngā Pūtau(iRow, 1)) kei te timatanga o te hanganga Mahi Tae noa, no reira ka mahia te koropiko i te iti rawa kia kotahi mena karekau te pūtau tuatahi i tangohia.
Heoi ano, ka whakaatuhia i roto i nga tauira kopikopiko Mahi i te wa, i etahi ahuatanga me mahi te kapiti i te iti rawa kia kotahi, ahakoa te hua tuatahi o te korero here. I roto i tenei take, me tuu te kupu here ki te pito o te kapiti, penei:
Mahia ... Porowhita Kia Putea(Ngā Pūtau(iRow, 1))