MS Excel

Zdravím vás,
dokáže mi, prosím, někdo poradit s problémem, který jsem v podstatě popsal již v názvu? Potřebuji makro, které by spustilo komentář k aktivní buňce.
Našel jsem toto:

Private Sub koment()
If ActiveCell.Comment Is Nothing Then
novycmnt = InputBox("Vlož nový komentář:", , cmnt)
ActiveCell.AddComment Text:=novycmnt
Else
cmnt = ActiveCell.Comment.Text
novycmnt = InputBox("Přepis původní komentář", , cmnt)
ActiveCell.Comment.Text Text:=novycmnt
End If
End Sub

Ale potřebuji to aplikovat na stisk pravého tlačítka.
Děkuji mockrát, B

Zaslat odpověď >

r13(8.8.2022 13:12)#053095

To nemyslíš vážne, však?
Pravým tlačidlom sa totiž komentár k bunke používa štandardne, či už vložiť, upraviť, či zmazať...citovat

Baja(8.8.2022 13:41)#053099

Já to vím, ale mám kolegy, kteří to neví. Nebo když jim řeknu, že to jde klávesovou zkratkou SHIFT+F2, tak taky ani obraz ani zvuk. Už jsou staršího data narození, tak to bohužel je, že si s tím neví rady.
Bude snazší, když do buňky kliknou a otevře se jim komentář, do kterého budou vpisovat.
Děkuji moccitovat

r13(8.8.2022 16:30)#053103

Keď kliknú do bunky, majú do nej vpisovať hodnotu a nie komentáre. Keď klikneš pravým myšítkom na bunku, máš tam ponuku na vloženie komentára. Keď už toto niekto nechápe, tak mu makrom na zadávanie komentára len narobíš väčší chaos...citovat

elninoslov(8.8.2022 19:00)#053106

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rClickRng As Range, novycmnt As String

Const SLOUPCE_RCLICK_COMMENT As String = "E:F"
Const PREDVOLENY_COMMENT As String = "Nazdar Fero !"

Set rClickRng = Intersect(Range(SLOUPCE_RCLICK_COMMENT), Target)
If Not rClickRng Is Nothing Then
With rClickRng.Cells(1)
If .Comment Is Nothing Then
novycmnt = InputBox("Vlož nový komentář:", , PREDVOLENY_COMMENT)
If Len(novycmnt) <> 0 Then .AddComment (novycmnt)
Else
novycmnt = InputBox("Přepiš původní komentář", , .Comment.Text)
If StrPtr(novycmnt) <> 0 Then
If Len(novycmnt) <> 0 Then
.Comment.Text Text:=novycmnt
Else
.Comment.Delete
End If
End If
End If
End With

Cancel = True
End If
End Sub

EDIT:
Kód sa vkladá do modulu daného listu!
Pridávam aj prílohu s popísaným makrom.

Příloha: zip