In Excel, kan vi ikke skrive ut validerings sirkler direkte, men vi kan kopiere og lime inn data range med validerings sirkler som bilde, og deretter skrive det ut.
1. Velg dataområdet som du vil skrive ut sirklene.
2. Trykk Ctrl + C tastene på tastaturet for å kopiere den, og deretter gå til et nytt regneark, klikker du en celle, og høyreklikk, velg Lim > Bilde, se skjermbilde:
tre. Og så valget har blitt limt inn som bilde, og nå når du skriver ut det nye regnearket, vil sirklene bli skrevet ut.
Print regneark med validerings sirkler ved hjelp av VBA-kode
Hvis du don 't liker å lime dataområdet som bilde, følgende VBA-kode også kan hjelpe deg.
1. Etter innstilling av datavalidering, kan du holde nede ALT + F11-tastene i Excel for å åpne Microsoft Visual Basic for Applications vinduet.
2. Deretter klikker du Sett > Modul, og lim inn følgende makroen i modulen Window
VBA-kode. Sett røde sirkler til de ugyldige data
Sub AddValidationCirclesForPrinting () 'Update 20140724Dim RNG Som RangeDim WorkRng Som RangeDim xCount Som IntegerDim xShape Som ShapeOn Error Resume NextSet WorkRng = Application.ActiveSheet.Cells.SpecialCells (xlCellTypeAllValidation) Hvis WorkRng Er Ingenting Deretter Avslutt SubEnd IfxCount = 0 ° C i Hver RNG I WorkRng Hvis ikke Rng.Validation.Value Så Set xShape = Application.ActiveSheet.Shapes.AddShape (msoShapeOval, Rng.Left - 2, Rng.Top - 2, Rng.Width + 4, Rng.Height +4) xShape.Fill.Visible = msoFalse xShape.Line.ForeColor.SchemeColor = 10 xShape.Line.Weight = 1.25 xCount = xCount + 1 xShape .name = "InvalidData_" & xCount End IfNextExit SubEnd Sub3. Og trykk F5 for å kjøre denne koden, og ugyldige data er sirklet med rødt oval, se skjermbilde:
4. Når du går til å skrive ut dette regnearket som inneholder de røde sirklene, vil sirklene skrives samt
Obs.
Med denne VBA-kode, vil sirklene ikke fjernes med Excel Clear Validerings Circles funksjonen, hvis du vil slette sirklene, kan du bruke under kode
VBA-kode. Fjern validerings sirkler i regneark
Sub RemoveValidationCircles () 'Update 20140724Dim xShape Som ShapeFor Hver xShape I Application.ActiveSheet.Shapes Hvis xShape.Name Like " InvalidData_ * "Så xShape.Delete End IfNextEnd Sub
Datamaskin læring 