[Resolved] Megjegyzés helyett

Arra gondol a kérdező, hogy:
Hogyan lehet úgy megjegyzést beszúrni, hogy nem látszik a cellán a jelölése
Hogy lehet, hogy ha egy cellába áll, akkor mindig fent jelenjen meg a megjegyzés

Pl. egy szűz táblából hogyan tudnád ezt megcsinálni?
Én sem tudom, ezért érdekelne. 🙂

Rajzoltam 2 téglalapot, amiknek olyan formát adtam, amilyen a megjegyzés. Az elsőnek Megj1, a másiknak Megj2 nevet adtam.
A laphoz rendeltem egy makrót, ami magáért beszél.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim a As Integer
    
    For a = 1 To ActiveSheet.Shapes.Count
        ActiveSheet.Shapes(a).Visible = False
    Next
    Select Case Target.Address
        Case "$A$1"
            Shapes("Megj1").Visible = True
        Case "$B$5"
            Shapes("Megj2").Visible = True
    End Select
End Sub

Persze makróbarátként kell menteni a füzetet.

Nem a névkezelőben, hanem a szerkesztőléc bal oldalán adtam meg a nevet.

Hát persze!