Giriş Kutusu ve Mesaj Yazma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
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 SubAçıklama
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.Faydalanılması temennisiyle