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

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

جميل فكرة اعادة التفعيل باضافة صفر و اذا أردنا تنفيذ اعادة التفعيل ( إعادة ادخال القيم ) علي الخلايا المختارة ، دون التدخل فى التنسيق نزيل سطر التنسيق فقط 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 كلنا متفقين أن الفكرة ممتازة ، لكن التطبيق لابد أن يسبقه تخطيط و ترتيب و قبل كل شيء اقتناع المشاركين و اتفاقهم علي تفاصيل الهدف و ليس علي فكرته مرة أخري

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

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

خطر لي ايضا بالنسبة للاستبدال أنه يمكن استخدام احدي خاصيتي ال autocorrect or autotext و لكن بعد ردك الاخير ، فلا طريق امامك الا استبدال الخط للمسافة و الله أعلم و هذا وارد تنفيذه ايضا من من Edit Replace او CTR+H و نستبدل المسافة بمسافتين مع تغيير الخط

هل يفي بالغرض ، ان تستبدل المسافة الخالية فى المستند كله أو فى السطور المختار بمسافتين أو ثلاثة ؟؟ أقصد من Edit Replace او CTR+H

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

أشكركما كثيرا أخي تلميذ الاكسيل تم اضافة شرح لكليفية تكرار الماكرو علي عدة خلايا هنا http://www.officena.net/ib/index.php?showtopic=3138

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