Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Aralık 2003 Çarşamba

Sheet PopUp [Page Select] Menu



'Module1

Option Explicit
Dim CB As CommandBar, i As Integer
Dim CBB As CommandBarButton

Sub Auto_Open()
On Error Resume Next
PopUpMenu
End Sub
Sub PopUpMenu()
On Error Resume Next
Set CB = Application.CommandBars("Cell")
For i = CB.Controls.Count To 0 Step -1
CB.Controls(i).Delete
Next i
With CB
For i = 1 To Sheets.Count
With .Controls.Add(Type:=msoControlButton)
.OnAction = "SayfaGoster"
.FaceId = 230
.Caption = Sheets(i).Name
End With
Next i
End With
Set CB = Nothing
End Sub
Sub SayfaGoster()
On Error Resume Next
Set CBB = Application.CommandBars.ActionControl
Sheets(CBB.Caption).Select
Set CBB = Nothing
End Sub
Sub Auto_Close()
On Error Resume Next
Application.CommandBars("Cell").Reset
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul