Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Rij inkleuren waar cursor staat  (gelezen 6359 keer)

0 leden en 1 gast bekijken dit topic.

Offline wim54

  • Nieuw lid
  • Berichten: 4
  • Geslacht: Man
  • Oplossing.be
Rij inkleuren waar cursor staat
« Gepost op: 28 mei 2015, 15:43:23 »
Hallo

Ik zoek de oplossing om de rij waar in ik werk , waar de cursor staat in te kleuren . Moet 100 evaluatieformulieren verwerken in excel met telkens 50 mogelijkheden per evaluatieformulier .
Dus waar de cursor staat wordt de rij ingekleurd . Verplaats ik de cursor naar een volgende rij moet de volgende rij ingekleurd zijn en niet meer de eerste rij .

Thanks voor een antwoord op mijn vraag .

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Rij inkleuren waar cursor staat
« Reactie #1 Gepost op: 28 mei 2015, 18:05:36 »
Hallo wim54,

met deze code in het VBA (in het werkblad) zou het moeten lukken:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = 0
    Target.EntireRow.Interior.ColorIndex = 8
    Application.ScreenUpdating = True
End Sub

Daar je een macro inbrengt moet je bestand als  *.xlsm opgeslagen worden vanaf Excel 2003 !!

:) SoftAid :)             

Zie bijlage:
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline wim54

  • Nieuw lid
  • Berichten: 4
  • Geslacht: Man
  • Oplossing.be
Re: Rij inkleuren waar cursor staat
« Reactie #2 Gepost op: 28 mei 2015, 21:00:07 »
Hallo SoftAid

Bedankt voor je reactie op mijn vraag .
Spijtig genoeg gaat dat programmeren mijn petje te boven . Ik ga wat opzoekingswerk doen om na te gaan of mij dat lukt . ik vrees ervoor .
Toch bedankt .
Wim

Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Rij inkleuren waar cursor staat
« Reactie #3 Gepost op: 28 mei 2015, 21:44:05 »
Hallo Wim,

als je ons doorgeeft met welke versie van Excel (of Office) je werkt, dan helpen we je  er graag stap per stap doorheen.

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline wim54

  • Nieuw lid
  • Berichten: 4
  • Geslacht: Man
  • Oplossing.be
Re: Rij inkleuren waar cursor staat
« Reactie #4 Gepost op: 28 mei 2015, 22:27:21 »
Hallo

Dat zou tof zijn .
ik werk met Windows 7 en Microsoft Office Excel 2007


Online SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.127
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Rij inkleuren waar cursor staat
« Reactie #5 Gepost op: 28 mei 2015, 23:37:14 »
Hallo Wim,

dat is dezelfde configuratie als die van mij, dus kunnen we moeilijk fout doen.

Open je werkboek Wim.xlsx (waar "Wim" staat voor de naam van jou werkboek).
Klik op de Office-knop (linksboven hoek) en kies voor Opslaan als: "Excel map met ingeschakelde macro's"
Het "Opslaan als" bestandbeheer zal openen met als voorstel de bestandsnaam: Wim.xlsm
Klik op de knop "Opslaan".

Open het betreffende werkblad (indien er meerdere zijn).

Zoek in je werkbalk het tabblad "Ontwikkelaars".
   
      (Staat dit tabblad er niet, ga als volgt te werk: Klik op de Microsoft Office-knop en klik vervolgens op "Opties voor Excel".
      Klik op "Populair" en schakel het selectievakje "Tabblad Ontwikkelaars op het lint weergeven" in.
)

- Klik op het tabblad "Ontwikkelaars" en klik op "Programmacode weergeven".
- Het Microsoft Visual Basic (VBA) venster opent.
      Indien je links geen deelvenster "VBAProject" ziet, klik dan op Beeld, en klik daar op Projectverkenner
- In het deelvenster "VBAProject" Vind je VBAProject (Wim.xlsm)
- Indien dit project niet geopend is, klik dan op het plusteken links van de project-naamom de boomstructuur te openen.
- Je ziet nu de namen van de tabbladen die in je werkboek staan.
- Dubbelklik op de naam van het werkblad waarin je de macro wilt uitvoeren (dus het werkblad waarin je de rijen wilt laten kleuren)
- Selecteer de code hieronder en kies voor Kopiëren (Ctrl+C).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = 0
    Target.EntireRow.Interior.ColorIndex = 8
    Application.ScreenUpdating = True
End Sub

- Zet nu de cursor in het rechter vak van het VBA-venster en rechtsklik en kies voor Plakken (Ctrl+V).
- Sluit het VBA-venster en sla je werkboek op.
- De macro moet nu werken: telkens je een cel op een andere rij kiest (eender welke kolom) wordt die rij gekleurd.

Indien de opmerking van RedHead hierboven bij jou van toepassing is, dan moet je dit eerst laten weten.
Dan passen we de macro aan zodat de door jou ingekleurde cellen NIET worden betrokken in het proces.
Heb je GEEN zelf ingekleurde cellen in je werkblad, dan is er geen probleem.

In bijlage een (leeg) voorbeeldbestandje.

Groeten,

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline wim54

  • Nieuw lid
  • Berichten: 4
  • Geslacht: Man
  • Oplossing.be
Re: Rij inkleuren waar cursor staat
« Reactie #6 Gepost op: 29 mei 2015, 09:40:05 »
Hallo SoftAid .

Geweldig ; ik heb al je stappen gevolgd en het werkt . Weer iets bijgeleerd .
Bedankt .

 


www.combell.com