نمایش نتایج: از شماره 1 تا 10 , از مجموع 10

موضوع: میانگین وزنی

  1. #1


    آخرین بازدید
    2024/02/20
    تاریخ عضویت
    October 2013
    نوشته ها
    277
    امتیاز
    106
    سپاس
    117
    سپاس شده
    95 در 60 پست
    سطح اکسل
    62.00 %

    میانگین وزنی

    با درود. وقتی می خوایم میانگین وزنی دو محدوده رو محاسبه کنیم از چه دستوری توی vb استفاده میکنیم؟
    فایل پیوست حاوی فرمولهای مورد نظره. ممنونم.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.

  2.  

  3. #2


    آخرین بازدید
    3 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    سلام

    متوجه سوالتون نشدم. شما میخواین همین فرمول رو در vba پیاده کنید یا اینکه میخواین یک سری کدنویسی انجام بشه که محاسبات رو انجام بده؟

  4. #3


    آخرین بازدید
    2024/02/20
    تاریخ عضویت
    October 2013
    نوشته ها
    277
    امتیاز
    106
    سپاس
    117
    سپاس شده
    95 در 60 پست
    سطح اکسل
    62.00 %

    میخوام همین فرمول در مورد محدوده مورد نظر در vba نوشته بشه. در واقع کد نویسی کاملش رو میخوام. یعنی محدوده ها تعریف بشه و محاسبات رو انجام بده و نتیجه رو اعلام کنه.

  5. #4


    آخرین بازدید
    3 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط پیام نمایش پست ها
    میخوام همین فرمول در مورد محدوده مورد نظر در vba نوشته بشه. در واقع کد نویسی کاملش رو میخوام. یعنی محدوده ها تعریف بشه و محاسبات رو انجام بده و نتیجه رو اعلام کنه.

    اگه یک بار این رو با ماکرو ضبط کنید خیلی راحت به نتیجه دلخواهتون میرسید

    کافیه سلول کنار سلول شرط رو انتخاب کنید و ماکرو زیر رو ران کنید
    کد:
    Sub Macro1()
        Selection.FormulaArray = "=SUM((R1C1:R15C1=RC[-1])*(R1C2:R15C2*R1C3:R15C3))/SUMIFS(R1C2:R15C2,R1C1:R15C1,RC[-1])"
    End Sub

  6. #5


    آخرین بازدید
    2024/02/20
    تاریخ عضویت
    October 2013
    نوشته ها
    277
    امتیاز
    106
    سپاس
    117
    سپاس شده
    95 در 60 پست
    سطح اکسل
    62.00 %

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

  7. #6


    آخرین بازدید
    3 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

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

  8. #7


    آخرین بازدید
    2024/02/20
    تاریخ عضویت
    October 2013
    نوشته ها
    277
    امتیاز
    106
    سپاس
    117
    سپاس شده
    95 در 60 پست
    سطح اکسل
    62.00 %

    میخوام همش به صورت کد vb باشه. من اعداد رو دستی توی محدوده وارد میکنم ولی تعریف محدوده ها و محاسبات و نتیجه رو به صورت کدنویسی میخوام اگه ممکنه. ممنونم.

  9. #8


    آخرین بازدید
    3 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط پیام نمایش پست ها
    میخوام همش به صورت کد vb باشه. من اعداد رو دستی توی محدوده وارد میکنم ولی تعریف محدوده ها و محاسبات و نتیجه رو به صورت کدنویسی میخوام اگه ممکنه. ممنونم.

    امیدوارم منظورتون رو درست متوجه شده باشم. خدمت شما

    کد:
    Sub EI_GeometricMean()
    Dim criteria_range As String, first_range As String, second_range As String, criteria As String
    criteria_range = "A1:A15"
    first_range = "B1:B15"
    second_range = "C1:C15"
    criteria = Range("F5").Value
    
    
    For Each cel In Range(criteria_range)
        r = cel.Row
        If cel.Value = criteria Then
            qq = Range(first_range).Cells(r, 1) * Range(second_range).Cells(r, 1) + qq
            ww = Range(first_range).Cells(r, 1) + ww
        End If
    Next cel
    MsgBox (qq / ww)
    End Sub


  10. سپاس ها (1)


  11. #9


    آخرین بازدید
    2024/02/20
    تاریخ عضویت
    October 2013
    نوشته ها
    277
    امتیاز
    106
    سپاس
    117
    سپاس شده
    95 در 60 پست
    سطح اکسل
    62.00 %

    با سپاس از زمانی که میگذارید.
    یک پیغام خطا میده که توی عکس پیوست نشون دادم.
    تصاویر کوچک فایل پیوست تصاویر کوچک فایل پیوست Untitled.png  

  12. #10


    آخرین بازدید
    3 ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط پیام نمایش پست ها
    با سپاس از زمانی که میگذارید.
    یک پیغام خطا میده که توی عکس پیوست نشون دادم.

    رو روش برای حل این مشکل هست
    یکی اینکه در محیط ویژوال بیسیک از منوی tools گزینه options رو انتخاب کنید و در پنجره جدید تیک دوم (require variable declaration) رو بردارید و یا کد زیر رو بعد از خط دوم اضافه کنید

    کد:
    Dim cel
    من پیشنهاد میکنم روش اول رو انجام بدین
    ویرایش توسط Amir Ghasemiyan : 2017/09/02 در ساعت 14:57

  13. سپاس ها (1)



اطلاعات موضوع

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

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پاسخ ها: 3
    آخرين نوشته: 2016/03/01, 18:36
  2. مشخض نمودن روزهای فروش در هفته
    توسط ACE در انجمن فاکتور های فروش و حقوق و دستمزد،چک
    پاسخ ها: 14
    آخرين نوشته: 2015/12/09, 00:14
  3. سفارش پروزه
    توسط omnia در انجمن دفتر مديريت پروژه - Project Management Office
    پاسخ ها: 12
    آخرين نوشته: 2015/07/05, 18:53
  4. دفتر روزنامه و کل
    توسط master در انجمن دفتر روزنامه و كل و كارت انبار در اكسل
    پاسخ ها: 2
    آخرين نوشته: 2014/09/13, 23:26

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

میانگین وزنی در excel

کلید واژه میانگین وزنی در اکسل

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است