28-04-13, 04:23 AM
ارجو مساعدتي في تحويل هذه الخوارزمية الى برنامج فجوال المصاحب لبرنامج اكسل MS excel
ربما يوجد تداخل او جمل غير مفهومة لكني اريد الخطوط العريضة لكيفية كتابة البرنامج بلغة vb المصاحبة للاكسل
Ti يمثل عمود في الاكسل فيه بيانات حرفية SPi هو بيانات في احد الاعمدة
E.S يمثل ناتج معادلة رياضية لها جذر تربيعي
SP1=0
SP2=0
K=0
FOR P=1 TO N
FOR i=1 TO N
IF(Ti="2M");
SP1=SP1+SPi
SP2=SP2+(SPi)³
IF(OR(Ti="2S";Ti="2R");
SP1=SP1+SPi
SP2=SP2+(SPi)³
Next i
for k=0 TO i
E.S(K,12)=√(SP2/SP1)
Next k
IF(Ti=" ");EXIT FOR
next p
ارجو المساعدة
ربما يوجد تداخل او جمل غير مفهومة لكني اريد الخطوط العريضة لكيفية كتابة البرنامج بلغة vb المصاحبة للاكسل
Ti يمثل عمود في الاكسل فيه بيانات حرفية SPi هو بيانات في احد الاعمدة
E.S يمثل ناتج معادلة رياضية لها جذر تربيعي
SP1=0
SP2=0
K=0
FOR P=1 TO N
FOR i=1 TO N
IF(Ti="2M");
SP1=SP1+SPi
SP2=SP2+(SPi)³
IF(OR(Ti="2S";Ti="2R");
SP1=SP1+SPi
SP2=SP2+(SPi)³
Next i
for k=0 TO i
E.S(K,12)=√(SP2/SP1)
Next k
IF(Ti=" ");EXIT FOR
next p
ارجو المساعدة