Visualizzare testo colorato

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
tizianomanca
00mercoledì 23 marzo 2016 21:41
Ciao a tutti.
Vorrei sapere come fare a visualizzare il testo contenuto in una cella sul foglio 2 ricercato dal foglio 1.
In pratica vorrei vedere sul foglio 1 quel che cerco sul foglio 2 ma nello stesso colore. Se è rosso devo visualizzarlo rosso se è blu, idem se è nero. Anche in VBA...grazie a chi mi risponderà
alfrimpa
00mercoledì 23 marzo 2016 21:48
Ciao Tiziano

Quello che chiedi non è possibile farlo con semplici formule ma occorre una macro.

Non mi è chiaro il tuo scenario; allega un file di esempio con il risultato desiderato.
tizianomanca
00mercoledì 23 marzo 2016 22:15
Re:
alfrimpa, 23/03/2016 21.48:

Ciao Tiziano

Quello che chiedi non è possibile farlo con semplici formule ma occorre una macro.

Non mi è chiaro il tuo scenario; allega un file di esempio con il risultato desiderato.




Ciao alfrimpa...mi spiego meglio.
ho creato un database sul foglio 2 da cui prelevo i dati ricercari da una cella del foglio 1. C'è tutta una formula in vba dietro per visualizzare tutti i dati che mi deve mostrare la ricerca che effettuo. Quello che vorrei è: Sul database ci sono delle righe di celle con testo e numeri di colore rosso e altre di colore blu, il resto sono con testo nero.
quando faccio la ricerca i dati mi arrivano sul foglio 1 in nero, vorrei invece che fossero nello stesso colore dei quelli sul database.
Spero di essere stato chiaro...il file purtroppo è al lavoro e io sono a casa. grazie
alfrimpa
00mercoledì 23 marzo 2016 22:37
Allora domani allega il tuo file togliendo gli eventuali dati sensibili.

È giusto per capirne la struttura.
alfrimpa
10mercoledì 23 marzo 2016 23:32
Tiziano volevo dirti che non è corretto inviare la medesima richiesta contemporaneamente su più forum; tu lo hai fatto su Forumexcel.it dove il crossposting (così si chiama tale pratica) è vietato dal loro Regolamento.

Questo per una questione di rispetto verso chi si impegna per un tuo problema e si accinge a risponderti.
tizianomanca
00giovedì 24 marzo 2016 18:12
Re:
alfrimpa, 23/03/2016 23.32:

Tiziano volevo dirti che non è corretto inviare la medesima richiesta contemporaneamente su più forum; tu lo hai fatto su Forumexcel.it dove il crossposting (così si chiama tale pratica) è vietato dal loro Regolamento.

Questo per una questione di rispetto verso chi si impegna per un tuo problema e si accinge a risponderti.




Azz...non sapevo, chiedo venia!
alfrimpa
00giovedì 24 marzo 2016 21:04
E intanto il file?........
tizianomanca
00venerdì 25 marzo 2016 10:06
testo colorato
Ciao Alfredo,
scusa il ritardo.
in allegato il file di esempio.
alfrimpa
10venerdì 25 marzo 2016 13:00
Ciao Tiziano

Ti allego file dove credo di aver fatto quello che hai chiesto.

Ho lievemente modificato il file nel senso che ho tolto il pulsante "Cerca".

Ora basta che digiti il codice in B3 e dai Invio e il tutto funzionerà automaticamente

Queste le macro: la prima è quella che c'era nel file che ho modificato; la seconda è una function scritta in VBA che serve a determinare il colore del testo da applicare sul foglio "maschera".

Private Sub Worksheet_Change(ByVal Target As Range)
Dim erow As Long
Dim ws As Worksheet
Dim lastrow As Long
Dim count As Integer
If Not Intersect(Target, Range("b3")) Is Nothing Then
lastrow = Sheets("dati").Cells(Rows.count, 1).End(xlUp).Row
For x = 2 To lastrow
    If Sheets("dati").Cells(x, 1) = Foglio2.Range("B3") Then
        Foglio2.Range("A11") = Sheets("dati").Cells(x, 1)
        Foglio2.Range("B11") = Sheets("dati").Cells(x, 2)
        Foglio2.Range("C11") = Sheets("dati").Cells(x, 3)
        Foglio2.Range("D11") = Sheets("dati").Cells(x, 4)
        Foglio2.Range("E11") = Sheets("dati").Cells(x, 5)
        Foglio2.Range("F11") = Sheets("dati").Cells(x, 6)
        Foglio2.Range("G11") = Sheets("dati").Cells(x, 7)
        Foglio2.Range("A14") = Sheets("dati").Cells(x, 8)
        Foglio2.Range("B14") = Sheets("dati").Cells(x, 9)
        Foglio2.Range("C14") = Sheets("dati").Cells(x, 10)
        Foglio2.Range("D14") = Sheets("dati").Cells(x, 11)
        Foglio2.Range("E14") = Sheets("dati").Cells(x, 12)
        Foglio2.Range("F14") = Sheets("dati").Cells(x, 13)
        Foglio2.Range("G14") = Sheets("dati").Cells(x, 14)
        count = count + 1
    End If
Next x
Worksheets("maschera").Range("A11:G11").Font.ColorIndex = TrovaColore
Worksheets("maschera").Range("A14:G14").Font.ColorIndex = TrovaColore
End If
End Sub


Function TrovaColore()
Dim ur As Long
Dim rng As Range
Dim cel As Range
Application.Volatile
ur = Worksheets("dati").Cells(Rows.count, 1).End(xlUp).Row
Set rng = Worksheets("dati").Range("a1:a" & ur)
For Each cel In rng
    If cel.Value = Worksheets("maschera").Range("b3").Value Then
        TrovaColore = cel.Font.ColorIndex
    End If
Next cel
End Function


Fai sapere se hai problemi.
tizianomanca
10venerdì 25 marzo 2016 17:58
[RISOLTO] Testo colorato
Che dire...Sei stato grande, sei stato il primo a rispondermi e a risolvermi il problema...Grazie infinite. Sai, metto le mani dappertutto sul PC, nel senso vero e proprio. Mi sono realizzato un PC da zero comprando i pezzi su internet, ho messo naso nel BIOS anche se non ci capisco una mazza d'inglese, lavoro su photoshop, Premiere,After effects,Cinema 4D,faccio musica con il Mac e ho una discreta infarinatura di office e tanti altri programmi. Ma il VBA mi mancava...ora pian piano cercherò di capirci qualcosa in più..(mi affascina). Grazie Alfredo...Appena finito ti manderò la maschera per farti vedere com'è venuta. A presto e Buona Pasqua a te e famiglia [SM=x423017]
alfrimpa
00venerdì 25 marzo 2016 19:14
Beh con tutto questo background (retroscena) penso che non avrai molti problemi ad imparare il VBA; peccato che ti manchi l'inglese che, in ambito VBA, può essere d'aiuto.

Se ne hai voglia posso consigliarti siti o, ancora meglio, libri sui quali cominciare a studiare.

Sarò vecchio ma ritengo che, oltre alla frequentazione di Internet, un buon testo sia la maniera migliore per imparare il VBA (o qualsiasi altra cosa).
tizianomanca
00venerdì 25 marzo 2016 20:49
Re:
alfrimpa, 25/03/2016 19.14:

Beh con tutto questo background (retroscena) penso che non avrai molti problemi ad imparare il VBA; peccato che ti manchi l'inglese che, in ambito VBA, può essere d'aiuto.

Se ne hai voglia posso consigliarti siti o, ancora meglio, libri sui quali cominciare a studiare.

Sarò vecchio ma ritengo che, oltre alla frequentazione di Internet, un buon testo sia la maniera migliore per imparare il VBA (o qualsiasi altra cosa).




Illuminami...
tizianomanca
00venerdì 25 marzo 2016 20:55
testo colorato
Alfredo, secondo te, se volessi ricercare sempre dalla famosa cella, dati su scritti su altri fogli (con la stessa struttura), della stessa cartella di lavoro, devo ampliare il codice che ho ora oppure devo farne uno nuovo?
alfrimpa
00venerdì 25 marzo 2016 21:53
Ciao Tiziano

Con il VBA si può fare (quasi) tutto ma come dicevo in precedenza occorre sempre un file rappresentativo della situazione.

Costruiscine uno e vedremo il da farsi (ma dopo Pasqua [SM=g27828] )

Quanto all' "illuminazione" ti segnalo questo sito

http://forum.wintricks.it/showthread.php?t=155252

E' un corso sul VBA fatto molto bene (almeno per iniziare).

Oppure quest'altro

http://www.excelvba.it/corso/

Ti segnalo anche questo libro (in italiano) che posseggo anche questo fatto in maniera egregia.

http://www.amazon.it/Excel-Office-guida-completa-CD-ROM/dp/8820335379/ref=sr_1_1?ie=UTF8&qid=1458939180&sr=8-1&keywords=giaccaglini

Se hai altre domande chiedi pure.
tizianomanca
00venerdì 25 marzo 2016 22:55
Per il momento grazie Alfredo, ci risentiamo dopo Pasqua e proverò a rimandarti un file di esempio. [SM=x423053]
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 23:52.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com