You are here:Home-Domande su Excel VBA e MACRO-adattare contenuto celle con step righe
adattare contenuto celle con step righe2020-05-21T06:53:34+02:00

Home Forum Domande su Excel VBA e MACRO adattare contenuto celle con step righe

Visualizzazione 2 filoni di risposte
  • Autore
    Post
    • raimearaimea
      Partecipante
        Post totali: 10

        ciao

        ho questa piccola semplice macro

        che partendo da riga 10

        mi adatta l altezza delle righe a =17

        con salti _step ogni 4 righe

        —————

        sub altezza ()

        Rows(“7:100”).Select

        For x = 10 To 100 Step 4

        Sheets(“singolo”).Cells(x, 1).RowHeight = 17  ‘ da riga 10

        Next

        ——————–

        vorrei aggiungere OLTRE che adattare l altezza,

        mettere anche il contenuto grassetto

        e carattere a 13  della stessa riga

         

        partendo da E10 fino colonna AJ10

        ovviamente da ripetere con salti di 4 righe

         

        vi allego il file

        https://www.dropbox.com/s/lfrxs42ksqp2h4r/test.rar?dl=0

        grazie

         

      • BySalvBySalv
        Amministratore del forum
          Post totali: 693

          Ciao Raimea, ecco la macro modificata

          Sub altezza()
          
          For x = 10 To 100 Step 4 ' salta 4 righe sotto
              With Sheets("singolo")
                  .Cells(x, 1).RowHeight = 17    ' da riga 10
                  .Range(Cells(x, 5), Cells(x, 35)).Font.Bold = True 'carattere  grassetto
                  .Range(Cells(x, 5), Cells(x, 35)).Font.Size = 13    ' misura del carattere
              End With
          Next
          
          End Sub

          l’altezza della riga basta modificarne una che vale per tutta la riga, mentre per il grassetto
          ed il font-size è mirato solo alle celle interessate dalla colonna “E” ad “AJ” appunto 5-35.

          si poteva anche usare Range(“E” & x & “:AJ” & x), ma io uso sempre Cells(), in quanto se si devono spostare di colonne resta difficile modificare la “E”.

          Ciao By Sal (8-D

           

          Ciao By Sal (8-)
          se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

        • raimearaimea
          Partecipante
            Post totali: 10

            ciao

            tutto bene

            grazie

        Visualizzazione 2 filoni di risposte
        • Devi essere connesso per rispondere a questo topic.