کمک در مورد vba

[امین نیما]

با سلام خدمت اساتید و دوستان

اگه فرمول زیر را مشاهده بفرمایید

"

If Range("a1") = "hasan" Then
Range("b1") = "C

Else: Range("b1


End If

End Sub

چطور باید فرمول رو اصلاح کرد به جای اینکه یک سلول رو بررسی کنه برای شرط چند تا سلول را برسی کنه مثلا از a1:a10 هر کجا hasan نوشته بود شرط برقرار باشه
با تشکر

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

[iranweld]

با سلام

این هم کد درخواستی شما

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 

و اگر هم خواستی تا آخرین سلول پر ستون A را برای شما بررسی کنه طوری که شما انتهای ستون رو هر بار مشخص نکنید از کد ذیل استفاده کنید

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 

و اگر هم خواستی تا آخرین سلول پر ستون A را برای شما بررسی کنه طوری که شما انتهای ستون رو هر بار مشخص نکنید از کد ذیل استفاده کنید

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 

با تشکر مشکل
اینه که من نمیدونم PHP چیه و چجوری باید فرمول شما رو بکارگیری کرد در اکسل
در مودل باید فرمول را کپی کرد
یک توضیح کوچیک بدین در باره نحوه فعال سازی PHP llk,k ldal

[iranweld]

با سلام

فایل پیوست حاوی توضیحات اولیه میباشد

[امین نیما]

با سلام

فایل پیوست حاوی توضیحات اولیه میباشد

با تشکر از شما سوال اخر این که کدوم قسمت فرمول مربوط به command boutom
اجرای فرمول در فرمول شما است(چجوری اجرای فرمول رو به فرمول مربوط کردین)؟
با تشکر از شما دوست گرامی

[امین نیما]

با تشکر از شما سوال اخر این که کدوم قسمت فرمول مربوط به command boutom
اجرای فرمول در فرمول شما است(چجوری اجرای فرمول رو به فرمول مربوط کردین)؟
با تشکر از شما دوست گرامی

آقا ممنون متوجه شدم چیکار کردین فرق form control با activex control در چیست؟
با تشکر