userform auto sizing Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
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.

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.

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

No	Macro Name
1	userform auto sizing 2
2	userform auto sizing
3	Auto-sizing userform
4	do not open excel file after a certain date
5	macros box and macros appear
6	listbox filtering
7	dictionary codes
8	automatic image fetch
9	Automatic opening of userform1
10	label derivation
11	Automatically filter excel sheet via userform
12	user form gels before opening
13	If a5 = 2, do not open the userform
14	form automatically closes
15	forms do not allow x to exit
16	open userform in another workbook
17	userform 2 minimizing userforma and adding maximize button
18	Automatically resize row width when cells are merged
19	obey the commandbutton in userform3 according to the terms.
20	Create a find menu

Excel Free Macros (VBA)

Userform Auto Sizing

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords