Forstørrelses Bare Nåværende Cell

October 16  by Eliza

Brian spurte om det er en måte i Excel for å forstørre innholdet i den gjeldende cellen. Han jobber i et regneark som må være på et lavt zoominnstilling (30% eller så) for å se hele arket. Som ulike scenarier blir drevet, cellene endrer farge avhengig av resultat. Brian kan enkelt se hvilke celler han trenger for å etterforske, men han ikke kan lese dem på grunn av zoominnstillingen. Han endrer normalt zoom, leser svaret, og zoomer ut igjen for å kjøre et annet scenario. Det ville være mye enklere hvis bare den gjeldende cellen (den som er valgt) ble forstørret til en lesbar nivå.

Det er ingen innebygd metode i Excel for å oppnå dette selektiv metode for zooming, men det er et par løsninger du kan bruke. En slik løsning er å bruke en makro som viser verdien i den aktive cellen i en meldingsboks. Slik makro er enkelt å legge til regnearket modulen:

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
MsgBox ActiveCell.Address & ":" & ActiveCell.Value
End Sub

Hver gang du velger en annen celle i regnearket, dukker makroen opp en meldingsboks som viser innholdet i den cellen. Dette løser problemet, men det kan bli slitsomt å stadig nære meldingsbokser hver gang du endre hvilken celle er valgt.

Du kan også lage en makro som bare endret skriftstørrelsen av hva celle er valgt. Følgende enkle makro, lagt til regnearket modulen, ser på den valgte cellen og øker fontstørrelsen med 500%.

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Skrift = ActiveCell.Font.Size
LargeSize = skrift * 5
Cells.Font.Size = skrift
ActiveCell.Font.Size = LargeSize
End Sub

Nytten av en slik makro vil avhenge selvfølgelig på hvordan du har høyden og bredden på den valgte cellen formateres. Hvis de er statiske høyder og bredder, er det mulig at øke skriftstørrelsen vil gjøre celleinnholdet uleselig. Hvis høyden og bredden er dynamiske, da innholdet bør fortsatt være ganske lesbar.

Nok en tilnærming er å lage din egen zoomet inn bilde av hver celle som det er valgt:

Private Sub ZoomCell (ZoomIn Som Enkeltrom)
Dim s Som Range
Sett s = Selection

"Bli kvitt eventuelle eksisterende zoom bilder
For hver p I ActiveSheet.Pictures
Hvis p.Name = "ZoomCell" Da
p.Delete
Exit For
End If
Neste

Opprett en zoom bilde
s.CopyPicture Utseende: = xlScreen, _
Format: = xlPicture
ActiveSheet.Pictures.Paste.Select
Med markering
.name = "ZoomCell"
Med .ShapeRange
.ScaleWidth ZoomIn, msoFalse, _
msoScaleFromTopLeft
.ScaleHeight ZoomIn, msoFalse, _
msoScaleFromTopLeft
Med .Fill
.ForeColor.SchemeColor = 9
.Visible = MsoTrue
.Solid
Avslutt med
Avslutt med
Avslutt med
s.Select
Sette s = Nothing
End Sub

For å kunne bruke makroen, må du ringe det hver gang utvalget i regneark endringer. For å gjøre dette, legger du en liten makro til regnearket modulen:

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
ZoomCell 6
End Sub

I dette tilfelle hver gang cellen valg blir endret, blir ZoomCell makro drives for å skape et bilde som er seks ganger større enn det opprinnelige. Hvis det blir plagsomt å ha bildet automatisk endres hver gang du velger en annen celle, kan du gjøre unna med avtrekkeren makro i regnearket modulen og endre ZoomCell makro slik at det kjører når du starter det, kanskje med en hurtigtast som du setter opp.

Sub ZoomCell ()
Dim s Som Range
Dim ZoomIn Som Enkelt
Sett s = Selection
ZoomIn = 6

"Bli kvitt eventuelle eksisterende zoom bilder
For hver p I ActiveSheet.Pictures
Hvis p.Name = "ZoomCell" Da
p.Delete
Exit For
End If
Neste

Opprett en zoom bilde
s.CopyPicture Utseende: = xlScreen, _
Format: = xlPicture
ActiveSheet.Pictures.Paste.Select
Med markering
.name = "ZoomCell"
Med .ShapeRange
.ScaleWidth ZoomIn, msoFalse, _
msoScaleFromTopLeft
.ScaleHeight ZoomIn, msoFalse, _
msoScaleFromTopLeft
Med .Fill
.ForeColor.SchemeColor = 9
.Visible = MsoTrue
.Solid
Avslutt med
Avslutt med
Avslutt med
s.Select
Sette s = Nothing
End Sub

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (10426) gjelder for Microsoft Excel 2007 og 2010. Du kan finne en versjon av dette tipset for den eldre menygrensesnittet av Excel her: forstørrelses Bare den gjeldende cellen.