Új hozzászólás Aktív témák

• #54341 Fferi50 Topikgazda andreas49 #54336

  Új Válasz 2025-04-27 12:19:18 #54341

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz andreas49 #54336 üzenetére

  Privátban megoldódott!
  Ha valaki kíváncsi lenne rá:
  Nem megjegyzés/jegyzet volt a cellában, hanem hivatkozás (hyperlink).
  Az egérmutató rávitele pedig a HIVATKOZÁS munkalapfüggvény megjelenő szöveg paraméterbe kerülő szöveget mutatja meg.
  Ezt VBA-val a Range.Hyperlink ScreenTip paraméterével lehet kinyerni. Mivel egy cellához több hyperlink is csatolható, ezért az egyikek (akár az egyetlent is!) a Hyperlinks(index) formában lehet kinyerni. Vagyis a B2 cellához kapcsolódó érték kinyerése:
  Range("B2").Hyperlinks(1).ScreenTip
  Üdv.

• #54337 Fferi50 Topikgazda andreas49 #54336

  Új Válasz 2025-04-26 16:38:23 #54337

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz andreas49 #54336 üzenetére

  Szia!
  Az egérmutató rávitele a cellára sajnos nem kezelhető eseményként, így nem lehet hozzá eseménykezelőt sem írni.
  Két egéresemény van, a BeforeDoubleClick és a BeforeRightClick. Kényelmi szempontból a jobb egérkattintást látom használhatónak, erre írtam is egy makrót, amit a munkalap kódlapjára kell beírni:
  Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim cmts As CommentsThreaded, cmt As CommentThreaded, cmtas As Comments, cmta As Comment, cmtjel As Boolean
If Me.CommentsThreaded.Count > 0 Then
   Set cmts = Munka1.CommentsThreaded
   For Each cmt In cmts
     If Target.Address = cmt.Parent.Address Then
        Application.EnableEvents = False
        Target.Offset(0, 1).Value = cmt.Text
        cmtjel = True
        Exit For
     End If
    Next
End If
If Not cmtjel Then
   If Me.Comments.Count = 0 Then
    Cancel = False
      Exit Sub
   Else
      Set cmtas = Me.Comments
      For Each cmta In cmtas
          If Target.Address = cmta.Parent.Address Then
             Application.EnableEvents = False
             Target.Offset(0, 1).Value = cmta.Text
             cmtjel = True
             Exit For
          End If
      Next
   End If
End If
Application.EnableEvents = True
End Sub
  A makró jobb egérkattintásra indul, mind a megjegyzést, mind a jegyzetet figyeli és amennyiben a cellához kapcsolódik, akkor a mellette levő cellába kiírja az értékét.
  Ezután láthatóvá válik a jobb egérkattintás menüje. (Erre azért van szüksége, mert másként nem tudnád törölni a cella megjegyzését/jegyzetét.)
  Ha nincs sem megjegyzés, sem jegyzet, akkor csak a menü jelenik meg.
  Amire figyelned kell: Az adott cellára akárhányszor megcsinálhatod a jobb egérkattintást, mindannyiszor újra felülírja a megjegyzés/jegyzet értékét. Ha közben változtattál a szövegen, akkor egy plusz jobb egérkatt kell ahhoz, hogy a mellett levő cellában megjelenjen az új szöveg.
  Ha bármilyen más értékek lennének az adott cella mellett, azok is felülíródnak a megjegyzés/jegyzet szövegével!!!
  Mindig csak azt a cellát vizsgálja, amin kattintottál - egyértemű működés érdekében csak egy db cellát jelölj ki a kattintásra!
  A munkafüzetet makróbarátként kell elmentened!
  Üdv.

Új hozzászólás Aktív témák