[Excel] Riempimento percentuale

[-Ivan-]

Scusate devo fare una cosa piuttosto banale con excel ma non ricordo proprio come si faccia.
In pratica io ho una casella con un valore percentuale e voglio che lo sfondo della casella venga colorato per una porzione che rappresenti quella percentuale così da avere anche un impatto visivo immediato.
Non ricordo come si faccia, se è un'opzione di riempimento ma in formato celle non c'è, oppure se è una clip art o qualche altra cosa, non la trovo da nessuna parte.

[MarcoGG]

Un buon metodo, migliore sicuramente del mero utilizzo dei menu prefabbricati di Excel, è questo ( tramite VBA, ovviamente ) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Text = "" Then
    Exit Sub
End If
Dim forma As Shape
For Each forma In ActiveCell.Worksheet.Shapes
    forma.Delete
Next
Set forma = ActiveCell.Worksheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width * ActiveCell.Value, ActiveCell.Height)
With forma
    .Line.Visible = False
    .Fill.Transparency = 0.7
    .Fill.ForeColor.RGB = ThisWorkbook.Colors(4)
End With

End Sub

Da inserire nel codice di uno Sheet di prova che contenga vari valori percentuali...
Customizzabile in mille modi diversi, a seconda delle esigenze...

[-Ivan-]

Originariamente inviato da MarcoGG

Un buon metodo, migliore sicuramente del mero utilizzo dei menu prefabbricati di Excel, è questo ( tramite VBA, ovviamente ) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Text = "" Then
    Exit Sub
End If
Dim forma As Shape
For Each forma In ActiveCell.Worksheet.Shapes
    forma.Delete
Next
Set forma = ActiveCell.Worksheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width * ActiveCell.Value, ActiveCell.Height)
With forma
    .Line.Visible = False
    .Fill.Transparency = 0.7
    .Fill.ForeColor.RGB = ThisWorkbook.Colors(4)
End With

End Sub

Da inserire nel codice di uno Sheet di prova che contenga vari valori percentuali...
Customizzabile in mille modi diversi, a seconda delle esigenze...

grazie del consiglio ma non conosco molto bene excel, lo uso giusto per tenere conto di un paio di cose e sinceramente non so cosa sia VBA e nemmeno dove infilare il codice , comunque adesso mi informo grazie del consiglio...vediamo di imparare qualcosa su excel.

[MarcoGG]

Originariamente inviato da -Ivan-

grazie del consiglio ma non conosco molto bene excel, lo uso giusto per tenere conto di un paio di cose e sinceramente non so cosa sia VBA e nemmeno dove infilare il codice , comunque adesso mi informo grazie del consiglio...vediamo di imparare qualcosa su excel.

1. Apri Excel / Nuovo Workbook.
2. Menu Strumenti / Macro / Visual Basic Editor
3. Nell' editor / Colonna A Sinistra / Doppio Click su "Foglio1".
4. Nella parte destra >> Incolla il mio codice.
5. Metti qualche valore stile-percentuale nelle celle che vuoi su Foglio1, e poi Cliccaci sopra per vedere il risultato...

[-Ivan-]

Originariamente inviato da MarcoGG

1. Apri Excel / Nuovo Workbook.
2. Menu Strumenti / Macro / Visual Basic Editor
3. Nell' editor / Colonna A Sinistra / Doppio Click su "Foglio1".
4. Nella parte destra >> Incolla il mio codice.
5. Metti qualche valore stile-percentuale nelle celle che vuoi su Foglio1, e poi Cliccaci sopra per vedere il risultato...

Ah ok grazie, solo che volevo che si vedesse sempre anche senza cliccarci sopra, forse è proprio una opzione di riempimento.
Comunque ho scoperto qualcosa di nuovo, non sapevo che in excel si potesse implementare del codice VB.

[MarcoGG]

Originariamente inviato da -Ivan-

Ah ok grazie, solo che volevo che si vedesse sempre anche senza cliccarci sopra, forse è proprio una opzione di riempimento.

Era solo un esempio, quello...
Non credo proprio si possa fare semplicemente da menu di Excel. Forse solo con Excel 2007. Dovrei provare...
In ogni caso, con VBA arrivi dove vuoi... Anche a fare QUESTO ( Excel 2003 ) :



Se sei interessato, posto anche il mio relativo codice...

Originariamente inviato da -Ivan-

Comunque ho scoperto qualcosa di nuovo, non sapevo che in excel si potesse implementare del codice VB.

Se Excel non fosse programmabile, almeno per quanto mi riguarda, perderebbe oltre il 60% del suo valore...

[-Ivan-]

Però...interessante. Io avevo bisogno (bisogno è dir troppo, diciamo che mi piaceva farlo) di una cosa come quella nel file scaricabile dal link, ma non ho capito come poterla fare.

http://www.visioniasiatiche.it/BB/BBeco.rar

Grzie comunque delle risposte.

[MarcoGG]

[-Ivan-]

Originariamente inviato da MarcoGG

Si proprio quella, solo che dalle opzioni non mi sembra ci sia niente di impostato. Ho controllato diverse volte nel formato celle se c'era qualche opzione particolare ma non cambia niente dalle altre caselle. Forse è fatto proprio in VBA.

[MarcoGG]

Originariamente inviato da -Ivan-

Si proprio quella, solo che dalle opzioni non mi sembra ci sia niente di impostato. Ho controllato diverse volte nel formato celle se c'era qualche opzione particolare ma non cambia niente dalle altre caselle. Forse è fatto proprio in VBA.

Veramente quella che ho postato io è l'immagine del file .xls DOPO che ho aggiunto il mio codice VBA. Alla prima apertura il file secco, così come l'hai postato tu, non visualizzava nessuna formattazione per le celle percentuale.

Per quanto riguarda l'altro file ( .xlsx ) non l'ho visto proprio perchè al momento non ho Excel 2007...

[-Ivan-]

Originariamente inviato da MarcoGG

Veramente quella che ho postato io è l'immagine del file .xls DOPO che ho aggiunto il mio codice VBA. Alla prima apertura il file secco, così come l'hai postato tu, non visualizzava nessuna formattazione per le celle percentuale.

Per quanto riguarda l'altro file ( .xlsx ) non l'ho visto proprio perchè al momento non ho Excel 2007...

Ah, porca pupazza sono un po' rincoglionito oggi (oggi? ).
Ma io avevo provato a mettere il codice solo che me la mostrava solo quando cliccavo sopra la cella mi pare, adesso ci riprovo che magari ho sbagliato qualcosa.

[MarcoGG]

Originariamente inviato da -Ivan-

Ah, porca pupazza sono un po' rincoglionito oggi (oggi? ).
Ma io avevo provato a mettere il codice solo che me la mostrava solo quando cliccavo sopra la cella mi pare, adesso ci riprovo che magari ho sbagliato qualcosa.

Non prenderla come un'offesa... Ma... Forse un tantino rinco oggi lo sei...
Non l'ho ancora mai postato quel codice...

Vuoi quello nuovo ?

[-Ivan-]

Originariamente inviato da MarcoGG

Non prenderla come un'offesa... Ma... Forse un tantino rinco oggi lo sei...
Non l'ho ancora mai postato quel codice...

Vuoi quello nuovo ?

Ah ecco perchè , allora si dai .
Grazie mille per l'aiuto.

[MarcoGG]

Associa questo codice al foglio desiderato ( nel nostro caso "S3_Palazzetto" ) :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Text = "" Then
    Exit Sub
End If
If Target.Value > 1 Or Target.Value <= 0 Then
    Exit Sub
End If

For Each Target In Range("D3:H30")
    If Target.Style = "Percent" Then
        Dim forma As Shape
        For Each forma In Target.Worksheet.Shapes
            If forma.Name = Target.Address Then
                forma.Delete
                Exit For
            End If
        Next
        Set forma = Target.Worksheet.Shapes.AddShape(msoShapeRectangle, Target.Left, Target.Top, Target.Width * Target.Value, Target.Height)
        forma.Name = Target.Address
        With forma
            .Line.Visible = False
            .Fill.Transparency = 0.6
            .Fill.ForeColor.RGB = RGB(0, 255, 100)
        End With
    End If
Next

End Sub

Funziona su qualsiasi range di celle ( [ D3:H30 ] di default ).
Va lanciato "manualmente" solo la prima volta, basta che fai doppio-Click in una cella percentuale, e poi Invio.
Si auto-aggiorna ogni volta che modifichi un valore percentuale che rientra nel Range impostato... Meglio di così...