Si të krijoni kuti të dhënash dhe mesazhesh në një dokument Word me VBA?

Përditësimi i fundit: korrik 2020; Zbatueshmëria: Office 365,2019, 2016, 2013.

Ndonjëherë, ne dëshirojmë t'i bëjmë dokumentet tona të Word-it më ndërveprues dhe madje të kapim disa të dhëna të përdoruesit. Futni kutitë e mesazheve dhe të hyrjes.

Siç sugjeron emri, një kuti mesazhi është një pjesë e informacionit që u shfaqet përdoruesve të dokumentit. Kutitë e hyrjes janë instrumentale për të kapur informacion nga përdoruesi.

Ky postim ka të gjithë informacionin dhe mostrat e kodit që ju nevojiten për të krijuar dokumente plotësisht funksionale me mesazhet e Visual Basic për Aplikacione (VBA) dhe kutitë hyrëse për Microsoft Word.

Si të shtoni kodin VBA në Word?

Përpara se të shkojmë përpara dhe të shpjegojmë se si të shtojmë kutitë e mesazheve dhe hyrjes, këtu është një rifreskim i shpejtë se si të shtoni kodin tuaj të personalizuar VBA në një dokument Word.

• Së pari, shkoni përpara dhe aktivizoni skedën Zhvilluesi .
• Tani, shtypni  butonin Visual Basic nga  skeda Zhvilluesi  . Kjo do të hapë Redaktuesin Visual Basic.

• Theksoni dokumentin tuaj.
• Klikoni  Insert  dhe më pas zgjidhni  Modul .

• Kopjoni kodin që ne ofrojmë më poshtë në modulin që sapo keni krijuar në modulin tuaj.
• Klikoni mbi Ruaj. Jepni një emër dokumentit tuaj nëse ju kërkohet.
• Mbyllni redaktorin e Visual Basic.

Kutitë e mesazheve Kodi VBA

Sintaksë:

MsgBox (prompt, butonat, titulli, skedari i ndihmës, konteksti)

Shpjegimi sintaksor:

Kërko:

E detyrueshme. Është informacioni që mund t'i jepet përdoruesit. Duhet të futet brenda thonjëzës së  dyfishtë .

Butonat:

Fakultative. Butonat janë ato lloj butonash që i jepen informacionit të përdoruesit. Ka butona të ndryshëm në dispozicion për MsgBox() dhe ato mund të gjenden në fotot më poshtë.

Titulli:

Fakultative. Është titulli i informacionit që i jepet përdoruesit. Nëse nuk jepet,  Microsoft Word  do të jetë titulli i paracaktuar.

Skedari i ndihmës dhe konteksti:

• Fakultative. Helpfile do të identifikojë skedarin Ndihmë të disponueshëm në diskun lokal, i cili mund të ofrohet si ndihmë në një kuti dialogu
• Fakultative. Konteksti është shprehje numerike e cila përdoret për të identifikuar temën e ndihmës me numrin unik.

Shembull i kodit të kutisë së mesazhit

'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

Prodhimi:

Kodi VBA i kutive të dialogut dhe hyrjes

Kutia e hyrjes është një dialog i thjeshtë që na lejon t'i kërkojmë përdoruesit për disa informacione. Le të njihemi me kodin VBA duke përdorur një shembull.

Sintaksë:

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

Shpjegimi sintaksor:

Kërko:

E detyrueshme. Është informacioni që mund t'i jepet përdoruesit. Duhet të futet brenda thonjëzës së  dyfishtë .

Titulli:

Fakultative. Është titulli i informacionit që i jepet përdoruesit. Nëse nuk jepet,  Microsoft Word  do të jetë titulli i paracaktuar.

Parazgjedhja:

Fakultative. Ai shfaq vlerën e paracaktuar brenda kutisë së tekstit, përpara se përdoruesi të shkruajë një vlerë. Nëse nuk specifikohet, kutia e tekstit do të jetë bosh.

XPos:

Fakultative. Përdoret si pozicion në boshtin X. Nga e majta në të djathtë

YPos:

Fakultative. Përdoret si pozicion në boshtin Y. Nga lart poshtë

File Help dhe HelpContext ID:

• Fakultative. Helpfile do të identifikojë skedarin Ndihmë të disponueshëm në diskun lokal, i cili mund të ofrohet si ndihmë në një kuti dialogu
• Fakultative. ID-ja e HelpContext është numri i ID-së për skedarin e ndihmës.

Kodi i kutisë hyrëse:

'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

Prodhimi: