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

Ինչպե՞ս ստեղծել հրամանի կոճակ Excel- ում տվյալները պատճենելու և տեղադրելու համար:

Ենթադրելով, որ տվյալները փոխելուց հետո ձեզ հարկավոր է հաճախակիորեն պատճենել մի շարք բջիջներ այլ վայրում, ձեռքով պատճենման և տեղադրման եղանակը կլինի խառնաշփոթ և ժամանակատար: Ինչպե՞ս անել, որ այս պատճենահանման գործն ինքնաբերաբար գործարկվի: Այս հոդվածը ձեզ ցույց կտա, թե ինչպես օգտագործել հրամանի կոճակը միայն մեկ հպումով տվյալների պատճենման և տեղադրման համար:

Ստեղծեք հրամանի կոճակ VBA կոդով տվյալները պատճենելու և տեղադրելու համար


Ստեղծեք հրամանի կոճակ VBA կոդով տվյալները պատճենելու և տեղադրելու համար

Հրամանի կոճակը սեղմելիս տվյալների ավտոմատ պատճենման և տեղադրման համար արեք հետևյալը.

1. Տեղադրեք հրամանի կոճակ ՝ կտտացնելով Երեվակիչ > Տեղադրել > Հրամանի կոճակ (ActiveX կառավարման), Տեսեք,

2. Նկարեք հրամանի կոճակը ձեր աշխատաթերթում և աջ կտտացրեք այն: Ընտրեք Դիտել կոդը համատեքստի ընտրացանկից:

3. Պատուհանման մեջ Microsoft Visual Basic հավելվածների համար պատուհան, խնդրում ենք փոխարինել բնօրինակը ծածկագիրը Code պատուհանում ստորև ներկայացված VBA կոդով:

VBA կոդ. Excel- ում տվյալների պատճենման և տեղադրման համար օգտագործեք Հրամանի կոճակը

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("A1:C17 ").Copy
            xSheet.Range("J1:L17").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

Նշում: Կոդում CommandButton1- ը ձեր տեղադրված հրամանի կոճակի անունն է: A1: C17- ը այն տարածքն է, որը դուք պետք է պատճենեք, և J1: L17- ը `տվյալները տեղադրելու նպատակակետի տիրույթ: Խնդրում ենք փոխել դրանք, ինչպես ձեզ հարկավոր է:

4. Մամուլ ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան Եվ անջատեք Դիզայնի ռեժիմը erրագրավորող ներդիրի տակ:

5. Այժմ կտտացրեք Հրահանգի կոճակին, A1: C17 տիրույթի բոլոր տվյալները պատճենվելու և տեղադրվելու են J1: L17 տիրույթում ՝ առանց բջիջի ձևավորման:


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


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (60)
Գնահատված 4.5- ը 5- ից դուրս է · 1 վարկանիշ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործել եմ այս ֆունկցիան իմ աշխատանքային գրքում: Ես օգտագործում եմ ակտիվ x կոճակներ՝ նույն թերթիկի մեջ մի քանի թերթերի վրա տվյալները պատճենելու և տեղադրելու համար: Այնուամենայնիվ, կան թերթեր առանց ակտիվ x կոճակների կամ մակրոների, որոնք ստանում են կպցված տվյալներ թերթի համապատասխան դաշտերից, որոնք ես չեմ ուզում: Օգնություն?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եմ ունենալ կոդը, որը պատճենելու է I4:L26 միջակայքը Sheet2-ից (կոչվում է TransferSheet) (կոճակը կլինի այս թերթի վրա) Sheet1 (կոչվում է JobsToDo) C տողում (1-ին տող, որը դատարկ է, քանի որ դրանում անընդհատ տվյալներ են ավելացվում, խնդրում ենք:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եք փոխել կոդը՝ արդյունքները աշխատանքային գրքում մեկ այլ էջում տեղադրելու համար: և ինչպես եք ստանում ներդիրի տողը նոր տվյալները դնելուց առաջ, որպեսզի այն չվերագրվի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն asonեյսոն,
Եթե ​​ցանկանում եք արդյունքները տեղադրել աշխատանքային գրքում մեկ այլ աշխատաթերթում, խնդրում ենք փորձել ստորև ներկայացված VBA կոդը:

Մասնավոր ենթահրամանի կոճակ1_Click()
Dim xSheet, xDWS As Worksheet
Dim xFNum-ը որպես ամբողջ թիվ
Dim xSRg որպես միջակայք

Ս.թ. սխալի Ռեզյումե Next
Սահմանել xSRg = Application.InputBox («Խնդրում ենք ընտրել բջիջը` միջակայքը տեղադրելու համար.», «Kutools for Excel», xTxt, , , , , 8)
Եթե ​​xSRg-ը ոչինչ չէ, ապա դուրս եկեք Sub-ից

Դիմում. ScreenUpdating = Սուտ է
Տարածք ("A1:C17"): Պատճենել
xSRg.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Դիմում. ScreenUpdating = ueիշտ է

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ինչպես է մեզ համար ֆայլերը պատճենելու բանաձևը
այնուհետև տեղադրեք այն հաջորդ թերթիկի վրա: և կպցրեք հաջորդը, բաց թողեք կամ շարունակեք իջնել առանց նախորդ մածուկը ջնջելու:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Ստորև բերված VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը: Խնդրում ենք փորձել: Շնորհակալություն.

Մասնավոր ենթահրամանի կոճակ1_Click()
Dim xSheet, xDWS As Worksheet
Dim xFNum-ը որպես ամբողջ թիվ
Dim xSRg որպես միջակայք

Ս.թ. սխալի Ռեզյումե Next
Սահմանել xSRg = Application.InputBox («Խնդրում ենք ընտրել բջիջը` միջակայքը տեղադրելու համար.», «Kutools for Excel», xTxt, , , , , 8)
Եթե ​​xSRg-ը ոչինչ չէ, ապա դուրս եկեք Sub-ից

Դիմում. ScreenUpdating = Սուտ է
Տարածք ("A1:C17"): Պատճենել
xSRg.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Դիմում. ScreenUpdating = ueիշտ է

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Իսկ եթե ես կցանկանայի մածուկի հերթ ստեղծել:
Ավելի մանրամասն բացատրելու համար. Ես սեղմում եմ CommandButton1, այնուհետև այն պատճենում եմ A1-ը: Երբ ես օգտագործել եմ paste, պատճենը A1-ից - Հետո ես ուզում եմ պատճենել A2-ը առանց մեկ այլ կոճակ սեղմելու, որպեսզի կարողանամ անմիջապես տեղադրել A2-ը, այլ տեղ: Այնուհետև, երբ ես օգտագործեցի մածուկը, պատճենը A2-ից, այնուհետև պատճենեք A3-ը: Եթե ​​դա հնարավոր է. Կարո՞ղ է սա նաև աշխատել հետին պլանում, երբ օգտագործում եք սովորական Excel թերթ, և փորձեք անել այս գործողությունը, որտեղ ես պատճենում եմ Excel-ից, այնուհետև տեղադրում եմ բոլորովին այլ ծրագրում, ինչպիսիք են ինտերնետ բրաուզերը, մեկ այլ ծրագիր, word, txt ֆայլ և այլն: ?

Այս հոդվածը, այնուամենայնիվ, չափազանց օգտակար էր, շատ շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Մագնուս,
Կներեք, չեմ կարող օգնել ձեզ այդ հարցում: Շնորհակալություն ձեր մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես կցանկանայի ընդլայնել այս մեկ քայլը... Փաստացի արժեքները տեղադրելուց հետո, ոչ թե բանաձևերը... Ես պետք է պատճենեմ նոր բջիջը և տեղադրեմ մեկ այլ ծրագրում, որը excel չէ, պարզապես պետք է սեղմել կոճակը պատճենել բանաձևը a-ից: կոնկրետ բջիջ և անցեք իրական արժեքը մեկ այլ բջիջում, այնուհետև պատճենեք այդ նոր արժեքը windows-ի սեղմատախտակում և անցեք մեկ այլ հավելվածում: Հուսով եմ, որ սա իմաստալից է և գնահատում եմ ձեր օգնությունը՝ իմանալու, թե ինչպես ավելացնել նոր կոդը... Ես գիտեմ, թե ինչ եմ ուզում անել, պարզապես ծանոթ չեմ, թե ինչպես կոդավորել այն...
Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Կոդը թարմացվել է հոդվածում, խնդրում ենք փորձել։ Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է հրամանի կոճակը ակնթարթորեն տեղադրի ընտրված տիրույթը նշված թերթիկի վրա (հաջորդ դատարկ բջիջում), այլ ոչ թե ամեն անգամ մուտքագրել, թե որտեղ եք ցանկանում տեղադրել տվյալները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi Adam,
Ստորև բերված VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը:
Դուք պետք է կոդի մեջ «Sheet4» և «A1:C17» տառերը փոխարինեք ձեր նշված թերթիկով և տիրույթով:

Մասնավոր ենթահրամանի կոճակ1_Click()
Dim xSWName-ը որպես տող
Dim xSheet As Worksheet-ը
Dim xPSheet որպես աշխատանքային թերթիկ
Dim xIntR որպես ամբողջ թիվ
xSWName = «Թերթ4»
Ս.թ. սխալի Ռեզյումե Next
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xSheet = ActiveSheet
Եթե ​​xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Ապա
xSheet.Range("A1:C17").Պատճենել
Սահմանել xPSheet = Worksheets.Item (xSWName)
xIntR = xPSheet.UsedRange.Rows.count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Վերջ: Եթե
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շատ լավ է, ես պետք է շատ անգամ պատճենեմ և տեղադրեմ, հնարավո՞ր է ընտրություն կատարել տվյալների շարքը տեղադրել 3 տողերի կամ 5 տողերի վրա, ինչն ինձ դուր է գալիս:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներեք, չեմ կարող օգնել ձեզ այդ հարցում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
պարոն, ինչպե՞ս պատճենել բջիջի միջակայքը ընթացիկ աշխատաթերթում, ապա տեղադրել մեկ այլ աշխատաթերթում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Ստորև բերված VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը:
Դուք պետք է կոդի մեջ «Sheet4» և «A1:C17» տառերը փոխարինեք ձեր նշված թերթիկով և տիրույթով:

Մասնավոր ենթահրամանի կոճակ1_Click()
Dim xSWName-ը որպես տող
Dim xSheet As Worksheet-ը
Dim xPSheet որպես աշխատանքային թերթիկ
Dim xIntR որպես ամբողջ թիվ
xSWName = «Թերթ4»
Ս.թ. սխալի Ռեզյումե Next
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xSheet = ActiveSheet
Եթե ​​xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Ապա
xSheet.Range("A1:C17").Պատճենել
Սահմանել xPSheet = Worksheets.Item (xSWName)
xIntR = xPSheet.UsedRange.Rows.count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Վերջ: Եթե
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​ես ուզում եմ պատճենել սա ոչ թե ընթացիկ աշխատանքային գրքում, այլ մեկ այլ աշխատանքային գրքում (որը դեռ բացված չէ) excel-ում: Ինչպե՞ս կարող եմ համապատասխանաբար փոխել այս VBA կոդը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ռոբերթ,
Կներեք, չեմ կարող օգնել ձեզ այդ հարցում: Շնորհակալություն մեկնաբանելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ qusrion, ես ունեմ թերթ 1՝ b3:b33 ամսաթվի սյունակով և ուզում եմ, որ այն պատճենվի թերթի 2 B33:b63 տեքստի վրա, բայց ինձ անհրաժեշտ է նույն ձևաչափը տեքստի համար, այսինքն՝ գույնի չափը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև հեղինակ

Ձեր վերը նշված հոդվածը շատ օգտակար է ինձ համար: Ես սովոր չեմ էքսել կոդին և հրամանին։ Ես դեռ պետք է իմանամ, քան այս հոդվածը: Ես լավ եմ պատճենել և տեղադրել հաջորդ թերթում: Բայց ես դեռ պետք է իմանամ, թե «ինչպես կպցնել և ավելացնել հաջորդ թերթի նոր տողում ամեն անգամ, երբ սեղմում եմ կոճակը»: Հակառակ դեպքում, հաջորդ թերթիկի իմ տվյալները ամեն անգամ կփոխարինվեն: Ես իսկապես շնորհակալ կլինեմ և անհամբեր կսպասեմ ձեր պատասխանին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Քյաու Յե Մին,
Կներեք այդքան ուշ պատասխանելու համար։ Հետևեք քայլերին և փոխարինեք կոդը ստորև նշվածով: Կոդում Sheet4-ը նպատակակետ աշխատաթերթն է, որտեղ դուք պատճենելու եք տվյալները, խնդրում ենք փոխել այն և պատճենված A1:C17 միջակայքը, ինչպես ձեզ անհրաժեշտ է: Շնորհակալություն ձեր մեկնաբանության համար:

Մասնավոր ենթահրամանի կոճակ1_Click()
Dim xSWName-ը որպես տող
Dim xSheet As Worksheet-ը
Dim xPSheet որպես աշխատանքային թերթիկ
Dim xIntR որպես ամբողջ թիվ
xSWName = «Թերթ4»
Ս.թ. սխալի Ռեզյումե Next
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xSheet = ActiveSheet
Եթե ​​xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Ապա
xSheet.Range("A1:C17").Պատճենել
Սահմանել xPSheet = Worksheets.Item (xSWName)
xIntR = xPSheet.UsedRange.Rows.Count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Վերջ: Եթե
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ձեզ խնդրում եմ օգնեք: Ես պահանջում եմ նույնը, ինչ վերևում, բայց ես պարզապես պետք է տեղադրեմ այն, ինչ ակտիվ բջիջը գտնվում է նոր տողում (եթե հնարավոր է նախորդ գրառումներից վեր) մեկ այլ աշխատաթերթում: Իսկապես գնահատում եմ այս հարցում ցանկացած օգնություն: Հարգանքներով
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, օգնիր իմ գործին, ես ուզում եմ ունենալ կոճակ՝ մակրո ստեղծելու համար, որտեղ ես ունեմ excel և արտահանել տվյալները, որտեղ գտնվում է <" "> դեպի word, շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Կներեք, որ չհասկացա ձեր տեսակետը: Լավ կլիներ, եթե կարողանայիք ավելի մանրամասն բացատրել, թե ինչ եք փորձում անել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փնտրում եմ ինչ-որ օգնություն այն մասին, որ օգտատերը կարող է սեղմել տողի համարի վրա, այնուհետև սեղմել հրամանի կոճակը, որ նա կկրկնօրինակի այդ տողը և տեղադրի այն դրա տակ գտնվող տողի մեջ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Կներեք, դեռ կարող եմ օգնել ձեզ այդ հարցում: Շնորհակալություն ձեր մեկնաբանության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
վարպետ bagaimana jika berbeda թերթիկ եւ պատճենել տվյալները yg diinginkan
contoh sheet1 hanya data kolom B & kolom D copy ke sheet2
շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
խնդրում ենք ուղարկել VBA կոդ՝ մեկ բջիջի բովանդակությունը պատճենելու համար՝ օգտագործելով հրամանի կոճակը սեղմելով առանց տեքստային տուփի, որպեսզի կարողանաք տեղադրել ցանկացած հավելվածում, օրինակ՝ նոթատետրում, msword-ում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է կոճակ ստեղծել, որը պարզապես պատճենում է մեկ թերթի ընտրված բջիջը մյուս թերթիկում: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Լեքսի,
Ստորև բերված VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը: Խնդրում ենք փոխել «Sheet3» թերթի անունը, ըստ անհրաժեշտության:
Ընտրեք բջիջ և սեղմեք հրամանի կոճակը, որպեսզի այն աշխատի:

Մասնավոր ենթահրամանի կոճակ1_Click()
Dim xSWName-ը որպես տող
Dim xSheet As Worksheet-ը
Dim xPSheet որպես աշխատանքային թերթիկ
Dim xIntR որպես ամբողջ թիվ
xSWName = «Թերթ3»
Ս.թ. սխալի Ռեզյումե Next
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xSheet = ActiveSheet
Եթե ​​xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Ապա
Selection.CurrentRegion.Select
Ընտրություն.Պատճեն
Սահմանել xPSheet = Worksheets.Item (xSWName)
xIntR = xPSheet.UsedRange.Rows.Count
xPSheet.Cells(xIntR + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Վերջ: Եթե
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hello!
Կոդ ստեղծելու միջոց կա՞, որպեսզի կարողանամ կոճակով պատճենել տիրույթը (ասենք A1:D5):
Եվ այնուհետև տեղադրեք այն A6:D10-ում:

Եվ եթե մեկ անգամ էլ սեղմեմ կոճակը, A1:D5-ը պատճենելու է A11:D15-ին:

Եվ այսպես շարունակ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ջոնաս,
Կներեք, չեմ կարող օգնել ձեզ դրա համար: Շնորհակալություն մեկնաբանության համար։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հիանալի է. ես հարմարեցվել եմ իմ s.sheet-ի համար, բայց ինձ պետք է, որ այն ավելի դինամիկ լինի և օգտագործի պիտակներ, այլ ոչ թե կոշտ կոդավորում բջջային տեղադրությունները:
Այսինքն A2-A6 տիրույթում գտեք «Jamie» անունը և այնուհետև գտեք անունը K2 սյունակում և տեղադրեք

Ինձ նաև պետք է յուրաքանչյուր սեղմում +1-ի համար և գործարկի նույն պատճենը և տեղադրումը, բայց հաջորդ սյունակում, այսինքն

սեղմեք 1 - տեղադրեք Q1-ում, սեղմեք 2 - տեղադրեք Q2-ում և այլն

Example:

Սյունակ Ա Սյունակ Բ ...... Սյունակ Կ Սյունակ Լ
1. Անունը Hrs աշխատած Անունը Q1 Q2 Q3 Q4
2. Ջեյմի 22 Սեմմի
3. Սեմմի 40 Ջուդիթ
4. Ջուդիթ 18 Ջեյմի
5. Tammy 16 Keith
6. Քեյթ 42 Թամմի


Helpանկացած օգնություն մեծապես կգնահատվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կոդավորել a1-ից a5 միջակայքից բջիջը պատճենելու համար՝ c1-ում և հաջորդ հասանելի բջիջը հաջորդաբար տեղադրելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
և նաև, պատճենեք և տեղադրեք բջիջը մեկ առ մեկ:
Շնորհակալություն օգնության համար!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն տղաներ. սա օգնության կարիք ունի, խնդրում եմ: Ես պետք է ստեղծեմ 10* կոճակ իմ աշխատաթերթում (Sheet1), որը պատճենելու է 3 բջիջ, օրինակ՝ Sheet1, A1, B1, C1: ապա տեղադրեք այն Sheet2 A1, B1, C1 թերթիկում: այնուհետև, եթե սեղմեմ 4-րդ կոճակը, օրինակ՝ Sheet1, A4, B4, C4, ինձ պետք է, որ սա անցնեմ Sheet2, A2, B2, C2: Եթե ​​սեղմեմ կոճակ 2, ապա այն պետք է անցնի Sheet2, A3, B3, C3: Հուսով եմ, որ սա իմաստ ունի:
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից