Ինչպե՞ս որոշակի տող տեղափոխել նոր թերթիկի մեջ, երբ վանդակը ստուգվում է Excel- ում:

Այս հոդվածում խոսվում է այն մասին, որ որոշակի տողը նոր թերթ տեղափոխվի, երբ վանդակը ստուգվում է Excel- ում:

Տեղափոխել տողը, երբ վանդակը ստուգված է VBA կոդով

Տեղափոխել տողը, երբ վանդակը ստուգված է VBA կոդով

Excel- ում վանդակը ստուգելիս որոշակի տող տեղափոխեք նշված աշխատաթերթը կատարեք հետևյալ կերպ.

1. Անցեք աշխատանքային թերթին, որը անհրաժեշտ է տողը տեղափոխել վանդակի հիման վրա, կտտացրեք Երեվակիչ > Տեղադրել > Նշման տուփ (ActiveX հսկողություն) վանդակը տեղադրելու համար: Տեսեք,

2. Աջ կտտացրեք թերթիկի ներդիրին և այնուհետև կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից: Տեսեք,

3. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և տեղադրեք ներքևում գտնվող VBA կոդի ծածկագիր կոդի պատուհանում:

VBA կոդ. Ստուգման վանդակը ստուգելիս շարքը տեղափոխել նշված աշխատանքային թերթիկ

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

ՆշումԿոդում, Shee3- ը և A1- ը նշում են, որ նշված տողը կտեղափոխվի Sheet3- ի առաջին շարքը: Խնդրում ենք փոխել դրանք ՝ ելնելով ձեր կարիքներից:

4. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

5. Անջատեք Դիզայնի ռեժիմը `կտտացնելով այն Դիզայնի ռեժիմ կոճակը Երեվակիչ էջանիշը.

6. Ստուգեք վանդակը, ապա ա Excel- ի համար նախատեսված գործիքներ երկխոսության պատուհանը բացվում է, ընտրեք տողի առաջին բջիջը （կամ ամբողջ շարքը） անհրաժեշտ է տեղափոխել և կտտացնել OK կոճակ Այնուհետեւ նշված ամբողջ շարքը անմիջապես կտեղափոխվի որոշակի աշխատանքային թերթ: Տեսեք,

Առնչվող հոդվածներ քանակը:

• Ինչպե՞ս ամբողջ շարքը տեղափոխել մեկ այլ թերթ `հիմնված բջջային արժեքի վրա Excel- ում:
• Ինչպե՞ս Excel- ում բջջային արժեքի հիման վրա ամբողջ շարքը տեղափոխել ակտիվ թերթի ներքև: