userform'u otomatik boyutlandırma 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 Sub UserForm_Initialize() 
With Application 
.WindowState = xlMaximized 
Zoom = Int(.Width / Me.Width * 100) 
Width = .Width 
Height = .Height 
End With 
End Sub
Fullscren ile ama bu seferde userin üzerindeki nesneler farklılık gösterecek.Çözümü yok.VB Kullanırsan olur..  
Bu kodları kod sayfanın en başına yazarsan 3 Düğme oluşur.Kullanıcı istediği gibi büyütür küçültür. 
Kod:

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 ShowWindow Lib "user32" _ 
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long 
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long 
' 
Private Sub UserForm_Activate() 
  Dim hWndForm As Long, frmStyle As Long 
  hWndForm = FindWindow(vbNullString, Me.Caption) 
  frmStyle = GetWindowLong(hWndForm, (-16)) 
  frmStyle = frmStyle Or &H80000 Or &H20000 Or &H10000 
  SetWindowLong hWndForm, (-16), frmStyle 
  ShowWindow hWndForm, 5 
  DrawMenuBar hWndForm 
End Sub

Ayrı bir kod ise Userformun açılışında tam ekran olarak gelmesi. 
Kod:

Private Sub UserForm_Initialize() 
With Application 
Me.Top = .Top 
Me.Left = .Left 
Me.Height = .Height 
Me.Width = .Width 
End With 
End Sub

Benzer Sonuçlar
No	Makro Adı
1	userform'u otomatik boyutlandırma
2	userform otomatik boyutlandırma 2
3	userform otomatik boyutlandırma
4	Hücreler birleştirildiğinde satır genişliğini otomatik olarak yeniden boyutlandırmak
5	userform üzerinden excel sayfasını otomatik süz
6	forma otomatik resim getirme
7	userform1in otomatik açilmasi
8	formu otomatik kapar
9	textboxa girerken her üç rakamın arasına bir nokta koyma
10	textboxta binlik ayıraclı toplama
11	Seri Numaraları Ekleme: Bu makro kodu, excel sayfanıza seri numaraları otomatik olarak eklemenize yardımcı olacaktır. Bu makroyu çalıştırdıktan sonra seri numaralar için maksimum sayı girmeniz gereken bir giriş kutusu gösterecektir ve bundan sonra bir sütundaki sütuna sayı ekleyecektir.
12	excel userformunu exe yapmak
13	textboxların tümüne format tanımlamak
14	userformun pasif olması
15	userformun açılış sayısını sınırlamak (demo yapmak)
16	yüklü yazıcı var mı yok mu
17	userformun genişliği zaman ayarlı
18	Baskı Bu makro kodları, size daha fazla zaman kazandıracak bazı yazdırma görevlerini otomatikleştirmenize yardımcı olur. & Nbsp; Açıklamaları Yazdırın: Sayfanın sonundaki hücre yorumlarını basmak için ayarları etkinleştirmek için bu makroyu kullanın. Baskı yapmak için 10 sayfanız olduğunu varsayalım, bu kodu kullandıktan sonra 11. sayfadaki tüm yorumları alacaksınız.
19	çalışma sayfanızı korur, otomatik süzler çalışır
20	sayfa koruma, otomatik filtre açık

Benzer Sonuçlar

Makro Adı

userform'u otomatik boyutlandırma

userform otomatik boyutlandırma 2

userform otomatik boyutlandırma

Hücreler birleştirildiğinde satır genişliğini otomatik olarak yeniden boyutlandırmak

userform üzerinden excel sayfasını otomatik süz

forma otomatik resim getirme

userform1in otomatik açilmasi

formu otomatik kapar

textboxa girerken her üç rakamın arasına bir nokta koyma

textboxta binlik ayıraclı toplama