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

Ինչպե՞ս միշտ դիագրամը դիտելիս պահել Excel- ում:

Եթե ​​թերթում տեղադրված է աղյուսակ, մինչ դուք թերթիկը ներքև եք գլորում ՝ տվյալները դիտելու համար, գծապատկերը հնարավոր չէ դիտել միևնույն ժամանակ, ինչպես ցույց է տրված ներքևում նշված նկարը Այս հոդվածում ես ներկայացնում եմ VBA կոդ ՝ գծապատկերը միշտ դիտելու համար, չնայած թերթիկը ներքև կամ վեր ոլորելով:

փաստաթուղթը պահեք գծապատկերում 1
doc սլաքը ներքև
փաստաթուղթը պահեք գծապատկերում 2

Միշտ դիտիր գծապատկերը


նետ կապույտ աջ պղպջակ Միշտ դիտիր գծապատկերը

Էջը ոլորելու ընթացքում գծապատկեր պահելու համար այն լուծելու համար կարող եք դիմել ներքևում գտնվող VBA կոդով:

1. Աջ կտտացրեք թերթիկի ներդիրին, որը ցանկանում եք տեսանելի պահել գծապատկերը, և կտտացրեք Դիտել կոդը կազմել համատեքստային ընտրացանկը: Տեսեք,
փաստաթուղթը պահեք գծապատկերում 3

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

VBA. Դիագրամը միշտ դիտեք

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20161111
    Dim CPos As Double
    Application.ScreenUpdating = False
    CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveSheet.Shapes("Chart 2").Top = CPos
    ActiveWindow.Visible = False
    Application.ScreenUpdating = True
End Sub

փաստաթուղթը պահեք գծապատկերում 5

3. Փրկեք և փակեք երկխոսությունը, ապա գծապատկերը կտեղափոխվի ներքև կամ վերև, երբ կտտացնում եք ցանկացած բջիջ:
փաստաթուղթը պահեք գծապատկերում 6

Նշումներ:

(1) VBA կոդում Գծապատկեր 2-ը գծապատկերի անունն է, որը ցանկանում եք դիտել: Դուք կարող եք փոխել այն, ինչ ձեզ հարկավոր է:

(2) Այս 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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (15)
Գնահատված 4.75- ը 5- ից դուրս է · 2 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա լավ էր, բայց ես կցանկանայի, որ այն պարզապես շարժվեր ոլորման անիվով, ինչպես վերնագրի տողերը: Նաև, եթե ես ուզում եմ բջիջ ընտրել, երկու կտտոց է պահանջվում: Առաջին սեղմումը տեղափոխում է աղյուսակը, բայց նաև ընտրում է գծապատկերը, այնպես որ ես պետք է նորից սեղմեմ՝ բջիջն ընտրելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդի վերջին տողում ավելացրի «activecell.select» և այն շտկեց կրկնակի սեղմման խնդիրը: Այն ավտոմատ կերպով կընտրի վերջին ակտիվ բջիջը, որը կլինի այն բջիջը, որի վրա սեղմել եք աղյուսակը տեղափոխելու համար: Հուսով եմ, որ սա օգնում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՍԱ ԻՆՁ ՊԵՏՔ ԷՐ։ ՈՍԿԻ!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս մակրոն արեց հենց այն, ինչ ես ուզում էի: Այնուամենայնիվ, դա ստեղծեց մեկ այլ խնդիր, որը ես մտածում էի, թե արդյոք դուք կարող եք լուծում ունենալ:

Մինչ այս մակրոն ակտիվ է, ես չեմ կարող ընտրել բջիջներ այլ նպատակների համար, ինչպիսիք են դրանք ֆորմատավորելը կամ միավորելը: Բջիջների խումբ ընտրելու համար սեղմեք և քաշեք, տեղափոխեք կամ ctrl աշխատեք: Ես կարող եմ ընտրել միայն այն բջիջը, որի վրա սեղմել եմ: Ես հաճախ եմ ուզում փոխել ֆորմատավորումը (ֆոն, լրացնել բանաձևը և այլն): Միակ ճանապարհը, որին ես կարողացել եմ դա անել, մակրո ջնջելն է, պահպանելը, ֆորմատավորման փոփոխությունները կատարելը, մակրոն նորից տեղադրել և պահպանել:

Կա՞ դա անելու ավելի պարզ միջոց: Թերևս.

1. (նախընտրելի) Պարզ ստեղնաշարի սեղմում, որը ժամանակավորապես անջատում է մակրոն, այնուհետև նորից միացնում այն:

2. Որոշ կոդ ավելացվել է մակրոյում՝ բջիջների խմբի ընտրությունը թույլ տալու համար:

Dennis
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ նմանատիպ բանաձև, որը կարելի է ստեղծել Google Sheets-ի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կա՞ որևէ միջոց՝ սահմանափակելու, թե աղյուսակի ինչ բարձրության վրա կտեղափոխվի աղյուսակը: Ես չեմ ուզում, որ այն ամրացվի 8-րդ շարքի վերևում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hola muchas gracias por el codigo, utilizando este codigo ¿Hay alguna manera de limitar qué tan alto en la hoja se reubicará el gráfico? por ejemplo, no quiero que se coloque encima de la fila 9. Ayuda por favor.
Գնահատված 5- ը 5- ից դուրս է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
կարո՞ղ եմ օգտագործել Kutools-ը ավտոմատ կերպով օգտագործել այդ VBA-ն իմ գծապատկերների համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, Wangnuli, Kutools-ը մինչ այժմ չի աջակցել սա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարող է որևէ մեկը օգնել: երբ ես հետևում եմ այս քայլերին


Մասնավոր ենթաթերթ_SelectionChange (ByVal-ի նպատակը որպես միջակայք)
― ԹարմացնելովExtendoffice20161111
Dim CPos As Double
Դիմում. ScreenUpdating = Սուտ է
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects(«Գծապատկեր 2»).Ակտիվացնել
ActiveSheet.Shapes («Գծապատկեր 2»). Վերև = CPos
ActiveWindow.Visible = False
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub


ես ստանում եմ հետևյալ սխալը

Գործարկման ժամանակի սխալ '-2147024809 (80070057)':
Նշված անունով տարրը չի գտնվել

երբ ես կարգաբերում եմ
ActiveSheet.ChartObjects(«Գծապատկեր 2»).Ակտիվացնել
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Քրիստո, դուք պետք է փոխեք գծապատկերի անվանումը «Գծապատկեր 2» ձեր գծապատկերի իրական անունը սցենարի մեջ: Դուք կարող եք սեղմել գծապատկերի վրա և տեսնել դրա անունը անվանման վանդակում: Տեսեք սքրինշոթը՝
https://www.extendoffice.com/images/stories/comments/sun-comment/do_chart_name.png
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այո, շնորհակալություն. Հարցից հետո ես հասկացա, որ իմ աղյուսակի անունը սխալ էր
շնորհակալություն

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


Մասնավոր ենթաթերթի_selectionchange (ByVal թիրախ որպես միջակայք)
Մուգ գծապատկերի դիրքը որպես կրկնակի

գծապատկեր = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.Shapes («Գծապատկեր 2»). Վերև = գծապատկերի դիրք

ActiveSheet.ChartObjects («Գծապատկեր 3»). Վերև = գծապատկեր + 250

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
A mí me pasa que la siguiente vez que abro el archivo, el script ya no funciona. Tengo que copiarlo, borrarlo, cerrar el archivo tras guardarlo, volver a abrir el archivo y volver a pegar el script en VBA. ¿Alguna լուծում?
Գնահատված 4.5- ը 5- ից դուրս է
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, պահեք աշխատանքային գրքույկը որպես excel macro enable workbook, vba-ն աշխատանքային կլինի, երբ բացվի հաջորդ անգամ:https://cdn.extendoffice.com/images/stories/comments/sun-comment/doc-macro-enable.png
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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