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

Ինչպե՞ս Excel- ում դնել բջիջների կամ ապաբջջված բջիջների ներդիրների կարգը:

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

Սահմանեք VBA կոդով բջիջների կամ ապակողպված բջիջների ներդիրների կարգը


Սահմանեք VBA կոդով բջիջների կամ ապակողպված բջիջների ներդիրների կարգը

Խնդրում ենք գործարկել ստորև ներկայացված VBA մեթոդը ՝ նորմալ աշխատանքային թերթում կամ պաշտպանված աշխատաթերթում ապակողպված բջիջների ներդիրների կարգը սահմանելու համար:

1. Աշխատանքային թերթում անհրաժեշտ է սահմանել ներդիրների կարգը, աջով կտտացրեք թերթիկի ներդիրին և կտտացրեք Դիտել կոդը համատեքստի ընտրացանկից:

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք ներքևի VBA կոդը ՝ Կոդ պատուհան.

VBA կոդ. Սահմանեք բջիջների կամ ապակողպված բջիջների ներդիրի կարգը

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim tabArray As Variant
    Dim i As Long
    tabArray = Array("B5", "C6", "D7", "E8")
    Application.ScreenUpdating = False
    For i = LBound(tabArray) To UBound(tabArray)
        If tabArray(i) = Target.Address(0, 0) Then
            If i = UBound(tabArray) Then
                Me.Range(tabArray(LBound(tabArray))).Select
            Else
                Me.Range(tabArray(i + 1)).Select
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Notes:

1) Կոդում B5, C6, D7, E8 մուտքային բջիջների կարգն է, և դուք պետք է օգտագործեք բջջային հասցեի մեծատառ: Դրանք կարող եք փոխել ՝ ելնելով ձեր կարիքներից:
2) Պաշտպանված աշխատաթերթի համար մուտքային բջիջները պետք է ապակողպված լինեն:

3. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այսուհետ, B5- ում տվյալներ մուտքագրելուց հետո կուրսորը անցնում է C6 ՝ սեղմելով Tab կամ Enter ստեղնը, ապա C7- ը թողնելիս անցնում է D6, ապա անցնում է D7, E8 ընթացիկ աշխատաթերթում:


Առնչվող հոդվածներ:


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (14)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ է սա օգտագործվել ներդիրը աշխատանքային թերթի հաջորդ ապակողպված բջիջը ստիպելու համար: Օրինակ, ինձ պետք է, որ օպերատորը մուտքագրի (սկանավորի) տվյալները A15 բջիջում, այնուհետև այն պետք է անցնի դեպի C15, այնուհետև E15, ապա G15 (որը տողի վերջն է), այնուհետև վերադառնա հաջորդ բջիջի առաջին բջիջ: շարք, A16 և կրկնել հաջորդականությունը: Ես պետք է ստիպեմ այս օրինաչափությունը, քանի որ որոշ օպերատորներ օգտագործում էին սկաներներ, որոնք ծրագրավորված են ներդիրում, իսկ մյուսները ծրագրավորված են մուտքագրելու համար: շնորհակալություն!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է արդյոք օգտագործել այս նույն կոդը՝ յուրաքանչյուր տողում ներդիրը յուրաքանչյուր անպաշտպան բջիջին ստիպելու համար: Ես պետք է նշեմ ներդիրը՝ սկսած A15 բջիջից, այնուհետև տեղափոխեմ հաջորդ անպաշտպան բջիջը (C15), այնուհետև E15, ապա G15: Երբ այստեղ եմ, ես պետք է ներդիր A16-ում և կրկնեմ գործընթացը ձևի մնացած մասի համար: Իմ կարիքն այն է, որ տվյալները մուտքագրվում են շտրիխ կոդ սկաների միջոցով, և որոշները ծրագրավորված են ներդիրով, իսկ մյուսները՝ մուտքագրելու համար: Շնորհակալություն այս հարցում ձեր օգնության համար: Սպինազ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն և շնորհակալություն VBA կոդի համար՝ ներդիրների կարգը պաշտպանված թերթիկում սահմանելու համար, որտեղ ձևի կառավարման պիտակները և ձևերի կառավարման բացվող տուփերը բացված են, և օգտվողը կարող է ներդիրով և լրացնել տեղեկությունները պիտակի մեջ, իսկ ներդիրները տեղադրելիս՝ բացվող ցուցակում ընտրեք այն տարրերի քանակը, որոնք նրան տալիս են հրահանգները, և ես առաջընթաց եմ գրանցել ձեր կոդը: Սկզբում ես կարող էի ներդիր միայն պիտակի ձևի վերահսկիչներից յուրաքանչյուրի միջոցով, այժմ երբեմն սեղմում եմ բացվող ցուցակները: Ես իսկապես կվայելեի turorial-ը, թե ինչպես ես դա անում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ձեր թվարկած կարգով excel-ը անում է առանց VBA կոդի: Ստիպեք դրանք հետ գնալ, հետո ինչ-որ բան ստացաք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սկզբում ընտրեք, թե որ բջիջներն եք ուզում ունենալ անպաշտպան:

Երբ դուք պաշտպանում եք ձեր թերթիկը, այն ավտոմատ կերպով կսահմանի ներդիրների կարգը՝ ըստ ձեր անպաշտպան բջիջների: Այն կուղարկվի ձախից աջ և վերևից ներքև; Shift+Tab հետընթաց՝ աջից ձախ և ներքևից վերև:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Էվան,
Շնորհակալություն կիսվելու համար.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն մուտքագրման համար նախատեսված կոդի համար: Ես աշխատում եմ աղյուսակի վրա, որը մուտքագրում է շտրիխ կոդի տեղեկատվությունը, և ինձ պետք է ընդգրկել մինչև 300 բջիջ, և ծրագիրը թույլ է տալիս ինձ մուտքագրել միայն 142 բջիջ: Կա՞ տարբերակ ավելացնելու ավելին, որպեսզի կարողանամ ստանալ մինչև 300:



Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ժաննա,
Շնորհակալություն ձեր մեկնաբանության համար:
Բայց կոդը չի կարող օպտիմիզացվել ձեր կարիքները բավարարելու համար: Ցավում եմ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
No me funcionó, lo coloqué en la hoja de trabajo, debe haber algún error, me podrían ayudar, necesito implementarlo en mi trabajo,

Ատտե,

Collins Neptali Arráiz López
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, կա՞ տարբերակ ուղղակի սեղմել enter առանց որևէ բան մուտքագրելու և անցնել հաջորդ ընտրությանը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, նոր է այստեղ VBA կոդը աշխատում է այնքան ժամանակ, մինչև ես սեղմեմ Pull Down Box-ը, ես հասնում եմ առաջինին, երբ կատարում եմ իմ ընտրությունը, կտտացնում եմ Tab և այն տեղափոխվում է կողպված բջիջ, այն գործում է որպես բջիջ, որտեղ ես որևէ տվյալ չեմ մուտքագրել: առաջարկություններ? GlennD24
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Olá, o código VBA para definir a ordem das células desejadas funcionou perfeitamente: Eu percebi que para que ele funcione, é necessário entrar com um dado na célula e pressionar TAB ou ENTER:
PERGUNTA. Você tem como fazer este codigo percorrer todas as células (no meu caso são 31, sendo algumas vazias e outras com valores padrão) sem ter que entrar com dados nelas, somente pressionando ENTER TABou: Como eu tenho algumas células vazias e outras com valores, por padrão, eu gostaria de percorrer as células sem precisar entrar com dados em todas elas novamente, mas, somente alterando as células que forem preciso alterat.

Տեքստը թարգմանվել է Google Translator-ի կողմից
Բարև Ձեզ, ցանկալի բջիջների հերթականությունը սահմանելու VBA կոդը հիանալի աշխատեց: Ես հասկացա, որ այն գործելու համար անհրաժեշտ է տվյալներ մուտքագրել բջիջ և սեղմել TAB կամ ENTER:
ՀԱՐՑ. Դուք կարող եք ստիպել այս կոդը անցնել բոլոր բջիջների միջով (իմ դեպքում կան 31, որոնցից մի քանիսը դատարկ են, իսկ մյուսները՝ լռելյայն արժեքներով), առանց դրանցում տվյալներ մուտքագրելու, պարզապես սեղմելով TAB կամ ENTER: Քանի որ ես ունեմ որոշ դատարկ բջիջներ, իսկ մյուսները՝ արժեքներով, ես լռելյայն կուզենայի շրջել բջիջների միջով՝ առանց բոլորի մեջ նորից տվյալներ մուտքագրելու, այլ միայն փոխելով այն բջիջները, որոնք պետք է փոխեմ.att

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես պատճենել եմ ձեր կոդը իմ աշխատաթերթում, բայց հենց որ փակեմ այն ​​և նորից բացեմ այն ​​նորից օգտագործելու համար, կոդը վերացել է: Ինչպե՞ս փրկեմ սա:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Անիտա,
Եթե ​​ցանկանում եք պահպանել VBA կոդը գործառույթների օգտագործման համար, VBA կոդը ավելացնելուց հետո պահեք ձեր աշխատանքային գրքույկը որպես Excel մակրո-միացված աշխատանքային գրքույկ ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթում: Ապա ապագայում օգտագործեք նոր պահված ֆայլը:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/Excel_macro-enabled_workbook.png
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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