maurogsc.eu
mauro gamberini


home ==> Excel: come fare per ==> ActiveSheet: modificarne il nome runtime con InputBox

ActiveSheet: modificarne il nome runtime con InputBox - VBA

NOTA. La soluzione ed il codice sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dal codice o dalla soluzione proposta se usati impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare il codice o la soluzione in files importanti.

1 - Come modificare il nome(quello che abbiamo nell'etichetta del foglio) del foglio attivo(ActiveSheet) mediante una InputBox:

Public Sub m()
   
'gestione errori
On Error GoTo RigaErrore

    'dichiaro le variabili
    Dim v As Variant
    
    'passo alla variabile v il valore
    'inserito nella InputBox
    v = Application.InputBox("Foglio attivo: " & _
        ActiveSheet.Name & ". Inserire il nuovo nome per il foglio attivo.", _
        "Nuovo nome foglio attivo.")
       
    'controllo se è stato inserito un valore
    ' e se non è stata annullata l'operazione
    'con il pulsante Annulla
    If v <> False And v <> "" Then
        'modifico il nome del foglio
        ActiveSheet.Name = v
    End If

'codice sempre eseguito
RigaChiusura:
    'esco dalla routine
    Exit Sub

'in caso di errore
RigaErrore:
    'se è stato inserito un nome già dato
    'ad un altro foglio o un nome non valido
    If Err.Number = 1004 Then
        'visualizzo una MsgBox che riporta l'errore specifico
        MsgBox "Attenzione!" & vbNewLine & _
            "E' già presente un foglio con lo stesso nome " _
            & "o il nome non è valido."
    'altrimenti
    Else
        'visualizzo una MsgBox con i dati dell'errore generico
        MsgBox Err.Number & vbNewLine & Err.Description
    End If
    'vado alla riga di chiusura
    Resume RigaChiusura
    
End Sub

Per ulteriori informazioni su Microsoft Excel ed il suo Visual Basic, utilizzate questo forum:
http://social.answers.microsoft.com/Forums/it-IT/officeexcelit/threads


Ultimo aggiornamento di questa pagina: 17/11/2010 - mauro gamberini