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

هناك طريقة أخري من الوورد احفظ الصفحة ك صفحة ويب File save as web page ثم من الاكسيل data import external data و نختار all files ثم نحدد مكان الملف و نختاره ثم Import

هل تواجهك نفس المشكلة اذا نفذت امر المسح من القائمة Edit clear contents اذا لا ، فالاغلب ان المشكلة فى لوحة المفاتيح

السلام عليكم أولا أشكر الأخوة على و خالد علي و أخص بالشكر الأخ mn20 على اضافته و بالنسبة للسؤال : أين أنت ياأستاذ محمد طاهر ؟ الإجابة : حالياً ، فى المنزل و بالتحديد أمام الكمبيوتر طبعا هذا ليس مقصد السؤال ! الحقيقة أني منذ فترة ليست بقصيرة لا أستطيع متابعة المشاركات بانتظام و على قدر ما يؤلمني ذلك ، على قدر ما أشعر باسعادة و الفخر لاستمرار عطاء الموقع اعتماداً علي أخوة أفاضل عوضوا غياب العديد من أعمدة الموقع الذين غابوا تباعاً بكفاءة و إخلاص ، بل و أضافوا كثيرا بأسلوب مختلف ، و هذا مدعاة فخر و سعادة لنا جميعا و أتمني أن يزيد ذلك و أن يتضاعف عدد الفاعلين من الأخوة فى الموقع و أن يصل الحال الي الوضع الامثل و هو أن يكون أغلب الأخوة متفاعلين فى الاضافة و الرد و أخيرا لا أستطيع ترك الموضع دون أن ألفت نظرالأخوة بحكم العادة الي عدم تخصيص شخص معين بطلب اجابة معينة ، لان هذا يتنافي مع قواعد المشاركة ، و لأن ذلك قد يغلق باب اجابة أفضل تأتي من شخص أعلم بالموضوع و نهاية أعتذر للجميع عن عدم التواجد و أشكر كل من يساهم فى استمرارعطاء الموقع ، و أدعو الله سبحانه و تعالي أن يجعله من باب علم ينتفع به ، ينفع حيث لا ينفع الندم و أن يزيد من عددهم و أن يجعلنا منهم و أن يستعملنا و لا يستبدلنا وييسر لنا سلوك دروب الخير و العلم و قضاء حوائج الآخرين.

اذا فتحت أي زر من أزرار طباعة التقارير مثلا ستجد الكود الخاص بالطباعة بهذه الصيغة Dim stDocName As String stDocName = "reportname" DoCmd.OpenReport stDocName, acPreview او مباشرة: DoCmd.OpenReport "reportname" و ما قصده الأخ رضوان هو تكرار الكود داخل نفس الأمر DoCmd.OpenReport "report1" DoCmd.OpenReport "report2" DoCmd.OpenReport "report3"

راجع الدرس رقم 12 فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=228 اذا كان الجدولان بنفس الاسم فيمكنك استخدام التصدير مع اختيار الاستبدال و هذا مثال من التعليمات علي تنفيذ حذف الجدول بالكود This example deletes the Employees table from the database. Sub DropX2() Dim dbs As Database ' Modify this line to include the path to Northwind ' on your computer. Set dbs = OpenDatabase("Northwind.mdb") ' Delete the Employees table. dbs.Execute "DROP TABLE Employees;" dbs.Close End Sub و هذخ أمثلة أيضا من التعليمات علي انشاء جدول This example creates a new table called ThisTable with two text fields. Sub CreateTableX1() Dim dbs As Database ' Modify this line to include the path to Northwind ' on your computer. Set dbs = OpenDatabase("Northwind.mdb") ' Create a table with two text fields. dbs.Execute "CREATE TABLE ThisTable " _ & "(FirstName CHAR, LastName CHAR);" dbs.Close End Sub This example creates a new table called MyTable with two text fields, a Date/Time field, and a unique index made up of all three fields. Sub CreateTableX2() Dim dbs As Database ' Modify this line to include the path to Northwind ' on your computer. Set dbs = OpenDatabase("Northwind.mdb") ' Create a table with three fields and a unique ' index made up of all three fields. dbs.Execute "CREATE TABLE MyTable " _ & "(FirstName CHAR, LastName CHAR, " _ & "DateOfBirth DATETIME, " _ & "CONSTRAINT MyTableConstraint UNIQUE " _ & "(FirstName, LastName, DateOfBirth));" dbs.Close End Sub This example creates a new table with two text fields and an Integer field. The SSN field is the primary key. Sub CreateTableX3() Dim dbs As Database ' Modify this line to include the path to Northwind ' on your computer. Set dbs = OpenDatabase("Northwind.mdb") ' Create a table with three fields and a primary ' key. dbs.Execute "CREATE TABLE NewTable " _ & "(FirstName CHAR, LastName CHAR, " _ & "SSN INTEGER CONSTRAINT MyFieldConstraint " _ & "PRIMARY KEY);" dbs.Close End Sub

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

السلام عليكم بالنسبة لي أيضا لم يتخط الماكرو مستوي الامان مرتفع جدا و ربما السبب فى تخطيه لديك اخي تامر هو خيار الوثوق بال vba Tools Macro Security و اختار علامة التبويب الثانية trusted publishers و راجع الخيارات أسفل الصفحة فاذا كان الخيار الثاني مفعلا فهذا سييسمح بتشغيل الماكرو و هذه الشاشة تتيح لنا التحكم فى ما تم تعريفه بالمصدر الموثوق به اذ يمكنك تعريف المصدار الموثوقة و حذفها و اعتقد هذا يحل المشكلة الي حد كبير و اذا كان لديك ماكروهات لها توقيع اليكتروني digital signature فيمكنك التجربة ، فكما ذكرت فى الموضع السابق اني لم يسبق لي التجربة و لكن علي الاقل نظريا اعتقد ان الموضوع محلول باستخدام هذه الخيارات ، او اتمني ان يكون كذلك

قد يكون الجواب غير مناسب و لكن كثيرا ما يحدث هذا فقط بسبب السهو و أن اللغة العربية/انجليزية أو بسبب ال caps lock عموما اطلب من مسئول الشبكة ان ياتي و يتاكد من الدخول لمرة ثم اختار خيار الاحتفاظ بكلمة السر بحيث لا يسألك بعدها

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

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

السلام عليكم اعتقد ان السبب هو البروكسي الذي تتصل منه

ايضا احد الاخطاء الدارجة ، هو حفظ الملفات بامتداد dot و ليس doc فلا تظهر عند محاولة فتح الملف من قائمة File open باعداداته الافتراضية و للتأكد من ذلك عند اختيار file open او ملف - فتح اختار بدلا من ملفات الوورد فى مربع الحوار الاسفل All files

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

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

سبب ظهور العلامة هو أن الخلايا التي تحسب المعادلة بناء عليها ليست خالية و لكن بها معلومة و هي علامة المسافة الفاضية space جري تحرير الخلية و اخلاؤها ستجد العلامة اختفت

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

تأكد من أن الماكرو لديك مفعل Tools Macro security level Medium أو Low جربت الملف و يعمل معي و المفترض ان يعمل علي النسخة العربية ايضا انزل الملف المرفق و تنقل بين ورقتي العمل و اخبرنا ماذا يحدث فان لم يعمل بعد التأكد من تفعيل الماكرو فقم يتسجيل ماكرو جديد عن طريق التسجيل و قم بحذف ال Toolbars ثم اوقف التسجيل ثم اختار تحرير الماكرو و انظر كيف تم تسجيل أسماء الادوات و اخيرنا

مرفق المثال بعد التعديل و ملاحظ اختلاف النتائج Pivot2.rar

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

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

راجع الموضوع المثبت في قسم تحليل البيانات بالارشيف http://www.officena.net/ib/index.php?showforum=49

هذا النوع من التحليل اول ما افكر فيه عندما يقابلني هو الجداول المحورية pivot tables

لابد من عمل ذلك بالكود و الله أعلم فى حدث التفعيل للشيت Private Sub Worksheet_Activate() Application.CommandBars("Forms").Visible = True Application.CommandBars("Standard").Visible = True Application.CommandBars("Formatting").Visible = True End Sub و طبعا الايقونات اعلاه كمثال فقط و يمكنك تحديد الايقونات التي تريدها و العكس بالنسبة للشيت الاخر IconPerSheet.zip

لنفترض أنك تريد تطبيق الفلتر علي العمود االاول بناء علي القيمة الموجودة فى الخلية a1 اكتب القيمة فى الخلية a1 ثم شغل الماكرو الكود فى الملف المرفق Selection.AutoFilter Field:=1, Criteria1:=Range("a1") Range("a1").Select filterauto.zip

مرفق مثال اختر احدي الخلايا ثم اختار قائمة التنسيق الشرطي من قائمة تنسيق لتري كيفية كتابة الشرط Format Conditional format الشرط معد بحيث ان اللون اذا كانت القيمة 7 او اكثر تلون بالازرق و ان كان اقل من 6 تلون بالاحمر و للتنفيذ اختار الخلايا المراد تلوينها و نفذ نفس التنسيق او اختار نسخ و لصق التنسيق من الخلايا فى الملف الي ملفك conditional.zip