اگه فرمول زیر را مشاهده بفرمایید
"
If Range("a1") = "hasan" Then
Range("b1") = "C
Else: Range("b1
End If
End Sub
با تشکر
|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
Sub test()
For i = 1 To 10
If Range("a" & i) = "hasan" Then
Range("b"&i).Value = "C"
Else
Range("b" & i).Value = "B"
End If
Next i
End Sub
Sub test()
Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
For i = 1 To Z
If Range("a" & i) = "hasan" Then
Range("b"&i).Value = "C"
Else
Range("b" & i).Value = "B"
End If
Next i
End Sub
Sub test()
For i = 1 To 10
If Range("a" & i) = "hasan" Then
Range("b"&i).Value = "C"
Else
Range("b" & i).Value = "B"
End If
Next i
End Sub
Sub test()
Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
For i = 1 To Z
If Range("a" & i) = "hasan" Then
Range("b"&i).Value = "C"
Else
Range("b" & i).Value = "B"
End If
Next i
End Sub
کامنت