Kako premakniti določeno vrstico na nov list, ko je v Excelu označeno potrditveno polje?
Ta članek govori o premikanju določene vrstice v nov list, ko je v Excelu označeno potrditveno polje.
Premakni vrstico, ko je potrditveno polje označeno s kodo VBA
Premakni vrstico, ko je potrditveno polje označeno s kodo VBA
Ko potrdite polje v Excelu, premaknite določeno vrstico na določen delovni list.
1. Premaknite se na delovni list, ki ga želite premakniti, glede na potrditveno polje, kliknite Razvojni > Vstavi > Potrditveno polje (nadzor ActiveX) da vstavite potrditveno polje. Oglejte si posnetek zaslona:
2. Z desno miškino tipko kliknite jeziček lista in nato kliknite Ogled kode v meniju z desnim klikom. Oglejte si posnetek zaslona:
3. Na odprtju Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo VBA v okno Code.
Koda VBA: Ko potrdite polje, premaknite vrstico na določen delovni list
Private Sub CheckBox1_Click()
Dim xRg As Range
Dim xAddress As String
On Error Resume Next
If CheckBox1.value Then
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range row you will move(single cell):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRg = xRg(1).EntireRow
xRg.Copy
ActiveWorkbook.Sheets("Sheet3").Range("A1").PasteSpecial xlPasteAllUsingSourceTheme
xRg.Clear
Application.CutCopyMode = False
End If
End Sub
Opombe: V kodi Shee3 in A1 označujeta, da bo navedena vrstica premaknjena v prvo vrstico v Sheet3. Prosimo, spremenite jih glede na vaše potrebe.
4. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.
5. Izklopite način oblikovanja s klikom na Način oblikovanja gumb na Razvojni tab.
6. Potrdite polje, nato a Kutools za Excel odpre se pogovorno okno, izberite prvo celico vrstice (ali celo vrstico), ki jo želite premakniti, in kliknite OK . Nato bo določena celotna vrstica takoj premaknjena na določen delovni list. Oglejte si posnetek zaslona:
Sorodni članki:
- Kako premakniti celo vrstico na drug list na podlagi vrednosti celice v Excelu?
- Kako premakniti celo vrstico na dno aktivnega lista na podlagi vrednosti celice v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!