جمع تجمعی

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • Aragorn

    • 2011/03/16
    • 52
    • 33.00

    جمع تجمعی

    با سلام خدمت تمامی کاربران


    آیا راهی هست که اکسل در یک خانه جمع تجمعی بدهد
    مثلا من در خانه A1 اعداد را وارد میکنم و میخواهم جمع تجمعی را در خانه B1 به من بدهد
    بدین صورت که بار اول عدد 100 را بنویسیم نتیجه 100 است حالا 100 را پاک میکنیم 200 مینویسیم نتیجه 300 بدهد و به همین ترتیب
    با تشکر از راهنماییتان
  • mrexcel

    • 2010/02/03
    • 436
    • 81.00

    #2
    RE: جمع تجمعی

    این گزینه در واقع کار یک حلقه میباشد که باید بوسیله ویژوال بیسیک نوشته شود . ولی در صورتی که این مقادیری که باید اضافه شود دارای نظم خاصی میباشد مثلا قرار است به جمع اول مقدار 5 اضافه گردد شما میتوانید در سلول a1 فرمول مقابل را بنوسید
    =a1+5 در واقع این فرمول باعث خطا circular خواهد شد که از مسیر زیر این خطا نیز حذف میگردد .
    exceloption>formula>enable interative calculation را تیک زده و maximum interation را هم یک قرار میدهید .
    ممکن است این امکان پاسخگوی شما باشد
    زنگ تفريح دنيا هميشگي نيست ، ساعت بعد حساب داريم

    کامنت

    • Aragorn

      • 2011/03/16
      • 52
      • 33.00

      #3
      RE: جمع تجمعی

      ممنون از پاسختون
      مقادیری که اضافه می شوند هیچ نظم خاصی ندارند
      بنابرایت احتمالا همان اولی می شود ولی متاسفانه ویژوال بیسیک بلد نیستم
      ماکرویی در این مورد هست برای دانلود؟

      کامنت

      • nimabahmani
        • 2016/01/30
        • 1

        #4
        سلام
        دقیقا سوال منم هست ممنون میشم کی کمک کنه

        کامنت

        • iranweld

          • 2015/03/29
          • 3341

          #5
          با استفاده از کدهای ذیل در قسمت کد نویسی شیت مورد نظر قابل انجام است

          کد PHP:
          Private Sub Worksheet_Change(ByVal Target As Range)

          If 
          Not Intersect(TargetMe.Range("A:A")) Is Nothing Then

          If Target.Count 1 Then

          TEMP 
          Target.Offset(, 1)

          Target.Offset(, 1) = Target TEMP

          Else

          MsgBox "Please select one Item"

          End If
          End If


          End Sub 
          فایل های پیوست شده
          Last edited by iranweld; 2016/02/04, 19:31.

          کامنت

          چند لحظه..