Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս սահմանափակել Excel- ում միայն արժեքները տեղադրելը (կանխել ձևաչափումը):

Սովորաբար, մենք պատճենում ենք պատճենված տվյալները ՝ միաժամանակ սեղմելով Ctrl + V ստեղները: Եվ դա կտեղադրի պատճենված արժեքները բջիջների բոլոր ձևաչափման հետ միասին: Եթե ​​պարզապես անհրաժեշտ է տեղադրել միայն արժեքները և սահմանափակել բջջի ձևաչափումը, հետևյալ մեթոդները կարող են օգնել ձեզ:

Սահմանափակեք միայն արժեքները կպցնելու համար (կանխեք ձևաչափումը) կպցրած արժեքների հատկությամբ
Սահմանափակեք տեղադրել միայն արժեքները (կանխել ձևաչափումը) VBA կոդով
Սահմանափակել արժեքները տեղադրելը միայն Kutools- ի համար Excel- ի համար

Սահմանափակեք միայն արժեքները կպցնելու համար (կանխեք ձևաչափումը) կպցրած արժեքների հատկությամբ

Միայն արժեքները կպցնելու սահմանափակման հեշտ միջոց է պատճենված տվյալները որպես արժեքներ տեղադրելը միայն Excel- ում:

1. Տվյալները պատճենելուց հետո կտտացրեք աջին այն նպատակակետային բջիջին, որի մեջ կտեղադրեք տվյալները:

2. Այնուհետեւ կտտացրեք Արժեքներն կոճակը տակ Կպցնել ընտրանքները բաժինը աջ կտտացնելով ընտրացանկում: Տեսեք,

Դուք կարող եք տեսնել, որ պատճենված բջիջների միայն արժեքներն են տեղադրված նպատակակետային բջիջների մեջ:

Սահմանափակեք տեղադրել միայն արժեքները (կանխել ձևաչափումը) VBA կոդով

Հետևյալ VBA կոդը կօգնի ձեզ կպցնել պատճենված բջիջների միայն արժեքները և սահմանափակել բջիջների բոլոր ձևաչափումը: Խնդրում եմ, արեք հետևյալ կերպ.

1. Մամուլ ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք Այս գործառույթը է Նախագիծ աջ պատուհանը բացելու համար Այս գործառույթը ծածկագրի պատուհան: Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը պատուհանում:

VBA կոդ. Սահմանափակել արժեքները տեղադրելը միայն Excel- ում

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    Target.PasteSpecial xlPasteValues
    Application.CutCopyMode = True
End Sub

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

Այժմ պատճենեք ձեր տվյալները և անցեք նպատակակետի աշխատանքային թերթ: Ուղղակի մեկ կտտոցով կամ աջ կտտացնելով նպատակակետային բջիջին կտեղադրվեն պատճենված բջիջների արժեքները `առանց որևէ ձևաչափման անմիջապես:

Սահմանափակել արժեքները տեղադրելը միայն Kutools- ի համար Excel- ի համար

Excel- ի համար նախատեսված գործիքներ »s Պատճենելու տիրույթները օգտակարությունն օգնում է ձեզ Excel- ում հեշտությամբ տեղադրել միայն ընտրված տիրույթի կամ բազմակի ընտրված տիրույթների արժեքները: Խնդրում եմ, արեք հետևյալ կերպ.

Նախքան դիմելը Excel- ի համար նախատեսված գործիքներ, խնդրում եմ նախ ներբեռնեք և տեղադրեք այն.

1. Ընտրեք միջակայք կամ բազմակի տիրույթներ `պահելով Ctrl ստեղնը, ապա կտտացրեք Կուտոլս > Պատճենելու տիրույթները. 

2. Մեջ Պատճենել բազմակի տիրույթներ երկխոսության տուփ, միայն ընտրեք Արժեքներն տարբերակը Տեղադրել հատուկ բաժինը, ապա կտտացրեք OK կոճակը:

ՆշումԴուք կարող եք ստուգել երկուսն էլ կամ մեկը Ներառյալ շարքի բարձրությունը եւ Ներառյալ սյունի լայնությունը ընտրանքներ, որքան անհրաժեշտ է:

3. Հաջորդում Պատճենել բազմակի տիրույթներ երկխոսության տուփ, ընտրեք դատարկ բջիջ պատճենված բջիջները տեղադրելու համար, ապա կտտացրեք այն OK կոճակը:

Դրանից հետո տեղադրվում են միայն միջակայքում կամ բազմակի տիրույթում գտնվող բոլոր ընտրված բջիջների արժեքները:

  Եթե ​​ցանկանում եք ունենալ այս օգտակար ծառայության անվճար փորձարկում (30-օրյա), խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:

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

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (14)
No ratings yet. Be the first to rate!
bengiz30
bengiz30
This comment was minimized by the moderator on the site
Hello, there are a problem here, values are automatically paste when you click on the cell
Reply
0
0
Rafael
Rafael
This comment was minimized by the moderator on the site
Hi, any chance to add this feature only in some sheets?
Reply
0
0
Hei-KO
Hei-KO
This comment was minimized by the moderator on the site
Hallo,
ich habe eine Excel-Datei (100 Tabellenregister) für die ich eine Formel gesucht habe, die es erlaubt, beim Kopieren nur Werte einfügen, möglich zu machen.

Ausschneiden+Drag&Drop habe ich bereits per Makro ausgeschaltet. Ich habe jetzt im Netz folgenden Code gefunden, den ich in
"Diese Arbeitsmappe" geschrieben habe:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Target.PasteSpecial xlPasteValues
Application.CutCopyMode = True
End Sub

(Der Code verursacht, dass ich nach kopieren, den Inhalt sofort als Wert in eine angeklickte Zelle kopiert bekomme)
Das funktioniert sehr gut, jedoch habe ich noch ein Problem dabei:

Wenn ich Werte aus einer Zelle kopiere, kann ich diese auch in geschützte
Zellen kopieren und das soll nicht sein. In vielen geschützten Zellen stehen Formeln die nicht überschrieben werden sollen.

Kann mir jemand helfen, wie ich den Code erweitern oder ändern kann, dass er es nur erlaubt in nicht geschützte Zellen zu kopieren?

Gruß Heiko
Reply
0
0
syazahisham91@gmail.com
This comment was minimized by the moderator on the site
Hi! for Kutools 'Copy Ranges', I realized there is limit on number of columns that can be copy at a time. I am working with 7,500 columns. I select 7,500 columns as the range, but it can only copy and paste partial of what I had selected, not all. I am planning to copy all these columns in one go and paste. Is there any way I can do that ? just to speed things up. Any help would highly be appreciated. Thanks!
Reply
Report
0
0
Dean
Dean
This comment was minimized by the moderator on the site
Hi, is there code for working with ctrl+v. This code paste automatically when selecting cell. I found module code below link but couldn't find code for workbook like this.
https://www.extendoffice.com/documents/excel/2545-excel-set-paste-values-as-default.html
Reply
0
0
Adriana
Adriana     Dean
This comment was minimized by the moderator on the site
It's sad no one answers. I need this information too.
Reply
0
0
Travis
Travis
This comment was minimized by the moderator on the site
This code was great, but it was pasting items in the system clipboard that were copied from other programs. I put it in an 'If' statement which does nothing, unless Excel cells are actually in Cut or Copy mode. i.e. moving border around the cell(s).

Application.CutCopyMode has three modes: False = Not in Cut or Copy mode. | xlCopy = In Copy mode. | xlCut = In Cut mode.

'If in Cut or Copy mode, Paste Values Only
'If Not in Cut or Copy mode, skip and do nothing.

On Error Resume Next
If Not Application.CutCopyMode = False Then
Target.PasteSpecial xlPasteValues
Application.CutCopyMode = True
End If

This was a bit of a bugger for me to figure out. Hope it helps someone else.
-Travis (IT Professional since 1996)
Reply
0
0
Nikki
Nikki     Travis
This comment was minimized by the moderator on the site
This addition was a great help! Thank you so much for posting!
Reply
0
0
Gav
Gav     Travis
This comment was minimized by the moderator on the site
Hi Travis, Thank you very much for posting this.
I never respond to posts but i appreciate you posting this answer.
Reply
0
0
Dean
Dean     Gav
This comment was minimized by the moderator on the site
Hi Travis, is there code for working with ctrl+v. This code paste automatically when selecting cell. I found module code below link but couldn't find code for workbook like this. I hope what I have requested is possible.
https://www.extendoffice.com/documents/excel/2545-excel-set-paste-values-as-default.html
Reply
0
0
Eduardo
Eduardo     Dean
This comment was minimized by the moderator on the site
Dean, it is very useful! Thanks!
Reply
0
0
Me
Me
This comment was minimized by the moderator on the site
Thank you so much!! It works well and its so useful for the project that I am working on.
Reply
0
0
Bram Verschoren
Bram Verschoren
This comment was minimized by the moderator on the site
This works for me:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Target.PasteSpecial xlPasteValues
Application.CutCopyMode = True
End Sub
Reply
0
0
Wishmaster
Wishmaster
This comment was minimized by the moderator on the site
Would this work on Worksheet level only? I am trying to restrict this only on one worksheet (not entire workbook), but it seems there is a problem.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations