Snasui Excel Forum

Code: Select all

Sub MsgBox shows()
    Dim rng As Long
     For Each rng In Sheets("sheet1").Range("D5")
    If rng.Value = 0 + 1 Then
    End If
    Next rng
    MsgBox "อย่าลืมใส่ค่าขนส่งนะครับ"
End Sub

Code: Select all

Private Sub CommandButton1_Click()
r = 4
Do
r = r + 1
Loop Until Cells(r, 4) = ""
Cells(r, 4).Select

MsgBox "ÂѧäÁèä´é¡ÃÍ¡¨Ó¹Ç¹  ÅӴѺ·Õè " & Cells(r, 1)


End Sub

Code: Select all

Private Sub CommandButton1_Click()
r = 4
Do
r = r + 1
Loop Until Cells(r, 4) <> ""
Cells(r, 4).Select
MsgBox "ªèͧ D" & Cells(r, 1) + 4 & " ÁÕ¢éÍÁÙÅ", vbCritical
End Sub

Code: Select all

Sub WorkSheet_ChangeCode()
    If Sheets("sheet1").Range("d5") = 1 Then MsgBox "อย่าลืมใส่ค่าขนส่ง"
End Sub

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("d5").Address Then
        If Range("d5").Value = 1 Then
            MsgBox "msgbox show"
        End If
    End If
End Sub