Smiley toekennen aan waarde

Status
Niet open voor verdere reacties.

carsio

Nieuwe gebruiker
Lid geworden
27 mrt 2012
Berichten
2
Hallo,

Ik ben druk bezig met het maken van rendementsberekeningen.
Nou weet ik dat het mogelijk is om in VBA een smiley toe te kennen aan een waarde. Dit staat ook al op het forum. Alleen niet op de manier zoals ik het graag zou willen zien. Ik kom helaas dus ook niet verder.

Ik heb al wel de smileys als jpeg op mijn pc staan.

Wat is de bedoeling:

Bij waarde gelijk aan of hoger dan 80, dan smiley blij. (groen/blij)
Bij waarde tussen 65 en 79,9, dan smiley normaal. (oranje/normaal)
Bij waarde gelijk aan of lager dan 64,9. Dan smiley verdrietig. (rood/verdrietig)

Ik hoop dat jullie mij kunnen helpen, zodat ik mijn dagelijkse smiley voor ieder kan laten zien. Zonder dat de cijfers moeten worden bekeken.


Alvast dank.

Vrgr,

Cars
 
Een gewone test (=als(a1>80;"j";"") zou je kunnen helpen. Zet dan wel je font op Windings en kies het juiste karakter.
 
Een gewone test (=als(a1>80;"j";"") zou je kunnen helpen. Zet dan wel je font op Windings en kies het juiste karakter.

Paulva dat snap ik, maar wil graag een jpeg plaatje. Is mooier als hetbstandaard smiley.
Dit moet kunnen via VBA, maar snap niet hoe ik een code moet schrijven..
 
Plaats op je werkblad een active-x afbeeldingobject.
Zet de macro in de werkbladmodule van je blad met het active-x object.
Wijzig bij PictDir het pad naar je smileys.
Pas bij elke Case smiley aan naar de juiste naam van je afbeelding.
Bij wijzigen van de waarde van cel E7 wordt de afbeelding aangepast.
Code:
Const PictDir As String = "G:\Mijn documenten\Mijn afbeeldingen\"
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$7" Then
        Select Case Target.Value
            Case Is >= 80
                smiley = "green_smiley"
                Image1.Picture = LoadPicture(PictDir & smiley & ".jpg")
            Case 65 To 79.9
                smiley = "orange_smiley"
                Image1.Picture = LoadPicture(PictDir & smiley & ".jpg")
            Case Is <= 64.9
                smiley = "red_smiley"
                Image1.Picture = LoadPicture(PictDir & smiley & ".jpg")
        End Select
    End If
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan