درون یابی با vba

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • amir0914

    • 2015/09/20
    • 67

    [حل شده] درون یابی با vba

    با سلام خدمت دوستان محترم. من یک ستون اعداد دارم که شامل تعداد زیادی بازه ثابت هست و میخوام که داخل این بازه ها درون یابی بشه، مثل فایل نمونه که چند بازه رو خودم دستی حساب کردم به این ترتیب که عدد دوم بازه منهای عدد اول بازه و نتیجه تقسیم بر 5 می شود و این عدد به دست آمده در هر بازه با عدد قبلی جمع می شود تا به عدد دوم بازه برسیم. میخوام که این کارها اتوماتیک شود. خیلی ممنون
    فایل های پیوست شده
    Last edited by amir0914; 2017/03/26, 20:51.
  • Amir Ghasemiyan

    • 2013/09/20
    • 4598
    • 100.00

    #2
    سلام دوست عزیز
    این کد جواب مورد نظر شما رو میده

    کد:
    Sub Interpolation_EI()
    i = 1
    While 1
        a = Range("A" & i).Value
        b = Range("A" & i).Offset(5, 0).Value
        If b = "" Then Exit Sub
        step = (b - a) / 5
        For j = 1 To 4
            Range("A" & i).Offset(j, 0).Value = a + j * step
        Next j
        i = i + 5
    Wend
    End Sub

    کامنت

    چند لحظه..