Giriş Kutusu ve Mesaj Yazma İşlemi
20 Ocak 2021
649
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.
Public 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 SubGerekli 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.
| YARARLI KISAYOLLAR | |
|---|---|
| Satır/Sütun/Hücre Silme | Ctrl - |
| Koyu Yazdırma / Alternatif | Ctrl 2 |
| Şerit Menü Tuşlarını Aktif Etme / Alternatif | Shift F6 |
| Yazdırma | Ctrl P |
| Tablonun Satırını Seçme | Shift Space |