Cuprins
Mă întreb adesea de ce nu există nicio prevedere pentru a regla valoarea maximă a unei bare de defilare în Excel pe baza unei valori de celulă. Dacă acest lucru ar fi disponibil, o bară de defilare și-ar regla automat valoarea maximă atunci când valoarea celulei se schimbă.
Ceva, așa cum se arată mai jos, ar fi putut fi posibil:
Până în momentul în care nu este pus la dispoziție de echipa Microsoft Office, acest sfat vă poate ajuta să legați valoarea maximă pentru o bară de derulare la o celulă.
Ajustați valoarea maximă a barei de derulare în Excel
- Accesați fila Dezvoltator -> Inserați -> Controale ActiveX -> Bara de derulare (Control ActiveX)
- Nu aveți fila dezvoltator ?? Citiți aici despre cum să adăugați fila dezvoltator la panglică.
- Faceți clic pe Oriunde în foaia de lucru pentru a insera bara de derulare.
- Faceți clic dreapta pe bara de derulare și selectați Proprietăți.
- Setați celula conectată ca C10 și închideți caseta de proprietăți.
- Am folosit C10 în acest exemplu. Puteți avea o celulă diferită în care aveți valoarea maximă.
- Faceți dublu clic pe bara de derulare. Se va deschide Editorul VBA cu un cod care arată astfel:
Private Sub ScrollBar1_Change () End Sub
- Adăugați o linie, astfel încât codul dvs. să arate astfel:
Private Sub ScrollBar1_Change () Activesheet.Scrollbar1.Max = Range ("C7"). Value End Sub
- Închideți fereastra Editorului VBA.
- Accesați fila Dezvoltator și faceți clic stânga pe butonul Mod de proiectare.
- Asta e!! Bara de defilare este setată pentru a fi utilizată.
Rețineți că, deoarece fișierul are o macro, trebuie să salvați fișierul în oricare dintre ele.xls sau.xlsm format.
Odată ce ați terminat configurarea, și DACĂ bara de derulare nu funcționează, urmați acești pași:
- Accesați fila Dezvoltator, faceți clic pe Mod de proiectare.
- Faceți dublu clic pe bara de derulare.
- În Editorul VBA, apăsați F5 sau faceți clic pe butonul Executare formular Sub / Utilizator.
- Închideți editorul VBA.
Încercați singur … Descărcați fișierul