Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Inserire riga vuota

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Inserire riga vuota

Postdi geppo56 » 25/10/09 00:37

Salve a tutti,
ho preparato un foglio excel per delle spese riassuntive,mi sembra abbastanza funzionale,però con le mie attuali conoscenze non riesco a inserire una riga vuota con motivo diagonale ogni qualvolta inserisco una nuova data nella colonna A.
Mi spiego meglio:inserisco dei dati nella riga 4 , colonna A la data,B descrizione spesa,C uscita,e così via con colonne che calcolano i subtotali,le rimanenze ecc.
Il problema è che vorrei che tra ogni cambio di data (crescente o decrescente ma non uguale) nella colonna A,automaticamente si inserisse una riga vuota di una determinata altezza e con un dato motivo e colore,senza bordi left e right, in maniera tale che a ogni cambio data si creino visivamente dei blocchi.
Ho creato questa macro,che però non funziona completamente,nel senso che crea una riga con il motivo, ma non mi toglie i bordi laterali delle celle della riga selezionata.Oltre al fatto che non ho la minima idea di come fare affinchè venga eseguita quando inserisco la data:

Sub riga_altezza_colore()
'
' riga_altezza_colore Macro

ActiveSheet.Select
Selection.EntireRow.Insert
With Selection.Rows
.RowHeight = 10
End With

With Selection.EntireRow.Interior
.ColorIndex = 36
.Pattern = xlLightUp
.PatternColorIndex = xlAutomatic
End With

With Selection.Borders(xlEdgeLeft)
.LineStyle = xlNone
End With
With Selection.EntireRow.Borders(xlEdgeRight)
.LineStyle = xlNone
End With
With Selection.EntireRow.Borders(xlEdgeBottom)
.Weight = xlThin
.LineStyle = xlContinuous
.ColorIndex = 1
End With
With Selection.EntireRow.Borders(xlEdgeTop)
.Weight = xlThin
.LineStyle = xlContinuous
.ColorIndex = 1
End With
End Sub

La guida di excel non mi aiuta,anzi mi confonde le idee.
Perchè ad esempio si creano i bordi top e bottom e non si cancellano i laterali?
A dire il vero ho provato a usare la formattazione condizionale, tipo SE($A6>$A5;(colore bordo x);(colore bordo y))
ma a parte il fatto che non mi sta bene l'estetica che viene fuori,preferirei implementare il discorso fatto prima.Come faccio a richiamare la macro?
Grazie assai assai a tutti
geppo56
Newbie
 
Post: 1
Iscritto il: 25/10/09 00:08

Sponsor
 

Re: Inserire riga vuota

Postdi Flash30005 » 25/10/09 19:42

Ciao Geppo e benvenuto

Prova questa macro...

Codice: Seleziona tutto
Sub Formatta()
Ur = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For F = Ur To 4 Step -1
If Format(Range("A" & F).Value, "dd,mm,yyyy") <> Format(Range("A" & F + 1).Value, "dd,mm,yyyy") Then
Rows(F + 1 & ":" & F + 1).Select
    Selection.Insert Shift:=xlDown
With Selection.Rows
.RowHeight = 10
End With

With Selection.EntireRow.Interior
.ColorIndex = 36
.Pattern = xlLightUp
.PatternColorIndex = xlAutomatic
End With
    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 = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Rows(F & ":" & F).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 = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone

End If
Next F
End Sub

...se soddisfa altrimenti fai sapere

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "Inserire riga vuota":


Chi c’è in linea

Visitano il forum: Nessuno e 21 ospiti