Giriş Kutusu ve Mesaj Yazma İşlemi
Giriş Kutusu ve Mesaj Yazma İşlemi isimli hazır kod, bir giriş kutusu ekranı açılmasını ve bu kutu aracılığıyla nasıl işlem yapabileceğinizi öğretmektedir.
XD Destek İstePublic Sub MyInputBox()
Dim MyInput As String
MyInput = InputBox("Bu bir giriş kutusudur", "Giriş Kutusu", "Buraya istediğiniz bir şeyler yazabilirsiniz")
If MyInput = "Buraya istediğiniz bir şeyler yazabilirsiniz" Or MyInput = "" Then
Exit Sub
Else
MsgBox "Giriş Kutusuna yazılı olan mesaj: " & MyInput
End If
End Sub
Gerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- 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 -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Kodu çalıştırdığınızda bir şeyler yazmanızı ister. Eğer yazdığınız metin ekrana gelen metinden farkıysa, yazdığınız mesajı bir MsgBox nesnesinde gösterir.
Etiketler
Daha önce yorum yapılmamış!
YARARLI KISAYOLLAR | |
---|---|
Yapıştır Kısayolu | Ctrl V |
Kes / Alternatif | Shift Delete |
Hızlı Doldurma Kısayolu | Ctrl E |
Yazdırma | Ctrl P |
Yeni Sayfada Grafik Oluşturma | F11 |
Bir veri aralığında bulunan formülleri kolay bir şekilde değere çevirmenin kopyala / yapıştırdan daha kolay bir yolu olduğunu biliyor muydunuz?
Veri aralığınızı seçin ve seçimin kenarına sağ tıklayın, biraz sağa hareket ettirin, orijinal pozisyona geri dönün ve sağ tıklamayı bırakın.
Formülleri değerlere dönüştürmek için kullanabileceğiniz bir menünün göründüğüne şahit olacaksınız.

Veri aralığınızı seçin ve seçimin kenarına sağ tıklayın, biraz sağa hareket ettirin, orijinal pozisyona geri dönün ve sağ tıklamayı bırakın.
Formülleri değerlere dönüştürmek için kullanabileceğiniz bir menünün göründüğüne şahit olacaksınız.
