Hvernig á að búa til inntaks- og skilaboðakassa í Word skjali með VBA?

Síðast uppfært: júlí 2020; Gildissvið: Office 365,2019, 2016, 2013.

Stundum viljum við gera Word skjölin okkar gagnvirkari og jafnvel fanga inntak notenda. Sláðu inn skilaboða- og inntaksreiti.

Eins og nafnið gefur til kynna er skilaboðakassi upplýsingar sem birtast skjalnotendum. Inntaksreitir eru mikilvægir til að fanga upplýsingar frá notandanum.

Þessi færsla hefur allar upplýsingar og kóðasýni sem þú þarft til að búa til fullvirk skjöl með Visual Basic for Applications (VBA) skilaboðum og inntaksreitum fyrir Microsoft Word.

Hvernig á að bæta VBA kóða við Word?

Áður en við förum á undan og útskýrum hvernig á að bæta við skilaboða- og inntaksreitum, hér er fljótleg upprifjun á því hvernig á að bæta sérsniðnum VBA kóða þínum við Word skjal.

• Í fyrsta lagi skaltu halda áfram og virkja Developer flipann.
• Nú, ýttu á  Visual Basic hnappinn frá  Developer  flipanum. Þetta mun opna Visual Basic Editor.

• Merktu skjalið þitt.
• Smelltu  á Setja inn  og veldu síðan  Module .

• Afritaðu kóðann sem við gefum hér að neðan í eininguna sem þú bjóst til í eininguna þína.
• Smelltu á Vista. Gefðu skjalinu þínu nafn ef beðið er um það.
• Lokaðu Visual Basic Editor.

Skilaboðabox VBA kóða

Setningafræði:

MsgBox (kvaðning, hnappar, titill, hjálparskrá, samhengi)

Setningafræði skýring:

Hvetja:

Áskilið. Það eru upplýsingarnar sem hægt er að gefa notandanum. Það ætti að setja inn í  tvöfalda gæsalappir .

Hnappar:

Valfrjálst. Hnappar eru þess konar hnappar sem upplýsingar eru gefnar til notenda. Það eru ýmsir hnappar í boði fyrir MsgBox() og þá má finna á myndunum hér að neðan.

Titill:

Valfrjálst. Það er titill upplýsinganna sem notandinn fær. Ef það er ekki gefið upp verður  Microsoft word  sjálfgefinn titill.

Hjálparskrá og samhengi:

• Valfrjálst. Hjálparskrá mun auðkenna hjálparskrána sem er tiltæk á staðbundnum diski sem hægt er að veita sem hjálp í svarglugga
• Valfrjálst. Samhengi er töluleg tjáning sem er notuð til að auðkenna hjálparviðfangsefnið með einkvæmu númerinu.

Dæmi um kóða fyrir skilaboðareit

'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

Framleiðsla:

Valmynd og inntaksbox VBA kóða

Inntaksbox er einfaldur gluggi sem gerir okkur kleift að biðja notandann um einhverjar upplýsingar. Leyfðu okkur að kynnast VBA kóðanum með því að nota dæmi.

Setningafræði:

InputBox (Hvetja, Titill, Sjálfgefið, XPos, YPos, HelpFile, HelpContextId, Tegund)

Setningafræði skýring:

Hvetja:

Áskilið. Það eru upplýsingarnar sem hægt er að gefa notandanum. Það ætti að setja inn í  tvöfalda gæsalappir .

Titill:

Valfrjálst. Það er titill upplýsinganna sem notandinn fær. Ef það er ekki gefið upp verður  Microsoft word  sjálfgefinn titill.

Sjálfgefið:

Valfrjálst. Það sýnir sjálfgefið gildi inni í textareitnum, áður en notandi slær inn gildi. Ef það er ekki tilgreint verður textareiturinn tómur.

XPos:

Valfrjálst. Það er notað sem staðsetning á X-ás. Frá vinstri til hægri

YPos:

Valfrjálst. Það er notað sem staðsetning á Y-ásnum. Frá toppi til botns

Hjálparskrá og auðkenni hjálparsamhengis:

• Valfrjálst. Hjálparskrá mun auðkenna hjálparskrána sem er tiltæk á staðbundnum diski sem hægt er að veita sem hjálp í svarglugga
• Valfrjálst. HelpContext ID er auðkennisnúmer hjálparskrárinnar.

Kóði inntaksboxs:

'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

Framleiðsla: