وبلاگ

رخداد Change زمانی رخ می‌دهد که سلول‌های کاربرگ توسط کاربر یا یک پیوند خارجی تغییر می‌کند.

دستور اجرا

expression.Change (Target)

expression متغیری است که یک شی Worksheet را نمایندگی می‌کند.

پارامتر‌ها

مقدار بازگشتی

ندارد.

ملاحظات

رخداد Change هنگامی که مقدار سلول‌ها در طول محاسبه مجدد تغییر می‌کند، رخ نمی‌دهد. برای این منظور باید از رویداد Calculate برای فعال کردن محاسبه مجدد کاربرگ استفاده نمایید.

ویدئوی آموزشی

مثال

کد زیر با استفاده از رخداد Change مقادیر ورودی کاربر را اعتبارسنجی می‌کند و در صورت لزوم با ایجاد یک کامنت هشدار لازم را به کاربر ارسال می‌کند.

Private Sub Worksheet_Change(ByVal Target As Range) Dim boolCheck As Boolean Dim strMessage As String Dim rngCell As Range ' Clear existing formats and comments Target.Interior.Pattern = xlNone Target.ClearComments Target.Font.Color = vbBlack ' Exit if more than one cell is changed or if the cell is empty If Target.Cells.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub boolCheck = False ' Check if Target is within the specific ranges and validate If Not Application.Intersect(Target, Me.Range("A2:A10")) Is Nothing Then strMessage = "Please fill the Cell with a valid name" If Not Target.Value Like "[A-Za-z ]*" Then boolCheck = True End If ElseIf Not Application.Intersect(Target, Me.Range("B2:B10")) Is Nothing Then strMessage = "Employee ID must be ten digits long" If Not Target.Value Like "[0-9]*" Or Len(Target.Value) <> 10 Then boolCheck = True End If ElseIf Not Application.Intersect(Target, Me.Range("C2:C10")) Is Nothing Then strMessage = "The salary month must be a number between 1 and 12" If Not Target.Value Like "[0-9]*" Or CInt(Target.Value) < 1 Or CInt(Target.Value) > 12 Then boolCheck = True End If ElseIf Not Application.Intersect(Target, Me.Range("D2:D10")) Is Nothing Then strMessage = "Activity days must be a number between 0 and 31" If Not Target.Value Like "[0-9]*" Or CInt(Target.Value) < 0 Or CInt(Target.Value) > 31 Then boolCheck = True End If End If ' If validation fails, add comment and change formatting If boolCheck Then Target.AddComment strMessage Target.Interior.Color = vbRed Target.Font.Color = vbWhite End If
End Sub