Si të përdorni funksionin InputBox në Excel 2016 VBA

Funksioni VBA InputBox është i dobishëm për marrjen e një informacioni të vetëm të shtypur nga përdoruesi në Excle 2016. Ky informacion mund të jetë një vlerë, një varg teksti ose edhe një adresë diapazoni. Kjo është një alternativë e mirë për zhvillimin e një UserForm kur ju duhet të merrni vetëm një vlerë.

Sintaksa e InputBox

Këtu është një version i thjeshtuar i sintaksës së funksionit InputBox:

InputBox (prompt[, titull][, parazgjedhje])

Funksioni InputBox pranon argumentet e listuara këtu.

Një shembull InputBox

Këtu është një deklaratë që tregon se si mund të përdorni funksionin InputBox:

TheName = InputBox ("Cili është emri juaj?", "Përshëndetje")

Kur ekzekutoni këtë deklaratë VBA, Excel shfaq këtë kuti dialogu. Vini re se ky shembull përdor vetëm dy argumentet e para dhe nuk jep një vlerë të paracaktuar. Kur përdoruesi fut një vlerë dhe klikon OK, kodi ia cakton vlerën ndryshores TheName.

Funksioni InputBox shfaq këtë kuti dialogu.

Shembulli i mëposhtëm përdor argumentin e tretë dhe jep një vlerë të paracaktuar. Vlera e parazgjedhur është emri i përdoruesit i ruajtur nga Excel (vetia Emri i përdoruesit të objektit të aplikacionit).

Nën GetName ()
  Dim TheName As String
  TheName = InputBox ("Cili është emri juaj?", _
    "Përshëndetje", Aplikacioni. Emri i përdoruesit)
Fundi Nën

InputBox shfaq gjithmonë një buton Anulo. Nëse përdoruesi klikon Cancel, funksioni InputBox kthen një varg bosh.

Funksioni InputBox i VBA kthen gjithmonë një varg, kështu që nëse ju duhet të merrni një vlerë, kodi juaj duhet të bëjë disa kontrolle shtesë. Shembulli i mëposhtëm përdor funksionin InputBox për të marrë një numër. Përdor funksionin IsNumeric për të kontrolluar nëse vargu është numër. Nëse vargu përmban një numër, gjithçka është në rregull. Nëse hyrja e përdoruesit nuk mund të interpretohet si numër, kodi shfaq një kuti mesazhi.

NënShto Sheets()
  Dim Prompt As String
  Titulli i zbehtë si varg
  Dim DefVlera për aq kohë
  Dim NumSheets si varg
  Prompt = "Sa fletë dëshironi të shtoni?"
  Titulli = "Më thuaj ..."
  DefVlera = 1
  NumSheets = InputBox (Prompt, Caption, DefValue)
  Nëse NumSheets = ““ Pastaj Dilni Nën 'Anulo
  Nëse është numerike (NumSheets) Atëherë
    Nëse NumSheets > 0 Pastaj Sheets.Add Count:=NumSheets
  Përndryshe
    MsgBox "Numër i pavlefshëm"
  Fundi Nëse
Fundi Nën

Shikoni kutinë e dialogut që prodhon kjo rutinë.

Një shembull tjetër i përdorimit të funksionit InputBox.

Një lloj tjetër i InputBox

Informacioni i paraqitur këtu zbatohet për funksionin InputBox të VBA. Microsoft duket se e pëlqen konfuzionin, kështu që ju keni gjithashtu qasje në metodën InputBox , e cila është një metodë e objektit të aplikacionit.

Një avantazh i madh i përdorimit të metodës Application InputBox është se kodi juaj mund të kërkojë një përzgjedhje diapazoni. Përdoruesi më pas mund të zgjedhë diapazonin në fletën e punës duke theksuar qelizat. Këtu është një shembull i shpejtë që e nxit përdoruesin të zgjedhë një gamë:

Nën GetRange ()
  Dim Rng As Range
  Në gabim Rifillo Tjetra
  Vendos Rng = Application.InputBox _
    (prompt:="Specifiko një varg:", Lloji:=8)
  Nëse Rng nuk është asgjë, atëherë dilni nga Sub
  MsgBox "Ke zgjedhur diapazonin " & Rng. Adresa
Fundi Nën

Kështu duket.

Përdorimi i metodës Application InputBox për të marrë një diapazon.

Në këtë shembull të thjeshtë, kodi i tregon përdoruesit adresën e gamës që është zgjedhur. Në jetën reale, kodi juaj në fakt do të bënte diçka të dobishme me gamën e zgjedhur. Një gjë e mirë për këtë shembull është se Excel kujdeset për trajtimin e gabimeve. Nëse futni diçka që nuk është diapazon, Excel ju tregon për të dhe ju lejon të provoni përsëri.

Metoda Application.InputBox është e ngjashme me funksionin InputBox të VBA, por gjithashtu ka disa dallime. Kontrolloni sistemin e ndihmës për detaje të plota.