Menü Oluşturmak

[bedersu]

Sayın recep,
Ã?ncelikle güneydoğu'dan bahsetmişsiniz.Orada görev yapıyormuşsunuz. Güneydoğu'da neredesiniz?Branş ne?Ben de Þırnak'ta bulunmuştum Atğm olarak.Cizre ve Silopi'de.
Sorunuza gelince;

1109 ' a kadar anladım ama 12 nedir anlamadım.1109 öğrencinin altalta, 6 notunun ortalamasını alıyorsunuz ama yanyana 12 nedir anlamadım.Aşağıdaki kodlar 1109 tane ortalama alıyor;

Sub notlar()
Dim a As Double

For i = 71 To 1180
a = WorksheetFunction.Average(Range("cw" & i & " : " & "db" & i))

If Round(a, 1) > 84 Then
Range("CV" & i) = "5"


ElseIf Round(a, 1) > 69 Then
Range("CV" & i) = "4"


ElseIf Round(a, 1) > 54 Then
Range("CV" & i) = "3"


ElseIf Round(a, 1) > 44 Then
Range("CV" & i) = "2"

Else: Range("CV" & i) = "1"
End If
Next

End Sub

 

[recep]

her ders sayısı. zaten 12 değil 16 0lacaktı.

 

[recep]

ben şöyle anlatayım bu formul a1 de yazıyor ve o sutunda bunun gibi formülleer var ve her satır bir öğrencinin notları ve ortalamaları bulunuyor

 

[monsieur]

Sub Gorunum_Menu_Hazirla()
  Dim AnaMenu As CommandBarControl, AltMenu As CommandBarControl
  
  KomutDugmemiSil "Gorunum"
  Set AnaMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
  
  With AnaMenu
    .Caption = "AnaMenu"
    .Tag = "Gorunum"
    .BeginGroup = False
  End With
  
  With AnaMenu.Controls.Add(msoControlButton, 1, , , True)
    .Caption = "Menu1"
    .OnAction = "MakroCagir"
  End With
  
  If AnaMenu Is Nothing Then Exit Sub
  
  Set AltMenu = AnaMenu.Controls.Add(msoControlPopup, 1, , , True)
  
  With AltMenu
.Caption = "Menu2"
  End With
  
  With AltMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "1.komut"
.OnAction = "MakroCagir"
  End With
  
End Sub

Sub KomutDugmemiSil(Menum As String)
  Do
    On Error Resume Next
    Application.CommandBars.FindControl(, , Menum, False).Delete
  Loop Until Application.CommandBars.FindControl(, , Menum, False) Is Nothing
End Sub

Sub MenüSil()
    KomutDugmemiSil "Gorunum"
End Sub

Sub MakroCagir()
  MsgBox "Geldim : " & Now
End Sub

OnAction = komutu ile makrunuzu hazırlyaıp çağırabilirsiniz.

Merhaba,

Bu menüyü nasıl standart hale getirebilirim. Yani her excel açıldığında bu menününde olmasını istiyorum

Şimdiden teşekkürler