Spesifisere antall eksemplarer i en celle

December 2  by Eliza

Tom prøver å skape noen makrokode som vil kontrollere antall kopier som skal skrives ut, basert på verdien i en celle. Han har skapt en inngang skjema for hans skipspersonell å bruke at utskrifter pakke innholds etiketter. Han ønsker å være i stand til å få dem inn i celle B11 antall etiketter som må skrives ut, og da har det nummeret skrives ut.

Dette er relativt enkelt å gjøre, avhengig av hva du vil ha skrevet ut. Hvis du vil skrive ut bare innholdet i det aktive regnearket, så kan du bruke kode som ligner på følgende:

iNumCopies = Range ("B11"). Verdi
Hvis iNumCopies <1 Da iNumCopies = 1
ActiveSheet.PrintOut Eksemplar: = iNumCopies

Hvis du ikke ønsker å skrive ut hele regnearket, så må du endre Utskriften uttalelsen bare litt. For eksempel forutsetter følgende eksempel at "label" som skal skrives inn i området A1: A5:

Satt MyRange = Range ("A1: A5")
iNumCopies = Range ("B11"). Verdi
Hvis iNumCopies <1 Da iNumCopies = 1
MyRange.PrintOut Eksemplar: = iNumCopies

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (3272) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Angi antall eksemplarer i en celle.