HSV
Inventaris
- Lid geworden
- 18 jul 2008
- Berichten
- 20.317
- Office versie
- Office 365
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Sub cmdVerlofcodeinbereik_Click()
If Not ActiveCell.Comment Is Nothing Then MsgBox "hierin staat een commentaar."
end sub
@VenA, waar vind je die datum van 2015 ? Afrondingsfoutje ???Het bijgevoegde bestand in het linkje van @Enigmasmurf heeft als creatiedatum 23-11-2015 en dat is toch bijna 5 jaar
ik vind ze ook niet:love:Er zitten geen drie - en/of rechthoeken in je bestand.
Wijs me ze aan!
pour les flamants la même chose, dubbele negatie, als de commentaar in de huidige cel niet niets is, dan is het iets !If Not ActiveCell.Comment Is Nothing Then MsgBox "hierin staat een commentaar."
Ha ja, ’t zal dat zijn, ik zal eens naar de oogarts gaan.zeg was toen een totaal ander kalender
Beste forum,
In bijgaande werkmap heb ik al een en ander voor mekaar gekregen. In de sub blablabla die zich in Module 2 bevindt loop ik echter nog tegen een probleem aan. Ik krijg namelijk een foutmelding bij de instructie blablabla (regel 45). Deze luidt blablabla. Bij voorbaat dank aan eIkeen die me hierbij kan en wil helpen.
(optie 2)
Intro…
Op werkblad ‘blablabla’ zou ik graag gerealiseerd zien dat blablabla. Het is evenwel niet mijn bedoeling dat jullie voor mij een pasklare oplossing creëren, maar geef veeleer de voorkeur aan een tip die mij in de goede richting stuwt aangezien ik hoop in de toekomst zelf te kunnen begrijpen wat ik aan het doen ben. Dank bij voorbaat.
(facultatief)
Met vriendelijke groeten,
Waarom weer kwaad manMet de top+5 en de left -15 leg je de bovenlinkerhoek van je commentaar 5 punten onder en 15 punten naar links van je bovenrechterhoek van je cel en dan ligt die "normaal gezien" netjes in je cel, bij normale hoogtes en breedte van die cel, want je zou voor de grap die kolom even kunnen op breedte 1 zetten.
LEES DE LINK DIE hier al gepost is
Bovenstaande zijn enkel cosmetische aanpassingen, zonder toegevoegde waarde.
Excel legt voor de leesbaarheid de comment buiten je cel en jij wilt dat nu zo nodig anders, manneke toch.
Sub VoorHSV()
For Each c In ActiveSheet.UsedRange.SpecialCells(xlComments)
c.Comment.Shape.Select True
With Selection.ShapeRange
.AutoShapeType = msoShapeHeart 'maak er een hartje van
.Fill.ForeColor.RGB = RGB(255, 0, 0) 'rode kleur
.Fill.Transparency = 0.25 'een beetje doorzichtig
.Line.ForeColor.RGB = RGB(0, 0, 0) 'randkleurtje
.Line.Weight = 6 'randdikte
End With
Next
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.