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

Ինչպե՞ս ավելացնել Excel- ում բացվող ցուցակի տառատեսակի չափը:

doc մեծացնել տառատեսակի չափը բացվող ցուցակ 1

Բաց թողնող ցուցակը Excel- ում շատ օգտակար հատկություն է, երբ ձեր աշխատաթերթում ստեղծում եք բացվող ցուցակ, երբևէ փորձե՞լ եք մեծացնել բացվող ցուցակի տառատեսակի չափը `ընտրված գրառումն ավելի մեծ և ընթեռնելի դարձնելու համար, ինչպես ցույց է տրված ձախ սքրինշոթը: Այս հոդվածում կխոսվի այն լուծելու համար լուծման մասին:

Մեծացնելը մեծացնելու համար ավելացրեք բացվող ցուցակի տառատեսակի չափը VBA կոդով


Մեծացնելը մեծացնելու համար ավելացրեք բացվող ցուցակի տառատեսակի չափը VBA կոդով

Փաստորեն, բացվող ցուցակի տառատեսակի չափը մեծացնելու համար ուղղակի ուղի չկա, բայց կարող եք կիրառել հետևյալ VBA կոդը `բացվող ցուցակի բջիջների խոշորացման պարամետրը փոխելու համար, որպեսզի տեքստն ավելի մեծ լինի: Խնդրում ենք անել հետևյալը.

1. Գնացեք աշխատաթերթը, որը պարունակում է բացվող ցուցակը, որը ցանկանում եք մեծացնել դրա տառատեսակի չափը:

2, Աջ կտտացրեք թերթիկի ներդիրին և ընտրեք Դիտել կոդը համատեքստի ընտրացանկից ՝ դուրս եկած պատուհանում Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և տեղադրեք հետևյալ կոդը դատարկի մեջ Մոդուլներ պատուհան:

VBA կոդ. Բջջի խոշորացումն ընդլայնելու համար ավելացրեք բացվող ցուցակի տառատեսակի չափը

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    xZoom = 100
    If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

3. Ապա պահեք և փակեք այս կոդը, հիմա, երբ կտտացնում եք բացվող ցուցակի բջիջները, բջջի խոշորացումը կխոշորանա, և բացվող ցուցակը կհայտնվի ավելի մեծ, բայց երբ կտտացնում եք այլ բջիջների, որոնք չեն պարունակում բացվող ցուցակ, ապա բջջի խոշորացումը նորմալ կլինի:

ՆշումՎերոհիշյալ ծածկագրում xZoom = 130 կփոխի բացվող ցուցակի բջիջները խոշորացնելու համար 130, Դուք կարող եք փոխել այս խոշորացման համարը ձեր պահանջի համաձայն:


Excel- ում ստեղծեք բացվող ցուցակ վանդակում

Եթե ​​դուք պետք է ստեղծեք բացվող ցուցակ բազմաթիվ վանդակների հետ, որպեսզի ցանկից մի քանի տարր ընտրեք մեկ բջիջում, միգուցե ձեզ համար այս խնդիրը լուծելու ուղի չկա: Բայց, Excel- ի համար նախատեսված գործիքներ աջակցել զարմանալի հատկություն - Բացվող ցուցակ ՝ տուփերով, այս հատկության միջոցով դուք կարող եք արագորեն ստեղծել բացվող ցուցակ նշված տիրույթում, ընթացիկ աշխատանքային թերթում, ընթացիկ աշխատանքային գրքում կամ բոլոր բացված աշխատանքային գրքույկներում ՝ ձեր կարիքների հիման վրա:  Կտտացրեք Excel- ի համար Kutools ներբեռնելու համար:


Դեմո. Մեծացումն ընդլայնելու համար ավելացրեք բացվող ցուցակի տառատեսակի չափը VBA կոդով


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (27)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այսպիսով, այս կոդը մեծացնում է ամբողջ թերթիկը, ոչ միայն բացվող տուփը: Այն նաև ասում է «չի կարող պահպանել...... VB Project-ը մակրո անջատված աշխատանքային գրքում»: Բլա բլա բլա։ Եթե ​​ես պետք է որս անեմ ամբողջ դժոխքի կես ակրով, որպեսզի ստանամ այս հարցի ամբողջական պատասխանը, սա պատասխան չէ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
[quote]Այսպիսով, այս կոդը մեծացնում է ամբողջ թերթիկը, ոչ միայն բացվող տուփը: Այն նաև ասում է «չի կարող պահպանել...... VB Project-ը մակրո անջատված աշխատանքային գրքում»: Բլա բլա բլա։ Եթե ​​ես պետք է որս անեմ ամբողջ դժոխքի կես ակրով, որպեսզի ստանամ այս հարցի ամբողջական պատասխանը, սա պատասխան չէ:Միքայելի կողմից[/quote] Պարզապես պահպանեք աշխատանքային գրքույկը xlsm-ով և նորից հետևեք քայլերին: BTW Ես փորձեցի և ինձ մոտ ընդհանրապես ՉԻ աշխատում; խոշորացումը դեռ 100% է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես աշխատում եմ Office 2016-ով և օգտագործում եմ բացվող տուփեր: Ես փորձեցի «Բարձրացնել բացվող ցուցակի տառատեսակի չափը VBA կոդով մեծացնելու համար», բայց այն չի աշխատում: Կա՞ որևէ այլ բան, որ ես պետք է անեմ, որպեսզի այն աշխատի: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպես ցույց են տալիս ուղղությունները, դուք պետք է փոխեք խոշորացումը «100»-ից «130»-ի կամ այլ խոշորացում՝ ցանկացած փոփոխություն տեսնելու համար: Այնուամենայնիվ, 1-ին մեկնաբանությունը ճշգրիտ է նրանով, որ այն ոչ միայն փոխում է բացվող ընտրացանկը, այլ բջիջի վրա սեղմելուց հետո այն 130%-ով մեծացնելու է ամբողջ թերթը՝ այդ բջիջը մեծացնելու համար: Շատ օգտակար չէ, քանի որ այդ դեպքում դուք պարզապես պետք է ամեն անգամ մեծացնեք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
կամ ընտրեք աշխատանքային գրքույկի այլընտրանքային բջիջ՝ այն վերադարձնելու համար 100, ինչպես նշված է Մակրոյում

Մասնավոր ենթաթերթ_SelectionChange(ByVal Target As Range)'updateby Extendoffice 20160530 Սխալի դեպքում GoTo LZoom Dim xZoom As Long xZoom = 100 If Target.Validation.Type = xlValidateList Ապա xZoom = 130LZoom. ActiveWindow.Zoom = xZoomEnd Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, պարզապես զարմանում եք, թե ինչու է այս հատկությունը անհետանում ֆայլը պահելուց և նորից բացելուց հետո:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Նոել, դուք պետք է պահպանեք Excel ֆայլը որպես Excel Macro-Enabled Workbook ձևաչափ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Dzięki za podpowiedź
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, լավ է աշխատում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա ինձ մոտ չի աշխատում: Տեքստը տեղադրեցի հրահանգների համաձայն: Երբ ես սեղմեցի բացվող ցանկի վրա, տառատեսակի չափը նույնն էր: Երբ ես այնուհետև սեղմեցի մեկ այլ բջիջի վրա, ամբողջ աղյուսակը մեծացավ 30%-ով: Հնարավորության դեպքում իսկապես կցանկանայի աշխատել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը օգտագործելուց հետո ես չեմ կարող օգտագործել վերադարձի բանալին Excel-ում: Ինչպե՞ս կարող եմ կոդավորել (տեղադրել) վերադարձի բանալին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա մեծացնում է ամբողջ թերթը մինչև 130%
Ինչպե՞ս կարող եմ մեծացնել միայն բացվող ընտրացանկը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Դեյվ,
Միայն բացվող ընտրացանկը մեծացնելու համար, ահա լուծումը լուծելու համար:

Նախ, ձեր աշխատաթերթում բացվող ցուցակը տեղադրելուց հետո դուք պետք է տեղադրեք Combo Box (ActiveX Controls) և այնուհետև կիրառեք հետևյալ VBA կոդը թերթի մոդուլի կոդի մեջ.

Dim xRg որպես տիրույթ
Մասնավոր ենթահամակարգային տուփ1_Change()
Ս.թ. սխալի Ռեզյումե Next
xRg.Value = Me.ComboBox1.Text
Վերջ Sub
Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
Սխալի դեպքում GoTo LblExit
Ինձ հետ.ComboBox1
.Տեսանելի = Կեղծ
Եթե ​​Target.Validation.Type = xlValidateList Այնուհետեւ
Target.Validation.InCellDropdown = False
.Ցանկ Լայնություն = 120
.ListFillRange = ""
.ListFillRange = Target.Validation.Formula1
.Left = Target.Left
.Top = Target.Top
.Width = Թիրախ.Լայնություն
.Բարձրություն = Թիրախ.Բարձրություն
. Տառատեսակ. Չափս = 16
.Տեսանելի = Ճշմարիտ
Սահմանել xRg = Թիրախ
Վերջ: Եթե
Վերջ
LblExit:
Վերջ Sub

Կոդը տեղադրելուց հետո, այժմ, երբ սեղմում եք բացվող ցուցակի բջիջը, կցուցադրվի համակցված տուփ, և բացվող ընտրացանկում տառատեսակի չափը մեծանում է ըստ անհրաժեշտության: Իսկ տեղադրված համակցված տուփը ինքնաբերաբար կթաքցվի:

Խնդրում եմ փորձեք այն, հուսով եմ, որ այն կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՀԱՆՃԱՐ! Շնորհակալություն Skyyang! Այնքան շնորհակալ եմ ձեր մեթոդի համար: Աշխատում է հմայքի պես:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եք դա քայլ առ քայլ բացատրել dummies pls-ի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, ԻՏԱԼՈ,
1. Տեղադրեք ձեզ անհրաժեշտ բացվող ցանկը ձեր աշխատաթերթում;
2. Այնուհետև տեղադրեք Combo Box (ActiveX Controls)՝ սեղմելով Developer > Insert > Combo Box (ActiveX Controls), այնուհետև քաշեք մկնիկը Combo Box օբյեկտ նկարելու համար;
3. Այնուհետև աջ սեղմեք ձեր ընթացիկ օգտագործված աշխատաթերթը, ընտրեք Դիտել կոդը և տեղադրեք վերը նշված կոդը մոդուլի մեջ;
4. Վերջապես, այն անջատելու համար կտտացրեք «Դիզայնի ռեժիմ» «Developer» ներդիրի տակ:
5. Այժմ, երբ դուք սեղմում եք բացվող ցանկի բջիջը, կցուցադրվի համակցված տուփ, և բացվող ընտրացանկում տառատեսակի չափը մեծանում է ըստ անհրաժեշտության:
Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ կիրառել այս տառատեսակի փոփոխության չափը միայն մեկ սյունակի վրա: Ես մի քանի սյունակ ունեմ բացվող տուփերով և ուզում եմ միայն մեկ կոնկրետ սյունակ փոխելու տառաչափը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ուղղակի հարց եմ տալիս, որ կոդը տեղադրեցի մոդուլի դատարկ պատուհանի վրա (Աջ սեղմեք դիտման կոդը): Երբ ես փրկում եմ, լավ է գործում, դա լավ էր: Բայց երբ ես փակում եմ ֆայլը և նորից բացում այն, ծածկագիրը վերացել է և այլևս չի մեծանում բացվող ցուցակի համար: Կարո՞ղ եմ իմանալ, թե ինչպես կարգաբերել մշտական ​​օգտագործման համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Էյս,
Կոդը պահպանելու համար դուք պետք է պահեք Excel ֆայլը որպես Excel Macro-Enabled Workbook ձևաչափ: Խնդրում եմ փորձեք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ մի քանի անկում և պետք է միայն մեկ ավելի մեծ, քանի որ մնացածը այո/ոչ են: Բայց ձեր տարածած կոդը դա անում է նրանց բոլորի համար: Ինչպե՞ս կարող եմ միայն սա օգտագործել միայն մեկ բացվող ցանկի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Իվոն
Կոդը միայն մեկ բջիջի վրա կիրառելու համար հետևյալ կոդը կարող է օգնել ձեզ.Նշումկոդի մեջ փոխեք բջիջը I2 ձեր սեփական բջջային հղումին:)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    Dim xRg As Range
    xZoom = 100
    Set xRg = Range("I2")
    If Not Intersect(Target, xRg) Is Nothing Then
        If Target.Validation.Type = xlValidateList Then xZoom = 130
    End If
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն բացվող վանդակում տառատեսակի չափը մեծացնելու հուշման համար: Դա արեց հնարքը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Տեղի է ունենում վերականգնում: Al dar clic en cualquiera celda se agranda, pero no en la list desplegable y no vuelve al tamaño original. Օգտագործեք Excel 2010: Լուծում: Դա տեղի է ունենում հակառակը: Ցանկացած բջիջի վրա սեղմելը մեծացնում է այն, բայց ոչ բացվող ցուցակը, և այն չի վերադառնում սկզբնական չափին: Ես օգտագործում եմ Excel 2010: Լուծու՞մ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ ենք դա անել բազմակի անկման տուփի համար: Եթե ​​ոչ, ապա ո՞րն է ընթացակարգը բազմակի անկման տուփի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ale po zamknięciu pliku i ponownym go otwarciu to rozwiązanie już nie działa.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
OKI. Trzeba zapisać plik z obsługą makra.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ բարեկամ,
Դուք ճիշտ եք. Մենք պետք է պահպանենք մակրո-միացված ֆայլը, որպեսզի լուծումն աշխատի: Հիանալի օր անցկացրեք:

Sincerely,
Mandy
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից