simgeleri, menüleri ve butonları sayfaya ekleyin Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
 
Dim cbb As CommandBarButton, ComBar As CommandBar, cbc As CommandBarControl

Sub CommandBarControlID_List()
Dim a, b, c
Application.ScreenUpdating = False
For Each ComBar In Application.CommandBars
If ComBar.Name = "test" Then ComBar.Delete
Next
Set ComBar = Application.CommandBars.Add(Name:="test", Position:=msoBarTop)
b = 0
c = 1
For a = 1 To 50000
On Error Resume Next
Set cbb = ComBar.Controls.Add(ID:=a)

If Err.Number  0 Then GoTo weiter
cbb.CopyFace
With Workbooks("FaceIDs").Sheets(1)
.Cells((c Mod 100) + 1, (c  100) + b + 1).Formula = a
.Cells((c Mod 100) + 1, (c  100) + b + 2).Activate
ActiveSheet.Paste
.Cells((c Mod 100) + 1, (c  100) + b + 3).Formula = cbb.Caption
End With
If (c + 1) Mod 100 = 0 Then b = b + 3
c = c + 1
weiter:
Application.CommandBars("test").FindControl(ID:=a).Delete
Err.Clear
Next
End Sub

Sub CommandBarFaceID_List()
Dim a, b
Application.ScreenUpdating = False
For Each ComBar In Application.CommandBars
If ComBar.Name = "test" Then ComBar.Delete
Next
On Error Resume Next
Set ComBar = Application.CommandBars.Add(Name:="test", Position:=msoBarTop)
Set cbb = ComBar.Controls.Add(ID:=1)
b = 0

For a = 1 To 3518
With cbb
.FaceId = a
.CopyFace
End With
With ThisWorkbook.Sheets(1)
.Cells((a Mod 100) + 1, (a  100) + b + 1).Formula = a
.Cells((a Mod 100) + 1, (a  100) + b + 2).Activate
ActiveSheet.Paste
End With
If (a + 1) Mod 100 = 0 Then b = b + 2
Next
End Sub

Sub CommandBar_List()
Application.ScreenUpdating = False
Dim a, b, c, cbc, d
b = 1
d = 0
For Each a In Application.CommandBars
Cells(b + d, 1) = a.Name
Cells(b + d, 2) = "Item-no: " & b
For Each cbc In a.Controls
d = d + 1
Cells(b + d, 3) = cbc.Caption
Cells(b + d, 4) = Cells(cbc.Type, 10)
Cells(b + d, 5) = "Type: " & cbc.Type
Cells(b + d, 6) = "ID: " & cbc.ID
Next
b = b + 1
Next
End Sub

Benzer Sonuçlar
No	Makro Adı
1	simgeleri, menüleri ve butonları sayfaya ekleyin
2	ilgili sayfaya gitme
3	sayfaya jpeg eklemek
4	dolaylı makro
5	süzlü aktarma
6	sayfalara şifre koymak
7	makrolar kutusu ve makrolar görünsün
8	forma otomatik resim getirme
9	t.c. merkez bankası güncel döviz kurlarını alma
10	sayfa silme & adlandirmayi engeller
11	sayfa silme & adlandırmayı engelleme
12	sayfa kopyalama (indexi 2 olan sayfanın c6 adıyla kopyalar butonları silerek)
13	hangi butona basıldığını bildirir (commandbutton)
14	yazilari yanıp söndürme
15	a1:af12 hücreleri arasındaki veriler yanıp söner
16	a1:af12 hücreleri arasındaki veriler yanıp söner
17	aktif sayfadaki formülleri bulur yeni sayfaya listeler
18	combobox kullanımı
19	yanıp sönme
20	değişen hücreleri göster

Benzer Sonuçlar

Makro Adı

simgeleri, menüleri ve butonları sayfaya ekleyin

sayfalara şifre koymak

makrolar kutusu ve makrolar görünsün

forma otomatik resim getirme

t.c. merkez bankası güncel döviz kurlarını alma

sayfa silme & adlandirmayi engeller