Bordo automatico
Frysky
mettere il bordo alle righe che ho inserito.
Mi spiego meglio:
Ho per esempio dei dati da inserire e le colonne le chiamo Nome, Cognome,
Mese, li inserisco e vorrei che autometicamente mi realizzasse il bordo o
almeno me lo dia in automatico all'atto della stampa!
Spero di essermi spiegato bene, grazie per l'aiuto!
--
Un giorno un piccolo aereo lasciò le ali in cielo per
diventare un mito a terra.
Era il giorno di una intuizione perfetta, fatta per durare.
Frysky Moderatore del Forum http://www.vespaforever.net/forum
_______________
eliano
"Frysky" ha scritto:
> Salve, ho un foglio excel nel quale immetto dei dati, vorrei un modo per
> mettere il bordo alle righe che ho inserito.
>
> Mi spiego meglio:
>
> Ho per esempio dei dati da inserire e le colonne le chiamo Nome, Cognome,
> Mese, li inserisco e vorrei che autometicamente mi realizzasse il bordo o
> almeno me lo dia in automatico all'atto della stampa!
>
> Spero di essermi spiegato bene, grazie per l'aiuto!
>
> --
>
>
> Un giorno un piccolo aereo lasciò le ali in cielo per
> diventare un mito a terra.
> Era il giorno di una intuizione perfetta, fatta per durare.
>
Ciao VespaForEver.
Sinceramente assegnerei i bordi manualmente al foglio, comunque se vuoi
provare con la formattazione condizionale:
seleziona le celle interessate, ad esempio da A1 ad C100
poi: formato --> formattazione condizionale-->la formula è: =$A1<>""
segli formato-->bordo
Noterai che è un bordino molto semplice e non modificabile.
Eliano
Frysky
colonne sono Nome, Cognome e mese, ora vorrei che all'nserzione del dato in
automatico mi facesse il bordo, o me lo dia all'atto della stampa.
Di questi dati io di solito faccio un filtro sul mese, potrebbe essere una
info in piu sulla mia richiesta!
--
Grazie
Un giorno un piccolo aereo lasciò le ali in cielo per
diventare un mito a terra.
Era il giorno di una intuizione perfetta, fatta per durare.
Frysky Moderatore del Forum http://www.vespaforever.net/forum
_______________
Norman Jones
'------------------
ho un foglio excel nel quale immetto dei dati, vorrei un modo per
mettere il bordo alle righe che ho inserito.
Mi spiego meglio:
Ho per esempio dei dati da inserire e le colonne le chiamo Nome, Cognome,
Mese, li inserisco e vorrei che autometicamente mi realizzasse il bordo o
almeno me lo dia in automatico all'atto della stampa!
'------------------
Nel modulo ThisWorkbook (vedi di sotto).
prova:
'=============>>
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim SH As Worksheet
Dim Rng As Range
Dim iRow As Long
Set SH = Me.Sheets("Foglio1") '<<=== da CAMBIARE
iRow = SH.Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range("A1:C" & iRow)
With Rng
SH.PageSetup.PrintArea = .Address
.Borders.LineStyle = xlNone
End With
With Range("A1:C1").Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Range("A" & iRow).Resize(1, 3).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Range("A1:A" & iRow).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
With Range("C1:C" & iRow).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Application.OnTime Now, "AfterPrint"
End Sub
'<<=============
Alt-F11 per aprire l'Editor di VBA
Ctrl-R per aprire la finestra Gestione Progetti
Fai un doppio clic sull'oggetto ThisWorkbook
Incollarci il suddetto codice
Alt-F11 per tornare in Excel.
In un modulo standard (vedi di sotto), incolla:
'=============>>
Public Sub AfterPrint()
Dim WB As Workbook
Dim SH As Worksheet
Dim Rng As Range
Dim iRow As Long
Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE
Set SH = WB.Sheets("Foglio1")
Set Rng = SH.AutoFilter.Range
Rng.Borders.LineStyle = xlNone
End Sub
'<<=============
---
Regards,
Norman
Microsoft Excel MVP
Norman Jones
Sostituisci:
> Set WB = Workbooks("Pippo.xls") '<<=== da CAMBIARE
con
Set WB = ThisWorkbook
eliano
"Frysky" ha scritto:
eliano
"Frysky" ha scritto:
> Eliano non mi sono espresso bene, ho 100 dati per esemio da inserire, e le
> colonne sono Nome, Cognome e mese, ora vorrei che all'nserzione del dato in
> automatico mi facesse il bordo, o me lo dia all'atto della stampa.
>
Ciao VespaForEver.
Dalla risposta credo che tu non abbia neppure provato quello che ti ho
consigliato, per cui mi sento autorizzato a dire: WIVA la LAMBRETTA!!
Quello che ti ho consigliato dovrebbe mettere il bordo alla cella B1 e C1
non appena immetti un valore nelle cella A1 (e questo per tutte le cento
righe interessate).
Comunque vedo che Norman (ciao Malefico) ti ha propinato una soluzione
macro, per cui usa quella.
Eliano
Frysky
> Dalla risposta credo che tu non abbia neppure provato quello che ti ho
> consigliato, per cui mi sento autorizzato a dire: WIVA la LAMBRETTA!!
> Quello che ti ho consigliato dovrebbe mettere il bordo alla cella B1 e C1
> non appena immetti un valore nelle cella A1 (e questo per tutte le cento
> righe interessate).
Eliano, sono del parere che non importa che sia vespa, lambretta, MotoGuzzi
o FIAT500, ma l'importante è che si preservi la memoria storica dell'Italia!
Non ho seguito effettivamente il tuo consiglio perche si limitava solo alle
prima 100 righe.....a me interessebbe che sia illimitato!
Poi inserendo il filtro sul mese mi faccio le mie verifiche!
Casomai alla tua soluzione sarebbe possibile selezionare tutte le colonne
A - B e C e non A1-C100 ? ?
PS grazie Norman (Malefico ? ?)per la tua soluzione, ma preferirei non
mettere le macro dato che lavoro anche con openpffice e con quello avrei poi
alcuni problemi!
Norman Jones
'----------------
[...]
PS grazie Norman (Malefico ? ?)
'----------------
Vedi:
COME CONTARE DATE
http://tinyurl.com/3y9gg5
'----------------
per la tua soluzione, ma preferirei non mettere le macro
dato che lavoro anche con openpffice e con quello avrei poi
alcuni problemi!
'----------------
Allora, vuoi chiedere assistenza da un gruppo MS
per un prodotto non MS? :-)
Frysky
> dato che lavoro anche con openpffice e con quello avrei poi
> alcuni problemi!
> '----------------
>
> Allora, vuoi chiedere assistenza da un gruppo MS
> per un prodotto non MS? :-)
Norma, uso sia office 2003, che office 2007 sui portatili, mentre in ufficio
ho un pc che ha open office(muletto con poca RAM e piccolo HD, ma per quello
che deve e/o dovrebbe fare č ottimo)
--
Grazie
Un giorno un piccolo aereo lasciň le ali in cielo per