[عمر سالم]

(02-02-17, 12:05 AM)sendbad100 كتب :

كود :

Dim X As Double

For i = 1 To MF.Rows - 1
x = Val(x)+ Val(MF.TextMatrix(i, 2))
Next
MsgBox x

اسف
جرب هذا

لا يوجد عندي فجوال حاليا كي اتاكد من صحة الكود

sendbad100

بارك الله فيك الكود اشتغل ميه الميه الله يرحم ولديك ويجعلك انت وجميع الاهل والاحباب رفقاء النبي علية الصلاة والسلام في الفردوس الاعلى من الجنة 

كيف اجعل الناتج داخل TEXT 
انا قمت بطريقة الا وهي بوضع label بدلmsgbox بحيث يبقى Label1.Caption = X