Šiame straipsnyje mes naudosime darbalapio keitimo įvykį, norėdami perkelti duomenis iš vieno lapo į kitą, atsižvelgiant į tam tikrą sąlygą.
Neapdorotus duomenis sudaro kliento duomenys, įskaitant vardą, pavardę, gatvės adresą, miestą, regioną, šalį ir telefono numerį.
Šiame straipsnyje norime perduoti tų klientų, kurie negali gauti konkretaus pasiūlymo, duomenis. Paskutiniame stulpelyje kaip vertė nurodyta „Ne“, jei klientas negali gauti konkretaus pasiūlymo. Norime nukopijuoti tuos „netinkamus“ klientus į „NotEligibleData“ lapą.
Kodo paaiškinimas
Jei Target.Column = 7 Tada
Aukščiau pateiktas kodas naudojamas apriboti darbalapio keitimo įvykį tik tada, kai vertė 7tūkst stulpelis pakeistas.
Skaičiuoklės („NotEligibleData“). Diapazonas („A2: I600“). „ClearContents“
Aukščiau pateiktas kodas naudojamas ištrinti vertę iš diapazono A2: I600
Skaičiuoklės ("Pagrindinis"). Ląstelės (i, "G"). EntireRow.Copy Destination: = Skaičiuoklės ("NotEligibleData"). Diapazonas ("A" ir Rows.Count) .End (xlUp) .Offset (1)
Aukščiau pateiktas kodas naudojamas netinkamiems klientams nukopijuoti į lapą „NotEligibleData“.
Sekite toliau pateiktą kodą
Privatus antrinis darbalapio keitimas („ByVal Target As Range“) „Deklaruojantys kintamieji Dim i, Lastrow as Long“ Vykdykite kodą, jei septintojo stulpelio vertė bus pakeista If Target.Column = 7 Tada 'Paskutinio langelio eilutės numerio gavimas Lastrow = Sheets ("Main") ) .Range ("A" & Rows.Count) .End (xlUp) .Row 'Ištrinti visus ankstesnius duomenis iš "NotEligibleData" lapo lapų ("NotEligibleData"). Diapazonas ("A2: I600"). ClearContents' Looping nuo dešimtosios eilutė iki paskutinės eilutės For i = 10 To Lastrow 'Jei eilutės G stulpelio vertė yra „Ne“, nukopijuokite eilutę į paskirties lapą „If Sheets“ („Main“). Ląstelės (i, „G“). Value = " Ne "Tada skaičiuoklės (" Pagrindinis "). Ląstelės (i," G "). EntireRow.Copy Destination: = Skaičiuoklės (" NotEligibleData "). Diapazonas (" A "ir Rows.Count). Pabaiga (xlUp) .Offset ( 1) Pabaiga, jei kita i Pabaiga, jei diapazonas ("A1"). Pasirinkite Pabaigos antr
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el