Condividi tramite

Creazione convalida dati tramite VBA - Excel

Anonimo
2021-06-17T09:14:14+00:00

Salve a tutti,
vorrei creare una convalida dati in una cella di excel in modo che l'utente inserisca in una cella il codice seriale di una targa, composto quindi da due lettere maiuscole, tre cifre e altre due lettere maiuscole (ad es.: AA000AA).
Essendo un neofita sto riscontrando parecchi problemi.
Grazie mille.

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

1 risposta

Ordina per: Più utili
  1. Anonimo
    2021-06-17T11:36:45+00:00

    Ciao Flavio,

    Salve a tutti,
    vorrei creare una convalida dati in una cella di excel in modo che l'utente inserisca in una cella il codice seriale di una targa, composto quindi da due lettere maiuscole, tre cifre e altre due lettere maiuscole (ad es.: AA000AA).
    Essendo un neofita sto riscontrando parecchi problemi.
    Grazie mille.

    Prova qualcosa del genere:

    • Fai clic dx sulla linguetta del foglio di interesse
    • Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
    • Incolla il seguente codice:

     '========>>

    Option Explicit

    '-------->>

    Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Rng As Range, rCell As Range 
    
    Const sIntervallo\_Convalida As String = **"A1:A20"        '<<=== Modifica**
    
    Set Rng = Intersect(Me.Range(sIntervallo\_Convalida), Target)  
    
    If Not Rng Is Nothing Then 
    
        For Each rCell In Rng.Cells 
    
            If Not rCell.Value Like "[A-Z][A-Z]###[A-Z][A-Z]" Then 
    
                With Application 
    
                    .EnableEvents = False 
    
                    .Undo 
    
                    .EnableEvents = True 
    
                End With 
    
                Call MsgBox(Prompt:="La targa deve avere una forma del tipo AA000AA", \_ 
    
                    Buttons:=vbCritical, \_ 
    
                    Title:="REPORT") 
    
            End If 
    
        Next rCell 
    
    End If 
    

    End Sub

    '<<========  

    • Alt+Q per chiudere l'editor di VBA e tornare a Excel.
    • Salva il file con l'estensione xlsm.

    Potresti scaricare il mio file di prova Flavio20210617.xlsm

    ===

    Regards,

    Norman

    ![](https://learn-attachment.microsoft.com/api/attachments/9a3ce685-a3a1-4e63-ad72-7c4e7c1d80df?platform=QnA

    La risposta è stata utile?

    2 persone hanno trovato utile questa risposta.
    0 commenti Nessun commento