Snasui Excel Forum

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

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

Code: Select all

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

Code: Select all

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

Code: Select all

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

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