ส่งไลน์แจ้งเตือนเองทุกครั้งที่ค่าเปลี่ยน

[nettory]

ผมจะเขียน vba ยังไงให้ส่งไลน์แจ้งเตือนทุกครั้งที่ค่าเปลี่ยนในช่อง c4 ครับ โดยที่เราไม่ต้องมาคอยกด ให้มันทำงานส่งเองทึกครั้ง
ส่วนค่าใน c4 จะเปลี่ยนสุ่มไปเรื่อยๆ ถ้าเรากด f9 ครับ
และในการสุ่มเราไม่ต้องการให้ค่าซ้ำกันเลยไม่ว่าจะช่องเดิมที่เคยแสดงผลหรือทั้งหมดในจำนวน 5 ช่องที่กำหนด

รบกวนอาจารย์และพี่สมาชิกแนะนำด้วยครับ แนบไฟล์ที่มี vba line notify มาด้วยครับ

ขอบคุณครับ

[snasui]

ตัวอย่างสูตรและ Code ครับ

เซลล์ E4 เขียนสูตรเพื่อตรวจสอบว่าค่าซ้ำหรือไม่

=MAX(INDEX(COUNTIFS(B3:B7,B3:B7),0))=1

Enter

เพิ่ม Code ใน Sheet1 ด้านล่างของ Code เดิม

Code: Select all

Private Sub Worksheet_Calculate()
    Application.EnableEvents = False
    Do While Range("e4").Value = False
        Application.Calculate
    Loop
    Application.EnableEvents = True
    Call LineNotify
End Sub

[nettory]

ได้แล้วครับ
ขอบพระคุณครับอาจารย์

[nettory]

รบกวนอีกครั้งครับ
ผมจะส่งเลขแสดง % เช่น 65% ไลน์ส่งไม่ไป ถ้าเลข 65 หรือ 0.65 ส่งได้ปกติครับ

ขอคำแนะนำครับอาจารย์

[snasui]

แนบไฟล์ล่าสุดที่ปรับปรุง Code แล้วมาด้วยเสมอจะได้ตอบต่อไปจากนั้นครับ