วิธีการนับจำนวนเซลล์ด้วยความคิดเห็นใน Excel
คุณเคยพยายามนับจำนวนความคิดเห็นในแผ่นงานหรือไม่? ในบทความนี้ฉันจะแนะนำเคล็ดลับง่ายๆในการนับจำนวนเซลล์ที่มีความคิดเห็นในแผ่นงาน
นับจำนวนเซลล์ที่มีความคิดเห็นด้วยฟังก์ชัน Go To Special
นับจำนวนเซลล์ที่มีข้อคิดเห็นด้วย User Defined Function
นับจำนวนเซลล์ที่มีความคิดเห็นด้วยรหัส VBA
นับจำนวนเซลล์ที่มีความคิดเห็นด้วยฟังก์ชัน Go To Special
กับ ไปที่พิเศษ ใน Excel คุณสามารถเลือกเซลล์ข้อคิดเห็นทั้งหมดก่อนจากนั้นดูจำนวนการนับในแถบสถานะ
1. ไปที่คลิก หน้าแรก > ค้นหาและเลือก > ไปที่พิเศษดูภาพหน้าจอ:
2. ใน ไปที่พิเศษ โปรดตรวจสอบ ความคิดเห็น ภายใต้ เลือก ส่วนดูภาพหน้าจอ:
3. จากนั้นคลิก OK เพื่อปิดกล่องโต้ตอบนี้และเซลล์ทั้งหมดในแผ่นงานที่ใช้งานอยู่ซึ่งมีข้อคิดเห็นได้ถูกเลือกพร้อมกัน และคุณสามารถรับจำนวนความคิดเห็นได้ที่แถบสถานะ ดูภาพหน้าจอ:
หมายเหตุ หากคุณมีเซลล์ว่างที่มีความคิดเห็นระบบจะไม่นับความคิดเห็นของเซลล์ว่าง
เคล็ดลับ: คุณยังสามารถกด CTRL+G ทางลัดเพื่อเปิด ไปที่ กล่องโต้ตอบและคลิก พิเศษ ปุ่มเพื่อแสดง ไปที่พิเศษ โต้ตอบ
นับจำนวนเซลล์ที่มีข้อคิดเห็นด้วย User Defined Function
วิธีการข้างต้นมีข้อเสียของตัวเองดังนั้นเราสามารถสร้างฟังก์ชันที่กำหนดโดยผู้ใช้เพื่อนับความคิดเห็นของเซลล์ทั้งหมดรวมถึงความคิดเห็นของเซลล์ว่าง
1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: นับจำนวนเซลล์ที่มีความคิดเห็น
Function CountComments(xCell As Range)
'Update 20140924
Application.Volatile
CountComments = xCell.Parent.Comments.Count
End Function
3. จากนั้นบันทึกและปิดรหัสกลับไปที่แผ่นงานในเซลล์ว่างโปรดป้อนสูตรนี้: = countcomments (A1), (A1 เป็นการอ้างอิงเซลล์คุณสามารถเปลี่ยนเป็นที่อยู่เซลล์อื่นได้) ดูภาพหน้าจอ:
4. จากนั้นกด เข้าสู่ และคุณจะได้รับจำนวนความคิดเห็นของเซลล์
นับจำนวนเซลล์ที่มีความคิดเห็นด้วยรหัส VBA
รหัส VBA ต่อไปนี้ยังช่วยให้คุณสามารถนับความคิดเห็นของเซลล์ทั้งหมดรวมทั้งความคิดเห็นของเซลล์ว่าง
1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: นับจำนวนเซลล์ที่มีความคิดเห็น
Sub CountComments()
'Update 20140924
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
If VBA.Err > 0 Then
MsgBox 0
Else
MsgBox WorkRng.Count
End If
End Sub
3. จากนั้นกด F5 เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการนับความคิดเห็นของเซลล์ ดูภาพหน้าจอ:
4. จากนั้นคลิก OKคุณจะได้รับจำนวนความคิดเห็นของเซลล์ในการเลือก
บทความที่เกี่ยวข้อง:
วิธีแสดงความคิดเห็นทั้งหมดในแผ่นงานหรือสมุดงานใหม่ใน Excel
วิธีค้นหาและแทนที่ข้อความภายในความคิดเห็นใน Excel
วิธีแทรกความคิดเห็นไปยังหลายเซลล์ใน Excel อย่างรวดเร็ว
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
