วางแมโครเหตุการณ์แผ่นงานต่อไปนี้ในพื้นที่รหัสแผ่นงาน:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CheckCells As Range, r As Range, rINT As Range
Set CheckCells = Range("A2")
Set rINT = Intersect(CheckCells, Target)
If rINT Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In rINT
If r.Value > 20 Then r.Value = 20
Next r
Application.EnableEvents = False
End Sub
มันจะตรวจสอบอินพุตไปยังเซลล์A2และ จำกัด ไว้ที่ 20 หากคุณต้องการวางข้อ จำกัด เดียวกันกับเซลล์อื่นคุณสามารถทำได้โดยเปลี่ยนรหัสบรรทัดเดียว
เนื่องจากเป็นรหัสแผ่นงานจึงง่ายต่อการติดตั้งและใช้งานโดยอัตโนมัติ:
- คลิกขวาที่ชื่อแท็บใกล้กับด้านล่างของหน้าต่าง Excel
- เลือก View Code - นี่จะเป็นการเปิดหน้าต่าง VBE ขึ้นมา
- วางสิ่งต่างๆลงในและปิดหน้าต่าง VBE
หากคุณมีข้อกังวลใด ๆ ก่อนอื่นให้ลองทำในเวิร์กชีทรุ่นทดลอง
หากคุณบันทึกเวิร์กบุ๊กแมโครจะถูกบันทึกด้วย หากคุณกำลังใช้ Excel รุ่นที่ใหม่กว่าในปี 2003 คุณต้องบันทึกไฟล์เป็น. xlsm แทนที่จะเป็น. xlsx
ในการลบมาโคร:
- เปิดหน้าต่าง VBE ขึ้นมาข้างต้น
- ล้างรหัสออก
- ปิดหน้าต่าง VBE
หากต้องการเรียนรู้เพิ่มเติมเกี่ยวกับมาโครโดยทั่วไปโปรดดู:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
และ
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
หากต้องการเรียนรู้เพิ่มเติมเกี่ยวกับแมโครเหตุการณ์ (รหัสแผ่นงาน) โปรดดู:
http://www.mvps.org/dmcritchie/excel/event.htm
ต้องเปิดใช้งานแมโครเพื่อให้สิ่งนี้ทำงาน!