اعلام خطا ورود اطلاعات

[razemana]

با سلام و وقت بخیر ،یه مقدار عدد میخواستم وارد کنم و در صورتی که از یه قدار بیشتر بود خطا بده و مقدار باقیمانده رو هم نشون بده در صورت امکان ، ممنون میشم راهنمایی بفرمایید

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[amir_ts]

با سلام
این کد رو در شیت مربوطه قرار بدید.

Private Sub Worksheet_Change(ByVal Target As Range)
      Dim aval As Integer
    If Target.Count > 1 Then Exit Sub
    If Intersect(Target, Range("G5")) Is Nothing Then Exit Sub
      
     If Target.Value > Range("e5").Value Then
                     aval = Target.Value - Range("e5").Value
                     MsgBox " Èå ãÞÏÇÑ" & " " & aval & "æÇÍÏ ÇÒ ãÞÏÇÑ ÈæÏÌå ÈíÔÊÑ ÇÓÊ æ äíÇÒ Èå ÊÇãíä ÇÚÊÈÇÑ ÏÇÑÏ."
                     Target.Value = ""
     End If
            
     Range("f5").Value = Target.Value
End Sub