Sviluppare funzionalita su Microsoft Office con VBA come faccio ad utilizzare il formato gg-mm-aaaa invece di g-mm-aaaa

LoginRegistrati
Stai vedendo 6 articoli - dal 1 a 6 (di 6 totali)
  • Autore
    Articoli
  • #27451 Risposta
    Sub duplicafogli()
    
    Dim giorno As String, mese_anno As String, contatore As String
    Dim shs As Integer, r As Integer
    
    controllo:
    contatore = InputBox("Quanti fogli vuoi creare?")
    
    If contatore = "" Then
        MsgBox ("Devi inserire un numero")
        GoTo controllo
    End If
    
    giorno = (Day(Date) + 1) ' parte dal giorno dopo la data corrente
    
    For r = 1 To Val(contatore)
        
        mese_anno = Mid((Date), 4, 2) & Year(Date)
        nomef = giorno & mese_anno
    
        
            ActiveSheet.Copy After:=Sheets(Sheets.Count)
            shs = Sheets.Count
            Sheets(shs).Name = nomef
            
     giorno = giorno + 1
        
    Next r
    End Sub
    
    Allegati:
    You must be logged in to view attached files.
    #27455 Risposta
    Luca73
    Luca73
    Partecipante
      31 pts

      Spiegare il problema è troppo difficile?

      #27462 Risposta
      tanimon
      tanimon
      Partecipante
        10 pts

        Ciao Massimiliano

        ed un saluto a Luca  

        Come ti ho detto nell'alltra tua discussione sull'argomento, rimango dell'idea che è meglio che il nome dei

        fogli, come tutti i nomi degli oggetti, sia più semplice possibile e senza caratteri speciali.

        Comunque visto che ti piace e lo vuoi con il trattino........

        prova questa.

        RICORDA:

        Studiatela bene per sapere come fare le modifiche in futuro, nel caso il trattino richiesto ti crei dei problemi.

        Ciao

        Frank

        Sub duplicafogli()
        
        Dim giorno As String, mese As String, anno As String, contatore As String
        Dim shs As Integer, r As Integer
        
        controllo:
        contatore = InputBox("Quanti fogli vuoi creare?")
        
        If contatore = "" Then
            MsgBox ("Devi inserire un numero")
            GoTo controllo
        End If
        
        giorno = Mid((Date) + 1, 1, 2) ' parte dal giorno dopo la data corrente
        
        For r = 1 To Val(contatore)
            
            If Len(giorno) = 1 Then
                giorno = "0" & giorno
            End If
            
            mese = Mid((Date), 4, 2)
            anno = Year(Date)
            nomef = giorno & "-" & mese & "-" & anno
        
            
                ActiveSheet.Copy After:=Sheets(Sheets.Count)
                shs = Sheets.Count
                Sheets(shs).Name = nomef
                
            giorno = giorno + 1
         
        Next r
        End Sub
        #27463 Risposta

        Grazie come sempre per le tue ottime soluzioni, un ultima cosa, che istruzione bisogna mettere perchè nel caso si proceda ad un altra duplicazione nello stesso giorno la macro non vada in debug?, in allegato l'esempio.(errore di run time 1004).

         

        Saluti.

        Massimiliano

        Allegati:
        You must be logged in to view attached files.
        #27465 Risposta
        tanimon
        tanimon
        Partecipante
          10 pts

          caro Massimiliano,

          tu non leggi o non ti ricordi quello che leggi!!!

          rileggi il post #27241 a questa discussione

          macro per moltiplicare un foglio excel

          Passo, e CHIUDO

          Frank

          #27466 Risposta

          Grazie, 

          mi sarò espresso male, ma va bene!

           

        LoginRegistrati
        Stai vedendo 6 articoli - dal 1 a 6 (di 6 totali)
        Rispondi a: come faccio ad utilizzare il formato gg-mm-aaaa invece di g-mm-aaaa
        Gli allegati sono permessi solo ad utenti REGISTRATI
        Le tue informazioni:



        vecchio frac - 2750 risposte

        albatros54
        albatros54 - 1009 risposte

        patel
        patel - 976 risposte

        Marius44
        Marius44 - 839 risposte

        Luca73
        Luca73 - 717 risposte