محمد طاهر

و جزاك الله خيرا إن شاء الله :)

قف فى اول خلية فى الورقة الجديدة next day worksheet اضغط + اختار الورقة السابقة بالماوس previous day worsheet اختار الخلية التي بها المجموع اضغط Enter

فى مناقشة مع احدالزملاء ( أحمد شرف) وصلتني هذه المعلومة الخفيفة ، فوددت كتابتها لتعم الفائدة مع الشكر له لكي يتم التعليم علي الصف الخاص بايام الجمعة مثلا فى جدول معين بتنسيق مختلف بدون عمل اعمدة اضافية (فقط بناء علي تاريخ اليوم ) اختار الجدول ثم من قائمة تنسيق…

المفروض أن يتم النسخ فى الكود من السجل الفعال أي الذي تقف عليه بالماوس لتنفذه أي تكتب رقم المنفذ ، فيتحول الي جزئي و تضغط تنفيذ ، فيتم ترحيل الجزء الباقي لهذا السجل الي سجل جديد و ليس آخر سجل فهل ما يحدث غير هذا ؟؟

جزاك الله خيرا

هذا أتصور أن يكون ربط مباشر بين الثلاثين ورقة وورقة المستخلص بدون معادلات شرطية أو بحثية و يكون الاضافة هنا هو ان الثالاثين ورقة تكوينهم واحد تماما ربما يعيبني البعد عن الاجتماعيات فى الردود ، خصوصا مع ضيق الوقت ، و حقيقة لا أعرف مستواك فى الاكسيل حتي أعبر عن …

أعتقد أن التصور الأقرب الي ذهني هو وجود متغير معين من نوع له حد علوي مثل مثلا ال Integer و هو يقارب ال 32,767 ، و عندما تصل نتيجة احدي العمليات لهذا الرقم أو تتعداها ، يصبح البرنامج غير قادر علي التعامل مع البيانات أي اذا كانت القيمة المسجلة فى هذا المتغير 400…

و الكود فى المثال هو Private Sub Command26_Click() Dim Ttotal As Double, Tdone As Double, Trem As Double Dim Ttype As String, Tnin As String, Tprice As String, Tcomp As String Dim Tfile As String, TMtype As String, Tnewnum As String Tnewnum = Forms![نموذج1]![q…

و يمكنك عمل 31 ورقة و ربط التاريخ ( الخلية الصفراء ) بمعادلة تضيف 1 فيصبح بذلك مطلوب كتابة التاريخ فقط فى اول ورقة فى كل شهر

مرفق مثال أعتقد أن به حل مناسب يوجد ورقة باسم list بها القائمة و مثال علي ورقة يومية باسم 1 و فيها كل المطلوب هو كتابة تاريخ اليوم فى الخلية الصفراء ، و سيتغير المحتوي و يستنتج اليوم و البيانات كلها بناء علي ذلك و بها 4 بنود كمثال و يمكنك بعد اكمال المعادلات ا…

مثال به عدة طرق منها ما يعتمد علي دالة IF و ما يعتمد علي التنسيق الشرطي و منها الكود و هذا هو الجزء الخاص بالكود Private Sub Workbook_Open() If ActiveWorkbook.Worksheets(1).Range("d6").Value >= Now() Then MsgBox "the value in cell d6 is >= the current date !!"…

مشكور و يبدو أن هناك دروس أخري http://www.hawary.net/

للرفع تم اعادة الموضوع من الارشيف ، حيث تم استكمال الاضافة اليه من أخونا أبو هادي مشكورا - علي الاضافة و التنبيه :) و أرجو من الجميع عند الاضافة الي مشروع بالارشيف التنبيه لنقله ثانية الي المنتدي العام لكي يستفيد اكبر عدد من الاضافة الجديدة

http://www.rarlabs.com/download.htm

أرجو أن يكون هذا ما تريد و قد غيرت أسماء بعض الحقول الي الانجليزية و أضفت قيمة افتراضية لحقلين لكي استطيع التعامع معها بالكود و انصح بتغيير باقي الاسماء و الكائنات الي العربية ، فعن نفسي و قد شاركني الكثير من الاخوة فى هذا نواجه صعوبة شديدة فى التعامل مع العرب…

لا يمكن ذلك و أعتقد أنه لا داعي له

لاضافة سجل جديد DoCmd.RunSQL "INSERT INTO Table1 ( t1, t2, t3) select [Forms]![UnboundForm]![t1] as exp1, [Forms]![UnboundForm]![t2] as exp2, [Forms]![UnboundForm]![t3] as exp3;" هذا السطر باضافته الي الكود مع تغيير الاسماء الي أسماؤك يعني ادراج سجل جديد فى ال…

ان أحد الحلول لما تريد هو أسلوب ال consolidate /ن قائمة Data و هو يعني أن يكون هناك بيانات متماثلة فى أكثر من مكان و مطلوب مجموع هذه البيانات بحركة واحدة فى مكان واحد مع امكانية اظهار التفاصيل

يمكن عمل استعلام يتم فيه تجميع الرقم و بعد ذلك البحث فيه و التجميع من الحقول الي حقل واحد محسوب mm يتم باستخدام & mm: [field1]&[field2]&[field3]

راجع الارشيف http://www.arabteam2000.com/vb/showthread....=&threadid=5655