code แจ้งเตือนเมื่อมีการเปลี่ยนข้อมูลในคอลัมน์

[sutham]

ผมอยากเขียน code ให้มีการแจ้งเตือนทุกครั้งที่มีการเปลี่ยนข้อมูลในคอลัมน์ F หรือ H
โดยฝึกเขียนจากการศึกษาจากแหล่งต่างๆ ในเว็บ ได้ code ดังนี้

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For i = 1 To 1000
If Cells(i, 6) <> "" Or Cells(i, 8) <> "" Then
MsgBox ("คุณเปลี่ยนแปลงข้อมูลในคอลัมน์" & Target.Column)
Exit Sub
Else
Exit Sub
End If
Next i
    Application.EnableEvents = True
End Sub

ไม่แน่ใจว่าจะถูกต้องหรือไม่ เพราะเมื่อ run code แล้วไม่มีข้อผิดพลาด แต่ msgbox ไม่แสดง
จึงขอคำแนะนำด้วยครับ
ขอบคุณครับ

[DhitiBank]

ลองปรับโค้ดเป็นแบบนี้ครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 6 Then
        MsgBox "คุณเปลี่ยนแปลงข้อมูลในคอลัมน์ F", vbInformation
    ElseIf Target.Column = 8 Then
        MsgBox "คุณเปลี่ยนแปลงข้อมูลในคอลัมน์ G", vbInformation
    End If
End Sub

[sutham]

ขอบคุณครับ ทำได้แล้วครับ

[sutham]

รบกวนถามต่ออีกนิดนึงครับ
ใน excel เราสามารถเขียน vba ให้แสดงข้อความเวลาที่เอาเมาท์ไปชี้ได้หรือไม่ครับ
เหมือนกับการทำ hyperlink นะครับ
ถ้าใช้ vba ได้ ขอคำแนะนำด้วยนะครับ เพื่อจะได้นำไปลองเขียนดูครับ
ขอบคุณครับ

[snasui]

ใช้ Information ใน Validation เข้ามาช่วยได้ ดูตัวอย่างที่นี่ครับ http://stackoverflow.com/questions/1762 ... ents-excel

[sutham]

จากที่ลองศึกษาและลองทำ ของผมได้แค่คลิ๊กแล้วแสดงข้อมูล
แต่ที่อยากทำให้ได้ คือ เมื่อเมาท์เลื่อนไปอยู่บน แล้วแสดงข้อความ เมื่อเอาเมาท์ออกข้อความก็หายไป
สิ่งที่ผมทำได้อยู่ใน sheet1 ซึ่งผมใช้ code นี้ครับ

Code: Select all

Sub สี่เหลี่ยมมุมมน6_Click()
Sheet1.Shapes("TextBox 7").Visible = msoTriStateToggle
End Sub

[snasui]

สามารถใช้ Hyperlink มาช่วยได้ครับ โดย

คลิกขวาลงบน Object > Hyperlink > ตรง Type the cell reference คีย์ E4 > คลิก ScreenTip... > ตรง ScreenTip text: คีย์ข้อความที่ต้องกาาร > OK

[sutham]

ผมทำได้แล้วครับ ขอบคุณทุกท่านครับ

[sutham]

พอทำไปเรื่อยๆ มีปัญหาที่พบเจออีกครับ ที่ทำไม่ได้
คือ ผมได้สร้าง textbox ชื่อว่า textbox1 โดยสร้างจาก ตัวควบคุม ActiveX
ซึ่งสิ่งที่ผมต้องการคือ เมื่อเปิด workbook นี้ขึ้นมาครั้งแรก ให้ข้อความใน textbox เป็นค่าว่าง
ผมได้ใช้ code นี้ใน workbook

Code: Select all

Private Sub Workbook_Open()
TextBox1.Value = ""
End Sub

ปรากฎว่าติด error
ช่วยแนะนำด้วยครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Sheet1.TextBox1.Value = ""

[sutham]

ขอบคุณครับ เพิ่มเติมความรู้ให้ผมได้เยอะเลย

[sutham]

ลองปรับโค้ดเป็นแบบนี้ครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 6 Then
        MsgBox "คุณเปลี่ยนแปลงข้อมูลในคอลัมน์ F", vbInformation
    ElseIf Target.Column = 8 Then
        MsgBox "คุณเปลี่ยนแปลงข้อมูลในคอลัมน์ G", vbInformation
    End If
End Sub

ตามโค้ดนี้ผมทำได้แล้วครับ
แต่มีคำถามอีกนิดนึงครับ ว่า หากเราเจาะจงเฉพาะในช่วงเซลล์ได้หรือไม่ เช่น ให้เตือนเมื่อค่าใน f6 เปลี่ยนแปลงเท่านั้น ผมลงปรับโค้ดเป็น

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Range("f6").Select Then
        MsgBox "คุณเปลี่ยนแปลงข้อมูลใน F6", vbInformation
    End If
End Sub

ก็ยังไม่ได้ตามที่ต้องการเพราะไม่ว่าเซลล์ไหนเปลี่ยน จะขึ้นเตือนหมดเลย รบกวนเพิ่มเติมด้วยครับ

[snasui]

ปรับ Code เป็นด้านล่างครับ

If Target.Address = "$F$6" Then

[sutham]

ปรับ Code เป็นด้านล่างครับ

If Target.Address = "$F$6" Then

ผมได้นำ code ตามที่ อ. แนะนำ ไปประยุกต์ใช้แล้ว แต่ไม่เกิดการเปลี่ยนแปลง ไม่ทราบว่าเกิดจากสาเหตุใด โดย code ที่ผมปรับ คือ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "e6" Then
MsgBox "คุณมีการเปลี่ยนแปลงค่า", vbInformation
        Range("h10").Select
    End If
End Sub

รบกวนขอคำแนะนำอีกครั้งครับ

[snasui]

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

[sutham]

ใช่เลย. ในที่สุดก็ทำได้แล้วครับ ขอบคุณสำหรับคำแนะนำครับ