userformun kod bölümüne 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. 
 
Private Declare Function FindWindow Lib "user32" Alias _ 
      "FindWindowA" (ByVal lpClassName As String, ByVal _ 
      lpWindowName As String) As Long

Private Declare Function GetWindowLong Lib "user32" Alias _ 
      "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex _ 
      As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias _ 
      "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex _ 
      As Long, ByVal dwNewLong As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias _ 
      "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _ 
      ByVal wParam As Integer, ByVal lParam As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal _ 
      hWnd As Long) As Long

Private wHandle As Long

Private Sub UserForm_Initialize() 
    On Error Resume Next 
    Me.Caption = "pir" 
    Image1.Visible = False 
    If Val(Application.Version) >= 9 Then 
        wHandle = FindWindow("ThunderDFrame", Me.Caption) 
    Else 
        wHandle = FindWindow("ThunderXFrame", Me.Caption) 
    End If 
    If wHandle = 0 Then Exit Sub 
    hIcon = Image1.Picture 
    SendMessage wHandle, &H80, True, hIcon 
    SendMessage wHandle, &H80, False, hIcon 
    frm = GetWindowLong(wHandle, -20) 
    frm = frm And Not &H1 
    SetWindowLong wHandle, -20, frm 
    DrawMenuBar wHandle 
End Sub

Benzer Sonuçlar
No	Makro Adı
1	userformun kod bölümüne
2	commoboxa atanacak sabit
3	userformun açılış sayısını sınırlamak (demo yapmak)
4	kullanıcı adı ve parola eklemek
5	userformdan userforma
6	userformun code bölümüne yapıştır,textboxları çoğaltabilirsin
7	textboxa sadece rakam girme
8	userformunuzun başlığı+şeklinde
9	userforma farklı kaydet tuşu eklemek
10	userforma farklı kaydet tuşu
11	userform otomatik boyutlandırma
12	userform'u otomatik boyutlandırma
13	userformunuzu yazdirmak
14	userformun başindaki kapat butonunu pasif yapar (çarpiya basinca userform kapanmaz)
15	nesne özelliğini tek seferde değiştirme
16	comboboxa göre kayıt
17	başka çalışma kitabındaki userformu açmak
18	textboxtaki veriye göre süzme işlemi
19	userformunuzun başlığını kodlarla istediğinizi şekilde ayarlayabilirsiniz
20	userformun yeri.

Benzer Sonuçlar

Makro Adı

userformun kod bölümüne

commoboxa atanacak sabit

userformun açılış sayısını sınırlamak (demo yapmak)

kullanıcı adı ve parola eklemek

userformdan userforma

userformun code bölümüne yapıştır,textboxları çoğaltabilirsin

textboxa sadece rakam girme

userformunuzun başlığı+şeklinde

userforma farklı kaydet tuşu eklemek

userforma farklı kaydet tuşu