Makrolar ile Eliptik Form Oluşturma

26 Aralık 2020 571

Makrolar ile Eliptik Form Oluşturma isimli kod ile UserForm nesnesinin Elips şeklinde açılmasını sağlayabilirsiniz.

Private Declare Function CreateEllipticRgn Lib "gdi32" ( _
  ByVal X1 As Long, ByVal Y1 As Long, _
  ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" ( _
  ByVal hWnd As Long, ByVal hRgn As Long, _
  ByVal bRedraw As Boolean) As Long
Private Declare Function FindWindowA Lib "user32" ( _
  ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long

Private Sub CommandButton1_Click()
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim FormhWnd, EliptikHandle As Long
   FormhWnd = FindWindowA(vbNullString, Me.Caption)
   EliptikHandle = CreateEllipticRgn( _
      0, 70, UserForm1.Width * 1, UserForm1.Height * 1.2)
   Call SetWindowRgn(FormhWnd, EliptikHandle, True)
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> UserForm yazısına tıklayın.
  4. Solunda klasör simgesi olan Forms yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek olan UserForm(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Kodu kullanmak için bir UserForm ve üzerine eklenmiş bir CommandButton nesnesi gerekmektedir. 64 bit sürümlerde API çalışmayabilir.

50 Farklı Hazır Makro (VBA) Kodu
Bilgisayar Bilgilerini Özetleme
Hücredeki Değere Göre Yeni Sayfa Ekleme
Tüm Boş Çalışma Sayfalarını Silme
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Gizli Sayfaların Bulunması ve Gösterilmesi
Giriş Kutusu ve Mesaj Yazma İşlemi
Excel Menüsüne Ekleme Yapma Kodu
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Excel Kapanırken Otomatik İşlem Yaptırma
Cümle Durumuna Dönüştürme
Hücre Aralığını Görüntüye Dönüştürme
Tüm Satırda İşlem Yapan Döngü
Hatalı Hücreleri Renklendirme
Hoş Geldiniz Mesajı Ekleme
Kapanış Mesajı Ekleme
Bir sayfadaki Veriyi Diğer Sayfaya Aktarma
Hücredeki Değer Sıfırdan Büyükse İşlem Yapma
Açıklama İçeren Tüm Hücreleri Vurgulama
UserForm Üzerine CommandButton Ekleme
Son Sütun Numarasını Bulma
Label Nesnesine Kayan Yazı Ekleme
Tek Sütunu Kes Kopyala ve Yapıştır
Program Başlangıcı Kodları
ComboBox Nesneleri ile Toplama Yapma
Sütunlardaki Farkı Renklendirme
Seçili Her Satırdan Sonra Bir Satır Ekleme
Select Case Kullanımı
Birden Çok Sütun Ekleme
Excel ile Faiz Hesaplama Kodu
ListBbox ve ComboBox Satır Kaydırma
Excel Satır Seçme Kodu
Kaydedilmemiş Açık Çalışma Kitaplarını Sayma
Tüm Çalışma Sayfalarını Tek Adımda Koruma
Seçili Sütunların Sayısını Bulma
Otomatik Olarak Tarih ve Zaman Ekleme
Bir Çalışma Kitabında Kaç Sayfa Var
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Klasörde Dosya Araması Yapma
56 Koşula Kadar Biçimlendirme Yapma
Seçili Satırların Sayısını Bulma
Makro Etkinleştirilmeden Sayfalar Görüntülenmesin
Hücreye Girilen Değerleri Farklı Bir Sayfaya Kaydetme
Tarih ve Saatten Tarihi Kaldırma
Bir Sayfadaki Veriyi Diğer Sayfalara Kopyalama
Birden Çok Çalışma Sayfası Ekleme
Boşluk Olan Hücreleri Renklendirme
Excel Makro ile Hücreye Veri Yazma
Birleştirilmiş Tüm Hücreleri Ayırma
Son Dolu Satırı Başka Sayfaya Kopyala
R1C1 Referans Stilini Etkinleştirme

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...