Salt la conținutul principal

Cum se deschide o foaie de lucru specifică după valoarea selectată a unei casete combinate în Excel?

Presupunând că aveți o casetă combinată care conține toate numele foilor din registrul de lucru curent, așa cum este prezentat mai jos. Și acum, doriți să deschideți o foaie de lucru specifică atunci când selectați numele foii corespunzătoare într-o casetă combinată. Cum se realizează? Metoda din acest articol vă poate ajuta.

Deschideți o foaie de lucru specifică după valoarea selectată a unei casete combinate cu cod VBA


Deschideți o foaie de lucru specifică după valoarea selectată a unei casete combinate cu cod VBA

Codul VBA de mai jos vă poate ajuta să accesați o foaie de lucru specifică bazată pe selecția Casetă combinată în Excel. Vă rugăm să faceți următoarele.

notițe: Dacă caseta combinată nu conține niciun nume de foaie în foaia dvs. de lucru, vă rugăm să urmați sfatul de mai jos pentru a adăuga rapid toate numele foilor în acea casetă combinată. Și dacă există deja o casetă combinată care conține toate numele foilor, vă rugăm să treceți la pasul 1 direct.

varful: Introduceți un buton de comandă 1 în foaia de lucru, faceți clic dreapta pe acesta și selectați Afișați codul din meniul cu clic dreapta. Apoi copiați și lipiți codul VBA de mai jos în Cod fereastră și apăsați tasta Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicație fereastră. Faceți clic pe butonul de comandă inserat, apoi toate numele foilor din registrul de lucru curent vor fi adăugate automat în ComboBox1.

Cod VBA: adăugați cu ușurință toate numele foilor într-o casetă combinată

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next

End Sub

Dacă există deja o casetă combinată care conține toate numele foilor, vă rugăm să procedați după cum urmează.

1. Porniți Mod de proiectare în temeiul Dezvoltator tab.

2. Faceți clic dreapta pe caseta combinată cu numele foilor, apoi faceți clic pe Afișați codul din meniul cu clic dreapta.

casetă combinată doc deschideți foaia de lucru 12png

3. Apoi Microsoft Visual Basic pentru aplicații fereastra apare, vă rugăm să înlocuiți codul VBA original în fereastra Cod cu codul VBA de mai jos.

Cod VBA: deschideți o foaie de lucru specifică după valoarea selectată a casetei combinate

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
    
End Sub

notițe: în cod, ComboBox1 este numele casetei combinate care conține numele foilor.

4. apasă pe Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră și opriți Mod de proiectare în temeiul Dezvoltator tab.

Acum, când selectați orice nume de foaie de lucru în caseta combinată, foaia de lucru corespunzătoare va fi deschisă automat.


Enumerați cu ușurință toate numele foilor din registrul de lucru curent în Excel:

Utilizarea indexului de foi în registrul de lucru vă ajută să vă gestionați foile de lucru cu ușurință. Cu Creați o listă de nume de foi utilitatea Kutools pentru Excel, puteți crea cu ușurință un index de foi care conține toate numele foilor din registrul de lucru curent. După aceea, puteți trece rapid la o anumită foaie de lucru făcând clic pe numele foii din foaia de lucru Index. Vedeți mai jos captura de ecran:
Descărcați și încercați acum! (traseu gratuit de 30 de zile)


Articole pe aceeași temă:

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
hi
i just removed my excel file by converting it from 2016 to 2010. Then converting back to 2016 and put new password.
This comment was minimized by the moderator on the site
perfectly working.if your sheet name different then change the sheet name also.without changing the sheet name code does not working. thanks for sharing .
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations