Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako vedno plavate gumb za urejanje v delovnem listu v Excelu?

V nekaterih primerih boste morda potrebovali plavajoči gumb za urejanje, da se boste premikali s svojim delovnim listom ne glede na to, kako se pomikate navzgor ali navzdol na delovnem listu. Ta članek vam bo pokazal način, kako ga doseči.

Vedno plavate gumb za ukaz na delovnem listu s kodo VBA


puščica modra desno mehurček Vedno plavate gumb za ukaz na delovnem listu s kodo VBA


Prosimo, naredite, kot sledi, da gumb za ukaze vedno plava na delovnem listu.

1. Na delovnem listu, ki vsebuje gumb za ukaz, želite, da se plava, z desno miškino tipko kliknite zavihek stanja in nato kliknite Ogled kode iz kontekstnega menija.

2. Pri pojavu Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo VBA v okno Code.

VBA koda: naredite gumb za ukaze vedno plavajoče v delovnem listu

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

Opombe: v kodi abovde je CommandButton1 ime gumba, ki ga želite vedno ohraniti vidno. Prosimo, spremenite to glede na vaše potrebe.

3. Nato pritisnite druga + Q tipke za izhod iz Microsoft Visual Basic za aplikacije okno.

Od zdaj naprej bo gumb za ukaze vedno plaval v zgornjem središču delovnega lista s premikanjem aktivne kliknjene celice kot pod prikazom slike.


puščica modra desno mehurčekSorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    SWARNABH · 8 months ago
    Thanks a lot ... It worked...
  • To post as a guest, your comment is unpublished.
    Bart Lefevere · 1 years ago
    Works fine for me. Thx
  • To post as a guest, your comment is unpublished.
    Abdulrahman · 1 years ago
    Thanks its good with cellselecting
  • To post as a guest, your comment is unpublished.
    Coop · 1 years ago
    Not good QA - check your name on the button. If this is what gets published for the Web community to see, what goes in behind the scenes with the code? :-)
  • To post as a guest, your comment is unpublished.
    Rohit · 2 years ago
    I was looking for the Command / Option that when i scroll down the Page the selected Text should be float along with it... How can do that ...
    Thank you : Indian Booklet
    • To post as a guest, your comment is unpublished.
      Qasim · 1 months ago
      Make a TextBox and then move it when selecting change


      Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
      TextBox1.Text = ActiveCell.Value
      With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn)
      TextBox1.Top = .Top + 100
      TextBox1.Left = .Left + 300
      End With
      End Sub