Aiuto Microsoft Word

[millelire]

salve a tutti, vorrei creare riempire un foglio con dei quadratini e poi avere la possibilità di colorare questi quadratini attraverso word o altro programma, ovviamente sempre attraverso il pc.
Poichè sono poco esperta potete aiutarmi?
Grazie resto in attesa di risposta

[Flash30005]

Ciao Millelire e benvenuta nel Forum

Forse è più facile realizzare quello che chiedi utilizzando Excel a meno che non abbia esigenze diverse
fai uno schema di come vorresti il foglio e dimensioni dei quadratini
inoltre informaci su come vorresti colorare questi quadratini (casualmente, al click del mouse o altro?)

ciao

[millelire]

potresti cortesemente spiegarmi come realizzare questi quadratini con excel, spiegandomi passo dopo passo.
I quadratini vorrei colorarli attraverso il click del mouse.
Grazie ancora per la disponibilità.

[Anthony47]

In excel ogni "cella" e' un rettangolino; se ne regoli la larghezza facendo in modo che (misurata in pixel) sia pari all' altezza sono diventati "quadratini".
Per il colore quando selezioni una cella hai facilmente di applicargli un colore, scegliendo in una tavoloza di 56 colori.

Con questa macro invece applicherai colori "a caso":

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Interior.Color = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub


Uso:
da excel, tasto destro sul tab col nome del foglio che vuoi colorare; scegli Visualizza codice (ti si aprira' l' editor delle macro); copia le tre righe e incollale nel frame vuoto di dx.
Torna sul foglio excel e muoviti a caso tra le celle.

Ciao

[Flash30005]

Modificando leggermente la macro di Anthony per adattarla ad una area specifica invece dell'intero foglio
potresti utilizzare questo codice (sempre da inserire nel vba del foglio, come indicato da Anthony)

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckArea = "A1:Q30"
If Not Application.Intersect(Target, Range(CheckArea)) Is Nothing Then
    If (Selection.Rows.Count + Selection.Columns.Count) > 2 Then Exit Sub
    Target.Interior.Color = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End If
End Sub


Allego file esempio

Ciao

[millelire]

Vi ringrazio davvero.
Ci proverò ma sono proprio una schiappa, comunque vi farò sapere.