Excel VBA diapazona atlase

Dažos gadījumos, iespējams, vēlēsities lietotājam atlasīt Excel VBA diapazonu, kamēr tiek parādīts dialoglodziņš. Šāda veida Excel VBA diapazona atlases piemērs ir dialoglodziņā Tabulas izveide, kas tiek parādīts, izvēloties Sākums → Ievietot → Tabulas → Tabula. Dialoglodziņā Tabulas izveide ir diapazona atlasītāja vadīkla, kas satur Excel minējumu par konvertējamo diapazonu, taču varat izmantot šo vadīklu, lai mainītu diapazonu, darblapā atlasot šūnas.

Lai dialoglodziņā atļautu Excel VBA diapazona atlasi, pievienojiet vadīklu RefEdit. Nākamajā piemērā tiek parādīts dialoglodziņš ar pašreizējā reģiona diapazona adresi, kas tiek parādīta vadīklā RefEdit. Pašreizējais apgabals ir tukšu šūnu bloks, kurā ir aktīvā šūna. Lietotājs var pieņemt vai mainīt šo diapazonu. Kad lietotājs noklikšķina uz Labi, procedūra padara diapazonu treknrakstā.

Excel VBA diapazona atlase

Šis dialoglodziņš ļauj lietotājam izvēlēties diapazonu.

Šajā Excel VBA piemērā tiek pieņemts, ka:

  • Jums ir UserForm ar nosaukumu UserForm1.
  • UserForm satur CommandButton vadīklu ar nosaukumu OKButton.
  • UserForm satur CommandButton vadīklu ar nosaukumu CancelButton.
  • UserForm satur RefEdit vadīklu ar nosaukumu RefEdit1.

Kods tiek saglabāts VBA modulī un parādīts šeit. Šis kods veic divas darbības: inicializē dialoglodziņu, piešķirot RefEdit vadīklai pašreizējā reģiona adresi, un parāda UserForm.

SubboldCells()
Iziet, ja darblapa nav aktīva
  Ja TypeName(ActiveSheet) <> "Darblapa" Pēc tam izejiet no Sub

' Izvēlieties pašreizējo reģionu
  ActiveCell.CurrentRegion.Select

Inicializējiet RefEdit vadību
  UserForm1.RefEdit1.Text = Selection.Address

Rādīt dialoglodziņu
  UserForm1.Show
Beigt apakš

Noklikšķinot uz pogas Labi, tiek izpildīta šāda procedūra. Šī procedūra veic vienkāršu kļūdu pārbaudi, lai pārliecinātos, ka RefEdit vadīklā norādītais diapazons ir derīgs.

Privāts apakšējais OKButton_Click()
  Par kļūdu GoTo BadRange
  Diapazons(RefEdit1.Text).Font.Bold = True
  Izlādēt UserForm1
  Iziet Sub
BadRange:
  MsgBox "Norādītais diapazons nav derīgs."
Beigt apakš

Ja programmā Excel VBA rodas kļūda (visticamāk, nederīga diapazona specifikācija vadīklā RefEdit), kods pāriet uz etiķeti BadRange un tiek parādīts ziņojuma lodziņš. Dialoglodziņš paliek atvērts, lai lietotājs varētu izvēlēties citu diapazonu.

Ja lietotāja izvēlētā diapazona iegūšana ir vienīgā funkcija, ko veic jūsu UserForm, varat vienkāršot lietas, izmantojot metodi Application InputBox.


Kā neļaut Microsoft Word atvērt failus tikai lasīšanas režīmā operētājsistēmā Windows

Kā neļaut Microsoft Word atvērt failus tikai lasīšanas režīmā operētājsistēmā Windows

Kā neļaut Microsoft Word atvērt failus tikai lasīšanas režīmā operētājsistēmā Windows Microsoft Word atver failus tikai lasīšanas režīmā, padarot tos neiespējamu rediģēt? Neuztraucieties, metodes ir norādītas zemāk

Kā novērst nepareizu Microsoft Word dokumentu drukāšanu

Kā novērst nepareizu Microsoft Word dokumentu drukāšanu

Kā labot kļūdas, drukājot nepareizus Microsoft Word dokumentus.Kļūdas Word dokumentu drukāšanā ar mainītiem fontiem, nekārtīgām rindkopām, trūkstoša teksta vai pazaudētu saturu ir diezgan izplatītas. Tomēr nevajag

Izdzēsiet pildspalvas un marķiera zīmējumus savos PowerPoint slaidos

Izdzēsiet pildspalvas un marķiera zīmējumus savos PowerPoint slaidos

Ja prezentācijas laikā esat izmantojis pildspalvu vai marķieri, lai zīmētu uz PowerPoint slaidiem, varat saglabāt zīmējumus nākamajai prezentācijai vai izdzēst tos, lai nākamajā reizē, kad to parādīsit, jūs sāktu ar tīriem PowerPoint slaidiem. Izpildiet šos norādījumus, lai dzēstu pildspalvas un marķiera zīmējumus: Līniju dzēšana pa vienai […]

Veidojiet bibliotēkas saturu programmā SharePoint 2010

Veidojiet bibliotēkas saturu programmā SharePoint 2010

Stilu bibliotēkā ir CSS faili, paplašināmās stila lapu valodas (XSL) faili un attēli, ko izmanto iepriekš definētas šablona lapas, lapu izkārtojumi un vadīklas programmā SharePoint 2010. Lai atrastu CSS failus publicēšanas vietnes stilu bibliotēkā: izvēlieties Vietnes darbības → Skatīt Viss vietnes saturs. Tiek parādīts vietnes saturs. Stila bibliotēka atrodas […]

Formatējiet skaitļus tūkstošos un miljonos Excel pārskatos

Formatējiet skaitļus tūkstošos un miljonos Excel pārskatos

Nepārsedziet savu auditoriju ar milzīgiem skaitļiem. Programmā Microsoft Excel varat uzlabot informācijas paneļu un pārskatu lasāmību, formatējot skaitļus tā, lai tie tiktu rādīti tūkstošos vai miljonos.

Kā koplietot un sekot līdzi SharePoint vietnēm

Kā koplietot un sekot līdzi SharePoint vietnēm

Uzziniet, kā izmantot SharePoints sociālo tīklu rīkus, kas ļauj indivīdiem un grupām sazināties, sadarboties, koplietot un sazināties.

Kā programmā Excel konvertēt datumus Juliana formātos

Kā programmā Excel konvertēt datumus Juliana formātos

Jūlija datumi ražošanas vidēs bieži tiek izmantoti kā laikspiedols un ātra atsauce partijas numuram. Šāda veida datuma kodēšana ļauj mazumtirgotājiem, patērētājiem un pakalpojumu aģentiem noteikt produkta izgatavošanas laiku un līdz ar to arī produkta vecumu. Jūlija datumi tiek izmantoti arī programmēšanā, militārajā jomā un astronomijā. Savādāk […]

Kā izveidot Access Web App

Kā izveidot Access Web App

Programmā Access 2016 varat izveidot tīmekļa lietotni. Kas tad vispār ir tīmekļa lietotne? Tīmeklis nozīmē, ka tas ir tiešsaistē, un lietotne ir tikai “lietojumprogrammas” saīsinājums. Pielāgota tīmekļa lietotne ir tiešsaistes datu bāzes lietojumprogramma, kurai var piekļūt no mākoņa, izmantojot pārlūkprogrammu. Jūs veidojat un uzturat tīmekļa lietotni darbvirsmas versijā […]

Ātrās palaišanas josla programmā SharePoint 2010

Ātrās palaišanas josla programmā SharePoint 2010

Lielākā daļa SharePoint 2010 lapu ātrās palaišanas joslā lapas kreisajā pusē parāda navigācijas saišu sarakstu. Ātrās palaišanas joslā tiek rādītas saites uz piedāvāto vietņu saturu, piemēram, sarakstiem, bibliotēkām, vietnēm un publicēšanas lapām. Ātrās palaišanas joslā ir divas ļoti svarīgas saites: Visa vietnes satura saite: […]

Ko nozīmē risinātāja kļūdu ziņojumi programmā Excel?

Ko nozīmē risinātāja kļūdu ziņojumi programmā Excel?

Vienkāršām problēmām risinātājs programmā Excel parasti ātri atrod optimālās Risinātāja mainīgā vērtības mērķa funkcijai. Taču dažos gadījumos Solver ir grūti atrast Solver mainīgā vērtības, kas optimizē mērķa funkciju. Šādos gadījumos Solver parasti parāda ziņojumu vai kļūdas ziņojumu, kurā aprakstīta vai apspriesta problēma, ko […]