วิธีแทรกความคิดเห็นไปยังหลายเซลล์ใน Excel อย่างรวดเร็ว
ในเวิร์กชีตการแทรกข้อคิดเห็นในเซลล์ทำได้ง่ายมาก แต่เมื่อคุณต้องการแทรกข้อคิดเห็นเดียวกันลงในหลายเซลล์พร้อมกันคุณจะทำอย่างไร
แทรกข้อคิดเห็นลงในเซลล์หลายเซลล์ด้วยคุณสมบัติการวางแบบพิเศษ
แทรกข้อคิดเห็นไปยังหลายเซลล์ด้วยรหัส VBA
แทรกข้อคิดเห็นลงในเซลล์หลายเซลล์ด้วยคุณสมบัติการวางแบบพิเศษ
ใน Excel ไม่มีวิธีแทรกความคิดเห็นหลายรายการในเวลาเดียวกัน อย่างไรก็ตามคุณสามารถคัดลอกความคิดเห็นไปยังเซลล์ต่างๆได้ดังนี้:
1. แทรกความคิดเห็นของคุณในเซลล์
2. เลือกเซลล์ข้อคิดเห็นแล้วกดปุ่ม Ctrl + C คีย์เพื่อคัดลอก
3. จากนั้นเลือกและคลิกขวาที่ช่วงที่คุณต้องการใส่ความคิดเห็นเป็นชุดเลือก วางแบบพิเศษ > วางแบบพิเศษ จากเมนูคลิกขวา ดูภาพหน้าจอ:
4 ใน วางแบบพิเศษ ให้ทำเครื่องหมายที่ ความคิดเห็น จากนั้นคลิกตัวเลือก OK ปุ่ม. ดูภาพหน้าจอ:
จากนั้นความคิดเห็นเดียวกันจะถูกแทรกไปยังเซลล์ที่เลือกทั้งหมดทันที
หมายเหตุ: วิธีนี้จะแทรกความคิดเห็นเดียวกันกับเซลล์ที่เลือกทั้งหมด หากคุณต้องการแทรกความคิดเห็นเดียวกันไปยังเซลล์ที่มองเห็นได้เฉพาะของรายการที่กรองเท่านั้นโปรดลองใช้วิธี VBA ด้านล่าง
แทรกข้อคิดเห็นไปยังหลายเซลล์ด้วยรหัส VBA
สมมติว่าคุณมีรายการกรองตามภาพด้านล่างที่แสดง และคุณแค่ต้องการเพิ่มความคิดเห็นเป็นกลุ่มให้กับเซลล์ที่มองเห็นได้ทั้งหมด กรุณาดำเนินการดังนี้
1 กด อื่น ๆ + F11 คีย์ร่วมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Mocrosoft Visual Basic สำหรับแอปพลิเคชัน โปรดคลิก สิ่งที่ใส่เข้าไป > โมดูลและใส่รหัสต่อไปนี้ลงในโมดูล:
VBA: แบตช์ความคิดเห็นเฉื่อยไปยังหลายเซลล์ (เซลล์ที่มองเห็นได้เฉพาะในรายการที่กรองแล้ว)
Sub InsertCommentsSelection()
Dim xRg As Range
Dim xRgEach As Range
Dim xAddress As String
Dim xText As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range:", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Count > 1 Then
Set xRg = xRg.SpecialCells(xlCellTypeVisible)
End If
xRg.Select
xText = InputBox("Enter Comment to Add" & vbCrLf & "Comment will be added to all cells in Selection: ", "Kutools For Excel")
If xText = "" Then
MsgBox "No comment added", vbInformation, "Kutools For Excel"
Exit Sub
End If
For Each xRgEach In xRg
With xRgEach
.ClearComments
.AddComment
.Comment.Text Text:=xText
End With
Next xRgEach
End Sub
3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในครั้งแรกที่โผล่ขึ้นมา Kutools สำหรับ Excel โปรดเลือกช่วงที่กรองแล้วที่คุณต้องการเพิ่มความคิดเห็นจากนั้นคลิกที่ OK ปุ่ม. ดูภาพหน้าจอ:
4. แล้วอีกอย่าง Kutools สำหรับ Excel กล่องโต้ตอบปรากฏขึ้นโปรดป้อนความคิดเห็นของคุณลงในกล่องข้อความจากนั้นคลิกที่ OK ปุ่ม
ตอนนี้ความคิดเห็นจะถูกแทรกไปยังเซลล์ที่มองเห็นได้ทั้งหมดในรายการกรองที่เลือกเท่านั้นตามภาพด้านล่างที่แสดง:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!