Snasui Excel Forum

โค๊ดที่ให้มาใช้ไม่ได้ทำไงดีค่ะ

Sub Action_Plan_Open()

End Sub
Sub AlertActionPlan()
Dim C, B As String
Dim varColumnb As Variant
If ColumnC = TODAY Then
MsgBox "ÊÇÑÊ´Õ¤èÐ ¤Ø³ÁÕ§Ò¹µéͧ·Ó"


End If
End Sub
Sub Round()
For Each C In ActionPlan.CurrentRegion.Cells
If Abs(C.Value) < 0.01 Then C.Value = TODAY

Next
End Sub

Sub ...

Sub Round()
For Each C In ActionPlan.CurrentRegion.Cells
If Abs(C.Value) < 0.01 Then C.Value = TODAY

Next
End Sub

Sub RoundToZero2()
For Each C In Sheet2("Action Plan").Range("C:B").Cells
If Abs(C.Value) < 0.01 Then C.Value = TODAY

Next
End Sub

ตรวจดูให้หน่อนค่ะ C7 หนูผูกสูตร =TODAY() ไว้

ขออธิบายก่อนนะค่ะ
1ต้องการ แจ้งเตือนแบป็อปอัพโดยให้ข้อมูลในคอลัม B ขึ้นอยู่ในป็อปอัพด้วย
เช่น วันนี้วันที่ 27/3/60 เวลาเปิดไฟล์งานขึ้นมาก็จะเห็น Pop up ขึ้นเตื่อน สวัสดีค่ะ งานวันนี้คือ เช็คระบบไฟ
2ต้องการแจ้งเตือนที่ชีต Action Plan โดยคอลัม C คือวันที่ ที่จะต้องทำงานนั้น

Private Sub Worksheet_Open()

End Sub

Sub mycolumnc()
If (C = TODAY) Then
MsgBox ("Switchgear SF6 (2 in 4 out)")

End If
End Sub

ปรึกษาค่ะ
1.หนูมีตารางงานที่ต้องทำเป็นประจำทุกเดือน แต่ใน 1 ดือนมีหลายงาน แต่งานซ้ำกันทุกเดือน
2.หนูลองใช้ VBA แล้วเบื่องต้นแต่ผลที่อกกมายังไม่น่าพอใจ
2.1 หนูอยากให้ขึ้นเตือแบบ Pop Up โดยการรันวันที่และเนื้อหาให้สอดคล้องกัน
2.2 หนูอยากให้ Pop Up เด้งขึ้นเองและเตือนทุก 5 นาที
2.3 มีทางเป็นไปได ...