VBA varat izveidot a Griešanas poga kas ļauj lietotājam palielināt skaitli šūnā noteiktā diapazonā. Katru reizi, kad lietotājs noklikšķina uz pogas, to skaits palielinās vai samazinās. Šajā apmācībā jūs uzzināsit, kā izveidot pogu Spin un izmantot to programmā Excel un VBA.
Ja vēlaties uzzināt, kā izmantot opciju pogu, noklikšķiniet uz šīs saites: Opcijas poga Excel VBA
Izveidojiet griešanās pogu
Lai darblapā ievietotu griešanās pogu, jums jādodas uz Cilne Izstrādātājs, klikšķis Ievietot un sadaļā ActiveX vadīklas izvēlieties Griešanas poga:
Attēls 1. Darblapā ievietojiet griešanās pogu
Atlasot ievietošanas pogu Griešana, varat noklikšķināt uz Rekvizīti saskaņā Cilne Izstrādātājs:
2. attēls. Mainīt griešanās pogas rekvizītus
Šeit jūs varat iestatīt dažādus griešanās pogas rekvizītus. Sākumā mēs mainījām atribūtu Vārds uz spbSpinButton. Tagad mēs varam izmantot pogu Griezt ar šo nosaukumu VBA kodā. Citas svarīgas īpašības ir Min un Maks, kas definē skaitļu diapazonu un Nelielas izmaiņas kas nosaka pieauguma soli.
Iestatiet izgriešanas pogu, izmantojot VBA
Vispirms redzēsim, kā VBA iestatīt griešanās pogas rekvizītus un iegūt vērtību darblapā. Kodam ir jābūt notikumam Mainīt no objekta spbSpinButton. Jūs varat ievadīt šo notikumu, ar peles labo pogu noklikšķinot uz griešanās pogas un izvēloties Skatīt kodu iespēja. Šeit ir kods:
1234567891011 | Privāts apakšnodaļa spbSpinButton_Change ()Sheet1.spbSpinButton.Min = 100Sheet1.spbSpinButton.Max = 200Sheet1.spbSpinButton.SmallChange = 10Sheet1.Range ("B2") = Sheet1.spbSpinButton.ValueBeigu apakš |
Pirmkārt, mēs iestatām skaitļu diapazona apakšējo robežu:
1 | Sheet1.spbSpinButton.Min = 100 |
Pēc tam mēs iestatām skaitļu diapazona augšējo robežu:
1 | Sheet1.spbSpinButton.Max = 200 |
Mums arī jānosaka skaitļa palielināšanas solis:
1 | Sheet1.spbSpinButton.SmallChange = 10 |
Visbeidzot, mēs piešķiram pogu Spin pašreizējo vērtību šūnai B2. Šī vērtība ir Vērtība objekta atribūts Sheet1.spbSpinButton:
1 | Sheet1.Range ("B2") = Sheet1.spbSpinButton.Value |
Tagad, kad mēs noklikšķinām uz griešanās pogas, vērtība palielināsies vai samazināsies par 10 diapazonā no 100 līdz 200:
Attēls 3. Palieliniet skaitli, izmantojot VBA pogu Spin
Iestatiet griešanās pogu programmā Excel
Vēl viens veids, kā iestatīt griešanās pogu, ir Rekvizīti. Klikšķiniet uz Rekvizīti saskaņā Cilne Izstrādātājs:
Attēls 4. Programmā Excel iestatiet griešanās pogu
Šeit mēs varam iestatīt visus vēlamos atribūtus: Min ir 10, Maks ir 100 un Nelielas izmaiņas ir 2. Ja vēlaties ievietot pogas Spin rezultātu šūnā B2, šī šūna ir jāievieto atribūtā LinkedCell.