Ինչպե՞ս 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:

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

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

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

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