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

วิธีแสดงความคิดเห็นทั้งหมดในแผ่นงานหรือสมุดงานใหม่ใน Excel

หากคุณมีสมุดงานที่มีความคิดเห็นมากเกินไปและคุณต้องการแสดงความคิดเห็นทั้งหมดในแผ่นงานใหม่หรือสมุดงานเพื่อตรวจสอบความคิดเห็นทั้งหมดคุณจะทำอย่างไร? วิธีการต่อไปนี้สามารถช่วยให้คุณแสดงความคิดเห็นทั้งหมดของแผ่นงาน / สมุดงานไปยังแผ่นงานหรือสมุดงานใหม่ใน Excel ได้อย่างรวดเร็ว

แสดงความคิดเห็นทั้งหมดในแผ่นงานใหม่ด้วยรหัส VBA

แสดงความคิดเห็นทั้งหมดในแผ่นงานหรือสมุดงานใหม่ด้วย Kutools for Excel


ลูกศรสีฟ้าฟองขวา แสดงความคิดเห็นทั้งหมดในแผ่นงานใหม่ด้วยรหัส VBA

รหัส VBA ต่อไปนี้จะแสดงรายการข้อคิดเห็นทั้งหมดในแผ่นงานใหม่ในสมุดงานปัจจุบัน ในแผ่นงานใหม่จะแสดงรายการข้อคิดเห็นทั้งหมดของสมุดงานทั้งหมดในรายการที่มีชื่อแผ่นงานที่อยู่เซลล์เนื้อหาความคิดเห็นและชื่อเซลล์ โปรดใช้วิธีการดังต่อไปนี้:

1. คลิก ผู้พัฒนา > ของ Visual Basicจะแสดงไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. แล้วคลิก สิ่งที่ใส่เข้าไป > โมดูลแล้วป้อนรหัส VBA ต่อไปนี้ในโมดูล

VBA: แสดงความคิดเห็นทั้งหมดในแผ่นงานใหม่

Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
    Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
    If Not commrange Is Nothing Then
        i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
        For Each rng In commrange
            i = i + 1
            newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
        Next
    End If
    Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub

2. จากนั้นคลิก doc-รายการความคิดเห็น-1 เพื่อเรียกใช้รหัสและคุณจะได้รับแผ่นงานใหม่พร้อมความคิดเห็นทั้งหมดในสมุดงานปัจจุบัน ดูภาพหน้าจอ:

doc-รายการความคิดเห็น-2


ลูกศรสีฟ้าฟองขวา แสดงความคิดเห็นทั้งหมดในแผ่นงานหรือสมุดงานใหม่ได้ด้วยคลิกเดียว

กับ สร้างรายการความคิดเห็น of Kutools สำหรับ Excelคุณสามารถแสดงความคิดเห็นทั้งหมดในแผ่นงานใหม่หรือสมุดงานใหม่ได้อย่างรวดเร็ว

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

1. ถ้าคุณติดตั้ง Kutools for Excel แล้วให้คลิก Kutools > More > สร้างรายการความคิดเห็นดูภาพหน้าจอ:

เอกสารรายการความคิดเห็น-3-3

2. ใน สร้างรายการความคิดเห็น กล่องโต้ตอบ:

  • เลือกขอบเขตที่คุณต้องการแสดงความคิดเห็นคุณสามารถเลือกได้ แผ่นงานที่ใช้งานอยู่ or แผ่นงานทั้งหมด.
  • จากนั้นระบุตำแหน่งที่คุณต้องการใส่รายการความคิดเห็นคุณสามารถแสดงความคิดเห็นในสมุดงานใหม่หรือแผ่นงานใหม่ดูภาพหน้าจอ:

เอกสารรายการความคิดเห็น-4-4

3. จากนั้นคลิก สร้างบัญชีตัวแทนปุ่ม. แผ่นงานใหม่จะถูกเพิ่มเพื่อแสดงรายการข้อคิดเห็นของแผ่นงานที่ใช้งานอยู่ทั้งหมดพร้อมด้วยคุณลักษณะเช่นชื่อแผ่นงานการอ้างอิงเซลล์แถวและคอลัมน์ ดูภาพหน้าจอ:

สำหรับข้อมูลเพิ่มเติมเกี่ยวกับ สร้างรายการความคิดเห็นกรุณาเยี่ยมชม สร้างคำอธิบายคุณลักษณะรายการความคิดเห็น.


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

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

🤖 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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In the Create Comment List dialog, select the scope you want to list the comment, Active sheet or All sheets, then choose to place the comments in a new workbook or a new sheet of current workbook https://www.myloweslife.us/
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
Ahoj lidi. Jmenuji se Helena Karas z Praha 8. V pondelí 07/01/19 dostal jsem úver ve výši 15.000.000 Kc od Peter Krajcovic za nemovitost v Praze 2. Správný e-mail pana Krajcovic je . Jeho úver je 100% garantován. Kontaktujte jej, pokud stále hledáte pujcku.
This comment was minimized by the moderator on the site
But what if you are just commencing? Anyone could have to investigate on particular topic,
anyone start writing on out. This data was
required to rank web web pages

Almillat
Maninerd
hitscorner
maniwebify
This comment was minimized by the moderator on the site
I found it useful to add the following line after line 8 in the VBA code; it renames the sheet to the comments and the date created.

ActiveSheet.Name = "Comments " & Format(Now(), "DD-MMM-YY")
This comment was minimized by the moderator on the site
Oh, and one more thing. Each time I hit "Run", it opens a New Sheet with the list of comments. How can I make it add to the existing sheet without duplicating teh entries then? Thanks :)
This comment was minimized by the moderator on the site
Thank you for the VBA Code! This really helps. Is there a way in which I can see all new comments or responded to comments in the sheet in realtime? It only updates each time the workbook is opened. But not while I am working in it.
Best regards,
Loki
This comment was minimized by the moderator on the site
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations