Exceli VBA vahemiku valimine

Mõnel juhul võite soovida, et kasutaja valiks dialoogiboksi kuvamise ajal Exceli VBA vahemiku. Seda tüüpi Exceli VBA vahemiku valimise näide on dialoogiboksis Tabeli loomine, mis kuvatakse, kui valite Avaleht → Lisa → Tabelid → Tabel. Dialoogiboksis Tabeli loomine sisaldab vahemiku valija juhtelementi, mis sisaldab Exceli oletusi teisendatava vahemiku kohta, kuid saate seda juhtelementi kasutada vahemiku muutmiseks, valides töölehel lahtreid.

Exceli VBA vahemiku valimise lubamiseks dialoogiboksis lisage juhtelement RefEdit. Järgmises näites kuvatakse dialoogiboks, kus praeguse piirkonna vahemiku aadress kuvatakse juhtelemendis RefEdit. Praegune piirkond on tühjade lahtrite plokk, mis sisaldab aktiivset lahtrit. Kasutaja saab selle vahemikuga nõustuda või seda muuta. Kui kasutaja klõpsab OK, muudab protseduur vahemiku paksuks.

Exceli VBA vahemiku valimine

See dialoogiboks võimaldab kasutajal valida vahemiku.

See Exceli VBA näide eeldab järgmist.

  • Teil on kasutajavorm nimega UserForm1.
  • UserForm sisaldab CommandButtoni juhtelementi nimega OKButton.
  • UserForm sisaldab CommandButtoni juhtelementi nimega CancelButton.
  • Kasutajavorm sisaldab RefEditi juhtelementi nimega RefEdit1.

Kood salvestatakse VBA moodulisse ja kuvatakse siin. See kood teeb kahte asja: lähtestab dialoogiboksi, määrates praeguse piirkonna aadressi juhtelemendile RefEdit, ja kuvab kasutajavormi.

Alampaksud lahtrid ()
Väljuge, kui tööleht pole aktiivne
  Kui TypeName(ActiveSheet) <> "Worksheet" Seejärel välju Sub

' Valige praegune piirkond
  ActiveCell.CurrentRegion.Select

Käivitage RefEdit juht
  UserForm1.RefEdit1.Text = Selection.Address

' Näita dialoogi
  UserForm1.Show
Lõpeta alam

Nupu OK klõpsamisel käivitatakse järgmine protseduur. See protseduur kontrollib lihtsat veakontrolli, et veenduda, kas juhtelemendis RefEdit määratud vahemik on kehtiv.

Privaatne alam OKButton_Click()
  Viga GoTo BadRange
  Vahemik(RefEdit1.Text).Font.Bold = Tõene
  Laadi kasutajavorm1 maha
  Välju Sub
BadRange:
  MsgBox "Määratud vahemik ei kehti."
Lõpeta alam

Kui Excel VBA-s ilmneb tõrge (tõenäoliselt on RefEditi juhtelemendi vale vahemiku spetsifikatsioon), hüppab kood sildile BadRange ja kuvatakse teatekast. Dialoogiboks jääb avatuks, et kasutaja saaks valida mõne muu vahemiku.

Kui kasutaja poolt valitud vahemiku saamine on ainus funktsioon, mida teie UserForm täidab, saate asju lihtsustada, kasutades Application InputBox meetodit.

Leave a Comment

10 näpunäidet paremateks Microsoft Teamsi koosolekuteks

10 näpunäidet paremateks Microsoft Teamsi koosolekuteks

Uurige kümmet nõuannet Microsoft Teamsiga parema koosolekukogemuse saamiseks, sealhulgas märkmete tegemine, tausta hägustamine, vaigistamine ja koosolekute salvestamine.

Kuidas Word 2013 dokumentides kommentaare üle vaadata ja kustutada

Kuidas Word 2013 dokumentides kommentaare üle vaadata ja kustutada

Lühikeses Word 2013 dokumendis saate kommentaare hõlpsalt sirvida ja uurida. Siit leiate samm-sammult, kuidas kommentaare lugeda ja eemaldada.

Kuidas parandada Word 2016 tavalist malli

Kuidas parandada Word 2016 tavalist malli

Mõnikord varitseb kurjus selles, mis peaks olema Word 2016 peamises mõistlikkuse hoidlas: tavalises mallifailis. Õpi, kuidas taastada normaalne mall ja eemaldada probleemid.

Kuidas lisada lõigu taane Word 2013-s

Kuidas lisada lõigu taane Word 2013-s

Kuidas lisada lõigu taane Word 2013-s, et luua selgem ja professionaalsem ilme. Meie juhend aitab sul lihtsasti navigeerida Wordi funktsioonide kaudu ja tutvustab esimeses reas taande ning rippuva taande lisamise viise.

Kuidas Outlook 2016-s uusi kiireid samme luua

Kuidas Outlook 2016-s uusi kiireid samme luua

Lisaks kuuele kiirtoimingule, mis kuvatakse Outlooki esmakordsel installimisel, on teil valida veelgi rohkemate Quick Step mallide hulgast.

Kustutage oma PowerPointi slaididelt pliiatsi ja esiletõstja joonised

Kustutage oma PowerPointi slaididelt pliiatsi ja esiletõstja joonised

Kui olete esitluse ajal PowerPointi slaididele joonistamiseks kasutanud pliiatsit või markerit, saate joonised järgmise esitluse jaoks salvestada või need kustutada, nii et järgmisel näitamisel alustate puhaste PowerPointi slaididega. Pliiatsi ja markeri jooniste kustutamiseks järgige neid juhiseid: joonte kustutamine […]

Stiili teegi sisu rakenduses SharePoint 2010

Stiili teegi sisu rakenduses SharePoint 2010

Style'i teek sisaldab CSS-faile, XSL-faile ja eelmääratletud mallilehtede, lehepaigutuste ja juhtelementide poolt kasutatavaid pilte rakenduses SharePoint 2010. CSS-failide leidmiseks avaldamissaidi stiiliteegist: valige saidi toimingud → vaade. Kogu saidi sisu. Ilmub saidi sisu. Style raamatukogu asub […]

Vormindage numbreid tuhandetes ja miljonites Exceli aruannetes

Vormindage numbreid tuhandetes ja miljonites Exceli aruannetes

Ärge uputage oma publikut tohutute numbritega. Microsoft Excelis saate parandada oma armatuurlaudade ja aruannete loetavust, vormindades numbrid tuhandetes või miljonites.

Kuidas SharePointi saite jagada ja jälgida

Kuidas SharePointi saite jagada ja jälgida

Siit saate teada, kuidas kasutada SharePointi suhtlusvõrgustiku tööriistu, mis võimaldavad üksikisikutel ja rühmadel suhelda, koostööd teha, jagada ja ühendada.

Kuidas teisendada kuupäevi Excelis Juliani vormingutesse

Kuidas teisendada kuupäevi Excelis Juliani vormingutesse

Julia kuupäevi kasutatakse tootmiskeskkondades sageli ajatemplina ja partiinumbri kiirviitena. Seda tüüpi kuupäevade kodeerimine võimaldab jaemüüjatel, tarbijatel ja teenindusagentidel tuvastada toote valmistamise aja ja seega toote vanuse. Juliuse kuupäevi kasutatakse ka programmeerimises, sõjaväes ja astronoomias. Erinevad […]