customisera högerklickmenyn

[Magnificus]

Hej. Kan man göra tillägg i högerklicken, t.ex summa eller annat som man använder ofta?

Magnus

[Kranis-97]

Tror inte du kan ändra högerklicksmenyn, men du kan redigera menyerna (2010 versionen) och verktygsfältet snabbåtkomst (högst upp). Klicka på Arkiv sedan på Altenativ, och beroende på vad du vill ändra klicka på Anpassa menyfliksområdet eller Verktygsfältet Snabbåtkomst.

 

OBS! Detta gäller 2010 versionen.

[Tune]

Du kan även göra macro som summerar markerade celler eller formaterar om celler från Text till tal. Sen startar du macrona från t.ex kortkommando på tangentbordet eller knappar i excelarket..

[Monshi]

Det går att anpassa högerklick men vetta tusan hur man gör. Har en datumväljare som jag hittade på nätet som jag hackat upp.

 

Den ger detta val:

 

har dock inte den blekaste hur de gör det men kan nog luska ut det i koden någonstans.

[Monshi]

Ha, det var ju inte så svårt.

Men frågan är om man verkligen vill.

 

Public Sub RighTest()
DelRighTest
With Application.CommandBars("Cell")
    	With .Controls.Add(msoControlButton, 1, , 1, True)
       	.Caption = "Infoga summa"
       	.OnAction = ThisWorkbook.Name & "!OnSumAction"
       	.BeginGroup = True
       	.Tag = "RighTest"
   	End With
End With
End Sub

Public Sub DelRighTest()
Dim myCtrl As CommandBarControl
Set myCtrl = Application.CommandBars("cell").FindControl(Tag:="RighTest")
If Not myCtrl Is Nothing Then
   	myCtrl.Delete
End If
Set myCtrl = Nothing
Set myCtrl = Application.CommandBars("List Range Popup").FindControl(Tag:="RighTest")
If Not myCtrl Is Nothing Then
   	myCtrl.Delete
End If
Set myCtrl = Nothing


End Sub
Public Sub OnSumAction()
ActiveCell = "HelloWorld"

End Sub

Notera, se till att ta bort menyalternativet om ni provkör, annars kommer kontrollen hänga kvar. Samt utan pardon skrivs det som finns i aktiv cell över.

 

Det finns nog bättre alternativ. Men det går.