Šajā rakstā mēs izveidosim makro, lai ievietotu lappušu pārtraukumus, pamatojoties uz noteiktu nosacījumu.
Neapstrādātos datus veido aģenta dati, kas ietver aģenta vārdu, klienta vārdu, tālruņa numuru un e -pasta ID.
Drukāšanas laikā mēs vēlamies datus par konkrētu aģentu atsevišķās lapās. Tātad, mēs vēlamies ievietot lapas pārtraukumu katra aģenta datu beigās.
Loģisks skaidrojums
Mēs esam izveidojuši makro “InsertingPagebreak”, lai ievietotu lapas pārtraukumu. Mēs salīdzinām 2 secīgu šūnu vērtības pirmajā kolonnā, lai atrastu pēdējo ar konkrēto aģentu saistīto šūnu un ievietotu lapas pārtraukumu.
Koda skaidrojums
ActiveSheet.ResetAllPageBreaks
Iepriekš minēto kodu izmanto, lai noņemtu visus iepriekšējos lapas pārtraukumus, kas ievietoti lapā.
Ja šūnas (LngRow, LngCol). Vērtības šūnas (LngRow - 1, LngCol). Vērtība Tad
Iepriekš minēto kodu izmanto, lai salīdzinātu secīgās šūnas pirmajā kolonnā.
ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Šūnas (LngRow, LngCol)
Iepriekš minēto kodu izmanto, lai ievietotu lappušu pārtraukumus pirms norādītajām šūnām.
Lūdzu, sekojiet tālāk norādītajam kodam
Sub InsertingPagebreak () 'Deklarējošie mainīgie Dim LngCol As Long Dim LngRow, MaxRow As Long' Notīrīt esošos lapas pārtraukumus ActiveSheet.ResetAllPageBreaks LngCol = 1 'Pēdējās šūnas rindas numura iegūšana MaxRow = Range ("A11"). SpecialCells (xlCellTypeLastCell). “Cilpu cauri visām rindām, sākot no trīspadsmitās rindas LngRow = 13 līdz MaxRow” Vērtību salīdzināšana divu secīgu rindu šūnā norādītajai kolonnai If Cells (LngRow, LngCol). Vērtības šūnas (LngRow - 1, LngCol). Vērtība pēc tam ” Lapas pārtraukuma ievietošana ActiveWindow.SelectedSheets.HPageBreaks.Add Before: = Šūnas (LngRow, LngCol) Beigas, ja nākamā LngRow End Sub
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē