با توجه به سوال ارسالی پاسخ همین می باشد که جناب amir-ts گفتند در غیر این صورت فایل نمونه بفرستید...!
فراموش نشود که به جای اینتر باید از Ctrl+Shift+Enter استفاده نمایید.
برای سلول های خالی :
کد:
=PRODUCT(IF(A1:C1<>"",A1:C1))
[B][SIZE=1]بخش امضاء :
[/SIZE][/B][LEFT]
[CODE]
Sub Macro()
ActiveCell = "IY" & Right(Application.Name, 5)
With ActiveCell.Characters(Start:=2, Length:=1).Font
.Name = "Webdings"
.Color = 255
End With
End Sub
[/CODE]
[/LEFT]
با توجه به سوال ارسالی پاسخ همین می باشد که جناب amir-ts گفتند در غیر این صورت فایل نمونه بفرستید...!
فراموش نشود که به جای اینتر باید از Ctrl+Shift+Enter استفاده نمایید.
دوست عزیز
با ادای احترام و ارادت به دوستان و اساتیدی که به هر طریقی راه حلی رو به شما پیشنهاد دادند به نظر من میشه مشکل شما رو فقط با یک فرمول حل کرد . اگر در ستون های m . N . O , داد متفاوتی رو داشته باشیم میتونیم از طریق این فرمول مشکل رو حل کنیم .
من اعداد رو در این ستونها و در ردیف های 13 تا 16 نوشتم
موفق و پیروز باشید
کامنت