Selles artiklis kasutame töölehe muutmise sündmust andmete ülekandmiseks ühelt lehelt teisele, sõltuvalt teatud tingimustest.
Toorandmed koosnevad kliendi andmetest, sealhulgas nimi, tänava aadress, linn, piirkond, riik ja telefoninumber.
Selles artiklis tahame edastada nende klientide andmeid, kes ei ole konkreetse pakkumise jaoks sobilikud. Kui klient ei ole konkreetse pakkumise jaoks sobilik, sisaldab viimane veerg väärtust „Mitte”. Tahame kopeerida need mittekõlblikud kliendid lehele „NotEligibleData”.
Koodi selgitus
Kui Siht. Veerg = 7 Siis
Ülaltoodud koodi kasutatakse töölehe muutmise sündmuse piiramiseks ainult siis, kui väärtus on 7th veergu muudetakse.
Arvutustabelid ("NotEligibleData"). Vahemik ("A2: I600"). ClearContents
Ülaltoodud koodi kasutatakse väärtuse kustutamiseks vahemikust A2: I600
Arvutustabelid ("Main"). Lahtrid (i, "G"). EntireRow.Copy Destination: = Sheets ("NotEligibleData"). Vahemik ("A" & Rows.Count) .End (xlUp). Offset (1)
Ülaltoodud koodi kasutatakse mittekõlblike klientide kopeerimiseks lehele "NotEligibleData".
Palun järgige koodi allpool
Privaatne alamlehe muutmine (ByVal Target As Range) 'Deklareerivad muutujad Dim i, Lastrow As Long' Täida kood, kui seitsmenda veeru väärtust muudetakse If Target.Column = 7 Siis 'Viimase lahtri rea numbri hankimine Lastrow = Sheets ("Main" ) .Range ("A" & Rows.Count) .End (xlUp). Rida "Varasemate andmete kustutamine" NotEligibleData "lehelehtedelt (" NotEligibleData "). Vahemik (" A2: I600 "). ClearContents 'Looping from 10th rida viimasele reale For i = 10 To Lastrow 'Kui rea G veeru väärtus on "Ei", kopeerige rida sihtlehele If Sheets ("Main"). Lahtrid (i, "G"). Value = " Mitte "Siis Sheets (" Main "). Lahtrid (i," G "). EntireRow.Copy Destination: = Sheets (" NotEligibleData "). Vahemik (" A "& Rows.Count) .End (xlUp) .Offset ( 1) Lõpeta, kui järgmine i Lõpeta, kui vahemik ("A1"). Valige Lõpeta alam
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile
