วันอังคารที่ 8 กรกฎาคม พ.ศ. 2557

สูตร Excel กับการตรวจสอบ การคลิ้กเม้าส์ ขวา

  สูตร Excel วันนี้เกี่ยวกับการคลิ้กขวา ของเม้าส์ที่เซลล์ใดๆ ปกติเราเขียนถึงแต่เม้าส์ซ้ายกันมาตลอด ไม่เคยเขียนถึงเม้าส์ปุ่มขวาเลย เดี่ยวจะ... thumbnail 1 summary
 สูตร Excel วันนี้เกี่ยวกับการคลิ้กขวา ของเม้าส์ที่เซลล์ใดๆ ปกติเราเขียนถึงแต่เม้าส์ซ้ายกันมาตลอด ไม่เคยเขียนถึงเม้าส์ปุ่มขวาเลย เดี่ยวจะพาลน้อยใจแย่เลยว่าไม๊...โดยตัวอย่างวันนี้ นอกจากจะตรวจสอบการคลิ้ก เม้าส์ขวา แล้ว เรายัง ส่งให้ กล่อง "บันทึกเป็น" หรือ กล่อง Save as ปรากฏตัวขึ้นมาอีกด้วย
   เงื่อนไขมีอยู่ว่า "คลิ้กขวาที่เซลล์ใดๆ แล้วให้ กล่อง "บันทึกเป็น หรือ กล่อง Save as ปรากฏตัวขึ้น
มาดูขั้นตอนกันเลย จะได้ไม่เสียเวลามาก
  1. เปิด Excel ขึ้นมา
  2. กดปุ่ม Alt + F11 ไปที่หน้าจอเขียนโค้ด
  3. ใส่โค้ดต่อไปนี้ลงไป

    Private Sub WorkSheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' If IsEmpty(Target) Then GoTo Out
    If IsNumeric(Target) Then
    Application.Dialogs(xlDialogSaveAs).Show
    Cancel = True
    End If
    ' Out:
    End Sub
4 กลับไปที่ Excel โดยกด Alt+ F11
5. ทดสอบการทำงานของโปรแกรมโดยลองคลิ้กขวาที่เซลล์ใดก็ได้
6.ผลการทำงานเป็นดังภาพด้านล่าง

สูตร Excel กับการตรวจสอบ การคลิ้กเม้าส์ ขวา ภาพ 1