Come si fa ad applicare un pulsante per aprire un’altra cartella di lavoro in Excel?
In un foglio di lavoro, possiamo inserire un collegamento ipertestuale per collegarci rapidamente e facilmente a un’altra cartella di lavoro. Ma hai mai provato a creare un pulsante nella cartella di lavoro corrente per aprirne un’altra?
Applica un pulsante per aprire un'altra cartella di lavoro con il codice VBA
Applica un pulsante per aprire un'altra cartella di lavoro con il codice VBA
In Excel, puoi inserire un pulsante a forma geometrica e associargli del codice. Ecco come fare:
1. Fai clic su Inserisci > Forme > Rettangolo, vedi screenshot:
2. Trascina quindi il mouse per disegnare un pulsante con una forma geometrica e personalizzalo secondo le tue esigenze, vedi screenshot:
3. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
4. Fai clic su Inserisci > Modulo e incolla il codice seguente nella finestra del Modulo.
Codice VBA: Apri una cartella di lavoro specifica:
Sub Openworkbook_Click()
'Updateby Extendoffice
Dim xWb As Workbook
Dim wbName As String
On Error Resume Next
Set xWb = Workbooks.Open("C:\Users\DT168\Desktop\test\Book2.xlsx")
wbName = xWb.Name
If Err.Number <> 0 Then
MsgBox "This workbook does not exist!", vbInformation, "Kutools for Excel"
Err.Clear
Else
MsgBox "This workbook is opened!", vbInformation, "Kutools for Excel"
End If
End Sub
Nota: nel codice riportato sopra, sostituisci il percorso del file e il nome C:\Users\DT168\Desktop\test\Book2.xlsx con il percorso effettivo della cartella di lavoro che desideri collegare.
5. Quindi salva e chiudi questa finestra del codice. Fai clic con il pulsante destro del mouse sul pulsante a forma geometrica che hai creato, scegli Assegna macro dal menu contestuale; nella finestra di dialogo Assegna macro visualizzata, fai clic sul nome della macro Openworkbook_Click appena inserita, quindi premi il pulsante OK. Vedi screenshot:
6. Ora, quando fai clic sul pulsante a forma geometrica:
(1.) Se la cartella di lavoro non esiste, verrà visualizzata la seguente finestra di avviso:
(2.) Se la cartella di lavoro esiste, verrà aperta immediatamente e comparirà anche una finestra di avviso per ricordartelo:
Sblocca la magia di Excel con KUTOOLS AI
- Esecuzione intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici, il tutto con comandi semplici e intuitivi.
- Formule personalizzate: crea formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA in modo semplice e immediato.
- Interpretazione delle formule: Comprendi con facilità anche le formule più complesse.
- Traduzione del testo: Superate le barriere linguistiche direttamente nei vostri fogli di calcolo.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi