Բաց թողնել հիմնական բովանդակությունը

Excel. Ինչպես ընդլայնել բջիջը՝ սեղմելիս ցուցադրել բոլոր բովանդակությունը

Որոշ դեպքերում, եթե բջիջի բովանդակությունն ավելի երկար է, քան բջիջի լայնությունը, և կան արժեքներ հաջորդ սյունակի բջիջներում, բովանդակության միայն մասերը ցուցադրվում են ստորև ներկայացված սքրինշոթում: Բջիջների լայնությունն ու բարձրությունը փոխելուց խուսափելու համար կարող եք սեղմել բջիջը և ամբողջ բովանդակությունը դիտել բանաձևերի տողում: Բայց եթե բանաձևի տողը թաքնված է կամ ավելի կարճ է, քան բովանդակությունը, ինչպե՞ս դա անել: Այստեղ ներկայացվում են երկու մեթոդ, որոնք կարող են ցույց տալ բջջային բովանդակությունը տեքստային տուփում՝ սեղմելով դրա վրա:
ավտոմատ լրացում մեկ այլ ցուցակից

Ընդարձակեք բջիջը՝ ցուցադրելու բոլոր բովանդակությունը՝ տեղադրելով տեքստային տուփ Active X Controls

Ընդարձակեք բջիջը, որպեսզի ցուցադրեք բոլոր բովանդակությունը, օգտագործելով Kutools-ի ավելի մեծ բանաձևի բար Excel-ի համար

Նշում. այս ձեռնարկում ներկայացված մեթոդները փորձարկված են Excel 2021-ում, Excel-ի տարբեր տարբերակներում կարող են լինել մի քանի տարբեր:

Ընդարձակեք բջիջը՝ ցուցադրելու բոլոր բովանդակությունը՝ տեղադրելով տեքստային տուփ Active X Controls

1. Ակտիվացրեք աշխատաթերթը, որը ցանկանում եք ընդլայնել բջիջը, սեղմեք Երեվակիչ > Տեղադրել > Տեքստային տուփ (ActiveX Controls).
ավտոմատ լրացում մեկ այլ ցուցակից

Եթե ​​չկա Երեվակիչ ներդիրը ժապավենի մեջ, խնդրում ենք սկզբում ցուցադրել այն, խնդրում ենք դիտել այս ձեռնարկը Ինչպես ցույց տալ/ցուցադրել մշակողի ներդիրը Excel ժապավենում

2. Այնուհետև քաշեք կուրսորը՝ լայնությամբ և բարձրությամբ տեքստային տուփ նկարելու համար, որը կարող է ցույց տալ բջիջների ամենաերկար պարունակությունը: Հիշեք այս տեքստային տուփի անունը, ահա TextBox1:
ավտոմատ լրացում մեկ այլ ցուցակից

3. Աջ սեղմեք տեքստային տուփի վրա և սեղմեք Հատկություններ համատեքստի ընտրացանկից: Հետո ներս Հատկություններ պատուհան, ընտրիր Ճիշտ -ի բացվող ցուցակներից MultiLine և WordWrap բաժինները. Այնուհետև փակեք Հատկություններ հաց.
ավտոմատ լրացում մեկ այլ ցուցակից  ավտոմատ լրացում մեկ այլ ցուցակից

Կամ կարող եք ընտրել True բացվող ցանկից Ավտոչափ Հատկությունների վահանակի հատվածում, տեքստային տուփը ավտոմատ կերպով չափվելու է՝ կախված ձեր սեղմած բջջի բովանդակության երկարությունից:

4. Աջ սեղմեք թերթի անվան ներդիրի վրա՝ կարգավիճակի տողում և սեղմեք Դիտել կոդը համատեքստի ընտրացանկից:

5. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք կոդը ներքևում դատարկ սցենարում:

VBA. ընդլայնել բջիջը՝ բովանդակությունը ցուցադրելու համար

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

ավտոմատ լրացում մեկ այլ ցուցակից

Ուշադրություն դարձրեք, որ TextBox1-ը ձեր նկարած տեքստային տուփի անունն է, իսկ A1:B4-ը այս կոդի աշխատանքի տիրույթն է, փոխեք դրանք ըստ անհրաժեշտության:

6. Վերադարձեք թերթիկին, սեղմեք Երեվակիչ > Դիզայնի ռեժիմ գոյություն ունենալ դիզայնի ռեժիմ:
ավտոմատ լրացում մեկ այլ ցուցակից

Այժմ, երբ սեղմում եք բջիջի վրա, տեքստային տուփը կհայտնվի դրա կողքին և ցույց կտա բջիջի ամբողջ բովանդակությունը:
ավտոմատ լրացում մեկ այլ ցուցակից

Ընդարձակեք բջիջը, որպեսզի ցուցադրեք բոլոր բովանդակությունը, օգտագործելով Kutools-ի ավելի մեծ բանաձևի բար Excel-ի համար

Եթե ​​դուք տեղադրել եք Kutools Excel-ի համար, ապա դրա տրամադրած ավելի մեծ բանաձևի սանդղակը ցույց կտա բջիջի ամբողջ բովանդակությունը բացված վանդակում, երբ սեղմում եք այնքան ժամանակ, քանի դեռ այն ակտիվացնում եք՝ սեղմելով: Կուտոլս > Ավելի մեծ Formula Bar.
ավտոմատ լրացում մեկ այլ ցուցակից

Հուշում.

1. Bigger Formula Bar-ի միջոցով, բացառությամբ ակտիվ բջիջի բովանդակությունը դիտելու, կարող եք նաև խմբագրել բջիջների բովանդակությունը Մեծ բանաձևերի տողում:

2. Դուք կարող եք չափափոխել Bigger Formula Bar-ը` քաշելով բարի աջ ներքև անկյունը:

3. Եթե դուք ընտրում եք մեկից ավելի բջիջներ, միայն ընտրության առաջին բջիջի բովանդակությունը ցուցադրվում է Bigger Formula Bar-ում:

Ավելի մանրամասն Bigger Formula Bar-ի մասին, խնդրում ենք այցելել այն խնամակալական.

Այլ գործողություններ (հոդվածներ)

Ինչպես անջատել ավտոմատ լրացումը
Ահա մի տարբերակ Excel-ում, որը կարող է դադարեցնել ավտոմատ ավարտը:

Ինչպե՞ս նվազեցնել Excel ֆայլի չափը:
Երբեմն րոպեներ կպահանջվի բացելու կամ պահելու համար, եթե Excel ֆայլը չափազանց մեծ է: Այս խնդիրը լուծելու համար այստեղ՝ այս ձեռնարկում, այն պատմում է ձեզ, թե ինչպես նվազեցնել Excel ֆայլի չափը՝ հեռացնելով ավելորդ կամ երբեք չօգտագործված բովանդակությունը կամ ձևաչափերը:

Ինչպես ավտոմատ կերպով լրացնել բջիջները մեկ այլ աղյուսակից
Այս ձեռնարկում խոսվում է այն մասին, թե ինչպես ավտոմատ կերպով լրացնել սյունակի այլ բջիջները մեկ այլ թերթիկի աղյուսակից՝ մեկ սյունակի արժեքը մուտքագրելուց հետո:

Ինչպե՞ս կիրառել ստվերը Excel- ում կենտ կամ զույգ (այլընտրանքային) շարքերում / սյունակներում:
Աշխատաթերթը նախագծելիս շատ մարդիկ հակված են ստվեր տալ տարօրինակ կամ զույգ (այլընտրանքային) տողերի կամ սյունների վրա, որպեսզի թերթն ավելի տեսողական դառնա: Այս հոդվածը ձեզ ցույց կտա Excel- ի կենտ կամ նույնիսկ տողերի / սյունների վրա ստվերում կիրառելու երկու եղանակ:

  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները և տվյալների պահում; Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերն ու գումարը / միջինը... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Սիրված և արագ ներդիր բանաձևեր, Ընդգրկույթներ, գծապատկերներ և նկարներ; Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Առանցք սեղանի խմբավորում ըստ շաբաթվա համարը, շաբաթվա օրը և ավելին ... Showույց տալ ապակողպված, կողպված բջիջները տարբեր գույներով; Նշեք այն բջիջները, որոնք ունեն բանաձև / անուն...
kte էջանիշը 201905
  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Comments (5)
Rated 4.5 out of 5 · 1 ratings
Anitha V
Anitha V
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
Reply
0
0
Sunny
Sunny     Anitha V
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
Reply
Report
0
0
Neil
Neil     Sunny
This comment was minimized by the moderator on the site
Sunny, this is absolutely perfect - thank you so much for your time and expertise.
Reply
0
0
Neil
Neil
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.
Reply
0
0
Rated 4.5 out of 5
Sunny
Sunny     Neil
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?
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations