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

จะเพิ่มจำนวนโดยอัตโนมัติเมื่อเปิดสมุดงานได้อย่างไร?

หากคุณต้องการเพิ่มเซลล์จำนวน 1 เซลล์โดยอัตโนมัติเมื่อคุณเปิดสมุดงานทุกครั้งคุณสามารถเพิ่ม 1 ด้วยตนเองได้ แต่มีวิธีใดที่ดีกว่าในการเพิ่ม 1 สำหรับตัวเลขโดยอัตโนมัติเมื่อเปิดเอกสาร Excel

เพิ่มตัวเลขโดยอัตโนมัติเมื่อเปิดสมุดงานด้วยรหัส VBA


เพิ่มตัวเลขโดยอัตโนมัติเมื่อเปิดสมุดงานด้วยรหัส VBA

รหัส VBA ง่ายๆต่อไปนี้อาจช่วยให้คุณเพิ่ม 1 สำหรับเซลล์ตัวเลขโดยอัตโนมัติเมื่อเปิดสมุดงานในแต่ละครั้งโปรดทำดังนี้:

1. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. ใน โครงการ -VBAProject บานหน้าต่างคลิกสองครั้ง สมุดงานนี้ เพื่อเปิด โมดูลจากนั้นคัดลอกและวางโค้ดด้านล่างลงในโมดูลดูภาพหน้าจอ:

รหัส VBA: เพิ่มตัวเลขโดยอัตโนมัติเมื่อเปิดสมุดงาน:

Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub

หมายเหตุ: ในโค้ดด้านบน Sheet1 และ A2 คือแผ่นงานและเซลล์ที่มีตัวเลขที่คุณต้องการเพิ่มโดยอัตโนมัติ กรุณาเปลี่ยนตามความต้องการของคุณ

3. จากนั้นคุณควรบันทึกไฟล์ Excel เป็น สมุดงานที่เปิดใช้งานแมโคร Excel รูปแบบดูภาพหน้าจอ:

จากนี้ไป เมื่อคุณเปิดเวิร์กบุ๊กนี้ หมายเลขในเซลล์ A2 ใน Sheet1 จะถูกเพิ่ม 1 โดยอัตโนมัติ

หมายเหตุ: รหัสนี้ใช้กับเซลล์ตัวเลขเท่านั้น

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

🤖 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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thank you! Too easy! My simple quote form now allots a new number every time I open it. Previous forum help pages I visited assume too much prior knowledge of Excel and terminology. This was "Macros for Dummies"
This comment was minimized by the moderator on the site
Both screenshots are the same. There is no screenshot for #3 "save the Excel file as Excel Macro-Enabled Workbook format" as directed.
This comment was minimized by the moderator on the site
Hi, Leslie,
Thanks for your comment, the second picture has been updated, please chek it.
Thanks a lot!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations