Sorgu için arama sonuçları: onaction

  1. O

    Kod içinde kod

    ....Caption = "TAKVİM" .FaceId = 8 .BeginGroup = True .OnAction = "TAKVİM_AÇ" End With Application.CommandBars("Row").Reset With Application.CommandBars("Row").Controls.Add(Type:=msoControlButton) .Caption = "TAKVİM" .FaceId = 8...
  2. B

    auto_open prosedürü

    ...Object Set Menü1 = Application.CommandBars("Cell").Controls.Add With Menü1 .BeginGroup = True .Caption = "SARI" .OnAction = "RENK" End With Set Menü2 = Application.CommandBars("Cell").Controls.Add With Menü2 .Caption = "KIRMIZI" .OnAction =...
  3. V

    Context menu makroyu nasil yeni workbook'la birlestirebilirim?

    ...Temporary:=True) cCont.Caption = "Tabellenverzeichnis" cCont.OnAction = "IndexCode" End Sub ' Ende Kontextmenü für Tabellenverzeichnis Yeni Module: Option Explicit ' Variablendefinition erforderlich...
  4. M

    Add-Ins yerine başka birşey yazdırmak

    ...Menu.Caption = "Telefon Rehberi" With Menu.Controls.Add(msoControlButton) .Caption = "Rehber" .OnAction = "formac" .FaceId = 479 End With End Sub Sub auto_close() On Error Resume Next Application.CommandBars(1).Controls("Telefon Rehberi").Delete End Sub Sub formac() MsgBox "işlem tamam" End Sub
  5. M

    Büyük-küçük harf menüsü

    ...Case 3 .Caption = "abc def" Case 4 .Caption = "Abc def" End Select .OnAction = "CaseChange" End With Next Set cb = Nothing Set PopItem = Nothing Set MenuObject = Nothing End Sub Sub Auto_Close()...
  6. 2

    büyük- küçük harf çevirme makrosu

    ...Case MenuItem Case 1 .Caption = "Tümü Büyük Harf" Case 2 .Caption = "Yalnizca Ilk Harf Büyük" Case 3 .Caption = "Tümü Küçük Harf" Case 4 .Caption = "Normal Yazim Düzeni" End Select .OnAction = "Degistir" End With Next Set cb = Nothing Set PopItem = Nothing Set MenuObject = Nothing End Sub
  7. M

    Excelde standart Menü

    Merhaba, Aşağıdaki kodlarla excele menü eklentisi yapılabiliyormuş (denedim oldu :) ). Ben bu menüyü excel açıldığında normal menü gibi standart olmasını istiyorum bunu nasıl yapabilirim. Şimdiden teşekkürler.
  8. H

    Excel 2007 de menü düzeni

    ...kendi komutumuzu yerleştirdik.... .Style = msoButtonIconAndCaption .Caption = "&YıllıkBilanço" .OnAction = "x_Yili_Biloncosu" .FaceId = 2659 '9594 .Tag = "HsrMSR01" .Parameter = 1 End With With...
  9. J

    Sayfaları Menü Halinde Gösterme

    ...For i = 1 To ActiveWorkbook.Sheets.Count With AnaMenu.Controls.Add(msoControlButton, 1, , , True) .Caption = Sheets(i).Name .OnAction = "sayfaac" End With Next End Sub Sub sayfaac() Sheets(Application.CommandBars.ActionControl.Caption).Select End Sub Sub auto_close()...
  10. aydgur

    menü ekle

    ...Before:=100 For Each Sayfa In Worksheets MenuBars(xlWorksheet).Menus("KLEOPATRA").MenuItems.Add _ Caption:=Sayfa.Name, OnAction:="SAYFA_SEÇ" Next End Sub **** Bu kod ile araç çubuğuna "KLEOPATRA" menüsü ekleyip,menüden sayfa adını tıklayıp o sayfaya gidiyorum. ((Sub...
  11. aydgur

    sayfa seç makrosundaki bazı sayfaları seçmemek!

    ...Before:=100 For Each Sayfa In Worksheets MenuBars(xlWorksheet).Menus("KLEOPATRA").MenuItems.Add _ Caption:=Sayfa.Name, OnAction:="SAYFA_SEÇ" Next End Sub Değerli bir katılımcının yukarıdaki kodlarını uyguladım,fakat sayfa_seç makrosunda "aktar","alacak"."borç"."ürün" isimli...
  12. S

    deneme

    ..."Seviyelendirme" MenuObject.BeginGroup = True ' With MenuObject With .Controls.Add(Type:=msoControlButton) .OnAction = "gizle" .FaceId = 462 .Caption = "gizle" End With With .Controls.Add(Type:=msoControlButton)...
  13. H

    Menülere Sayfadan resim eklendiğinde panoya kopyalanan verinin kaybolmaması için ne y

    ..., , sirnoDegYap + 1) 'bir sonrasına kendi komutumuzu yerleştirdik.... .Caption = "&Excelden Worde Yapıştır..." .OnAction = "Worde_Yapistir" ' ThisWorkbook.Sheets(1).Shapes("icoWordGonder").Copy: .PasteFace .Tag = "HsrXLA02B"...
  14. H

    Kendi Yaptığımız Menülerde Face Olarak İcon Kullanmak veya Boş Face Düzenlemek

    ..., , sirno2 + 1) 'bir sonrasına kendi komutumuzu yerleştirdik.... .Caption = "&Degerleri yapistir..." .OnAction = "Degerleri_Yapistir" [COLOR = "RED"] .FaceId = 662 [/COLOR] .Tag = "HsrXLA02" End With...
  15. A

    sayfa ismleri menusu oluşturma

    Selamlar. Manuel_Nakliye_Menu menusu nün altına aşağıdaki kod ile sayfa isimleri olan alt menu oluşturdum. Şimdi bu alt menuden hangi sayfa ismine tıklarsam osayfanın gösterilmesini nasıl sayfalarım. Teşekkürler.
  16. H

    Vbada Excel için Bir kez Commandbuton tanımlayıp diğer menülere ekleme

    ...With cbCLL Set SutGen_hcr = cbCLL.Controls.Add(msoControlButton) With SutGen_hcr .Caption = "Sütun &Genişliği Cm" .OnAction = "sutun" .FaceId = 2067 End With Set SutGen_hcr = Nothing ............... kod dizisi ile aşağıdaki menülere ayrı ayrı bu...
  17. H

    Ply menüsünü şartlı olarak değiştirme

    ...With .Controls.Add(msoControlButton) .Caption = "Sayfa Ekle ..." .FaceId = 2646 .BeginGroup = True .OnAction = "SayfaEkle" End With Set cbSKP = cbPLY.Controls.Add(msoControlButton) With cbSKP .Caption = "Aktif Sayfayı Kopyala"...
  18. H

    (If Not c Is Nothing Then) şeklinde menü eklemede Facid Görüntülyeme Sorunu

    ....Style = msoButtonCaption .Caption = "BÜYÜK/Küçük &Harf Değiştir" .OnAction = "Goster_ufBKHD" .FaceId = 476 End With End If End If Status = False Set HCR = Nothing Set BKH = Nothing...
  19. H

    Çalışma sayfası korumalı ise eklediğim menü gözüksün ama pasif olsun

    ...adı gözüksün ama tıklnamasın. '*Satır Yüksekliği Dim SatYuk_hcr As CommandBarControl Set SatYuk_hcr = Application.CommandBars("Cell").Controls.Add With SatYuk_hcr .Caption = "Satır Y&üksekliği Cm" .OnAction = "satir" .FaceId = 2068 End With Set SatYuk_hcr =...
  20. H

    (If Not c Is Nothing Then) şeklinde sağ tuş menüsüne ilave

    ...= Application.CommandBars("Cell").Controls.Add With SutGen_hcr .Caption = "Sütun &Genişliği Cm" .OnAction = "sutun" .FaceId = 7 End With Set SutGen_hcr = Nothing ...................... Sub BicimeEkle()...
Üst