Excel VBA tartomány kiválasztása

Bizonyos esetekben előfordulhat, hogy a felhasználónak egy Excel VBA-tartományt kell kiválasztania egy párbeszédpanel megjelenítése közben. Az Excel VBA ilyen típusú tartománykiválasztásának példája a Táblázat létrehozása párbeszédpanelen található, amely akkor jelenik meg, ha a Kezdőlap → Beszúrás → Táblázatok → Táblázat menüpontot választja. A Táblázat létrehozása párbeszédpanel rendelkezik egy tartományválasztó vezérlővel, amely az Excel által az átalakítandó tartományra vonatkozó tippeket tartalmaz – de ezzel a vezérlővel módosíthatja a tartományt a munkalap celláinak kijelölésével.

Ha engedélyezni szeretné az Excel VBA-tartomány kiválasztását a párbeszédpanelen, adjon hozzá egy RefEdit vezérlőt. A következő példa egy párbeszédpanelt jelenít meg az aktuális régió tartománycímével egy RefEdit vezérlőben. Az aktuális régió a nem üres cellák blokkja, amely az aktív cellát tartalmazza. A felhasználó elfogadhatja vagy módosíthatja ezt a tartományt. Amikor a felhasználó az OK gombra kattint, az eljárás félkövérre szedi a tartományt.

Excel VBA tartomány kiválasztása

Ez a párbeszédpanel lehetővé teszi a felhasználó számára egy tartomány kiválasztását.

Ez az Excel VBA példa a következőket feltételezi:

  • Van egy UserForm1 nevű felhasználói űrlapja.
  • A UserForm tartalmaz egy OKButton nevű CommandButton vezérlőt.
  • A UserForm egy CancelButton nevű CommandButton vezérlőt tartalmaz.
  • A UserForm egy RefEdit1 nevű RefEdit vezérlőt tartalmaz.

A kód egy VBA-modulban van tárolva, és itt látható. Ez a kód két dolgot tesz: inicializálja a párbeszédpanelt az aktuális régió címének a RefEdit vezérlőhöz való hozzárendelésével, és megjeleníti a UserForm-ot.

Félkövér Cellák()
Lépjen ki, ha a munkalap nem aktív
  Ha TypeName(ActiveSheet) <> "Worksheet", akkor lépjen ki a Sub

' Válassza ki az aktuális régiót
  ActiveCell.CurrentRegion.Select

Inicializálja a RefEdit vezérlőt
  UserForm1.RefEdit1.Text = Selection.Address

' Párbeszéd megjelenítése
  UserForm1.Show
Vége Sub

Az OK gombra kattintva a következő eljárás kerül végrehajtásra. Ez az eljárás néhány egyszerű hibaellenőrzést végez, hogy megbizonyosodjon arról, hogy a RefEdit vezérlőben megadott tartomány érvényes.

Privát Sub OKButton_Click()
  Hiba esetén GoTo BadRange
  Tartomány(RefEdit1.Text).Font.Bold = Igaz
  UserForm1 eltávolítása
  Exit Sub
BadRange:
  MsgBox "A megadott tartomány nem érvényes."
Vége Sub

Ha hiba történik az Excel VBA-ban (valószínűleg érvénytelen tartomány-specifikáció a RefEdit vezérlőben), a kód a BadRange címkére ugrik, és megjelenik egy üzenetablak. A párbeszédpanel nyitva marad, így a felhasználó választhat másik tartományt.

Ha egy felhasználó által kiválasztott tartomány az egyetlen funkció, amelyet a UserForm hajt végre, akkor az Application InputBox metódussal leegyszerűsítheti a dolgokat.

Leave a Comment

Lábjegyzetek és végjegyzetek létrehozása a Word 2013-ban

Lábjegyzetek és végjegyzetek létrehozása a Word 2013-ban

Lábjegyzetek és végjegyzetek létrehozása a Word 2013-ban. Részletes útmutató, hogyan készíthet különféle stílusú jegyzeteket bibliográfiai információkhoz vagy magyarázó megjegyzésekhez.

Hogyan lehet kiemelni a statisztikailag kiugró értékeket az Excelben

Hogyan lehet kiemelni a statisztikailag kiugró értékeket az Excelben

Tudjon meg mindent arról, hogyan lehet az Excelben kiemelni a statisztikailag kiugró értékeket, mégpedig egyszerű eszközökkel és módszerekkel. Kiemelt figyelmet fordítunk a kiugró értékek azonosítására és kezelésére.

Hogyan lehet mintát venni az adatokból Excelben

Hogyan lehet mintát venni az adatokból Excelben

Az Excel Mintavételi eszközével véletlenszerűen kiválaszthat elemeket egy adatkészletből vagy választhat minden n-edik elemet. Ismerje meg, hogyan használhatja ezt a hasznos funkciót az adatelemzéshez!

10 klassz trükk a Microsoft Word 2019 programmal

10 klassz trükk a Microsoft Word 2019 programmal

Fedezze fel a Microsoft Word 2019 legjobb trükkjeit, amelyek segítenek a hatékonyabb munkavégzésben. Tudd meg, hogyan használhatod ki a program funkcióit!

Bekezdések igazítása és behúzása a Word 2019-ben

Bekezdések igazítása és behúzása a Word 2019-ben

A Word 2019-ben a bekezdések igazítása és behúzása kulcsfontosságú a dokumentumok megfelelő megjelenítéséhez. Ismerje meg a formázási lehetőségeket és tippeket a hatékonyabb munkához.

Az Excel 2019 Solver használata

Az Excel 2019 Solver használata

Fedezze fel, hogyan használhatja az Excel 2019 Solver bővítményt a komplex problémák megoldására. A célcella, változócellák és kényszerek beállítása lépésről lépésre.

Dinamikus elemek hozzáadásához használja a Word 2019 mezőit

Dinamikus elemek hozzáadásához használja a Word 2019 mezőit

A Word lehetővé teszi dinamikus elemek hozzáadását a dokumentumhoz. Fedezze fel, hogyan lehet különböző mezőket használni a Word programban a dinamikus tartalom létrehozásához.

Oszloptípusok a SharePoint 2010-ben

Oszloptípusok a SharePoint 2010-ben

A SharePoint 2010 oszlopai az adatok tárolására szolgálnak. Fedezze fel a különböző oszlop típusokat és azok alkalmazását a SharePoint rendszeren belül.

A nem kívánt szöveg eltávolítása a Word 2013-ban

A nem kívánt szöveg eltávolítása a Word 2013-ban

A Word 2013 szövegtörlésének képessége kulcsfontosságú, legyen szó szövegalkotásról vagy törlésről. Ismerje meg a hatékony szövegtörlési módszereket!

Hogyan készítsünk fotóalbumot a PowerPoint 2016-ban

Hogyan készítsünk fotóalbumot a PowerPoint 2016-ban

A fotóalbum funkció a PowerPoint 2016-ban lehetővé teszi, hogy egyszerre több fényképet illesszen be egy prezentációba, megkönnyítve ezzel a többszörös képek kezelését.