جمع کدام اعداد x میشود؟

سلام
راستش را بخواهید من آشنایی مختصری با ماکرو نویسی در اکسل دارم و برای همین توضیح ماکروی فوق برایم ساده نیست برای مشاهده ماکوری نوشته شده نیز در پستهای قبلی توضیح دادم کافی است کلیدهای Alt و F11 را همزامان بزنید.
درهرصورت متن ماکرو به شرح زیر است

Option Explicit Private Target As Double Private EndRow As Integer Private Limit As Integer Private OutRow As Integer Sub AddsUp() Columns(3).Clear Target = Range("h1").Value EndRow = Range("A1").End(xlDown).Row Limit = 10 OutRow = 1 Add1 1, 0, "", 0 End Sub</p> <p>Private Sub Add1(ByVal BegRow As Integer, ByVal SumSoFar As Double, _ ByVal OutSoFar As String, ByVal Num As Integer) Dim ThisRow As Long Dim OneA As String If (BegRow <= endrow)="" and="" (sumsofar=""></=>< target)="" and="" (num="">< limit)="" then="" for="" thisrow="BegRow" to="" endrow="" onea="Cells(ThisRow," 1).address(rowabsolute:="False," columnabsolute:="False)" if="" outsofar=""><> "" Then OneA = " + " & OneA End If If (Round(SumSoFar + Cells(ThisRow, 1).Value, 2) = Target) And (Num > 0) Then Cells(OutRow, 3).Value = OutSoFar & OneA OutRow = OutRow + 1 Else Add1 ThisRow + 1, Round(SumSoFar + Cells(ThisRow, 1).Value, 2), _ OutSoFar & OneA, Num + 1 End If Next ThisRow End If End Sub ' <a href="http://forum.hma.ir">http://forum.hma.ir</a> کاربرگرامی به شما اجازه ویرایش متن فوق داده نشده است البته می‌توانید متن را کپی نمایید

آخرین ویرایش 17 خرداد 1394