ไปยังเนื้อหาหลัก

วิธีตั้งค่าวางเป็นค่าเริ่มต้นเมื่อใช้ Ctrl + V ใน Excel

โดยปกติใน Excel เมื่อคุณคัดลอกข้อมูลจากช่วงหรือแผ่นงานหนึ่งและวางด้วย Ctrl + V ไปยังอีกแผ่นหนึ่งการจัดรูปแบบจะถูกวางเช่นกันโดยค่าเริ่มต้น แต่บางครั้งคุณแค่ต้องการวางเป็นค่าโดยไม่ต้องจัดรูปแบบใด ๆ เมื่อคุณวางข้อมูล ที่นี่ฉันสามารถแนะนำวิธีง่ายๆในการตั้งค่าการวางเป็นการวางเริ่มต้นเมื่อคุณใช้ Ctrl + V ใน Excel

ตั้งค่าการวางเป็นค่าเริ่มต้นเมื่อใช้ Ctrl + V ด้วยรหัส VBA

ตั้งค่าการวางเป็นค่าเริ่มต้นเมื่อใช้ Ctrl + V ด้วยรหัส VBA

เมื่อคุณวางข้อมูลเป็นค่าเท่านั้นคุณต้องคลิกสี่เหลี่ยมเล็ก ๆ ที่มุมของการเลือกของคุณและเลือกตัวเลือกค่าทุกครั้งหลังจากวางข้อมูล รหัส VBA ต่อไปนี้สามารถช่วยคุณเปลี่ยนการวางเริ่มต้นเพื่อวางค่าได้

1. กด ALT + F11 คีย์เพื่อเปิด หน้าต่าง Microsoft Visual Basic for Applications.

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: ตั้งค่าวางเป็นค่าเริ่มต้นเมื่อใช้ Ctrl + V

Sub PasteasValue()
Selection.PasteSpecial Paste:=xlPasteValues
End Sub

3. จากนั้นบันทึกและปิดรหัสแล้วกด Alt + F8 คีย์เพื่อเปิด แมโคร กล่องโต้ตอบ

4. ใน แมโคร ให้เลือกชื่อมาโครที่ใช้ ค่าพาสต้า แล้วคลิก Options ปุ่มดูภาพหน้าจอ:

doc-วาง-ค่า-default-1

5. จากนั้นใน ตัวเลือกมาโคร ภายใต้ คีย์ลัด โปรดป้อน v ดูภาพหน้าจอ:

doc-วาง-ค่า-default-2

6. จากนั้นคลิก OK เพื่อปิด ตัวเลือกมาโคร และดำเนินการปิดไฟล์ แมโคร โต้ตอบ

และตอนนี้เมื่อคุณวางข้อมูลด้วย Ctrl + Vข้อมูลจะถูกวางเป็นค่าโดยค่าเริ่มต้น

บทความที่เกี่ยวข้อง:

วิธีการวางเนื้อหาภายนอกลงใน Excel จะจับคู่การจัดรูปแบบปลายทางเสมอ?

สาธิต: ตั้งค่าวางเป็นค่าเริ่มต้นเมื่อใช้ Ctrl + V ใน Excel

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (24)
No ratings yet. Be the first to rate!
loki
loki
This comment was minimized by the moderator on the site
Saved module - called "module 2" but nothing shows up in macros - no 'PasteasValue'. Seems like a step is missing?
Reply
0
0
Hakan
Hakan
This comment was minimized by the moderator on the site
I want to learn if there is a way to work in a sheet, not in a module.

If not, is there a way to work in particular sheet I determine?
Reply
0
0
Deyaa El Morsy
Deyaa El Morsy
This comment was minimized by the moderator on the site
It is working but after pasting you cannot undo
Reply
0
0
Pankaj kumar
Pankaj kumar     Deyaa El Morsy
This comment was minimized by the moderator on the site
Same here.
Reply
0
0
skyyang
skyyang     Pankaj kumar
This comment was minimized by the moderator on the site
Hello, guys,
I am sorry, may be there is no other good way for solving this problem, if you have any other good ideas, please comment here.
Thank you!
Reply
Report
0
0
fuat
fuat     skyyang
This comment was minimized by the moderator on the site
Save as binary .xlsb,
Then you can use ctrl+z with macros.
Reply
0
0
woo
woo     fuat
This comment was minimized by the moderator on the site
what do you mean "save as binary. xlsb"?
Reply
0
0
Ross Brown
Ross Brown
This comment was minimized by the moderator on the site
I agree Graham, just tried this in Excel 2016. When I click the Run button in the Macro dialog, I get the error message:

Run-tme error '1004':
PasteSpecial method of Range class failed

which is a shame as this really would have helped me today. I also tried Dejvid's macro below, but nothing happened when pasting from one book to another.
Reply
0
0
Benj
Benj     Ross Brown
This comment was minimized by the moderator on the site
Make sure you have something selected in copy mode. dont even bother entering his code
Reply
0
0
ggibby
ggibby
This comment was minimized by the moderator on the site
Unless I missed something (and the instructions are *very* good), this does not work in Excel 2016.
Reply
Report
0
0
fuat
fuat     ggibby
This comment was minimized by the moderator on the site
I use Microsoft office Standard 2016, at it works.
Reply
0
0
Tuhin Paul
Tuhin Paul
This comment was minimized by the moderator on the site
Thank You, Sir...
Reply
0
0
Dejvid
Dejvid
This comment was minimized by the moderator on the site
nice tip, but the macro should look like this, because the code above give you an error statement, if you push ctrl+v and you didn't previously select something with ctrl+c Sub PasteAsValues() On Error GoTo err_handler: Selection.PasteSpecial Paste:=xlPasteValues Exit Sub err_handler: End Sub
Reply
0
0
MNGREEN
MNGREEN
This comment was minimized by the moderator on the site
The solution from Mikael seems to nice replicate the 2013 solution offered by this page in a 2016-Excel-friendly way. Unfortunately, it also replicates the inability to undo (through Ctrl-Z or other "undo" actions) a paste action while this macro is enabled.
Reply
0
0
Mikael Fangel
Mikael Fangel     MNGREEN
This comment was minimized by the moderator on the site
To get the undo function to work after you have use a macro is quite difficult unfortunately. Can't help you with that, sorry.
Reply
0
0
obelisk
obelisk
This comment was minimized by the moderator on the site
Hi, solution works great but control+z not working after pasting :( . any additional help?
Reply
0
0
Jonafree
Jonafree
This comment was minimized by the moderator on the site
This coding does not work with the latest version of Excel 2016. Running the script gives an error code for the line Paste:=xlPasteValues
Reply
0
0
Mikael Fangel
Mikael Fangel     Jonafree
This comment was minimized by the moderator on the site
Try using this code with Excel 2016: Sub Paste_Special() Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False End Sub
Reply
0
0
Ahmed
Ahmed     Mikael Fangel
This comment was minimized by the moderator on the site
Excellent solution
this code should be written directly into the VBA command box not in module box and I selected its place to be in the workbook so you make sure to END every sub opened, and ignore any message that pops up
Reply
0
0
JONAFREE
JONAFREE     Mikael Fangel
This comment was minimized by the moderator on the site
Thanks Mikael, but your code didn't work. Microsoft must have changed the VBA coding language too much in their last update. Even the text "Paste:=" results in a compiling error. If there's an answer out there, it must be in a different generation of Excel VBA.
Reply
0
0
Mikael Fangel
Mikael Fangel     JONAFREE
This comment was minimized by the moderator on the site
The macro i sent is recorded in the latest version of MS Excel 2016, so maybe the problem lies within your installation? Besides that the sub I wrote won't work without the "Selection.PasteSpecial" part.
Reply
0
0
L
L     Jonafree
This comment was minimized by the moderator on the site
I just ran into the same problem.
Reply
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations