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ą.

Leave a Comment

Specialiųjų simbolių įterpimas į Word 2010

Specialiųjų simbolių įterpimas į Word 2010

Kartais gali prireikti įterpti neįprastą simbolį į Word 2010 dokumentą. Perskaitykite, kaip lengvai tai padaryti su mūsų patarimais ir simbolių sąrašu.

Kaip naudoti logines funkcijas „Excel 2010“ formulėse

Kaip naudoti logines funkcijas „Excel 2010“ formulėse

„Excel 2010“ naudoja septynias logines funkcijas – IR, FALSE, IF, IFERROR, NOT, OR ir TRUE. Sužinokite, kaip naudoti šias funkcijas efektyviai.

Kaip paslėpti ir rodyti eilutes ir stulpelius programoje „Excel 2016“.

Kaip paslėpti ir rodyti eilutes ir stulpelius programoje „Excel 2016“.

Sužinokite, kaip paslėpti ir atskleisti stulpelius bei eilutes programoje „Excel 2016“. Šis patarimas padės sutaupyti laiko ir organizuoti savo darbalapius.

Kaip apskaičiuoti slenkančius vidurkius programoje „Excel“.

Kaip apskaičiuoti slenkančius vidurkius programoje „Excel“.

Išsamus vadovas, kaip apskaičiuoti slankiuosius vidurkius „Excel“ programoje, skirtas duomenų analizei ir orų prognozėms.

Kaip nukopijuoti formules naudojant automatinį pildymą programoje „Excel 2016“.

Kaip nukopijuoti formules naudojant automatinį pildymą programoje „Excel 2016“.

Sužinokite, kaip efektyviai nukopijuoti formules Excel 2016 programoje naudojant automatinio pildymo funkciją, kad pagreitintumėte darbo eigą.

Kaip „Excel 2010“ langeliams taikyti užpildymo spalvas, raštus ir gradientus

Kaip „Excel 2010“ langeliams taikyti užpildymo spalvas, raštus ir gradientus

Galite pabrėžti pasirinktus langelius „Excel 2010“ darbalapyje pakeisdami užpildymo spalvą arba pritaikydami ląstelėms šabloną ar gradiento efektą.

Kaip paryškinti savaitgalio datas programoje „Excel“.

Kaip paryškinti savaitgalio datas programoje „Excel“.

Dirbdami su laiko kortelėmis ir planuodami programą „Excel“, dažnai pravartu lengvai nustatyti bet kokias datas, kurios patenka į savaitgalius. Šiame straipsnyje pateikiami žingsniai, kaip naudoti sąlyginį formatavimą.

Kaip sukurti diagramas „Office 365“.

Kaip sukurti diagramas „Office 365“.

Sužinokite, kaip sukurti diagramas „Word“, „Excel“ ir „PowerPoint“ programose „Office 365“. Daugiau informacijos rasite LuckyTemplates.com.

Kaip sukurti pasirinktinius „Excel“ suvestinės lentelės skaičiavimus

Kaip sukurti pasirinktinius „Excel“ suvestinės lentelės skaičiavimus

„Excel“ suvestinės lentelės leidžia kurti <strong>pasirinktinius skaičiavimus</strong>, įtraukiant daug pusiau standartinių skaičiavimų. Šiame straipsnyje pateiksiu detalius nurodymus, kaip efektyviai naudoti šią funkciją.

Kaip pakeisti rašybos tikrinimo ir gramatikos nustatymus programoje „Word 2016“.

Kaip pakeisti rašybos tikrinimo ir gramatikos nustatymus programoje „Word 2016“.

Nesvarbu, ar dievinate, ar nekenčiate Word gebėjimo išjuokti jūsų kalbos gebėjimus, jūs turite galutinį sprendimą. Yra daug nustatymų ir parinkčių, leidžiančių valdyti „Word“ rašybos ir gramatikos tikrinimo įrankius.