Conas cealla roghnaithe a zúmáil nó a mhéadú i Excel?
Mar is eol dúinn uile, tá gné Zúmáil ag Excel chun cabhrú linn méid luach na cille a mhéadú sa bhileog oibre iomlán. Ach, uaireanta, ní gá dúinn ach na cealla roghnaithe a zúmáil nó a mhéadú. An bhfuil aon smaointe maithe ann dúinn na cealla roghnaithe a mhéadú i mbileog oibre amháin?
Zúmáil nó formhéadú an chill roghnaithe le cód VBA
Zúmáil nó formhéadú an chill roghnaithe le cód VBA
B’fhéidir nach mbeidh aon bhealach díreach ann dúinn na cealla roghnaithe a mhéadú in Excel, ach, anseo, is féidir liom cód VBA a thabhairt isteach chun déileáil leis an bpost seo mar bhonn oibre. Déan mar a leanas le do thoil:
1. Cliceáil ar dheis ar an táb bileog a theastaíonn uait na cealla roghnaithe a mhéadú go huathoibríoch, agus ansin roghnaigh Féach an cód ón roghchlár comhthéacs, san oscailt Microsoft Visual Basic d’iarratais an cód seo a leanas a fhuinneogú, a chóipeáil agus a ghreamú isteach sa Mhodúl bán:
Cód VBA: Zúmáil nó formhéadú na gcealla roghnaithe:
Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xShape As Variant
Set xRg = Target.Areas(1)
For Each xShape In ActiveSheet.Pictures
If xShape.Name = "zoom_cells" Then
xShape.Delete
End If
Next
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
Application.ActiveSheet.Pictures.Paste.Select
With Selection
.Name = "zoom_cells"
With .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
With .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Solid
.Transparency = 0
End With
End With
End With
xRg.Select
Application.ScreenUpdating = True
Set xRg = Nothing
End Sub
2. Ansin sábháil agus dún an fhuinneog cód seo, anois, nuair a roghnaíonn tú nó nuair a chliceálann tú roinnt cealla sonraí, méadófar na cealla mar phictiúr go huathoibríoch, féach an scáileán:
nótaí: Athrófar na cealla roghnaithe ar ais go dtí an méid bunaidh tar éis cealla eile a roghnú.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!