محمد طاهر عرفه

أهلا بك بالنسبة للاشارة لقواعد المشاركة هي موجودة فى توقيعي الشخصي الذي يظهر فى أول مشاركة لي فى أي موضوع بصفة تلقائية و مشاركاتك هذه نموذجية و لا تخالف القواعد :d مع تحياتي

لنفرض أنك تريد تسجيل تاريخ اليوم فى العمود B بعد تعديل أي قيمة فى كل سطر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then If Range("B" & Target.Row) <> Now Then Range("B" & Target.Row) = Now End If End Sub adddateToColBonchange.rar

بما أن الخلايا فى الاكسيل معادلات و ليست أرقام ، فجرب الاتي جرب اضافة الدالة round اليها فلو كانت المعادلة مثلا =+C6/D6 فحولها الي =ROUND(C6/D6;2) و استبدل ال 2 بالارقام العشرية التي تريد

المثال المعدل GrageCountIF-array.rar

كان يوجد خطأ لدي فى التطبيق و هو الاشارة الي ملف net.exe الخاص ب 98 فى جدول ال path بينما أنا فى اكس بي و بتعديل القيمة الي نفس المسار الي الملف الخاص بالاكس بي ظهرت النتيجة سليمة فى ملف النص المسمي MACLIST و لكن الكود يعمل بنجاح و يعطي أسماء الاجهزة ووصفها فى ملف النص و لا تظهر بالنموذج استدراك : و باعادة الكود الي اصله قبل التعديل الاخير ، يعطي النتيجة سليمة (y) ملاحظة بسيطة أنه عند التشغيل للنموذج لاول مرة أعطاني فقط بعض الاجهزة ( عدد 5 فقط من اجمالي يقارب المائة ) ، و لكن بتشغيل النموذج ثانية اعطي كل الاجهزة المفتوحة و لكن لم يحدث ذلك ثانية عند التجربة لمرات لاحقة ، و أعطي النتيجة سليمة من أول مرة كود ممتاز جدا ، مع الشكر و التحية

و لتنفيذ اعادة ادخال القيم فى الخلايا المختارة دفعة واحدة راجع هذا الموضوع إعادة إدخال القيم فى الخلايا المختارة

جميل فكرة اعادة التفعيل باضافة صفر و اذا أردنا تنفيذ اعادة التفعيل ( إعادة ادخال القيم ) علي الخلايا المختارة ، دون التدخل فى التنسيق نزيل سطر التنسيق فقط Sub Reenter_values() Dim MyRow As Double, Z As String MyRow = Selection.Rows.Count For j = 1 To MyRow Z = ActiveCell.Value ActiveCell.Cells.FormulaR1C1 = Z ActiveCell.Offset(1, 0).Activate Next j End Sub

السلام عليكم أهلا بك فى الاكسيل قم بتنسيق الخلايا علي أنها برقمين عشريين ثم Tools options calculations precision as dispalayed و قد تحتاج الي اعادة ادخال الارقام فى الاكسيل ، أو ضغط F2 فى الخلايا اذا لم تظهر بالتنسيق المطلوب و يوجد بالمنتدي فى مشاركة سابقة ماكرو يقوم بذلك اذا كان عدد الخلايا كبيرة ( اعادة ادخال البيانات )

لفتح التقرير علي السجل المفتوح فى الفورم اذا كان الحقل الذي يصنف السجل رقمي DoCmd.OpenReport "REPORTNAME", acViewPreview, , "[ID]=" & forms![Forname]![TXTBOXNAME] واذا كان نص DoCmd.OpenReport "REPORTNAME", acViewPreview, , "[ID]='" & forms![Forname]![TXTBOXNAME] & "'" و طبعا من الجميل تقسيم الجملة الي متغيرات كما فى مشاركتك ، مع مراعاة نفس الشروط و يوجد أمثلة بقسم التقارير بخلاصة مشاركات الاكسيس

و هنا يوجد شرح للجداول المحورية

ملاحظة : المثال الرابع يخص درجات الطلاب و التقدير التلقائي فى الإكسيل بعدة طرق مختلفة

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

اضغط شيفت أثناء فتح الملف

للرفع للمراجعة أنا جربته سابقا علي الاكس بي وقت اعداده ، و سارفع الموضوع حتي لا أنساه مع تحياتي

بدا لي من اسم الملف أنه خاص ب ويندوز 98 كعميل جربت تجربة مبدأية ، و لم أحصل علي النتيجة ، و توقف الاكسيس سأجرب ثانية بعد بعض التظبيط فى الجهاز سؤال ، هل استنتاج أنه معد فقط ل 98 سليم ، أم يمكن التجربة مع اكس بي ؟

ادوات ماكرو حماية منخفض أيضا يجب تحميل تحديث للويندوز الخاص ب Jet 4.0 Service Pack 8 لانه ايضا له علاقة برسالة تظهر تخص ال unsafe expressions و لتحميله ، لويندوز اكس بي Jet 4.0 Service Pack 8 من هنا و هذا يمنع الرسالة الكبيرة التي تشير الي التحديث أما الرسالة العادية الخاصة بالتنبيه بوجود كود فى الملف فحلها كما أشار الأخ أمير

شكرا علي الاكواد و علي المثال الجميل ، و الشكر موصول لمعد المثال

السلام عليكم قد يكون استخدام ال Data access Pages أكثر مناسبة لما تريد و بالنسبة للاقتراح السابق : في الاختصار ضع المسار كالتالي : بحسب المسارات لديك مسار الملف التنفيذي - مسافة - مسار الملف ثم الخيار الاضافي مثال : "E:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" "C:\db1.mdb" /x macro1 و في الماكرو ضع طباعة التقرير و يليه أمر Quit أو ان كنت تريد المشاهدة لا تضع Quit فى الماكرو ضع فى حدث عند الغلق للتقرير Docmd.quit مع تحياتي

السلام عليكم نظريا يمكن اضافة الامر /x macro الي ال Startup command-line و ذلك لتشغيل ماكرو معين و يمكن أن تجعل الماكرو يفتح أو يطبع التقرير مع تحياتي

وجدت هذا الكود لدي و لم أجربه ، و يبدو أنه يمكن التحكم بين العرض و الطباعة من المتغير الاخير Sub PrintAccessReport(dbname As String, rptname As String, preview As Boolean) Dim objAccess As Object On Error GoTo PrintAccessReport_ErrHandler Set objAccess = CreateObject("Access.Application") With objAccess .OpenCurrentDatabase filepath:=dbname If preview Then 'Preview report on screen. .Visible = True .DoCmd.OpenReport reportname:=rptname, view:=Access.acPreview Else 'Print report to printer. .DoCmd.OpenReport reportname:=rptname, view:=Access.acNormal DoEvents 'Allow report to be sent to printer. else Msgbox "Logic Error" End If End With Set objAccess = Nothing Exit Sub PrintAccessReport_ErrHandler: MsgBox Error$(), , "Print Access Report" End Sub

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

بافتراض أن التطبيق سيتم علي العمود B Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = "2" Then Currcell = "B" & Trim(Str(Target.Row)) nextcell = "B" & Trim(Str(Target.Row + 1)) If Range(nextcell).Value = "" And Range(Currcell).Value <> "Last cell" Then Range(nextcell).Value = "Last cell" End If End If End Sub و الكود معد علي أساس أن الاسماء متصلة فى هذا العمود ، أي لا تترك خلايا خالية LastCell.rar

أخي هشام بشويش شوية :d كلنا متفقين أن الفكرة ممتازة ، لكن التطبيق لابد أن يسبقه تخطيط و ترتيب و قبل كل شيء اقتناع المشاركين و اتفاقهم علي تفاصيل الهدف و ليس علي فكرته مرة أخري

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

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