Excel VBA diapazono pasirinkimas

Kai kuriais atvejais galite norėti, kad vartotojas pasirinktų Excel VBA diapazoną, kai rodomas dialogo langas. Šio tipo Excel VBA diapazono pasirinkimo pavyzdys pateikiamas dialogo lange Kurti lentelę, kuris rodomas pasirinkus Pagrindinis → Įterpti → Lentelės → Lentelė. Dialogo lange Kurti lentelę yra diapazono parinkiklio valdiklis, kuriame yra „Excel“ spėjimas apie konvertuojamą diapazoną, tačiau galite naudoti šį valdiklį, norėdami pakeisti diapazoną darbalapyje pažymėdami langelius.

Norėdami leisti pasirinkti Excel VBA diapazoną dialogo lange, pridėkite valdiklį RefEdit. Šiame pavyzdyje rodomas dialogo langas su dabartinio regiono diapazono adresu, rodomu valdiklyje RefEdit. Dabartinė sritis yra netuščių langelių blokas, kuriame yra aktyvi ląstelė. Vartotojas gali priimti arba pakeisti šį diapazoną. Kai vartotojas spustelėja Gerai, procedūra paryškina diapazoną.

Excel VBA diapazono pasirinkimas

Šis dialogo langas leidžia vartotojui pasirinkti diapazoną.

Šiame Excel VBA pavyzdyje daroma prielaida, kad:

  • Turite vartotojo formą pavadinimu UserForm1.
  • UserForm yra CommandButton valdiklis pavadinimu OKButton.
  • UserForm yra CommandButton valdiklis, pavadintas CancelButton.
  • UserForm yra RefEdit valdiklis pavadinimu RefEdit1.

Kodas saugomas VBA modulyje ir rodomas čia. Šis kodas atlieka du dalykus: inicijuoja dialogo langą, priskirdamas dabartinio regiono adresą RefEdit valdikliui ir parodo UserForm.

SubboldCells ()
Išeikite, jei darbalapis neaktyvus
  Jei TypeName(ActiveSheet) <> "Worksheet" Tada išeikite iš sub

' Pasirinkite dabartinį regioną
  ActiveCell.CurrentRegion.Select

Inicijuoti RefEdit valdymą
  UserForm1.RefEdit1.Text = Selection.Address

' Rodyti dialogą
  UserForm1.Show
Pabaigos sub

Paspaudus mygtuką Gerai, atliekama tokia procedūra. Ši procedūra atlieka keletą paprastų klaidų patikrinimų, kad įsitikintų, jog RefEdit valdiklyje nurodytas diapazonas yra tinkamas.

Privatus sub OKButton_Click()
  Įvykus klaidai GoTo BadRange
  Diapazonas(RefEdit1.Text).Šriftas.Bold = True
  Išsiųskite UserForm1
  Išeiti iš sub
BadRange:
  MsgBox "Nurodytas diapazonas negalioja."
Pabaigos sub

Jei Excel VBA įvyksta klaida (greičiausiai RefEdit valdiklyje neteisinga diapazono specifikacija), kodas peršoka į BadRange etiketę ir rodomas pranešimo laukelis. Dialogo langas lieka atidarytas, todėl vartotojas gali pasirinkti kitą diapazoną.

Jei vartotojo pasirinkto diapazono gavimas yra vienintelė funkcija, kurią atlieka jūsų UserForm, galite supaprastinti dalykus naudodami Application InputBox metodą.


Kaip neleisti „Microsoft Word“ atidaryti failų tik skaitymo režimu sistemoje „Windows“.

Kaip neleisti „Microsoft Word“ atidaryti failų tik skaitymo režimu sistemoje „Windows“.

Kaip neleisti Microsoft Word atidaryti failų tik skaitymo režimu sistemoje Windows. Microsoft Word atidaro failus tik skaitymo režimu, todėl jų redaguoti neįmanoma? Nesijaudinkite, metodai pateikiami žemiau

Kaip ištaisyti neteisingą Microsoft Word dokumentų spausdinimą

Kaip ištaisyti neteisingą Microsoft Word dokumentų spausdinimą

Kaip ištaisyti klaidas spausdinant neteisingus Microsoft Word dokumentus.Klaidos spausdinant Word dokumentus su pakeistais šriftais, netvarkingomis pastraipomis, trūkstamo teksto ar prarasto turinio yra gana dažnos. Tačiau nereikia

Ištrinkite rašiklio ir paryškinimo piešinius savo „PowerPoint“ skaidrėse

Ištrinkite rašiklio ir paryškinimo piešinius savo „PowerPoint“ skaidrėse

Jei naudodami rašiklį ar žymeklį piešėte ant savo PowerPoint skaidrės pristatymo metu, galite išsaugoti brėžinius kitam pristatymui arba ištrinti juos, kad kitą kartą rodydami pradėtumėte nuo švarių PowerPoint skaidrių. Vykdykite šias instrukcijas, kad ištrintumėte rašiklio ir žymeklio piešinius: Trinti linijas po vieną […]

Stilių bibliotekos turinys „SharePoint 2010“.

Stilių bibliotekos turinys „SharePoint 2010“.

Stilių bibliotekoje yra CSS failų, XSL (Extensible Stylesheet Language) failų ir vaizdų, naudojamų iš anksto nustatytų puslapių puslapiuose, puslapių išdėstymuose ir valdikliuose „SharePoint 2010“. Norėdami rasti CSS failus publikavimo svetainės stilių bibliotekoje: pasirinkite Svetainės veiksmai → Peržiūrėti Visas svetainės turinys. Pasirodo svetainės turinys. Stiliaus biblioteka yra […]

Formatuokite skaičius tūkstančiais ir milijonais „Excel“ ataskaitose

Formatuokite skaičius tūkstančiais ir milijonais „Excel“ ataskaitose

Neužkraukite savo auditorijos milžiniškais skaičiais. Programoje „Microsoft Excel“ galite pagerinti informacijos suvestinių ir ataskaitų skaitomumą formatuodami skaičius, kad jie būtų rodomi tūkstančiais arba milijonais.

Kaip bendrinti ir stebėti „SharePoint“ svetaines

Kaip bendrinti ir stebėti „SharePoint“ svetaines

Sužinokite, kaip naudoti „SharePoints“ socialinių tinklų įrankius, leidžiančius asmenims ir grupėms bendrauti, bendradarbiauti, bendrinti ir prisijungti.

Kaip konvertuoti datas į Juliano formatus programoje „Excel“.

Kaip konvertuoti datas į Juliano formatus programoje „Excel“.

Julijaus datos dažnai naudojamos gamybos aplinkoje kaip laiko žyma ir greita partijos numerio nuoroda. Šio tipo datos kodavimas leidžia mažmenininkams, vartotojams ir paslaugų agentams nustatyti, kada produktas buvo pagamintas, taigi ir produkto amžių. Julijaus datos taip pat naudojamos programavimo, kariuomenės ir astronomijos srityse. Skirtingi […]

Kaip sukurti „Access“ žiniatinklio programą

Kaip sukurti „Access“ žiniatinklio programą

Galite sukurti žiniatinklio programą naudodami „Access 2016“. Taigi, kas vis dėlto yra žiniatinklio programa? Na, žiniatinklis reiškia, kad jis yra internete, o programa yra tik „programos“ santrumpa. Pasirinktinė žiniatinklio programa yra internetinė duomenų bazės programa, pasiekiama iš debesies naudojant naršyklę. Kuriate ir prižiūrite žiniatinklio programą darbalaukio versijoje […]

Greitosios paleidimo juosta „SharePoint 2010“.

Greitosios paleidimo juosta „SharePoint 2010“.

Daugumoje „SharePoint 2010“ puslapių sparčiojo paleidimo juostoje, esančioje kairėje puslapio pusėje, pateikiamas naršymo nuorodų sąrašas. Greitosios paleidimo juostoje rodomos nuorodos į siūlomą svetainės turinį, pvz., sąrašus, bibliotekas, svetaines ir publikavimo puslapius. Greitojo paleidimo juostoje yra dvi labai svarbios nuorodos: Visas svetainės turinys: […]

Ką reiškia „Excel“ sprendimo klaidų pranešimai?

Ką reiškia „Excel“ sprendimo klaidų pranešimai?

Paprastoms problemoms spręsti „Excel“ sprendėjas paprastai greitai suranda optimalias tikslinės funkcijos „Solver“ kintamųjų reikšmes. Tačiau kai kuriais atvejais „Solver“ turi problemų ieškant „Solver“ kintamųjų reikšmių, optimizuojančių tikslo funkciją. Tokiais atvejais „Solver“ paprastai rodo pranešimą arba klaidos pranešimą, kuriame aprašoma arba aptariama problema, kurią […]