[حل شده] کمک در باره vba

[امین نیما]

با سلام خدمت دوستان و اساتید
این PHP را مشاده بفرمایید

Y = ActiveSheet.Cells(5).Column

K = ActiveSheet.Cells(35).Column

For i = Y To K

If Cells(4, i) <> "*" Then

If Cells(3, i).Value = "ali" Then

Cells(6, i).Value = "D

Else


Cells(6, i).Value =""


End If
End If

Next i

End Sub

در فرمول گفته شده اگه شروط بر قرار بود در سلول 6 بنویس دی مشکل اینجاست میشه کاری کرد در قسمت else در صورتی که شرط برقرار نباشد سلول را پاک کند(فرمولی که من نوشتم در صورت برقرار نبودن شرط ، خالی میزاده سلول رو ولی اگه از قبل چیزی در سلول نوشته شده باشه سلول را پاک نمیکنه)

با تشکر

[ordouei]

با سلام
به نظر من بهتر است با توجه به شرایط موجود از and , Or استفاده بشود . در صورت لزوم از if تو در تو .

بعد از مطالعه or - and اگر مشگلی بود بفرمائید - راهنمائی میشود

موفق باشید

[iranweld]

با سلام

هیچ مشکلی در اجرای ماکرو وجود ندارد
در فایل اول در صورتیکه یک شرط برقرار بود سلول پاک میشود
در فایل دوم در صورتیکه هر دو شرط برقرار بود سلول پاک میشود

[s.cheraghi]

با سلام خدمت دوستان و اساتید
این PHP را مشاده بفرمایید

Y = ActiveSheet.Cells(5).Column

K = ActiveSheet.Cells(35).Column

For i = Y To K

If Cells(4, i) <> "*" Then

If Cells(3, i).Value = "ali" Then

Cells(6, i).Value = "D

Else

Cells(6, i).Value =""
End If
End If

Next i

End Sub

در فرمول گفته شده اگه شروط بر قرار بود در سلول 6 بنویس دی مشکل اینجاست میشه کاری کرد در قسمت else در صورتی که شرط برقرار نباشد سلول را پاک کند(فرمولی که من نوشتم در صورت برقرار نبودن شرط ، خالی میزاده سلول رو ولی اگه از قبل چیزی در سلول نوشته شده باشه سلول را پاک نمیکنه)

با تشکر

سلام

محتوای سلول شما زمانی پاک میشه که شرط اول (Cells(4, i) <> "*") برقرار باشه ولی شرط دوم (Cells(3, i).Value = "ali") برقرار نباشه!
اگه میخواین که سلول زمانی پاک بشه که هر دو شرط برقرار نباشه دو IF را در قالب یک IF که از AND استفاده میکنه بنویس از راه زیر استفاده کن:

If -(Sheet1.Cells(4, 1).Text <> "*") + -(Sheet1.Cells(3, 1).Text = "ali") = 2 Then

else
     Sheet1.Cells(6, 1).Clear
End If 

[امین نیما]

سلام

محتوای سلول شما زمانی پاک میشه که شرط اول (Cells(4, i) <> "*") برقرار باشه ولی شرط دوم (Cells(3, i).Value = "ali") برقرار نباشه!
اگه میخواین که سلول زمانی پاک بشه که هر دو شرط برقرار نباشه دو IF را در قالب یک IF که از AND استفاده میکنه بنویس از راه زیر استفاده کن:

If -(Sheet1.Cells(4, 1).Text <> "*") + -(Sheet1.Cells(3, 1).Text = "ali") = 2 Then

else
     Sheet1.Cells(6, 1).Clear
End If 

با تشکر از راهنمایی شما اگه از این دستور استفاده کنم کل سلول پاک میشه من میخوام فقط نوشته توی سلول پاک بشه نه جداول و رنگ سلول دستوری هست که فقط نوشته توی سلول رو پاک کنه ؟

Sheet1.Cells(6, 1).Clear

با تشکر از شما

[امین نیما]

با سلام

هیچ مشکلی در اجرای ماکرو وجود ندارد
در فایل اول در صورتیکه یک شرط برقرار بود سلول پاک میشود
در فایل دوم در صورتیکه هر دو شرط برقرار بود سلول پاک میشود

اقا تشکر میکنم دستور LCase مشکل را حل کرد فقط این دستور چه کاری انجام میده راهنمایی بفرمایید ممنون میشم

[iranweld]

با سلام

اگر در سلول حروف درشت نوشته شده باشه همه رو تو محاسبات با حروف کوچیک کلمه مورد نظر برابر میبینه
مثلا ali=Ali=ALI=aLI

[امین نیما]

با سلام

اگر در سلول حروف درشت نوشته شده باشه همه رو تو محاسبات با حروف کوچیک کلمه مورد نظر برابر میبینه
مثلا ali=Ali=ALI=aLI

با تشکر از تمامی دوستان و اساتید محترم