*

Help!

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

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: opmerking kleur bepalen; kopie kleur cel  (gelezen 7071 keer)

0 leden en 1 gast bekijken dit topic.

Offline guy8780

  • Volledig lid
  • **
  • Berichten: 169
  • alles kan beter
opmerking kleur bepalen; kopie kleur cel
« Gepost op: 31 maart 2006, 15:41:40 »
Beste

Volgende vragen
Een opmerking is standaard geel ingekleurd: kan deze kleur gewijzigd worden. Zo ja, hoe? Kan dit voor alle excels of per excel ingesteld worden? Kan dit per cel ingesteld worden?

Kan, via voorwaardelijke opmaak, een blanco cel een kleur krijgen als er iets (tekst, cijfer) ingevoerd wordt. Zo ja, welke formule moet gebruikt worden?

Kan met een formule (?) de kleur van een bepaalde cel overgenomen worden. In cel A1 staat een gegeven en de kleur is geel. In cel A2 staat =A1, maar ik wil eveneens de kleur van cel A1 overnemen. Het is mogelijk dat door het wijzigen van de gegevens in cel A1, deze cel een andere kleur krijgt.

Bedankt,

Guy  ::)

Gelogd
GWindows 7 Professional SP1 NLD 64bit
Intel(R) Core(TM) i5-2500 CPU @ 3.30GHz 3301
1497
mv video hook driver2 0MB 1920 x 1080
High Definition Audio-apparaat
Nr: 1 Model: ST500DM002-1BD142 ATA Device
C:\ NTFS 465,76GB 397,79GB 8.081MB
AV: Geen antivirus geïnstalleerd
FW: Windows Firewal Enabled: True

Offline dimy

  • Volledig lid
  • **
  • Berichten: 205
  • Oplossing.be
Re:opmerking kleur bepalen; kopie kleur cel
« Reactie #1 Gepost op: 31 maart 2006, 16:49:12 »
Beste Guy,
Via voorwaardelijke opmaak kan je bvb kiezen voor "is gelijk aan" en je verwijst naar een lege cel ergens in je sheet.
Kies dan de kleur die je wil hebben bij 'opmaak' tab 'patronen'.

Als je bvb een foto in je opmerking wil invoegen gebruik je onderstaande VBA code.

Sub AddPictureToComment()
    Dim rng As Range
    Dim shp As Comment
   
    Set rng = ActiveCell
   
    If Not rng.Comment Is Nothing Then
        rng.Comment.Delete
    End If
   
    If rng.Text <> "" Then
        Set shp = rng.AddComment("")
        shp.Shape.Fill.UserPicture rng.Text
    End If

End Sub

Gelogd
Desktop Windows 10   NLD 64 bits
ASUSTeK COMPUTER INC. H110M-C 8 GB Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz - 1400
Intel(R) HD Graphics 630 1024MB 1920  x 1080
Realtek High Definition Audio
Western Digital WDC WD10EZRZ-00HTKB0
 Samsung SSD 860 EVO 250GB  C:\ NTFS 232 GB 191 GB
                                                D:\ NTFS 1Tb
McAfee VirusScan Enterprise
Windows Defender
Windows Firewal Enabled True

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:opmerking kleur bepalen; kopie kleur cel
« Reactie #2 Gepost op: 31 maart 2006, 19:58:51 »
Dimy,

je code werkt toch niet helemaal als je het mij vraagt. (of ik heb het niet volledig begrepen  ???) Opmerkingen, waarbij de cel geen tekst bevat, worden gedeleted; dit uiteraard door de shp.Shape.Fill.UserPicture rng.Text.

En shp.Shape.Fill.UserPicture rng.Text geeft een foutmelding.

WG
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:opmerking kleur bepalen; kopie kleur cel
« Reactie #3 Gepost op: 31 maart 2006, 21:59:00 »
Citaat van: guy8780 op 31 maart 2006, 15:41:40
Beste

Volgende vragen
Een opmerking is standaard geel ingekleurd: kan deze kleur gewijzigd worden. Zo ja, hoe? Kan dit voor alle excels of per excel ingesteld worden? Kan dit per cel ingesteld worden?

Kan, via voorwaardelijke opmaak, een blanco cel een kleur krijgen als er iets (tekst, cijfer) ingevoerd wordt. Zo ja, welke formule moet gebruikt worden?

Kan met een formule (?) de kleur van een bepaalde cel overgenomen worden. In cel A1 staat een gegeven en de kleur is geel. In cel A2 staat =A1, maar ik wil eveneens de kleur van cel A1 overnemen. Het is mogelijk dat door het wijzigen van de gegevens in cel A1, deze cel een andere kleur krijgt.


Om je op weg te zetten:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("A1"), Target) Is Nothing Then
        Range("B1").Value = Target.Value
Range("B1").Interior.ColorIndex = Target.Interior.ColorIndex
        Range("B1").Interior.Pattern = xlSolid = Target.Interior.Pattern
    Else
    End If
End Sub

Je hebt er nog wel wat werk mee, maar het is al een begin.

WG
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline guy8780

  • Volledig lid
  • **
  • Berichten: 169
  • alles kan beter
Re:opmerking kleur bepalen; kopie kleur cel
« Reactie #4 Gepost op: 01 april 2006, 10:47:53 »
Hallo

Zonder visual basic is het niet mogelijk?

Guy
Gelogd
GWindows 7 Professional SP1 NLD 64bit
Intel(R) Core(TM) i5-2500 CPU @ 3.30GHz 3301
1497
mv video hook driver2 0MB 1920 x 1080
High Definition Audio-apparaat
Nr: 1 Model: ST500DM002-1BD142 ATA Device
C:\ NTFS 465,76GB 397,79GB 8.081MB
AV: Geen antivirus geïnstalleerd
FW: Windows Firewal Enabled: True

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:opmerking kleur bepalen; kopie kleur cel
« Reactie #5 Gepost op: 01 april 2006, 11:17:53 »
Citaat van: guy8780 op 01 april 2006, 10:47:53
Hallo

Zonder visual basic is het niet mogelijk?

Guy
Jammer genoeg niet. En zelfs met zal het al niet simpel zijn denk ik.
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline dimy

  • Volledig lid
  • **
  • Berichten: 205
  • Oplossing.be
Re:opmerking kleur bepalen; kopie kleur cel
« Reactie #6 Gepost op: 05 april 2006, 19:01:15 »
Hoi Guy,
Sorry voor de late reactie.Soms moet een mens ook nog eens andere dingen doen hé.
Probeer dit eens:
Rechtermuisklik op de cel met de opmerking (comment) en kies uit het menu 'opmerking weergeven'. Klik daarna op de rand van de opmerking zodat hij geselecteerd is.
Rechtermuisklik op de rand en "opmerking opmaken"(format comment) kiezen uit het menu.
Nu kan je in het tab-blad 'kleuren en lijnen' de opvulling bepalen.
Nadien kan je de opmerking opnieuw verbergen (rechtermuisknop -menu)
Hopelijk heb je wat aan deze info.
Gelogd
Desktop Windows 10   NLD 64 bits
ASUSTeK COMPUTER INC. H110M-C 8 GB Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz - 1400
Intel(R) HD Graphics 630 1024MB 1920  x 1080
Realtek High Definition Audio
Western Digital WDC WD10EZRZ-00HTKB0
 Samsung SSD 860 EVO 250GB  C:\ NTFS 232 GB 191 GB
                                                D:\ NTFS 1Tb
McAfee VirusScan Enterprise
Windows Defender
Windows Firewal Enabled True

Offline dimy

  • Volledig lid
  • **
  • Berichten: 205
  • Oplossing.be
Re:opmerking kleur bepalen; kopie kleur cel
« Reactie #7 Gepost op: 05 april 2006, 19:16:22 »
Guy,
Nog vergeten te vermelden dat je ook andere vormen aan je opmerking kan geven.
Rechtermuisklik op de cel waar de opmerking staat en kies voor 'opmerking bewerken' uit het menu.
Klik op de rand van de opmerking om hem te selecteren. Dan klik je op de knop 'tekenen' van de werkbalk tekenen en kies 'autovorm wijzigen' uit het menu.
Kies nu een vorm uit de lijst en hopsa daar staat ie!
Succes ermee
Gelogd
Desktop Windows 10   NLD 64 bits
ASUSTeK COMPUTER INC. H110M-C 8 GB Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz - 1400
Intel(R) HD Graphics 630 1024MB 1920  x 1080
Realtek High Definition Audio
Western Digital WDC WD10EZRZ-00HTKB0
 Samsung SSD 860 EVO 250GB  C:\ NTFS 232 GB 191 GB
                                                D:\ NTFS 1Tb
McAfee VirusScan Enterprise
Windows Defender
Windows Firewal Enabled True

Offline guy8780

  • Volledig lid
  • **
  • Berichten: 169
  • alles kan beter
Re:opmerking kleur bepalen; kopie kleur cel
« Reactie #8 Gepost op: 16 april 2006, 08:51:21 »
Bedankt
Dat was wat ik zocht (zonder visual basic).

Guy
Gelogd
GWindows 7 Professional SP1 NLD 64bit
Intel(R) Core(TM) i5-2500 CPU @ 3.30GHz 3301
1497
mv video hook driver2 0MB 1920 x 1080
High Definition Audio-apparaat
Nr: 1 Model: ST500DM002-1BD142 ATA Device
C:\ NTFS 465,76GB 397,79GB 8.081MB
AV: Geen antivirus geïnstalleerd
FW: Windows Firewal Enabled: True

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:opmerking kleur bepalen; kopie kleur cel
« Reactie #9 Gepost op: 16 april 2006, 09:30:22 »
En ik heb ook weeral wat bijgeleerd.

WG
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.
Pagina's: [1]   Omhoog
 


www.combell.com