السلام عليكم
حد يعرف طريقه لتجميع الارقام في النص.مثلاً
5000مشتريات*
5000مصروفات*
يكون الناتج
15000
انا عملت محاوله تعتمد على الست بوكس
شوفها في المرفقات
فيها مشكله اظن انها بسبب ال خاصيهright to left
بتعكس النص مش عارف؟؟؟
سؤال عن كيفيه تجميع الارقام
انا فكرتي تقوم على البحث عن الرمز * فاذا وجدناه فأننا نقطع النص الى مكان وجوده ونضع الجمله بالكامل في اللست ثم
نعيد البحث بدايه من مكان اخر رمز وجدناه ثم نقطع النص الى مكان وجوده ونضع الجمله بالكامل في اللست....وهكذا
For lop1 = 0 To w_found 'ÊßÑÇÑ ÈÚÏÏ ãÑÇÊ ÖåæÑ ÇáÇÑÞÇã Stat4 = InStr(I2, Text4, "*") ' 2iíÈÍË Úä ãßÇä ÇáÑãÒ æíÈÊÏí ÇáÈÍË ãä Þíãå 'ÊÍãá ãßÇä ÖåæÑ ÇÎÑ ÚáÇãå stat4Þíãå Statu = Mid(Text4, I2, Stat4) MsgBox Statu I2 = I2 + Stat4 'ÚáÇÔÇä íÈÊÏí ÇáÈÍË ãä ÍíË ÊæÞÝäÇ Next lop1
I believe that there is no god but Allah and Mohamed is Allah Messenger
السلام عليكم اخي الفاضل مافي شي صعب
بس انا حملت الملف حقك ولا عرفت وش المطلوب
انت تبغى تجمع الي موجود في التكست او شي ثاني مثل اذا وجد البرنامج علامة * يقف
اشرح وتجد الحل
نعم اخي اريد تجميع الارقام في مربع النص مثلاً
500مصروفات فنيه*
100مصروفات اداريه*
400مصروفات اخرى*
فيطبع المجموع 1000
لكن لا يتم تقطيع النص في شكل صحيح
والملف المرفق يوضح محاوله مني لعمل ذلك عن طريق عن طريق فصل كل جمله بالعلامه "*" لكن المشكله ان الجمل لايتم قطعها بالكامل؟؟؟؟
I believe that there is no god but Allah and Mohamed is Allah Messenger