Kako hitro skočiti v sosednjo celico na podlagi izbire na spustnem seznamu v Excelu?

Ste že kdaj posneli preskok v sosednjo celico na podlagi izbire na spustnem seznamu v Excelu? Na primer, tukaj imam spustni seznam v celici C1, ki vključuje imena delovnih dni, stolpec A je seznam datumov, stolpec B pa seznam časov. Zdaj, ko na spustnem seznamu izberem ime delavnika, na primer četrtek, kazalec skoči na B5, ki je zraven četrtka v stolpcu A. V Excelu ni vgrajene funkcije za reševanje te naloge, vendar z močna koda VBA lahko.

Skoči na sosednjo celico na podlagi vrednosti na spustnem seznamu s strani VBA

---

Skoči na sosednjo celico na podlagi vrednosti na spustnem seznamu s strani VBA

1. Na spustnem seznamu izberite dan, ki ga želite uporabiti, nato pritisnite Alt + F11 tipke, da omogočite Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli, prilepite spodnjo kodo v Moduli.

VBA: Skok na sosednjo celico glede na vrednost

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. Pritisnite F5 tipka, nato kazalka skoči v sosednjo celico na podlagi vrednosti na spustnem seznamu.

Opomba:

V kodi VBA je A2: A8 seznam, ki vsebuje vrednosti, ki se ujemajo z vrednostmi na spustnem seznamu. Ta sklic lahko spremenite po potrebi.