VBA ile bir Word belgesinde giriş ve mesaj kutuları nasıl oluşturulur?

Son güncelleme: Temmuz 2020; Uygulanabilirlik: Office 365,2019, 2016, 2013.

Bazen Word belgelerimizi daha etkileşimli hale getirmek ve hatta bazı kullanıcı girdilerini yakalamak isteriz. Mesaj ve giriş kutularına girin.

Adından da anlaşılacağı gibi bir mesaj kutusu, belge kullanıcılarına görüntülenen bir bilgi parçasıdır. Giriş kutuları, kullanıcıdan bilgi almak için araçsaldır.

Bu gönderi, Visual Basic for Applications (VBA) mesajı ve Microsoft Word için giriş kutuları ile tamamen işlevsel belgeler oluşturmak için ihtiyaç duyacağınız tüm bilgileri ve kod örneklerini içerir.

VBA kodu Word'e nasıl eklenir?

Devam etmeden ve mesaj ve giriş kutularının nasıl ekleneceğini açıklamadan önce, özel VBA kodunuzu bir Word belgesine nasıl ekleyeceğiniz konusunda hızlı bir tazeleme.

• Öncelikle, devam edin ve Geliştirici sekmesini etkinleştirin.
• Şimdi,  Geliştirici  sekmesinden Visual Basic düğmesine  basın. Bu, Visual Basic Düzenleyicisini açacaktır.

• Belgenizi vurgulayın.
• Ekle'ye  tıklayın  ve ardından  Modül'ü seçin .

• Aşağıda verdiğimiz kodu az önce oluşturduğunuz Modülün içine modülünüze kopyalayın.
• Kaydet'e tıklayın . İstenirse belgenize bir ad verin.
• Visual Basic Düzenleyicisi'ni kapatın.

Mesaj Kutuları VBA kodu

Sözdizimi:

MsgBox(istem, düğmeler, başlık, yardım dosyası, bağlam)

Sözdizimi açıklaması:

Çabuk:

Gerekli. Kullanıcıya verilebilecek bilgilerdir. Çift tırnak içinde yazılmalıdır  .

Düğmeler:

İsteğe bağlı. Butonlar, kullanıcı bilgilerine verilen butonlardır. MsgBox() için çeşitli butonlar mevcuttur ve bunlar aşağıdaki resimlerde bulunabilir.

Başlık:

İsteğe bağlı. Kullanıcıya verilen bilgilerin başlığıdır. Belirtilmezse,  Microsoft word  varsayılan başlık olacaktır.

Yardım dosyası ve bağlam:

• İsteğe bağlı. Yardım dosyası, bir iletişim kutusunda yardım olarak sağlanabilecek yerel diskte bulunan Yardım dosyasını tanımlayacaktır.
• İsteğe bağlı. Bağlam, yardım konusunu benzersiz sayı ile tanımlamak için kullanılan sayısal ifadedir.

Örnek Mesaj kutusu kodu

'VBA
Sub messagebox()

'Variables assigned

Dim buttonclick As VbMsgBoxResult

'Message box to display information to user

MsgBox "Hi, Visual Basic is easy to work with", vbExclamation, "VBA"

'Message box to ask question to user with yes or no question
buttonclick = MsgBox("Do you like VBA?", vbQuestion + vbYesNo, "VBA")
If buttonclick = vbYes Then
MsgBox "Yes, they are great!", vbExclamation, "VBA"
Else
MsgBox "Why not? They are great!", vbCritical, "VBA"
End If

End Sub

Çıktı:

İletişim ve Giriş Kutuları VBA kodu

Giriş kutusu, kullanıcıdan bazı bilgiler istememizi sağlayan basit bir iletişim kutusudur. Bir örnek kullanarak VBA kodunu tanıyalım.

Sözdizimi:

InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, HelpContextId, Type)

Sözdizimi açıklaması:

Çabuk:

Gerekli. Kullanıcıya verilebilecek bilgilerdir. Çift tırnak içinde yazılmalıdır  .

Başlık:

İsteğe bağlı. Kullanıcıya verilen bilgilerin başlığıdır. Belirtilmezse,  Microsoft word  varsayılan başlık olacaktır.

Varsayılan:

İsteğe bağlı. Kullanıcı bir değer yazmadan önce, metin kutusunun içindeki varsayılan değeri görüntüler. Belirtilmezse, metin kutusu boş olacaktır.

XPos:

İsteğe bağlı. X eksenindeki konum olarak kullanılır. Soldan sağa

YPos:

İsteğe bağlı. Y eksenindeki konum olarak kullanılır. Baştan aşağı

Helpfile ve HelpContext Kimliği:

• İsteğe bağlı. Yardım dosyası, bir iletişim kutusunda yardım olarak sağlanabilecek yerel diskte bulunan Yardım dosyasını tanımlayacaktır.
• İsteğe bağlı. HelpContext ID, yardım dosyasının kimlik numarasıdır.

Giriş kutusu kodu:

'VBA
Sub macro()

'Variables assigned
Dim a As Long
Dim b As Long

'Input box to get value from user

a = InputBox("Enter a value for a", "Question 1")
b = InputBox("Enter a value for b", "Question 2")

'Answer displayed in a message box
MsgBox ("Answer is " & Val(a) + Val(b))
End Sub

Çıktı: