A VBA -ban létrehozhat egy Centrifuga gomb amely lehetővé teszi a felhasználó számára, hogy egy meghatározott tartományban növelje a cella számát. Minden alkalommal, amikor a felhasználó rákattint egy gombra, a szám növekszik vagy csökken. Ebben az oktatóanyagban megtanulhatja, hogyan hozhat létre centrifugálás gombot, és hogyan használhatja azt az Excelben és a VBA -ban.
Ha meg szeretné tanulni az Option gomb használatát, kattintson erre a linkre: Opció gomb Excel VBA
Hozzon létre egy centrifugáló gombot
Annak érdekében, hogy beilleszthessen egy centrifugálás gombot a munkalapba, menjen a Fejlesztői lap, kattintson Beszúrás és az ActiveX vezérlők alatt válassza a lehetőséget Pörgetés gomb:
Kép 1. Helyezzen be egy centrifugálás gombot a munkalapba
Amikor kiválasztja a behelyezett centrifugálás gombot, rákattinthat Tulajdonságok alatt Fejlesztői lap:
2. kép. A centrifugálás gomb tulajdonságainak módosítása
Itt állíthatja be a centrifugálás gomb különböző tulajdonságait. Kezdetben megváltoztattuk az attribútumot Név nak nek spbSpinButton. Most használhatjuk a centrifugálás gombot ezzel a névvel a VBA kódban. További fontos tulajdonságok Min és Max, amelyek számtartományt és Kis változás amely meghatározza a növekmény lépését.
Állítsa be a centrifugálás gombot a VBA segítségével
Először megnézzük, hogyan lehet beállítani a centrifugálás gomb tulajdonságait a VBA -ban, és hogyan kaphat értéket a munkalapon. A kódnak eseményben kell lennie változás a tárgyról spbSpinButton. Az eseménybe úgy léphet be, hogy a jobb egérgombbal kattint a Pörgetés gombra, és kiválasztja Kód megtekintése választási lehetőség. Itt a kód:
| 1234567891011 | Private Sub spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueEnd Sub |
Először a számtartomány alsó határát állítjuk be:
| 1 | Sheet1.spbSpinButton.Min = 100 |
Ezt követően beállítjuk a számtartomány felső határát:
| 1 | Sheet1.spbSpinButton.Max = 200 |
Be kell állítanunk a számnövelés lépését is:
| 1 | Sheet1.spbSpinButton.SmallChange = 10 |
Végül hozzárendeljük a Spin gomb aktuális értékét a B2 cellához. Ez az érték a Érték az objektum attribútuma Sheet1.spbSpinButton:
| 1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Most, amikor a Pörgetés gombra kattintunk, az érték 10-gyel nő vagy csökken a 100-200 tartományban:
3. kép. VBA Spin gombjával növelje a számot
Állítsa be a centrifugálás gombot az Excelben
A Pörgetés gomb beállításának másik módja a Tulajdonságok használata. Kattintson Tulajdonságok alatt Fejlesztői lap:
4. kép. Állítsa be a centrifugálás gombot az Excelben
Itt állíthatjuk be az összes kívánt attribútumot: Min 10, Max 100 és Kis változás 2. Ha a Pörgetés gomb eredményét a B2 cellába szeretné helyezni, akkor ezt a cellát az attribútumba kell helyeznie LinkedCell.
