Skip i'r prif gynnwys

Excel: Sut i ehangu cell i ddangos yr holl gynnwys wrth glicio

Mewn rhai achosion, os yw cynnwys y gell yn hirach na lled y gell a bod gwerthoedd yn y celloedd colofn nesaf, dim ond rhannau o'r cynnwys a ddangosir fel y sgrinlun isod a ddangosir. Er mwyn osgoi newid lled ac uchder y celloedd, gallwch glicio ar y gell a gweld y cynnwys cyfan yn y bar fformiwla. Ond os yw'r bar fformiwla wedi'i guddio neu'n fyrrach na'r cynnwys, sut i'w wneud? Yma yn cyflwyno dau ddull a all ddangos cynnwys y gell mewn blwch testun wrth glicio arno.
cwblhau'n awtomatig o restr arall

Ehangwch gell i ddangos yr holl gynnwys trwy fewnosod blwch testun Active X Controls

Ehangu cell i ddangos yr holl gynnwys trwy ddefnyddio Bar Fformiwla Mwy o Kutools ar gyfer Excel

Sylwch: mae'r dulliau a ddarperir yn y tiwtorial hwn yn cael eu profi yn Excel 2021, efallai y bydd rhai gwahanol mewn gwahanol fersiynau Excel.


Ehangwch gell i ddangos yr holl gynnwys trwy fewnosod blwch testun Active X Controls

1. Activate y daflen waith yr ydych am ehangu cell, cliciwch Datblygwr > Mewnosod > Blwch Testun (Rheolaethau ActiveX).
cwblhau'n awtomatig o restr arall

Os nad oes Datblygwr tab yn y rhuban, dangoswch ef ar y dechrau, edrychwch ar y tiwtorial hwn Sut i Ddangos/Arddangos Tab Datblygwr Yn Excel Rhuban

2. Yna llusgwch y cyrchwr i dynnu blwch testun gyda lled ac uchder a all ddangos cynnwys hiraf celloedd. Cofiwch enw'r blwch testun hwn, dyma TextBox1.
cwblhau'n awtomatig o restr arall

3. De-gliciwch ar y blwch testun, a chliciwch Eiddo o'r ddewislen cyd-destun. Yna i mewn Eiddo cwarel, dewiswch Cywir o gwymplenni yn y Aml-linell ac WordWrap adrannau. Yna cau'r Eiddo pane.
cwblhau'n awtomatig o restr arall  cwblhau'n awtomatig o restr arall

Neu gallwch ddewis Gwir o'r gwymplen yn Maint Auto adran yn y cwarel Priodweddau, bydd maint y blwch testun yn awtomatig yn seiliedig ar hyd cynnwys y gell y byddwch yn clicio arno.

4. De-gliciwch ar y tab enw dalen yn y bar statws, a chliciwch Gweld y Cod o'r ddewislen cyd-destun.

5. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo islaw'r cod i'r sgript wag.

VBA: Ehangu cell i ddangos cynnwys

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
xRgAddress = "A1:B4" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub

cwblhau'n awtomatig o restr arall

Sylwch mai TextBox1 yw enw'r blwch testun y gwnaethoch ei dynnu, ac A1:B4 yw'r ystod y mae'r cod hwn yn ei weithio, newidiwch nhw yn ôl yr angen.

6. Ewch yn ôl at y daflen, cliciwch Datblygwr > Modd Dylunio i fodoli modd dylunio.
cwblhau'n awtomatig o restr arall

Nawr pan fyddwch chi'n clicio ar y gell, bydd y blwch testun yn ymddangos wrth ei ymyl, ac yn dangos cynnwys cyfan y gell.
cwblhau'n awtomatig o restr arall


Ehangu cell i ddangos yr holl gynnwys trwy ddefnyddio Bar Fformiwla Mwy o Kutools ar gyfer Excel

Os ydych chi wedi gosod Kutools ar gyfer Excel, bydd y Bar Fformiwla Mwy a ddarparwyd ganddo yn dangos holl gynnwys y gell mewn blwch popped pan fyddwch chi'n clicio cyhyd â'ch bod yn ei actifadu trwy glicio Kutools > Bar Fformiwla Mwy.
cwblhau'n awtomatig o restr arall

Awgrym:

1. Gyda'r Bar Fformiwla Mwy, ac eithrio i weld cynnwys y gell weithredol, gallwch hefyd olygu cynnwys y gell yn y Bar Fformiwla Mwy.

2. Gallwch newid maint y Bar Fformiwla Mwy trwy lusgo cornel dde i lawr y Bar.

3. Os dewiswch fwy nag un cell, dim ond cynnwys cell gyntaf y detholiad a ddangosir yn y Bar Fformiwla Mwy.

Mwy o fanylion am Bigger Formula Bar, ewch i'w tiwtorial.


Gweithrediadau Eraill (Erthyglau)

Sut i Diffodd Auto Complete
Dyma opsiwn yn Excel a all atal y auto rhag cwblhau.

Sut i Leihau Maint Ffeil Excel?
Weithiau, bydd yn cymryd munudau i agor neu gadw os yw'r ffeil Excel yn rhy fawr. Ar gyfer datrys y broblem hon, yma yn y tiwtorial hwn, mae'n dweud wrthych sut i leihau maint y ffeil Excel trwy gael gwared ar y cynnwys neu'r fformatau sy'n ddiangen neu na chânt eu defnyddio erioed.

Sut i gwblhau celloedd yn awtomatig o dabl arall
Yn y tiwtorial hwn, mae'n sôn am sut i gwblhau celloedd colofn eraill yn awtomatig o dabl mewn dalen arall ar ôl nodi gwerth un golofn.

Sut i gymhwyso cysgodi i resi / colofnau od neu hyd yn oed (amgen) yn Excel?
Wrth ddylunio taflen waith, mae llawer o bobl yn tueddu i gymhwyso cysgodi i resi neu golofnau od neu hyd yn oed (amgen) er mwyn gwneud y daflen waith yn fwy gweledol. Bydd yr erthygl hon yn dangos dau ddull i chi gymhwyso cysgodi i resi / colofnau od neu hyd yn oed yn Excel.


  • 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 a Cadw Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi Dyblyg a Swm / Cyfartaledd... 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 ...
  • Fformiwlâu Hoff a Mewnosod yn Gyflym, Meysydd, Siartiau a Lluniau; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • 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...
  • Grwpio Tabl Pivot yn ôl rhif wythnos, diwrnod o'r wythnos a mwy ... Dangos Celloedd Datgloi, wedi'u Cloi yn ôl gwahanol liwiau; Amlygu Celloedd sydd â Fformiwla / Enw...
tab kte 201905
  • 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
Comments (5)
Rated 4.5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
I am having the same issue as Neil. Code works fine, except when selecting any full row or column that include the cell range in the code, i am getting the Run-time error '94'. Invalid use of Null, highlighting to .Text = Target.Text. This code was very helpful except for the debug popping up every time. Please provide a solution
This comment was minimized by the moderator on the site
Hi, I have modified the code, it will not pop up a bug dialog when you select a column of cells or multiple cells, and the textbox will be hidden as well. Please try:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice
Dim xRgAddress As String
If Target.CountLarge > 1 Then
    TextBox1.Visible = False
    Exit Sub
End If
xRgAddress = "A1:A20" 'the range this VBA work, if you leave it is blank, it work for whole sheet
If xRgAddress = "" Then
  With TextBox1
        .Top = Target.Top
        .Left = Target.Offset(, 1).Left
        .Text = Target.Text
        .Visible = True
    End With
Else
    If Intersect(Target, Range(xRgAddress)) Is Nothing Then
        TextBox1.Visible = False
    Else
        With TextBox1
            .Top = Target.Top
           .Left = Target.Offset(, 1).Left
            .Text = Target.Text
            .Visible = True
        End With
    End If
End If
End Sub
This comment was minimized by the moderator on the site
Sunny, this is absolutely perfect - thank you so much for your time and expertise.
This comment was minimized by the moderator on the site
Good day, this code is great - I have two columns included in my code and the expanding text box pops up no issues when a cell is clicked - however, if I highlight multiple cells including one of the cells I wish to have the text box pop up - I get run-time error '94' - Invalid use of Null. Debugging highlights the 2nd 'Text = Target.Text' line.

Appreciate any feedback.
Rated 4.5 out of 5
This comment was minimized by the moderator on the site
Hi, do you want to show all contents of the selected cells to the textbox? Or just supports to select cells but show contents of the first one cell of the selection?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations