JavaScript devre dışı. Daha iyi bir deneyim için, önce lütfen tarayıcınızda JavaScript'i etkinleştirin.

Başlıksız Userform Oluşturma

ExcelDepo · 2022-07-10T18:15:10+00:00

Private Declare Function GetWindowLongA Lib "User32" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLongA Lib "User32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Sub UserForm_Initialize() Dim hwnd As Long hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption) SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF End Sub Private Sub CommandButton1_Click() Unload Me End Sub Uygulama Adımları Microsoft Visual Basic for Applications penceresini (Alt + F11) açın. 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. Araç çubuklarından Insert -> UserForm yazısına tıklayın. Solunda klasör simgesi olan Forms yazısının başındaki + simgesine tıklayın. Alt kısma eklenecek olan UserForm(1) yazısına çift tıklayın. Üstteki kodu yapıştırın. 64 bit Excel kullananlarda çalışmayabilir

Konuyu başlatan ExcelDepo
Başlangıç tarihi 10 Tem 2022

10 Tem 2022

Kod:

Görüntülemek için giriş yapmalısınız.
(13 satır)

Uygulama Adımları

Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
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.
Araç çubuklarından Insert -> UserForm yazısına tıklayın.
Solunda klasör simgesi olan Forms yazısının başındaki + simgesine tıklayın.
Alt kısma eklenecek olan UserForm(1) yazısına çift tıklayın.
Üstteki kodu yapıştırın.

64 bit Excel kullananlarda çalışmayabilir

Son düzenleme: 11 Tem 2022

Genişletmek için tıklayın ...

Yanıt için giriş yapmanız veya üye olmanız gerekir.

Benzer Konular Popüler Daha Fazlası

	Transparan UserForm Oluşturma ExcelDepo 26 Ara 2020 Hazır Formüller ve Makrolar
	Şeffaf UserForm Oluşturma ExcelDepo 26 Ara 2020 Hazır Formüller ve Makrolar
	Başka Dosyada Şifreli Userform Oluşturma ExcelDepo 26 Ara 2020 Hazır Formüller ve Makrolar
	Bir Hücreye Çift Tıklayınca UserFormu Açma ExcelDepo 28 May 2021 Hazır Formüller ve Makrolar
	UserForm Kapatma Kodunu Yazma ExcelDepo 26 Ara 2020 Hazır Formüller ve Makrolar

Paylaş:

Facebook X (Twitter) Reddit Pinterest Tumblr WhatsApp E-posta Link

Gizliliğinize önem veriyoruz,

Bu yüzden sadece web sitemizin çalışması yönelik temel çerezleri ve deneyiminizi geliştirmek için isteğe bağlı çerezleri kullanıyoruz.

Çerezler hakkında daha fazla bilgi görüntülemek ve tercihlerinizi yapılandırmak için tıklayın

Tüm çerezleri kabul et İsteğe bağlı çerezleri reddet
Başlıca Gerekli Çerezler

Çerezler, güvenlik, ağ yönetimi ve erişilebilirlik gibi temel işlevleri etkinleştirmek için gereklidir. Bunları reddetmeden kabul etmenizi öneririz.

İsteğe bağlı çerezler

Bu tanımlama bilgilerini ayarlayarak tarama deneyiminiz için gelişmiş işlevsellik sunuyoruz. Bunları reddederseniz gelişmiş işlevsellik kullanılamayacaktır.

Üçüncü taraf çerez bilgileri

Çerezler, güvenlik, analitik, performans veya reklam amaçlarıyla çeşitli hizmet sağlayıcılarla bağlantılı olarak işlevselliği güçlendirmek için üçüncü taraflarca ayarlanan tanımlama bilgileri için gerekebilir.

Ayrıntılı çerez kullanımı

Gizlilik Politikası

Geri

Üst

Başlıksız Userform Oluşturma

Uygulama Adımları​

Gizliliğinize önem veriyoruz,

Uygulama Adımları