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

Երբևէ պատկերացե՞լ եք, որ գնաք հարակից բջիջ ՝ հիմնված Excel- ի բացվող ցուցակում ընտրության վրա: Օրինակ, այստեղ ես ունեմ բացվող ցուցակ C1 բջիջում, որը ներառում է աշխատանքային օրվա անունները, A սյունակը ամսաթվերի ցուցակն է, իսկ B սյունակը ՝ ժամանակների ցուցակը: Այժմ, երբ ես ընտրում եմ շաբաթվա անունը, կազմելով բացվող ցուցակը, օրինակ ՝ հինգշաբթի, կուրսորը նետվում է դեպի B5, որը հարևան Հինգշաբթիին Ա սյունակում: Excel- ում այս խնդիրը լուծելու համար ներկառուցված հատկություն չկա, բայց հզոր VBA կոդը կարող է:

Անցեք հարակից բջիջ ՝ հիմնվելով VBA- ի ցուցակի անկման արժեքի վրա

---

Անցեք հարակից բջիջ ՝ հիմնվելով VBA- ի ցուցակի անկման արժեքի վրա

1. Բացվող ցուցակից ընտրեք մի օր, որը ցանկանում եք օգտագործել, ապա սեղմել Alt + F11 ստեղները ՝ Microsoft Visual Basic հավելվածների համար պատուհան.

2: սեղմեք Տեղադրել > Մոդուլներ, ներքևում տեղադրեք կոդը ՝ Մոդուլներ.

VBA. Անցնել հարևան բջիջը ՝ ելնելով արժեքից

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20161221
    If Target.Address <> [C1].Address Then
       Exit Sub
    Else
       JumpToCell

    End If
End Sub

Sub JumpToCell()
    Dim xRg, yRg As Range
    Dim strAddress As String
    strAddress = ""
    Set yRg = Range("A2:A8")
    For Each xRg In yRg
    'MsgBox Cell.Value
        If xRg.Value = ActiveCell.Value Then
           strAddress = xRg.Address
        End If
    Next
    If strAddress = "" Then
       MsgBox "The Day You Selected in Cell D4 Was Not Found On " & ActiveSheet.Name, _
        vbInformation, "Kutools for Excel"
       Exit Sub
    Else
       Range(strAddress).Offset(0, 1).Select
    End If
End Sub

3. Մամուլ F5 ստեղնը, այնուհետև կուրսորը նետվում է հարակից բջիջ ՝ հիմնվելով բացվող ցուցակի արժեքի վրա:

Նշում:

VBA կոդում A2: A8- ը այն ցուցակն է, որը պարունակում է բացվող ցուցակում նշված արժեքներին համապատասխանող արժեքներ, այս հղումը կարող եք փոխել ըստ անհրաժեշտության: