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à
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126

    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 

  2. #2
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    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

Discussioni Simili

  1. qr code?
    Di AlleBon nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 03/03/17, 15:39
  2. QR code
    Di pex76 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 23/12/16, 11:36
  3. inserimento e generazione qr code
    Di dorico75 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 12/05/16, 01: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, 17:15
  5. bar code con exel
    Di bartolo6702 nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 06/07/15, 21: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
  •