Risultati da 1 a 2 di 2

Discussione: prova code



  1. #1
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5388
    Versione Office
    office 365/2016
    Likes ricevuti
    1274
    Likes dati
    1342

    prova code

    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address(0, 0) = "A1" Then
    On Error GoTo InvalidName
    Sh.Name = Target.Value
    End If
    Exit Sub
    InvalidName:
    MsgBox "The text in cell A1 does not form a valid sheet name!", vbCritical
    Range("A1").Select End Sub
    Codice: 
    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)  If Target.Address(0, 0) = "A1" Then
        On Error GoTo InvalidName
        Sh.Name = Target.Value
      End If
      Exit Sub
    InvalidName:
      MsgBox "The text in cell A1 does not form a valid sheet name!", vbCritical
      Range("A1").Select End Sub
    Codice HTML: 
    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)  If Target.Address(0, 0) = "A1" Then
        On Error GoTo InvalidName
        Sh.Name = Target.Value
      End If
      Exit Sub
    InvalidName:
      MsgBox "The text in cell A1 does not form a valid sheet name!", vbCritical
      Range("A1").Select End Sub
    Codice PHP: 
    Private Sub Workbook_SheetChange(ByVal Sh As ObjectByVal Target As Range)  If Target.Address(00) = "A1" Then
        On Error 
    GoTo InvalidName
        Sh
    .Name Target.Value
      End 
    If
      Exit 
    Sub
    InvalidName
    :
      
    MsgBox "The text in cell A1 does not form a valid sheet name!"vbCritical
      Range
    ("A1").Select End Sub 
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

  2. #2
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5388
    Versione Office
    office 365/2016
    Likes ricevuti
    1274
    Likes dati
    1342
    Codice: 
    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)  If Target.Address(0, 0) = "A1" Then
        On Error GoTo InvalidName
        Sh.Name = Target.Value
      End If
      Exit Sub
    InvalidName:
      MsgBox "The text in cell A1 does not form a valid sheet name!", vbCritical
      Range("A1").Select End Sub
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

Discussioni Simili

  1. qr code?
    Di AlleBon nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 03/03/17, 14:39
  2. QR code
    Di pex76 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 23/12/16, 10:36
  3. inserimento e generazione qr code
    Di dorico75 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 12/05/16, 00:37
  4. test Code Tags and BB Code : testare codice Tag e codice BB
    Di Doc.AElstein nel forum Test dei vostri post
    Risposte: 8
    Ultimo Messaggio: 11/07/15, 16:15
  5. bar code con exel
    Di bartolo6702 nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 06/07/15, 20:12

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •