Ik vraag me vaak af waarom er geen voorziening is om de maximale waarde van een schuifbalk in Excel aan te passen op basis van een celwaarde. Als dit beschikbaar was geweest, zou een schuifbalk automatisch de maximale waarde aanpassen wanneer de celwaarde verandert.
Iets, zoals hieronder weergegeven, zou dan mogelijk zijn geweest:
Tot het moment dat het niet beschikbaar wordt gesteld door het Microsoft Office-team, kan deze tip je helpen de maximale waarde voor een schuifbalk aan een cel te koppelen.
Maximale waarde schuifbalk aanpassen in Excel
- Ga naar het tabblad Ontwikkelaar -> Invoegen -> ActiveX-besturingselementen -> Schuifbalk (ActiveX-besturingselement)
- Heb je geen tabblad voor ontwikkelaars?? Lees hier hoe u het ontwikkelaarstabblad aan het lint toevoegt.
- Klik op Overal in uw werkblad om de schuifbalk in te voegen.
- Klik met de rechtermuisknop op de schuifbalk en selecteer Eigenschappen.
- Stel de gekoppelde cel in als C10 en sluit het eigenschappenvenster.
- In dit voorbeeld heb ik C10 gebruikt. U kunt een andere cel hebben waar u de maximale waarde hebt.
- Dubbelklik op de schuifbalk. Het opent de VBA-editor met een code die er als volgt uitziet:
Private Sub ScrollBar1_Change() End Sub
- Voeg een regel toe zodat uw code er als volgt uitziet:
Private Sub ScrollBar1_Change() Activesheet.Scrollbar1.Max = Range("C7").Value End Sub
- Sluit het VBA-editorvenster.
- Ga naar het tabblad Ontwikkelaar en klik met de linkermuisknop op de knop Ontwerpmodus.
- Dat is het!! Je schuifbalk is helemaal klaar om te worden gebruikt.
Merk op dat aangezien het bestand een macro heeft, u het bestand in een van beide moet opslaan.xls of .xlsm formaat.
Als u klaar bent met het instellen hiervan, en INDIEN de schuifbalk werkt niet, volg deze stappen:
- Ga naar het tabblad Ontwikkelaars en klik op Ontwerpmodus.
- Dubbelklik op de schuifbalk.
- Druk in de VBA-editor op F5 of klik op de knop Sub-/gebruikersformulier uitvoeren.
- Sluit de VBA-editor.
Probeer het zelf… Download het bestand
