Ինչպե՞ս նավարկել աշխատանքային թերթերի միջև ՝ օգտագործելով բացվող ցուցակը Excel– ում:

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

Նավարկեք աշխատաթերթերի միջեւ ՝ օգտագործելով բացվող ցուցակը Excel– ում

Նավարկեք աշխատաթերթերի միջեւ ՝ օգտագործելով բացվող ցուցակը Excel– ում

Յուրաքանչյուր ընտրված թերթիկ անցնելու համար, օգտագործելով բացվող ցուցակ, կատարեք հետևյալ քայլերը.

1: Սեղմեք Երեվակիչ > Տեղադրել > Combo Box (ActiveX հսկողություն), տես նկարի նկարը.

2, Դրանից հետո մկնիկը քաշեք ՝ կոմբինացիոն տուփ նկարելու համար, այնուհետև այն աջ կտտացրեք, ընտրեք Դիտել կոդը համատեքստային ընտրացանկից տե՛ս նկարը.

3, Բացվածքում Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք հետևյալ կոդը ՝ բնօրինակը ծածկելու համար, տե՛ս նկարը.

VBA կոդ. Նավարկեք աշխատանքային թերթերի միջև ՝ օգտագործելով բացվող ցուցակը

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

4, Ապա պահեք և փակեք այս կոդի պատուհանը, ապա կտտացրեք Դիզայնի ռեժիմ դիզայնի ռեժիմն անջատելու համար, հիմա, երբ համակցված տուփից ընտրեք մեկ թերթիկի անուն, այն միանգամից կգնա այդ թերթի, տես նկարի նկարը.