userformsuz diyalog kutusu 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 Base 1
Option Explicit
'* Declare Windows API calls and data types - 16 Bit for Windows 3.x      *
'Define a variable type to store the window coordinates
Type typRect16
    Left As Integer
    Top As Integer
    Right As Integer
    Bottom As Integer
End Type
'Get the dimensions of the screen
Declare Function GetSystemMetrics16 Lib "User" Alias "GetSystemMetrics" (ByVal nIndex As Integer) As Integer
'Get the handle for a window
Declare Function FindWindow16 Lib "User" Alias "FindWindow" (ByVal szClass$, ByVal szTitle$) As Integer
'Get the dimensions of the window
Declare Sub GetWindowRect16 Lib "User" Alias "GetWindowRect" (ByVal hWnd As Integer, lpRect As typRect16)
'Set the dimensions of the window
Declare Sub Movewindow16 Lib "User" Alias "Movewindow" (ByVal hWnd As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Integer)
'* Declare Windows API calls and data types - 32 bit for Windows 95 and NT *
'Define a variable type to store the window coordinates
Type typRect32
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
'Get the dimensions of the screen
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
'Get the handle for a window
Declare Function FindWindow32 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'Get the dimensions of the window
Declare Function GetWindowRect32 Lib "user32" Alias "GetWindowRect" (ByVal hWnd As Long, lpRect As typRect32) As Long
'Set the dimensions of the window
Declare Function Movewindow32 Lib "user32" Alias "MoveWindow" (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Sub CentreDialog()
If InStr(1, Application.OperatingSystem, "32") = 0 Then
    CentreDialog16
Else
    CentreDialog32
End If
End Sub
Sub CentreDialog16()
On Error Resume Next
'*** DIMENSION VARIABLES ***
Dim tRect As typRect16
'Variables to retrieve the screen dimensions with GetSystemMetrics API.
Dim iScreenWidth As Integer
Dim iScreenHeight As Integer
'Variable to store the window handle with FindWindow API.
Dim ihWnd As Integer
'Variables to calculate the new dimensions for the window.
Dim iWidth As Integer
Dim iHeight As Integer
Dim iLeft As Integer
Dim iTop As Integer
'Get the handle of the dialog box window - 'bosa_sdm_XL' is the class name
'for an Excel 5 dialog box.
ihWnd = FindWindow16("bosa_sdm_XL", ActiveDialog.DialogFrame.Text)
'Only continue if a valid handle is returned
If ihWnd  0 Then
'Get the width and height of the screen in pixels
    iScreenWidth = GetSystemMetrics16(0)
    iScreenHeight = GetSystemMetrics16(1)
'Get the dimensions of the dialog box window in pixels
    GetWindowRect16 ihWnd, tRect
'Calculate the width and height of the dialog box
    iWidth = Abs(tRect.Right - tRect.Left)
    iHeight = Abs(tRect.Top - tRect.Bottom)
'Calculate the new position of the dialog box in pixels
    iLeft = (iScreenWidth - iWidth) / 2
    iTop = (iScreenHeight - iHeight) / 2
'Move the dialog box to the centre of the screen
    Movewindow16 ihWnd, iLeft, iTop, iWidth, iHeight, True
End If
End Sub
Sub CentreDialog32()
On Error Resume Next
'*** DIMENSION VARIABLES ***
Dim tRect As typRect32
'Variables to retrieve the screen dimensions with GetSystemMetrics API.
Dim iScreenWidth As Long
Dim iScreenHeight As Long
'Variable to store the window handle with FindWindow API.
Dim ihWnd As Long
'Variables to calculate the new dimensions for the window.
Dim iWidth As Long
Dim iHeight As Long
Dim iLeft As Long
Dim iTop As Long
'Get the handle of the dialog box window - 'bosa_sdm_XL' is the class name
'for an Excel dialog box.
ihWnd = FindWindow32("bosa_sdm_XL", ActiveDialog.DialogFrame.Text)
'If not found, it could be a later version of Excel, so try again
If ihWnd = 0 Then
    ihWnd = FindWindow32("bosa_sdm_XL8", ActiveDialog.DialogFrame.Text)
End If
'Only continue if a valid handle is returned
If ihWnd  0 Then
'Get the width and height of the screen in pixels
    iScreenWidth = GetSystemMetrics32(0)
    iScreenHeight = GetSystemMetrics32(1)
'Get the dimensions of the dialog box window in pixels
    GetWindowRect32 ihWnd, tRect
'Calculate the width and height of the dialog box
    iWidth = Abs(tRect.Right - tRect.Left)
    iHeight = Abs(tRect.Top - tRect.Bottom)
'Calculate the new position of the dialog box in pixels
    iLeft = (iScreenWidth - iWidth) / 2
    iTop = (iScreenHeight - iHeight) / 2
'Move the dialog box to the centre of the screen
    Movewindow32 ihWnd, iLeft, iTop, iWidth, iHeight, True
End If
End Sub
Sub ShowDialog()
ThisWorkbook.DialogSheets("Dialog1").Show
End Sub

No	Makro Adı
1	userformsuz diyalog kutusu
2	userformun başindaki kapat butonunu pasif yapar (çarpiya basinca userform kapanmaz)
3	makrolar kutusu ve makrolar görünsün
4	Inputbox içine yazilan karakterler "*****" (password veya şifre karakterleri) şeklinde çikabilir mi?
5	herhangi bir form üzerindeki metin kutusuna girilecek karakter sayısını sınırlandırma
6	forma otomatik resim getirme
7	userformun çarpı işaretine tıklayınca mesaj kutusuyla uyarı veriyor
8	userform 7 userformun çarpı işaretine tıklayınca mesaj kutusuyla uyarı veriyor
9	form kutusundan liste kutusuna komut verme
10	form kutusundan lis.kutusuna kom.verme
11	verileri isim sırasına göre dizer
12	verileri isim sırasına göre dizer
13	"Farklı Kaydet" kutusunu göstermek ve farklı kaydetmek (Dialog Penceresi)
14	userformsuz form menü sayfa seçme
15	userformsuz combobox tryit e makro yolu verin
16	Birden Çok Çalışma Sayfası Ekle: İş kitabınızda tek bir puntoda birden çok çalışma sayfası eklemek istiyorsanız bu kodu kullanabilirsiniz. Bu makro kodunu çalıştırdığınızda, girmek istediğiniz toplam sayfa sayısını girmek için bir giriş kutusu alırsınız.
17	Birden Çok Sütun Ekle: Bu makroyu çalıştırdıktan sonra bir giriş kutusu gösterecek ve eklemek istediğiniz sütun sayısını girmeniz gerekiyor.
18	Birden Çok Satır Ekle: Bu makroyu çalıştırdıktan sonra bir giriş kutusu gösterecek ve eklemek istediğiniz satır sayısını girmeniz gerekiyor.
19	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.
20	hücreye açıklama ekle (mesaj kutusu ile)

Excel Hazır Makrolar (VBA)

Userformsuz Diyalog Kutusu

Robotik Kodlama

Hizmetler

Size nasıl yardımcı olabiliriz?

Youtube Kanalımıza Abone Oldunuz mu?

Anahtar Kelimeler