Ինչպե՞ս որոշակի տող տեղափոխել նոր թերթիկի մեջ, երբ վանդակը ստուգվում է 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- ում բջջային արժեքի հիման վրա ամբողջ շարքը տեղափոխել ակտիվ թերթի ներքև:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
