Note: The other languages of the website are Google-translated. Back to English

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! (30- traseu liber de o zi)


Articole pe aceeași temă:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
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!
fundul officetab
Comentarii (2)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
funcționează perfect.dacă numele foii este diferit, atunci schimbați și numele foii.fără a schimba codul numelui foii nu funcționează. multumesc pentru partajare.
Acest comentariu a fost redus la minimum de moderatorul de pe site
hi
Tocmai mi-am eliminat fișierul Excel conversia din 2016 în 2010. Apoi, conversia înapoi în 2016 și am pus o nouă parolă.
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL