Om Kid ma kasih, walaupun belum mudeng tapi sudah bisa berfungsi dalam excel table.
Wassalam > -----Original Message----- > From: [email protected] > Sent: Mon, 17 Dec 2012 12:22:41 +0700 > To: [email protected] > Subject: Re: [belajar-excel] menu tambahan dalam right click menu tidak > tampil dalam cell "format as Table" > > Hai Imar, > > Pop up menu untuk object dari fitur Excel Table masuk dalam kelompok > command bar list range popup. > Jadi popup menu yang harus muncul di : > - cell harus dibuat masuk kedalam kelompok command bar cell > - object excel table harus dibuat masuk kedalam kelompok command bar list > range popup > > Untuk membentuk file terlampir menjadi add in, silakan di save as xla > atau > xlam. > > Script buatan mbake hanya perlu diubah sedikit menjadi : >>> pembuat popup menu : > Sub ctvPopMenu() > ' siti Vi /KalenderPopUp /1sep08 /modif 19sep08 > ' modif for ChangeCase tools / 12 Jul 2011 > '---------------------------------------------- > 'Kid :: add list range popup for listobject range > 'Jakarta, 2012-12-17 > '---------------------------------------------- > > Dim vBar As Variant, vBars As Variant, vID As Variant, lID As Long > > ctvMenuReset > > vBars = Array("Cell", "List Range Popup") > vID = Array("ctv ", "kid ") > lID = LBound(vID) > For Each vBar In vBars > With Application.CommandBars(vBar).Controls _ > .Add(Type:=msoControlButton, Before:=1, Temporary:=True) > .Caption = vID(lID) & "Undo Set Scroll Area" > .OnAction = "UndoSetScrlArea" > End With > With Application.CommandBars(vBar).Controls _ > .Add(Type:=msoControlButton, Before:=1, Temporary:=True) > .Caption = vID(lID) & "Set Scroll Area" > .OnAction = "SetScrlArea" > End With > With Application.CommandBars(vBar).Controls _ > .Add(Type:=msoControlButton, Before:=1, Temporary:=True) > .Caption = vID(lID) & "Change Case" > .OnAction = "CaseChanger" > End With > With Application.CommandBars(vBar).Controls _ > .Add(Type:=msoControlButton, Before:=1, Temporary:=True) > .Caption = vID(lID) & "Kalender PopUp" > .OnAction = "FrmKalenderShow" > End With > lID = lID + 1 > Next vBar > End Sub > >>> penghapus popup menu : > Sub ctvMenuReset() > '---------------------------------------------- > 'Kid :: add list range popup for listobject range > 'Jakarta, 2012-12-17 > '---------------------------------------------- > Dim CbCtr As CommandBarControl > For Each CbCtr In Application.CommandBars("Cell").Controls > If CbCtr.Caption Like "ctv*" Then > CbCtr.Delete > End If > Next CbCtr > > For Each CbCtr In Application.CommandBars("List Range Popup").Controls > If CbCtr.Caption Like "kid*" Then > CbCtr.Delete > End If > Next CbCtr > End Sub > > Wassalam, > Kid. > > > 2012/12/17 Imar Andre <[email protected]> > >> ** >> >> >> BeExceler >> >> Saya menggunakan addins dari mba CTV >> (ctv_Kalender_&_ChangeCase(V2).xla), untuk di cell tanpa "format as >> Table" bisa muncul tetapi tidak sebaliknya. >> Mohon pencerahannya. >> >> Wassalam >> -- >> imar >> >> ____________________________________________________________ GET FREE SMILEYS FOR YOUR IM & EMAIL - Learn more at http://www.inbox.com/smileys Works with AIM®, MSN® Messenger, Yahoo!® Messenger, ICQ®, Google Talk™ and most webmails
