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

Ինչպե՞ս բաց թողնել բջիջները կամ սյունակները Excel- ում էջանիշ դնելիս:

Լռելյայն, Excel- ում Tab ստեղնը սեղմելը հորիզոնականից բջիջից հաջորդը կտեղափոխվի: Excel- ի որոշ օգտվողների համար նրանք հակված են բաց թողնել բջիջները Excel- ում էջանիշ դնելիս: Օրինակ, A1 բջիջն այժմ ընտրում է. Tab ստեղնը սեղմելուց հետո այն անմիջապես կանցնի C1 բջիջ ՝ B1 բջիջը բաց թողնելով, և նորից սեղմելով Tab ստեղնը բաց կթողնի D1 բջիջը և կտեղափոխվի E1, ինչպես ցույց է տրված նկարում: Ինչպե՞ս հասնել դրան: Այս հոդվածի մեթոդը կարող է օգնել ձեզ:

Բաց թողեք բջիջները կամ սյունակները VBA կոդով ցուցանակներ դնելիս


նետ կապույտ աջ պղպջակԲաց թողեք բջիջները կամ սյունակները VBA կոդով ցուցանակներ դնելիս

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

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

2. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և կպցնել ներքևի VBA կոդը օրենսգրքի պատուհանում:

VBA կոդ. Excel- ում էջանիշ դնելիս շրջանցել բջիջները կամ սյունակները

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static sRg As Range
    Dim ColumnOffset As Integer
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Union([B:B], [D:D], [F:F])) Is Nothing Then
        With Target
        Application.EnableEvents = False
        If Not sRg Is Nothing Then
            If sRg.Column < .Column Then
                ColumnOffset = 1
            ElseIf .Column <> 1 Then
                ColumnOffset = -1
            End If
        Else
            ColumnOffset = 1
        End If
        .Offset(, ColumnOffset).Select
        Application.EnableEvents = True
        End With
    End If
    Set sRg = ActiveCell
End Sub

ՆշումԿոդում, [B: B], [D: D], [F: F] սյուններ են, որոնք դուք կանցնեք Tab կոճակը սեղմելիս: Կարող եք դրանք փոխել ըստ ձեզ անհրաժեշտության, և կարող եք ավելացնել նոր սյունակ, որը ձեզ հարկավոր է բաց թողնել ծածկագրի մեջ:

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

Այսուհետ, Excel- ում էջանիշ դնելիս, նշված սյունակի բջիջները ավտոմատ կերպով շրջանցվում են: Միևնույն ժամանակ, կարող եք սեղմել միայն նշված նշված սյունակները, բաց թողնված սյունները չեն ընտրվի և չի խմբագրվում:

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How can you skip multiple columns at once using this formula? I.e. I want to be able to skip columns A, H and then M to P
This comment was minimized by the moderator on the site
it's ok - i've replied to your email in gmail.
This comment was minimized by the moderator on the site
Hi, this definitely only works on the first two columns of spreadsheet (i.e B:B and D: D), it won't work on the third (i.e H:H) or any subsequent - it must be a limitation? Any way around it? - I have excel 2016
This comment was minimized by the moderator on the site
Hi Steve,
I have tested the code in Excel 2016, and it works. Do you mind attaching a copy of your data file? Sorry for the inconvenience.
This comment was minimized by the moderator on the site
sure, if you can give me an email address to send it to? mine is itginternet AT gmail . com.
This comment was minimized by the moderator on the site
The code only works on the first 2 rows in the spreadsheet - Once I wrap around to the 3rd row then the designated "Skip" cells are no longer skipped - So close on this please advise. Been looking for this code forever - Thanks
This comment was minimized by the moderator on the site
Hi Lonnie Nagel,
I try the code and it works on the whole worksheet. Which Excel version are you using?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations