Disegnare bordi con macro

Hai un problema con Excel?

Nuova discussione

Disegnare bordi con macro
di Nic82 (utente non iscritto) data: 05/05/2010
Ciao,
ho inserito per conto di nic82 la discussione.

fai attenzione qundo scrivi nel forum, ti sei inserito in un'altra discussione
ciao da ricky53
- - - - - - - - - - - -

ciao, mi inserisco nella discussione:

ho un range b4:e70, e devo evidenziare i bordi soprastanti e sottostanti di ogni riga di questo range, una riga si e una no, cioè con uno step 2...credo.

come posso completare la macro sotto?

la macro deve andarmi ad evidenziare i bordi per esempio di b4:e4, b6:e6, b8:e8 ecc....

ciao e grazie...

Sub DisegnaBordi()

Range("B4").Select

Set ultcell = ActiveCell.SpecialCells(xlCellTypeLastCell)
RR = Range("B4", ultcell).Rows.Count

For i = 1 To RR Step 2


With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
Next

End Sub

Bordi
di Locate (utente non iscritto) data: 05/05/2010
Ciao
ti ripasso la tua macro con la modifica del ciclo for
ciao locate

Sub DisegnaBordi()
''Range("B4").Select
''Set ultcell = ActiveCell.SpecialCells(xlCellTypeLastCell)
''RR = Range("B4", ultcell).Rows.Count

For i = 4 To 70 Step 2
Range("B" & i, "E" & i).Select
With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
Next
Range("a1").Select
End Sub

di Nic82 data: 06/05/2010
Ma certo, devo "assegnare" la i sia a b che ad e così mi va a selezionare le 4 celle che mi interessano sulla riga!!!

comunque è giusto usare il metodo rows.count per ottenere in lettura il numero di righe di un range? quindi se io faccio range([b4], [rr]) mi va a selezionare l'intero range che mi interessa?
di Locate (utente non iscritto) data: 06/05/2010
Ciao nic
tu ai scritto
comunque è giusto usare il metodo rows.count
''rr = range("b4", ultcell).rows.count
--------
e' giusto se i valori che devi inserire in colonna b-b variano ma se deve essere un range definito no, la mia macro presuppone che tu abbia un range da 4 a 70 con o senza valori ma se come forse i tuoi valori cambieranno devi sostiruire al ciclo for valore 70 con (rr) campo di range variabile cosi che la macro rilevi sempre i valori nuovi inseriti in sequenza dopo
ciao da locate
di Nic82 data: 11/05/2010
Ah ok grazie 1000!!!

ciao

Vuoi Approfondire?