Í sumum tilfellum gætirðu viljað að notandinn velji Excel VBA svið á meðan svargluggi birtist. Dæmi um þessa tegund af Excel VBA sviðsvali kemur fram í Búa til töflu valmynd, sem birtist þegar þú velur Heim → Setja inn → Töflur → Tafla. Búa til töflu valmyndin er með sviðsvalstýringu sem inniheldur getgátu Excel varðandi bilið sem á að breyta - en þú getur notað þessa stjórn til að breyta sviðinu með því að velja reiti í vinnublaðinu.
Til að leyfa Excel VBA sviðsval í glugganum þínum skaltu bæta við RefEdit stýringu. Eftirfarandi dæmi sýnir svarglugga með svæðisvistfangi núverandi svæðis í RefEdit stýringu. Núverandi svæði er blokkin af ótómum frumum sem inniheldur virku frumuna. Notandinn getur samþykkt eða breytt þessu svið. Þegar notandinn smellir á Í lagi gerir aðferðin sviðið feitletrað.

Þessi valmynd gerir notandanum kleift að velja svið.
Þetta Excel VBA dæmi gerir ráð fyrir eftirfarandi:
- Þú ert með UserForm sem heitir UserForm1.
- UserForm inniheldur CommandButton stýringu sem heitir OKButton.
- UserForm inniheldur CommandButton stýringu sem heitir CancelButton.
- UserForm inniheldur RefEdit stýringu sem heitir RefEdit1.
Kóðinn er geymdur í VBA einingu og sýndur hér. Þessi kóði gerir tvennt: frumstillir svargluggann með því að úthluta vistfang núverandi svæðis við RefEdit stýringu og birtir UserForm.
Undir BoldCells()
' Hætta ef vinnublað er ekki virkt
Ef TypeName(ActiveSheet) <> "Worksheet" Þá Hætta undir
' Veldu núverandi svæði
ActiveCell.CurrentRegion.Select
' Frumstilla RefEdit stjórn
UserForm1.RefEdit1.Text = Val. Heimilisfang
' Sýna glugga
UserForm1.Show
End Sub
Eftirfarandi aðferð er framkvæmd þegar smellt er á OK hnappinn. Þessi aðferð gerir einfalda villuskoðun til að ganga úr skugga um að svið sem tilgreint er í RefEdit stýringu sé gilt.
Einkaundir OKButton_Click()
Við Villa GoTo BadRange
Range(RefEdit1.Text).Font.Bold = True
Afhlaða UserForm1
Hætta undir
BadRange:
MsgBox "Tilgreint svið er ekki gilt."
End Sub
Ef villa kemur upp í Excel VBA (líklega ógild sviðslýsing í RefEdit stýringu), hoppar kóðinn á BadRange merkimiðann og skilaboðakassi birtist. Glugginn er áfram opinn svo notandinn getur valið annað svið.
Ef að fá notanda valið svið er eina aðgerðin sem notandaformið þitt framkvæmir geturðu einfaldað hlutina með því að nota Application InputBox aðferðina.