Risultati da 1 a 4 di 4

Discussione: Bordi con vba



  1. #1
    L'avatar di Bolz1
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Padova
    Età
    41
    Messaggi
    117
    Versione Office
    '11 e 16 MAC
    Likes ricevuti
    7
    Likes dati
    1

    Bordi con vba

    Ciao! Una domanda al volo...questo è un frammento di una macro che stavo facendo...in questo pezzo voglio mettere il bordo spesso intorno ad un range (vi risparmio tutta la parte restante dove ho definito i casi, intervallo1, ecc.)

    Codice: 
    Case 1        Foglio1.Activate
            intervallo1.Select
                With Selection.Borders(xlEdgeLeft)
                    .LineStyle = xlContinuous
                    .Weight = xlMedium
                    .ColorIndex = xlAutomatic
                End With
                With Selection.Borders(xlEdgeTop)
                    .LineStyle = xlContinuous
                    .Weight = xlMedium
                    .ColorIndex = xlAutomatic
                End With
                With Selection.Borders(xlEdgeBottom)
                    .LineStyle = xlContinuous
                    .Weight = xlMedium
                    .ColorIndex = xlAutomatic
                End With
                With Selection.Borders(xlEdgeRight)
                    .LineStyle = xlContinuous
                    .Weight = xlMedium
                    .ColorIndex = xlAutomatic
                End With
    La mia domanda era: visto che mi servono sempre tutti e 4 i bordi e ho parecchi Case, non c'è un modo per cambiarli tutti e 4 senza scrivere il codice per ogni lato xlEdgeRight, xlEdgeLeft, xlEdgeBottom e xlEdgeTop? Scusate la domanda banale ma non ho trovato risposta...

    PS: aggiungo che mi serve solo il bordo, all'interno del range le celle non hanno contorni (o meglio, alcune celle li hanno ma sono fissi e non li devo toccare)
    "Se tu segui tua stella non puoi fallire a glorioso porto" (Dante, Inferno - XV)

  2. #2
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3216
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Ciao Bolz1
    Cerca nella guida VBA Enumerazione XlBordersIndex, e, in base al numero del bordo, puoi creare un ciclo (nel tuo caso dal 7 al 10).

    Fai sapere. Ciao,
    Mario

  3. #3
    L'avatar di Bolz1
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Padova
    Età
    41
    Messaggi
    117
    Versione Office
    '11 e 16 MAC
    Likes ricevuti
    7
    Likes dati
    1
    Mitico grazie!! Ecco qui

    Codice: 
    Case 1        Foglio1.Activate
            intervallo1.Select
            For i = 7 To 10 Step 1
                With Selection.Borders(i)
                    .LineStyle = xlContinuous
                    .Weight = xlMedium
                    .ColorIndex = xlAutomatic
                End With
            Next i
    "Se tu segui tua stella non puoi fallire a glorioso porto" (Dante, Inferno - XV)

  4. #4
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3216
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Grazie per il cortese riscontro.
    Una precisazione: nel ciclo puoi togliere step 1, lo fa in automatico.

    Ciao,
    Mario

Discussioni Simili

  1. Bordi tabelle excel
    Di antonio64 nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 14/11/16, 16:20
  2. Bordi su anteprima di stampa
    Di alfrimpa nel forum Domande su Excel in generale
    Risposte: 16
    Ultimo Messaggio: 13/09/16, 19:57
  3. Creare bordi con VBA e altri aggiustamenti
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 16
    Ultimo Messaggio: 19/08/16, 18:50
  4. bordi spaginati a seconda del pc
    Di dorico75 nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 20/04/16, 13:55
  5. Test bbcode x bordi e tabelle
    Di Gerardo Zuccalà nel forum Test dei vostri post
    Risposte: 16
    Ultimo Messaggio: 19/06/15, 21:10

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
  •