Note: The other languages of the website are Google-translated. Back to English

Hoe kan ik altijd een opdrachtknop op een werkblad in Excel laten zweven?

In sommige gevallen hebt u mogelijk een zwevende opdrachtknop (ActiveX-besturingselementen) nodig om met uw werkblad te blijven bewegen, ongeacht hoe u omhoog of omlaag scrolt in het werkblad. Dit artikel laat je de methode zien om dit te bereiken.

Altijd een opdrachtknop op het werkblad laten zweven met VBA-code


Altijd een opdrachtknop op het werkblad laten zweven met VBA-code


Ga als volgt te werk om een ​​opdrachtknop altijd in het werkblad te laten zweven.

1. Klik met de rechtermuisknop op de bladtab in het werkblad met de opdrachtknop van ActiveX-besturingselementen en klik vervolgens op Bekijk code vanuit het contextmenu.

2. In het opduiken Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de onderstaande VBA-code in het codevenster.

VBA-code: maak een opdrachtknop altijd zwevend in het werkblad

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
        On Error GoTo 0
        With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn)
            CommandButton1.Top = .Top + 100
            CommandButton1.Left = .Left + 300
        End With
End Sub

Opmerking:: in de bovenstaande code is CommandButton1 de knopnaam die u altijd zichtbaar wilt houden. Wijzig het naar uw behoefte.

3. Druk vervolgens op anders + Q toetsen om het Microsoft Visual Basic voor toepassingen venster.

Vanaf nu zweeft de Command-knop altijd boven in het midden van het werkblad met het verplaatsen van de actieve aangeklikte cel zoals hieronder getoond.

Opmerking:: Deze VBA werkt alleen voor de ActiveX Controld Command-knoppen.


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (15)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Ik was op zoek naar de opdracht / optie dat wanneer ik naar beneden scrol op de pagina, de geselecteerde tekst mee moet zweven ... Hoe kan dat ... Dank u: Indiaas boekje
Deze opmerking is gemaakt door de moderator op de site
Maak een tekstvak en verplaats het vervolgens bij het selecteren van wijzigen


Private Sub Worksheet_SelectionChange (ByVal Target As Excel.Range)
TextBox1.Text = ActiveCell.Value
Met cellen (Windows(1).ScrollRow, Windows(1).ScrollColumn)
TextBox1.Top = .Top + 100
TextBox1.Links = .Links + 300
Eindigt met
End Sub
Deze opmerking is gemaakt door de moderator op de site
Geen goede QA - controleer je naam op de knop. Als dit is wat voor de webgemeenschap wordt gepubliceerd, wat gebeurt er dan achter de schermen met de code? :-)
Deze opmerking is gemaakt door de moderator op de site
Bedankt, het is goed met celselectie
Deze opmerking is gemaakt door de moderator op de site
Werkt prima voor mij. Bedankt
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt... Het is gelukt...
Deze opmerking is gemaakt door de moderator op de site
werkt niet
Deze opmerking is gemaakt door de moderator op de site
zie het, werkt niet, ik scrol naar beneden en ook de opdrachtknop naar beneden, ik wil de bovenkant van de rechterkant van het blad repareren.
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Wanneer u door het werkblad bladert, klikt u op om de actieve cel te wijzigen in het zichtbare gebied om het te laten werken. Bedankt voor je reactie.
Deze opmerking is gemaakt door de moderator op de site
Werkt niet :-(
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Wanneer u door het werkblad bladert, klikt u op om de actieve cel te wijzigen in het zichtbare gebied om het te laten werken. Bedankt voor je reactie.
Deze opmerking is gemaakt door de moderator op de site
Ik denk dat het moet specificeren dat de knop een ActiveX-knop moet zijn om de code te laten werken. ^.^'
Deze opmerking is gemaakt door de moderator op de site
Ik denk dat het moet specificeren dat de knop een ActiveX-knop moet zijn om de code te laten werken. ^.^'
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Bedankt voor uw herinnering.
Deze opmerking is gemaakt door de moderator op de site
het werkt prima in de ene werkmap, nu heb ik geprobeerd hetzelfde te doen in een andere werkmap en kreeg ik een compileerfout vanwege de selectiewijziging. ik ben vrij nieuw in vba - misschien is het omdat ik al een privé sub worksheet_selectionchange heb? weet jij hoe ik dit kan oplossen? 
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties