lave kort-ikon for klør, ruder, hjerter og spar

Indsæt dem som billeder eller download en font hvor de er en del af.

Du har dem i tegnsættet Symbol. Så vælg Symbol i fanen Indsæt og voila!

Hvis du sætter nedenstående makro ind i et modul kan du skrive tegnene med Ctrl + Shift + H/K/R/S

Sub Spar()
' Macro2 Macro
' Keyboard Shortcut: Ctrl+Shift+S
With ActiveCell
    .Value = .Value & "ª"
    n = Len(.Value)
    .Characters(Start:=n, Length:=1).Font.Name = "Symbol"
End With
End Sub
Sub Ruder()
' Macro3 Macro
' Keyboard Shortcut: Ctrl+Shift+R
With ActiveCell
    .Value = .Value & "¨"
    n = Len(.Value)
    .Characters(Start:=n, Length:=1).Font.Name = "Symbol"
End With
End Sub
Sub Klør()
' Macro4 Macro
' Keyboard Shortcut: Ctrl+Shift+K
With ActiveCell
    .Value = .Value & "§"
    n = Len(.Value)
    .Characters(Start:=n, Length:=1).Font.Name = "Symbol"
End With
End Sub
Sub Hjerte()
' Macro5 Macro
' Keyboard Shortcut: Ctrl+Shift+H
With ActiveCell
    .Value = .Value & "©"
    n = Len(.Value)
    .Characters(Start:=n, Length:=1).Font.Name = "Symbol"
End With
End Sub