โค้ด VBA ประเภท worksheet change

[godman]

สวัสดีครับ
ปัญหาของผมมีดังนี้ ผมอยากให้เซลล์ซึ่งได้จากสูตร มีแต่สูตรครับ ที่มีคำว่า PM TOP PUNCH ให้มี msg box ว่าให้เรียกช่างเครื่อง ป้อบอัพ ขึ้นมา แต่ทำไมผมเขียนโค้ดแบบนี้แล้วทำไม่ได้ครับ ผมใช้ M5 ว่าถ้ามันมีค่าเท่ากับ M5 ให้แสดง แต่ผมก็อยากรู้จริงๆว่าจำเป็นต้องมี M5 ไหม ถ้าไม่มีแล้วให้มันดูเฉพะ คอลัมพ์ C ได้ไหม
ข้อสอง ผมอยากทราบว่า คำสั่ง Worksheet Change นี้มันมีข้อจำกัดอะไรบ้าง ผมเข้าใจถูกไหมว่ามันให้ใช้ 1 คำสั่งต่อ 1 workbook เท่านั้น
แนวทางการประยุกต์ต่อไปของผมคือ เพื่อเจอคำนี้คือคำอะไรซักอย่างจากสูตรให้มัน email ตอนเปิดไฟล์ไปยังผู้เกี่ยวข้องให้ซ่อมเครื่อง ไม่ทราบว่าจะเป็นเป็นไปได้ไหมครับ สำหรับความฝันของผม

Code: Select all

OptionExplicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$5" Then
    If Range("c10").Value = "PM TOP PUNCH" Then
        MsgBox "Please call Tool Room"
    End If
End If
End Sub

[snasui]

ปัญหาของผมมีดังนี้ ผมอยากให้เซลล์ซึ่งได้จากสูตร มีแต่สูตรครับ ที่มีคำว่า PM TOP PUNCH ให้มี msg box ว่าให้เรียกช่างเครื่อง ป้อบอัพ ขึ้นมา แต่ทำไมผมเขียนโค้ดแบบนี้แล้วทำไม่ได้ครั

เพราะว่าเขียน Option Explicit ไม่ถูกต้องครับ ที่ถูกนั้นต้องเว้นวรรค ไม่ใช่เขียนติดกัน

ผมใช้ M5 ว่าถ้ามันมีค่าเท่ากับ M5 ให้แสดง แต่ผมก็อยากรู้จริงๆว่าจำเป็นต้องมี M5 ไหม ถ้าไม่มีแล้วให้มันดูเฉพะ คอลัมพ์ C ได้ไหม

ไม่จำเป็นต้องมี M5 แต่จะต้องทราบว่ามีเหตุการณ์ใดที่ให้โปรแกรมรู้ว่าเมื่อมีเหตุการณ์นั้นให้ตรวจสอบ C10 ทันที

ข้อสอง ผมอยากทราบว่า คำสั่ง Worksheet Change นี้มันมีข้อจำกัดอะไรบ้าง ผมเข้าใจถูกไหมว่ามันให้ใช้ 1 คำสั่งต่อ 1 workbook เท่านั้น

เข้าใจไม่ถูกต้องครับ Worksheet Change เป็น Event ที่ใช้ตรวจสอบว่า หากเกิดการเปลี่ยนแปลงในชีทนั่น ๆ แล้วต้องการให้โปรแกรมทำอะไร ไม่จำเป็นต้องมีแค่ 1 คำสั่ง จะมีกี่คำสั่งก็ได้ขึ้นกับความสามารถในการจัดการ เราไม่จำเป็นต้องเขียนคำสั่งลงใน Worksheet Change Event เพราะสามารถเขียนให้เรียกคำสั่งที่ Module อื่น ๆ ได้ตามต้องการ

แนวทางการประยุกต์ต่อไปของผมคือ เพื่อเจอคำนี้คือคำอะไรซักอย่างจากสูตรให้มัน email ตอนเปิดไฟล์ไปยังผู้เกี่ยวข้องให้ซ่อมเครื่อง ไม่ทราบว่าจะเป็นเป็นไปได้ไหมครับ สำหรับความฝันของผม

เป็นไปได้ครับ

[godman]

ขอบคุณมากครับ สำหรับความฝันของผมจะเป็นจริงได้
อยากให้เปิดไฟล์มาถ้าเจอคำว่า PM TOP PUNCH ในคอลัมพ์ C อย่างน้อย 1 ตัวขึ้นไป จะให้มันป้อบอัพขึ้นมา ผมจะต้องแก้ไขโค้ดอย่างไร ผมลองเขียนโค้ดแบบนี้ มา
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$5" Then
If Range("c10").Value = "PM TOP PUNCH" Then
MsgBox "Please call Tool Room"
End If
End If
End Sub

[snasui]

สามารถใช้ Code ด้านล่างที่ ThisWorkbook ครับ

Code: Select all

Private Sub Workbook_Open()
    If Sheets("Summary").Range("C10") = "PM TOP PUNCH" Then
        MsgBox "xyz"
    End If
End Sub

[godman]

thank you so much สามารถนำไป apply ต่อไปได้มากมาย ขั้นตอนต่อไปของผมคือ ไปทำให้มัน protect password ไม่ให้สามาถกรอกข้อมูลอะไรได้จนกว่าคนที่เป็นช่างจะมาใส่ pw ได้และให้ email ไปยังผู้เกี่ยวข้องทราบครับว่าจำนวนเกิน สี่แสน แล้ว ผมจะลองพยายามก่อน ติดขัดตรงใหนคงต้องขอรบกวนท่านผุ้รู้อีกรอบ ขอบคุณมาก

[godman]

จากเมื่อวานผมได้นำส่ิงที่่ท่านผู้รู้นำไปใช้งาน ใช้ได้ผล แต่ผมต้องการต่อยอดครับ
ผมได้ VBA นี้มาจากเพื่อนที่เป็น it แต่พอผมนำมาใช้ ผมคิดว่าผมก็สร้างเงื่อนไขได้ตรง แต่มันกลับขึ้น error ครับ ว่า Complie error in hidden module Module 5 บางทีก็ขึ้น User define type not define ประมาณนี้ ไม่ทราบว่าจะแก้ปัญหานี้ได้อย่างไรครับให้สามารถใช้งานได้สำหรับทุกเครื่อง สำหรับ password ให้ท่านจงใส่ 1234 ครับ หลักการคือ ให้เฉพาะช่างที่มี password นี้เป็นคนมาใส่ และซ่อมเสร็จแล้ว ให้ส่ง email แจ้งทุกท่านที่มีชื่อในช่อง n ครับ

Code: Select all

Sub EmailFromExcel()
    On Error GoTo PROC_EXIT
    Dim OL As New Outlook.Application

    Dim olMail As Outlook.MailItem
    Set olMail = OL.CreateItem(olMailItem)

    Dim SrcSheet As Excel.Worksheet
    Set SrcSheet = Sheets("StatusPage")

    With olMail
        .To = SrcSheet.Range("n3").Text + "@intriplex.co.th"
        .Subject = "Some documents are awaiting for approval."
        .Body = "Dear all concern, " & vbCrLf & vbCrLf & vbTab & _
        "Please consider to review and approve your document as link : file:///\\srv-05\Document_Control$\XX-Draft\DOC_APPROVE_STATUS\CheckOnStatus.xlsm" & vbCrLf & vbCrLf & _
        "Best regards," & vbCrLf & vbCrLf & _
        "Supaporn Klamthapthiraphon " & vbCrLf & _
        "Executive, Document Control " & vbCrLf & _
        "Precision Forming Group " & vbCrLf & vbCrLf & _
        "IntriPlex (Thailand) Ltd " & vbCrLf & _
        "158-160 Moo 1, Hi-Tech Industrial Estate, " & vbCrLf & _
        "T. Baanlane, A. Bangpa-in " & vbCrLf & _
        "Ayutthaya 13160  Thailand " & vbCrLf & vbCrLf & _
        "T : +66 (0) 35 729 183 " & vbCrLf & _
        "M: +66 (0) 86 089 9861 " & vbCrLf & _
        "F : +66 (0) 35 729 192 " & vbCrLf & _
        "www.mmi.com.sg " & vbCrLf & vbCrLf & _
        "This message may contain confidential or privileged information intended only for the use of the addressee(s) named above.  If you are not the intended recipient of this message, you are not to use, disseminate, distribute or reproduce this message contained herein to anyone.  If you have received this email in error, please notify the sender and delete this message. Thank You."

        .Display vbModal
        '.Send
    End With

PROC_EXIT:
    On Error GoTo 0
    OL.Quit
    Set OL = Nothing
End Sub

[snasui]

ลองตามนี้ครับ

1. เข้า VBE
2. คลิกเมนู Tools > เลือก Microsoft Outlook 12.0 Object Library หรือที่มีในเครื่อง เช่น 14, 15 แล้วแต่รุ่นของ Microsoft Office ที่ใช้
3. ทดสอบการ Run Code