Προς το περιεχόμενο

Erwtisi EXCEL !


Founes

Προτεινόμενες αναρτήσεις

Δημοσ.

kollitoi exw mia erwtisoula gia to excel !!!

 

borw na kanw to exis ???

estw oti exw sta kelia twn Columns kapoio koimeno

A...............B............C

bablablabla blablabla blabalbla

bablablabla blablabla blabalbla

bablablabla blablabla blabalbla

bablablabla blablabla blabalbla

bablablabla blablabla blabalbla

bablablabla blablabla blabalbla

 

kai xrisimopoiontas 2 xrwmata gia ta cells se kathe seira

ble kai kokkino

ginete analoga me to xrwma tis seiras stin kolona D na prostithete ena text???

 

A...............B.............C............D

bablablabla blablabla blabalbla ble

bablablabla blablabla blabalbla ble

bablablabla blablabla blabalbla kokkino

Δημοσ.

Εννοείς ότι τα κελιά θα χρωματίζονται αυτόματα ή θα τα χρωματίζεις εσύ ???

 

egw tha ta xrwmatizw kai analoga to xroma na symplirwnete dipla kapoio text

Δημοσ.

kammia fora einai efkolotero na les ti akrivos theleis na ftiakseis. mporei na sou protinei kapoios kapoio kalitero tropo apo afton pou skeftikes esi. sto leo epeidi mou exei simvei paliotera.

Δημοσ.

Αν θελεις βαζοντας το χρωμα να εμφανιζεται αυτοματα κειμενο θα συμφωνησω με τον Παναγιωτη οτι δε πρεπει να γινεται φιλε μου . Αν παλι το καταφερεις με καποιον τροπο ενημερωσε μας please (ποτε μη λες ποτε :) )

Δημοσ.

Λέγοντας ανάποδο εννοώ να συμπληρώνεις κάποιο κείμενο δίπλα και να χρωματίζεται ανάλογα. Θα πρέπει να παίξεις με τη μορφοποίηση υπό όρους, αν αυτό που σου λέω σε εξυπηρετεί. Δεν είναι δύσκολο, αν θες περισσότερα πες.

Δημοσ.

kati proxeiro gia na 3ekiniseis

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For i = 1 To ActiveSheet.UsedRange.Rows.Count

 

If Range("a" & i).Font.ColorIndex = 5 Then Cells(i, 4) = "blue"

If Range("a" & i).Font.ColorIndex = 3 Then Cells(i, 4) = "red"

 

Next i

End Sub

Δημοσ.

Κάνε ένα module στην VBA του Excel και βάλε τα παρακάτω :

 

Public Function Color2Text (CurCell as Range) as String

 

If CurCell.Font.ColorIndex=5 then Color2Text = "Blue"

If CurCell.Font.ColorIndex=3 then Color2Text = "Red"

 

End Sub

 

Μετά πήγαινε στο κελί που θέλεις να εμφανίζεται το κείμενο με το χρώμα και γράψε

=Color2Text(B1)

όπου Β1 το κελί που θέλεις να ελέγξεις το χρώμα του.

Τότε θα δεις ότι όλα γίνονται...

Phillip

Αρχειοθετημένο

Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.

  • Δημιουργία νέου...