[حل شده] ماکرو جمع دو محدوده

[ali0253]

با عرض سلام خدمت دوستان عزیز انجمن.دوستان بنده ماکرویی ایجاد کردم که مقادیر موجود در محدوده (A1:A15)و (B1:B15) را با هه جمع کنه.و در محدوده (C1:C15) درج کنه. اما اجرا نمیشه

Sub NN1()
Dim i As Integer
For i = 1 To 15
Range("c1:c15").Value = Range("a1:a15").Value + Range("b1:b15").Value
Next i
End Sub

اما به روش زیر اجرا میشه.

Sub MM1()
Dim i As Integer
For i = 1 To 15
Cells(i, 3) = Cells(i, 1) + Cells(i, 2)
Next i
End Sub

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

[Javid Mokhtari]

با عرض سلام خدمت دوستان عزیز انجمن.دوستان بنده ماکرویی ایجاد کردم که مقادیر موجود در محدوده (A1:A15)و (B1:B15) را با هه جمع کنه.و در محدوده (C1:C15) درج کنه. اما اجرا نمیشه

Sub NN1()
Dim i As Integer
For i = 1 To 15
Range("c1:c15").Value = Range("a1:a15").Value + Range("b1:b15").Value
Next i
End Sub

اما به روش زیر اجرا میشه.

Sub MM1()
Dim i As Integer
For i = 1 To 15
Cells(i, 3) = Cells(i, 1) + Cells(i, 2)
Next i
End Sub

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

با سلام...

شما در روش دوم جمع بصورت سلول به سلول انجام دادین ولی در روش اول جمع بصورت محدوده کردین.یعنی شما گفتین محدوده a1:a15 را با محدوده b1:b15 جمع کن و این اشتباهه.اون حلقه هم اونجا هیچ کاربردی نداره

[rasools13]

با سلام
Range("c1:c15") بیانگر یک محدوده شامل 15 سلول است و نمیتوان عملیات ریاضی را روی آن انجام داد مگر اینکه محدوده تنها شامل یک سلول باشد همانند Range("C1")...
برای ارجاع دادن به یک سلول خاص معمولا از Cells استفاده میشه چون میتوان با دادن شماره سطر و ستون به سلول مورد نظر ارجاع داد..
در این کار شما از For...Next استفاده می کنید اما در مورد اول از متغیر i در عبارات بین For...Next استفاده نکردین یعنی اگر هم
Range("c1:c15").Value = Range("a1:a15").Value + Range("b1:b15").Value
عبارت صحیحی باشد در آن صورت مقدار i تغییری در جواب نخواهد داشت حتی تا 1000 هم ادامه یابد.
..
اما در مورد دوم چون از متغیر i در عبارت بین For...Next استفاده شده به ازای تغییر مقدار i جواب عبارت بین For...Next نیز متغیر خواهد بود

[ali0253]

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