Note: The other languages of the website are Google-translated. Back to English

Sut i chwyddo neu chwyddo celloedd dethol yn Excel? 

Fel y gwyddom i gyd, mae gan Excel nodwedd Zoom i'n helpu i gynyddu maint gwerth y gell yn y daflen waith gyfan. Ond, weithiau, does ond angen i ni chwyddo neu chwyddo'r celloedd a ddewiswyd yn unig. A oes unrhyw syniadau da inni ehangu'r celloedd a ddewiswyd mewn taflen waith yn unig?

Chwyddo neu chwyddo'r gell a ddewiswyd gyda chod VBA


Chwyddo neu chwyddo'r gell a ddewiswyd gyda chod VBA


Efallai nad oes unrhyw ffordd uniongyrchol inni chwyddo'r celloedd a ddewiswyd yn Excel, ond, yma, gallaf gyflwyno cod VBA i ddelio â'r swydd hon fel ateb gwaith. Gwnewch fel a ganlyn:

1. Cliciwch ar y dde ar y tab dalen rydych chi am ei ehangu i'r celloedd a ddewiswyd yn awtomatig, ac yna dewiswch Gweld y Cod o'r ddewislen cyd-destun, yn yr agoriad Microsoft Visual Basic ar gyfer cymwysiadau ffenestr, copïo a gludo'r cod canlynol i'r Modiwl gwag:

Cod VBA: Chwyddo neu chwyddo'r celloedd a ddewiswyd:

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. Yna arbedwch a chau y ffenestr god hon, nawr, pan fyddwch chi'n dewis neu'n clicio rhai celloedd data, bydd y celloedd yn cael eu chwyddo fel llun yn awtomatig, gweler y screenshot:

Nodyn: Bydd y celloedd a ddewiswyd yn cael eu newid yn ôl i'w maint gwreiddiol ar ôl dewis celloedd eraill.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (9)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae hyn yn cŵl, ond rydw i eisiau iddo redeg ym mhob taflen, sut alla i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Ahmet,
I gymhwyso'r gweithrediad hwn ym mhob taflen waith, gallwch ddefnyddio'r cod vba isod. (Dylech roi'r cod yn y modiwl ThisWorkbook). Rhowch gynnig arni.
Is Gweithlyfr Preifat_TaflenNewidDewisiad(Gan y Fal s Fel Gwrthrych, ByVal Targed Fel Ystod)
Dim xRg Fel Ystod
Dim xCell Fel Ystod
Dim xShape Fel Amrywiad
Gosod xRg = Targed.Ardaloedd(1)
Ar gyfer Pob xShape Mewn ActiveSheet.Pictures
Os xShape.Name = "zoom_cells" Yna
xShape.Dileu
Gorffennwch Os
Digwyddiadau
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Yna Gadael Is
Application.ScreenUpdating = Anghywir
xRg.CopyPicture gwedd:=xlScreen, Fformat:=xlPicture
Cymhwysiad.Daflen Weithredol.Lluniau.Gludw.Dewis
Gyda Detholiad
.Name = "zoom_cells"
Gyda .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleO'r Chwith Uchaf
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
Gyda .Llenwi
.ForeColor.SchemeColor = 44
.Gweladwy = msoTrue
.Soled
.Tryloywder = 0
Diwedd Gyda
Diwedd Gyda
Diwedd Gyda
xRg.Dewis
Application.ScreenUpdating = Gwir
Gosod xRg = Dim byd
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am chwyddo wrth fewnbynnu'r data
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Efallai nad oes ffordd uniongyrchol o ddatrys eich problem, os dewch o hyd i ddull da, rhowch sylwadau yma.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwall 1004 ar-lein 15

Cymhwysiad.Daflen Weithredol.Lluniau.Gludw.Dewis

Pam?, beth allai fod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mazzi,
Mae'r cod uchod yn gweithio'n dda yn fy llyfr gwaith Excel, pa fersiwn Excel ydych chi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Rwy'n defnyddio Mac-Air ac mae'n dangos y lliw yn unig pan fyddwch chi'n clicio ar gell benodol, canllaw pls.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae hyn yn wych - diolch.

A fyddai'n bosibl cael hwn ar ddetholiad o gelloedd ar ddalen yn unig? Er enghraifft, pob cell yng ngholofn A, neu A3 i A26 er enghraifft?
Diolch yn fawr!
Rhys
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ragazzi perso cos' non posso correggere la singola cella...esiste un modo per ingrandire la singola cella una volta selezionata and lavorarci sopra ?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir