مشخص کردن فاصله بین دو عدد

**mohammad_ashooryan** · 2015/08/02, 17:11

با سلام
با استفاده از يه محدوده كمكي فايل رو پيوست كردم.
سوالي بود در خدمتم.
Book1 (41).xlsx

**پیام** · 2015/08/03, 08:42

دوست عزیز از زمانی که گذاشتید سپاسگزارم. ولی راستش من فرمولش رو نتونستم متوجه بشم. نتایج درسته.البته مقداری من توی فرمول نویسی مشکل دارم. به هر حال ممنونم.

**پیام** · 2015/08/03, 08:42

امکانش هست فرمولهای ساده تری نوشت و جدول کمکی هم استفاده نکرد؟

**khakzad** · 2015/08/03, 13:52

سلام
من ی روش مشابه رو توضیح میدم:
از فرمت سل ها استفاده می کنم.
به این شکل که فرمت سل هایی که قرمز هستن رو تغییر میدم. مثلا میذارمش روی number
اینطوری می تونیم با استفاده از فرمول cell فرمتش رو استخراج کنیم. تا اینجا تونستیم سل هایی که قرمز هستن (فرمتشون متفاوت هست) رو تشخیص بدیم. بعد یک فرمول م ینوویسیم که اگر فرمت اون سل مثلا F1 بود (یعنی فرمتش number بود) شماره ستونش رو بذاره.
تا اینجا می تونیم هر لحظه با تغییر فرمت هر سل دلخواه، اون رو به لیست زیرین اضافه کنیم ( می تونید با فرمت پینتر اینکار رو کنید) مثلا یک سل قرمز رو معمولی کنید و یک سل بدون فرمت رو فرمت مورد نظر بدید.

حالا با استفاده از فرمول موجود، ادرس محدوده بین اعداد رو پیدا میکنیم و counta اونها رو محاسبه می کنیم.
فعلا باید با استفاده از سل کمکی اینکا رو رو بکنید چون باید به طریقی به اکسل بفهمونیم که سل های رنگی متفاوت هستن.
اما اگر از وی بی استفاده کنید، سل کمکی نمی خواد که اساتید وی بی باید کمک کنن.

فایل رو گذاشتم
سوالی بود در خدمتم

فکرکنم روشم مشابه اقای mohammad2060 هست. اما من هر کار کردم نتونستم با تکست کردن سل ها به نتیجه دلخواه برسم. چون ایشون از خاصیت تکست بودن متن استفاده کردن.

به هر حال روش تقریبا مشابه هست . فرمول ها متفاوتن

فایل های پیوست شده

Copy of Book1-2.xlsx (14.4 کیلو بایت, مشاهدات 30)

**پیام** · 2015/08/07, 21:20

ممنون از شما اساتید محترم. اگه کسی راه ساده تری رو بلد بود ممنون میشم راهنمایی کنه.

**khakzad** · 2015/08/08, 14:12

علت قرمز شدن ااعداد رو توضیح بدید
شاید بشه توی فرمول گنجوند

**جینگیل** · 2015/08/08, 15:50

وای خسته نباشید دوستان

عجب فرمول طول و درازی کاش اقا

mohammad2060 کمی در موردش توضیح میداد

**iranweld** · 2015/08/08, 18:01

با سلام

با ویژوال بیسیک شماره ستون سلول خالی قبل از سلول پر بعدی بدست آمد با یک تفریق ساده میتوانید فاصله بین دو عدد را محاسبه کنید

کد PHP:


Sub test()

Dim i, j, k As Integer

Range("B12:bg15").Select
    Selection.ClearContents
    Range("B12").Select

For k = 4 To 7
j = 2
For i = 2 To 250
If Cells(k, i).Value = "" And Cells(k, i + 1).Value <> "" Then

Cells(k + 8, j).Value = Cells(k, i).Column
j = j + 1
End If
Next i
Next k

End Sub