Formattazione celle excel

Hai un problema con Excel?

Nuova discussione

Formattazione celle excel
di Moon (utente non iscritto) data: 14/03/2011
Buongiorno a tutti. spero che qualcuno mi possa aiutare. sono negato con vba
vorrei formattare tramite pulsante su userform il foglio1 di excel in questo modo:
se la cella 1, colonna 1 del foglio contiene qualcosa, aggiungo una linea continua nera, sul bordo inferiore delle celle a1:f1.
se la cella 2, colonna 1 del foglio contiene qualcosa, aggiungo una linea continua nera, sul bordo inferiore delle celle a2:f2 e così via....
come posso fare? grazie fin da subito per la vostra attenzione, e complimenti per il forum sempre molto utile.

di Locate (utente non iscritto) data: 14/03/2011
Ciao
ti passo una macro per fare questo lavoro
la metti nel foglio che devi usare

ciao da locate
excel 2003

Sub LineaContinua()
Dim ValA
Dim a
For a = 1 To 1000  '' fino a 1000 righe
ValA = Cells(a, 1)
  If ValA <> "" Then
     Range("A" & a & ":F" & a).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
         
  End If
Next a
End Sub

Vuoi Approfondire?