|
Login
  • Page:
  • 1

TOPIC: Function colorazione celle

Function colorazione celle 7 years 10 months ago #8416

  • RatBerto
  • RatBerto's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 1
  • Karma: 0
Salve a tutti! Ho sentito che questo è il miglior forum italiano su excel e sono convinto che riuscirete a risolvere il mio problemino.
Premetto che sto iniziando adesso ad imparare ad usare VBA e vado bovinamente per tentativi, cercando di mettere insieme tutte le informazioni che riesco a trovare in rete.
Vorrei creare una function che mi permetta, data una cella di partenza (diversa da quella in cui inserisco la formula) e un colore di riferimento, colorare, a partire dalla cella che gli ho indicato, un numero determinato di celle sulla stessa riga con il colore di riferimento. Mi spiego meglio: dato l'input FUNZIONE(A5,blu,3) vorrei che le celle A5, A6, A7 fossero colorate in blu.
Ho provato a fare una prima function che nella mia testa dovrebbe fare questo:
- gli dico da dove partire
- gli dico da quale cella prendere il colore di riferimento
- gli dico quante celle deve colorare (nel mio caso 3)
per cui la sintassi sarà del tipo FUNZIONE(cella1, cella2)
Vi posto qui sotto quello che ho provato a fare

Function CC(Part As range, criteria As range) As Long
Dim xcolor As Long
Dim a As Integer
Dim b As Integer
Dim m As Integer
Dim n As Integer
Dim datax As range

xcolor = criteria.Interior.ColorIndex
a = Part.Row
b = Part.Column
m = Cells(a, b)
n = Cells(a, b + 3)


For Each datax In range(m, n)
datax.Interior.ColorIndex = xcolor
Next datax

End Function


Il problema è che con questa sintassi, la formula mi da l'errore #VALORE! e non gira.
Dove sto sbagliando? E soprattutto, è possibile fare una cosa del genere oppure no?
Successivamente dovrei poi inserire una terza variabile che mi permetta di definire di volta in volta il numero di celle da colorare. Qualche indicazione?

Grazie in anticipo!
The administrator has disabled public write access.

Function colorazione celle 7 years 9 months ago #8533

  • p3pq3
  • p3pq3's Avatar
  • OFFLINE
  • Gold Boarder
  • Posts: 175
  • Thank you received: 28
  • Karma: 10
Ciao,

il problema di questa istruzione è la "function" che hai definito non restituisce un valore per questo motivo di dà quell'errore, per far fare quello che chiedi a excel devi costruire una "sub" e magari farla attivare dopo un evento o tramite un pulsante.

Inoltre stai attendo alle dichiarazione delle variabili: m e n non sono numeri.
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.307 seconds