การเลือกเซลล์ที่ไม่ได้ทำการ Locked เอาไว้พร้อม ๆ กันทีเดียวขอเสนอไว้ 2 วิธีดังนี้ครับ

1. ด้วยการสร้าง Custom View โดยการเลือกเซลล์ที่ให้แก้ไขได้ไว้ก่อน จากนั้นเข้าไปกำหนดชื่อให้กับ View โดยเข้าเมนู View > Custom View > Add > กำหนดชื่อ View
   เมื่อจะเรียกใช้งานให้เข้าเมนูเดียวกันแล้วเลือกชื่อ View ที่ต้องการ


2. ด้วยการเขียน Code VBA ซึ่งมีตัวอย่าง Code ตามด้านล่าง
   Option Explicit
   Sub DelUnlocked()
   Dim r As range
   Dim uRange As range
   Set uRange = Worksheets("Sheet1").UsedRange
   For Each r In uRange
      If r.Locked = False Then r.ClearContents
   Next
   MsgBox "Complete"
   End Sub

ดูภาพประกอบทั้งสองวิธีตามด้านล่างครับ

Create Date : 08 กรกฎาคม 2553
Last Update : 1 มีนาคม 2556 22:02:44 น.		4 comments
Counter : 1719 Pageviews.
Share Tweet