Telefonszámunk: 1-472-0679

Kezdőlap Fórumok Excel témák [Resolved] Megjegyzés helyett Hozzászólás: [Resolved] Megjegyzés helyett

#5494

delila
Felhasználó

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.