Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Fontkleur  (gelezen 2337 keer)

0 leden en 1 gast bekijken dit topic.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Fontkleur
« Gepost op: 19 augustus 2021, 13:48:02 »
Beste oplossers,

Is er een mogelijkheid met voorwaardelijk opmaak, om als in een kolom één of meerder cijfers in het rood zijn gekleurd dan het getal in de som ook rood te maken, als de getallen in de kolom zwart zijn wordt de uitkomst ook zwart.

Ik weet wel dat ik via cel eigenschappen een som of uitkomst in het rood krijg afhankelijk van het getal, maar bij deze wil ik dat niet gebruiken.....

Met dank bij voorbaat,

Jean-Pierre
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Fontkleur
« Reactie #1 Gepost op: 19 augustus 2021, 14:04:57 »
Dat kan alleen met VBA of met hulpkolom+VBA+Voorwaardelijke opmaak

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Fontkleur
« Reactie #2 Gepost op: 19 augustus 2021, 14:08:27 »
Hoi Veerj, is dat heel ingewikkeld anders een voorbeeldje aub?

Grts,
Jean-Pierre
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Fontkleur
« Reactie #3 Gepost op: 19 augustus 2021, 14:47:25 »
Bvb met deze achter je werkblad. Gaat pas werken als je een handmatige actie doet in je bereik.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
     For Each cl In Range("A1:A10")
         If cl.Font.Color <> 0 Then a = a + 1
     Next
  End If
  If a > 0 Then [A11].Font.Color = 255 Else [A11].Font.Color = 0
End Sub

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Fontkleur
« Reactie #4 Gepost op: 19 augustus 2021, 15:02:42 »
Het lukt me niet Veerj, ik weet niet wat ik verkeerd doe, maar we zullen maar stoppen want het sop is de kool niet waard zoals ze bij ons zeggen.....

Toch bedankt,
JP
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Fontkleur
« Reactie #5 Gepost op: 19 augustus 2021, 15:47:56 »
Wat lukt er niet? Ik ben nu even van kleur rood en zwart uitgegaan

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Fontkleur
« Reactie #6 Gepost op: 19 augustus 2021, 15:53:48 »
De bedoeling is, als er in bereik A1:A10 een in rood gekleurd getal staat dat het getal in A11 ook rood kleurt, als er geen rood getal staat moet A11 ook zwart blijven.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Fontkleur
« Reactie #7 Gepost op: 19 augustus 2021, 16:18:20 »
Als je de code achter je werkbladmodule zet, een getal aanpast en entert in het bereik A1:A10 zou het moeten werken

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Fontkleur
« Reactie #8 Gepost op: 19 augustus 2021, 16:23:07 »
Nu snap ik het, en het werkt...

Bedankt
JP
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

 


www.combell.com