پرسش درج مقدار مشخص در ستون سوم، به شرط برابری مقادیر دو ستون دیگر

[ظهور 313]

سلام و عرض ادب خدمت اساتید محترم
جدولی دارم كه میخوام ببینم اگر در هر سطر، مقادیر ستون a و b با هم مساوی بودند، در ستون سوم، عبارت تایید را درج كند؟
ممنون میشم اگر اساتید راهنمایی بفرمایند

[majid_mx4]

با سلام ضمن تبریک سال نو

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

=IF(AND(A2<>"",B2<>"",A2=B2),"ok","")

پایدار باشید میر

[ظهور 313]

ممنون استاد عزیز
این مقدار رو بلدم
اما میخواستم با استفاده از فرمولهای VBA این كار رو انجام بدم
قبلا با استفاده از راهنمایی یكی از اساتید همین سایت، شرط برقراری یك مقدار در ستون A رو بررسی میكردم اما الان نیازم فرق میكنه
فرمول قبلی:

Z1 = Cells(Rows.Count, "T").End(xlUp).Row
For Each cell In Sheets("TABLE1").Range("T2:T" & Z1)
If IsNumeric(cell) Then
If Val(cell) = 1 Then
Sheets("TABLE1").Range("U" & cell.Row & ":U" & cell.Row) = "تاييد"
End If
ElseIf cell = 1 Then
Sheets("TABLE1").Range("U" & cell.Row & ":U" & cell.Row) = "تاييد"
End If
Next

[majid_mx4]

با سلام

میتوانید از دستورات زیر استفاده نمایید.

Sub mir()
Z1 = Cells(Rows.Count, "T").End(xlUp).Row
For Each cell In Sheets("TABLE1").Range("T2:T" & Z1)
If IsNumeric(cell) Then
If Val(cell) = Val(cell.Offset(0, 1)) Then
Sheets("TABLE1").Range("V" & cell.Row & ":V" & cell.Row) = "ÊÇííÏ"
End If
'ElseIf cell = 1 Then
'Sheets("TABLE1").Range("U" & cell.Row & ":U" & cell.Row) = "ÊÇííÏ"
End If
Next
End Sub

پایدار باشید میر

[ظهور 313]

با سلام

میتوانید از دستورات زیر استفاده نمایید.

Sub mir()
Z1 = Cells(Rows.Count, "T").End(xlUp).Row
For Each cell In Sheets("TABLE1").Range("T2:T" & Z1)
If IsNumeric(cell) Then
If Val(cell) = Val(cell.Offset(0, 1)) Then
Sheets("TABLE1").Range("V" & cell.Row & ":V" & cell.Row) = "ÊÇííÏ"
End If
'ElseIf cell = 1 Then
'Sheets("TABLE1").Range("U" & cell.Row & ":U" & cell.Row) = "ÊÇííÏ"
End If
Next
End Sub

پایدار باشید میر

ممنون جناب میر عزیز
من با توجه به نیازم، یه سری شرط دیگه هم به فرمول شما اضافه كردم، اما خطا میده، ایراد از فرمول منه؟
Z1 = Cells(Rows.Count, "W").End(xlUp).Row
For Each cell In Sheets("TABLE1").Range("W2:W" & Z1)
If IsNumeric(cell) Then
If Val(cell) <> 0 And Val(cell) = Val(cell.Offset(0, -1)) And Val(cell.Offset(0, -2)) <> "تاييد" Then Sheets("TABLE1").Range("U" & cell.Row & ":U" & cell.Row) = "تاييد"
Else
If Val(cell) <> 0 And Val(cell) = Val(cell.Offset(0, -1)) And Val(cell.Offset(0, -2)) <> "تاييد" Then Sheets("TABLE1").Range("U" & cell.Row & ":U" & cell.Row) = "تاييد"
End If
Next

[majid_mx4]

با سلام

دستورات شما دو تا مشکل داره اول اینکه شرایط if ارسالی شما با شرایط Else یکی است و مشخص نبود که دقیقا میخواهید چکار کنید.

دوم حرف ی در کلمه تایید می باشد که برای دستورات شما قابل شناسایی نبود که دو حالت برای اینکار در نظر گرفته شده اولی که سبز رنگه و غیر فعال که میتوانید آن را فعال کنید کلمه تایید را از یکی از سلولهای میگیرد.
دومی که استفاده از کد حروف .
انچه که بنظرم رسید میخواهید انجام دهید دستورات آن را نوشتم لطفا اگر مطابق میل شما نبود حتما در یک فایل و با کمی توضیح خواسته خود را ارسال کنید .

Sub Corection()


Z1 = Cells(Rows.Count, "W").End(xlUp).Row
For Each cell In Sheets("TABLE1").Range("W2:W" & Z1)
If IsNumeric(cell) Then
'If Val(cell) <> 0 And Val(cell) = Val(cell.Offset(0, -1)) And Val(cell.Offset(0, -2)) <> Range("T1") Then
If Val(cell) <> 0 And Val(cell) = Val(cell.Offset(0, -1)) And Val(cell.Offset(0, -2)) <> Chr(202) & Chr(199) & Chr(237) & Chr(237) & Chr(207) Then

Sheets("TABLE1").Range("U" & cell.Row & ":U" & cell.Row) = "ÊÇííÏ"
'Else
'If Val(cell) <> 0 And Val(cell) = Val(cell.Offset(0, -1)) And Val(cell.Offset(0, -2)) <> "ÊÇííÏ" Then Sheets("TABLE1").Range("U" & cell.Row & ":U" & cell.Row) = "ÊÇííÏ"
End If
End If
Next
End Sub

موفق باشید

[ظهور 313]

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



Z1 = Cells(Rows.Count, "Q").End(xlUp).Row
For Each cell In Sheets("PAR").Range("Q10:Q" & Z1)
If Val(cell) <> 0 And Val(cell) <> "" And Val(cell) = Val(cell.Offset(0, -1)) And Val(cell.Offset(0, -2)) = "" Then
Workbooks("ESME AAZAM").Sheets("PAR").Range("O" & cell.Row & ":O" & cell.Row) = "OK"
End If
Next

[majid_mx4]

سلام لطفا یک فایل نمونه ارسال کنید.

پایدار باشید میر