مشکل محاسبه فیلد های خالی در دستور if

[Moralist]

با عرض سلام
بنده با تابع if فایلی را نوشتم که اگر مقاله فرد 2500 کلمه باشه بنویسه کوتاه و اگر 4000 کلمه باشه بنویسه بلند. خوب تا اینجا هیچ مشکلی نیست
مشکل اینجاست که حتی اگر سلولی خالی باشه می نویسه کوتاه و درنتیجه در هزینه خروجی من محاسبه میشه
در حقیقت مشکل اینجاست

=IF(E4<490؛"کوتاه"؛"بلند")

در حقیقت مشکلی که من دارم این است که برای if تعریف کرده ام اگر کوچکتر از 490 باشه بشه کوتاه در غیر اینصورت بشه بلند و خوب 0 هم جزو کوچکتر از 490 هست
به اصطلاح من میخوام محدوده اعداد از یک شروع بشه تا صفر و در نتیجه سلول خالی حساب نشه

با تشکر

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

[iranweld]

با سلام

مبنای تشخیص تعداد کلمه بکار رفته شما چیست؟

در فایل پیوست یک فرمول user define تعریف گردید که تعداد کلمات موجود یک جمله را شمارش مینماید ببنید مشکل شما را حل مینماید؟

Function wordcount(xx As String) As Integer
Dim y As Integer
y = 1
For i = 1 To Len(xx)
If Mid(xx, i, 1) = " " Then
y = y + 1
End If
Next
wordcount = y
End Function 

[Moralist]

با سلام

مبنای تشخیص تعداد کلمه بکار رفته شما چیست؟

باعرض سلام
ورود توسط کاربر
کاربر تعدادکلمه رو وارد می کنه

[iranweld]

اگر عدد وارد سلول میگردد

=if(and(A1>0,A1<490),"کوتاه","بلند") 

[Moralist]

با سلام

مبنای تشخیص تعداد کلمه بکار رفته شما چیست؟

در فایل پیوست یک فرمول user define تعریف گردید که تعداد کلمات موجود یک جمله را شمارش مینماید ببنید مشکل شما را حل مینماید؟

Function wordcount(xx As String) As Integer
Dim y As Integer
y = 1
For i = 1 To Len(xx)
If Mid(xx, i, 1) = " " Then
y = y + 1
End If
Next
wordcount = y
End Function 

با عرض سلام
البته این مناسب این مشکل من نبود ولی بسیار عالی و کاربردی بود برای برنامه من
این برنامه را نیز پیاده می کنم

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

[Moralist]

اگر هم تعداد کارکتر مد نظر شماست.

=if(and(len(a1)>0,len(a1)<490),"کوتاه","بلند") 

سلام و با تشکر
به این قسمت کد ایراد می گیرد

0,len

[iranweld]

اگر تعداد کلمه را بصورت عدد وارد میکنید

=if(and(A1>0;A1<490);"کوتاه";"بلند") 

[iranweld]

با عرض سلام
البته این مناسب این مشکل من نبود ولی بسیار عالی و کاربردی بود برای برنامه من
این برنامه را نیز پیاده می کنم

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

مراحل کار در تصویر پیوست نشان داده شده

[Moralist]

اگر تعداد کلمه را بصورت عدد وارد میکنید

=if(and(A1>0;A1<490);"کوتاه";"بلند") 

کد کوتاه و خوبی هست ولی مشکل من هنوز پابرجاست
یعنی اگر کادر خالی باشه مینویسه بلند که خوب نباید اینجوری باشه

[iranweld]

کد کوتاه و خوبی هست ولی مشکل من هنوز پابرجاست
یعنی اگر کادر خالی باشه مینویسه بلند که خوب نباید اینجوری باشه

این فرمول رو تست کنید

=if(a1="","",if(a1<490,"کوتاه","بلند"))