کم کردن عددی از عدد بزرگتر از خودش

[ehzamani]

سلام
می خواستم در یک ستون عددی را از عدد بزرگتر از خودش کم کند
در فایل پیوست شده کاملاً توضیح دادم
با تشکر

[iranweld]

با سلام

فایل پیوست را بررسی بفرمایید امیدورام که مطابق منظور شما باشد.

Sub TEST()

Dim LIST1 As New Collection

z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

Range("B1:B" & z1).ClearContents

For k = 1 To z1

Set LIST1 = Nothing

For I = k + 1 To z1

LIST1.Add Range("A" & k) - Range("A" & I)


Next I

Min = -1E+30


For j = 1 To LIST1.Count

If LIST1.Item(j) > Min And LIST1.Item(j) < 0 Then

Min = LIST1.Item(j)

If Min = -1E+30 Then Min = ""

Range("B" & k) = Min

Exit For

End If

Next j

Next k

End Sub 

[mohammad_ashooryan]

سلام
با کسب اجازه از استاد عزیز iranweld
من اینکار را با فرمول انجام دادم.
سوالی بود در خدمتم.
e2.xlsx

[ehzamani]

سلام
با کسب اجازه از استاد عزیز iranweld
من اینکار را با فرمول انجام دادم.
سوالی بود در خدمتم.
[ATTACH]10781[/ATTACH]

سلام
لطف میکنید بگید ایراد کار در فایل زیر کجاست؟

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

[mohammad_ashooryan]

سلام
شما باید فرمول رو به صورت آرایه ای وارد میکردید.
یعنی بعد از نوشتن فرمول به جای فشردن کلید اینتر، همزمان کلیدها کنترل و شیفت و اینتر را بفشارید.
e111.xlsx