class modullegeri alma 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.

Option Explicit

Private mcolUndoObjects As Collection
Private mUndoObject As clsUndoObject

Public Function AddAndProcessObject(oObj As Object, sProperty As String, vValue As Variant) As Boolean
    Set mUndoObject = New clsUndoObject
    With mUndoObject
        Set .ObjectToChange = oObj
        .NewValue = vValue
        .PropertyToChange = sProperty
        mcolUndoObjects.Add mUndoObject
        If .ExecuteCommand = True Then
            AddAndProcessObject = True
        Else
            AddAndProcessObject = False
        End If
    End With
End Function

Private Sub Class_Initialize()
    Set mcolUndoObjects = New Collection
End Sub

Private Sub Class_Terminate()
    ResetUndo
End Sub

Public Sub ResetUndo()
    While mcolUndoObjects.Count > 0
        mcolUndoObjects.Remove (1)
    Wend
    Set mUndoObject = Nothing
End Sub

Public Sub UndoAll()
    Dim lCount As Long
    '    On Error Resume Next
    For lCount = mcolUndoObjects.Count To 1 Step -1
        Set mUndoObject = mcolUndoObjects(lCount)
        mUndoObject.UndoChange
        Set mUndoObject = Nothing
    Next
    ResetUndo
End Sub

Public Sub UndoLast()
    Dim lCount As Long
    '    On Error Resume Next
    If mcolUndoObjects.Count >= 1 Then
        Set mUndoObject = mcolUndoObjects(mcolUndoObjects.Count)
        mUndoObject.UndoChange
        mcolUndoObjects.Remove mcolUndoObjects.Count
        Set mUndoObject = Nothing
    Else
        ResetUndo
    End If
End Sub

Public Function UndoCount() As Long
    UndoCount = mcolUndoObjects.Count
End Function

Benzer Sonuçlar
No	Makro Adı
1	class modullegeri alma
2	userform da thundername alma
3	excel operatörleri hk
4	menü olarak saat ekleme (en güvenilir)
5	userform'u otomatik boyutlandırma
6	saati menü olarak ekleme
7	mp3 dosyası çalma
8	userforma alt simge durumunu küçültme ve ekranı kapla butonu ekler
9	userform 2 userforma alt simge durumunu küçültme ve ekranı kapla butonu ekleme
10	userforma alt simge durumunu küçültme ve ekrani kapla butonu ekler
11	hangi tuşa basıldığını bulan api
12	textboxların tümüne format tanımlamak
13	kitabın kopyasını userform,modul,class silerek oluşturur
14	hesap makinesini açma kapama
15	classmodüle ile yapılan işlemi mesajla öğrenme2
16	classmodüle ile yapılan işlemi mesajla öğrenme
17	bul-sil-değiştir-kaydet kodları2
18	hangi butona basıldığını bildirir (commandbutton)
19	Bir Çalışma Kitabındaki Alt Programları Listeleme
20	fare ile textbox içinin renklenmesi

Benzer Sonuçlar

Makro Adı

class modullegeri alma

userform da thundername alma

excel operatörleri hk

menü olarak saat ekleme (en güvenilir)

userform'u otomatik boyutlandırma

saati menü olarak ekleme

mp3 dosyası çalma

userforma alt simge durumunu küçültme ve ekranı kapla butonu ekler

userform 2 userforma alt simge durumunu küçültme ve ekranı kapla butonu ekleme

userforma alt simge durumunu küçültme ve ekrani kapla butonu ekler