أ / محمد صالح

تفضل أخي الكريم الموقع الكبير لعرض النتائج جاري تعديله ليتناسب مع درج في كل ترم من 100 ما تم عمله على ملف الإكسل الخاص بكم تم تعديل الملف وحذف الأعمدة المخفية وفك دمج الخلايا للوصول للأعمدة المطلوب عرضها في النتيجة تم استيراد الشيت إلى قاعدة بيانات أكسس تم تصدير الجدول طالب كملف xml تم وضع الملف xml بجوار ملف html في نفس المجلد تم تعديل ملف html وإضافة عمودين لنشاط1 ونشاط2 وإضافة التقدير ويمكنك تعديل اسمي في صفحة html وإضافة اسم رئيس الكنترول ومدير المدرسة وكذلك تعديل اسم المدرسة والإدارة والصف natiga_xml.rar

أخي الكريم يفضل استعمال البحث أولا قبل كتابة مواضيع جديدة وخاصة في حالة الأمور البسيطة في بداية الطريق فأنا أنصح كل من يريد أن يتعلم بأن يقرأ ويبحث أولاُ ثم يسأل بعد ذلك إذا لم يصل لما يريد هذه بعض الروابط http://www.officena.net/ib/index.php?showtopic=37788 وهذا فيديو

أخي الكريم ايمن إذا كنت تتحدث عن البرنامج الخاص بعرض نتيجة المدرسة على موقع المدرسة بواسطة html و xml فالطريقة تتلخص في تصدير الجدول الذي يحتوي على بيانات ودرجات الطلاب بصيغة xml http://office.micros...P003091293.aspx هذا إذا كان ملف الدرجات أكسس وإذا كان ملف الدرجات إكسل يمكن استيراد ملف الإكسل إلى الأكسس أولا ثم تصدير الجدول إلى xml وتسميته بنفس اسم ملف xml المرفق مع ملف html ووضع الاثنين في مجلد واحد في الموقع أتمنى يكون الأمر اتضح ولكن أنا شخصيا أفضل وهذا هو أصل الموضوع عرض جميع نتائج المدارس في الموقع الأول حتى نتمكن من تفعيل الإحصائيات والمقارنات مما يسهم ولو بقدر يسير في تطوير العملية التعليمية

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

الأخت الفاضلة هل المقصود بالعدد المتوفر من كل مادة هو عمود الرصيد؟؟ إذا كان كذلك فيمكنك وضع المعادلة التالية في الخلية المجاورة لمادة 1 في الصفحة الرئيسية ( D6 ) ='Skin-des ملون'!D200 وهي آخر خلية في عمود الرصيد في شيت مادة1 المسمى 'Skin-des ملون' وفي حالة وجود مسافة في اسم الشيت يجب وضعه بين علامتي تنصيص ثم علامة التعجب ! ثم مرجع آخر خلية وهي D200 وهكذا يمكن تكرار الأمر مع باقي المواد والشيتات ............ عذرا أخي طارق لم أر حلك الرائع إلا بعد إرسال المشاركة

أخي الكريم سأخبرك بالطريقة ثم قم أنت بتسجيل الماكرو إذا كنت ترغب في عملها بالكود أولا قم بتحديد المدى الذي تريد نسخه ثم قم بتحديد المرئي فقط من خلال الضغط على ALT+; أو من تبويب الصفحة الرئيسية home اضغط على البحث والتحديد find & select ثم اضغط على ذهاب إلى خاص goto special ثم الخلايا المرئية فقط visible cells only ثم موافق ok ثم تابع عملية النسخ واللصق بصورة طبيعية CTRL+C & CTRL+V ستجد أنه تم نسخ الخلايا الظاهرة فقط

أكرمك الله أخي الكريم تم تعديل الملف بحيث يتم اختيار الملفات المرفقة ويتم كتابتها في مربع النص 5 ثم يتم إضافتهم جميعا كمرفقات للرسالة أتمنى من الله أن يكون هذا هو المطلوب ولا تنسوني من صالح دعائكم mas_IT3.rar

أخي الكريم لاحظ أن هذه الرسالة تصل لأكثر من شخص وفي هذه الحالة سيكون المرفق واحداً للجميع راجع هذا الأمر وبإذن الله محلولة

بعد إذن أخونا عبد الله أخي الكريم يجب التأكد من أن القيم المدخلة تواريخ أو أقام في حالتك هذه لأنك قمت بتقسيم التاريخ إلى أرقام وذلك من خلال التحقق من صحة البيانات data validation

أشكر جميع الإخوة على المرور الكريم نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

بعد إذن مهندس الموقع أخونا طارق ربما يكون هذا الملف مفيدا راعيت فيه استعمال دالة الفرق بين تاريخين بمنتهى الدقة وتم إضافة الساعات والدقائق والثواني ويرجى مراجعة النتيجة على كل حالات التواريخ من باب اكتمال العمل المتبقي على المواعيد.rar

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

يوضع السطر الأول في بداية تنفيذ الإجراء (sub) لجعل المؤشر على شكل الساعة الرملية ويوضع السطر الثاني في نهايته لعودة المؤشر كما كان وإذا تم إرفاق مثال منك يمكن التعديل عليه

يمكنك استعمال هذا الكود Application.Cursor = xlIWait Application.Cursor = xlDefault

جرب هذا الكود أخي الكريم Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Sub TextBox1_Enter() LoadKeyboardLayout "00000409", 1 End Sub Private Sub TextBox2_Enter() LoadKeyboardLayout "00000401", 1 End Sub

جرب هذا الكود أخي الكريم Dim T As Worksheet For Each T In thisworkbook.Worksheets if t.name<>"www" then ComboBox1.AddItem (T.Name) Next T

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

فكرة صائبة وفقنا الله وإياكم لكل ما يحب ويرضى

بارك الله فيك أستاذ أحمد ولكن لماذا لم تكمل السلسلة؟ Shift + Q : الفتحة Shift + W : تنوين بالفتحة Shift + E : الضمة Shift + R : تنوين بالضمة Shift + A : الكسرة Shift + S : تنوين بالكسرة Shift + X : السكون ذ + Shift : الشدة Shift + J : الكشيدة Shift + Y : إ Shift + T : لإ وفقنا الله وإياكم لكل ما يحب ويرضى

مشكور أخي بس أنا دماغي راح لبعيييييييييييييييد والحمد لله رجعت بالسلامة

ما شاء الله بارك الله لك أخي رجب جهد كبير وعمل متعوب فيه وفقك الله لكل ما يحب ويرضى

أخي الكريم الكود لا يخرج أي خطأ لدي يظهر في القائمة الأسماء وعند الضغط على التسمية يتم كتابة البريد في مربع النص لأن السطر الأول في الكود التالي يقوم بتخزين الاسم في القائمة Me.ComboBox1.AddItem objAddressEntry.Name Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = objAddressEntry.Address والثاني يخزن عنوان البريد في العمود الثاني للقائمة وعند الضغط على to يتم وضع قيمة العمود الثاني للقائمة (عنوان البريد) في مربع النص to حسب الكود التالي في حدث عند الضغط Me.TextBoxto = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1) وأكيد اختلف الأمر لديك في كود الضغط على to لأنك تقريبا لا تعمل على نفس الملف المرسل وإنما تنقل الأكواد لملف جديد

أخي الكريم أنصحك بانتظار نسخة أوفيس 2012 فقد قامت ميكروسوفت بتطوير نسخة أوفيس 2010 لتتناسب مع الأجهزة اللوحية وشاشات اللمس كما طورت ويندوز 8 لنفس الغرض وينتظهر ظهورها رسمياً بحد أقصى شهر يونية 2012

أخي الكريم الكود الموجود في الملف المرفق يعرض كل جهات الاتصال الموجودة في دفتر العناوين (كما طلبت) جرب أن تضيف جهة اتصال ثم تفتح النموذج ستجد أنها تمت إضافتها (كيف يحدث هذا .....لاني عند استخدامه اليوم لم يتم اظهار العناوين) أما إذا كنت تريد عرض جهات الاتصال الخاصة بقائمة عناوين address list معينة فاستعمل هذا الكود Private Sub UserForm_Initialize() Dim objOutlook As Outlook.Application Dim objAddressList As Outlook.AddressList Dim objAddressEntry As Outlook.AddressEntry Set objOutlook = CreateObject("Outlook.Application") Set objAddressList = objOutlook.Session.AddressLists("Global Address List") For Each objAddressEntry In objAddressList.AddressEntries If objAddressEntry.Address <> "" Then Me.ComboBox1.AddItem objAddressEntry.Name Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = objAddressEntry.Address End If Next objAddressEntry Set objOutlook = Nothing Set objAddressList = Nothing Set objAddressEntry = Nothing end sub وفقنا الله وإياكم لكل ما يحب ويرضى

أخي الكريم أنا أستعمل أوفيس 2010 ولهذا رقم المرجع 14 ولا يظهر عندي أي رسائل تحذير أما رقم 12 لديك فلأنك تستخدم أوفيس 2007 ولا مشكلة في تفعيل أي المرجعين ولتعطيل هذه الرسائل التحذيرية بالكود ضع هذا الكود في أول الإجراء الخاص ببدء فتح النموذج OlSecurityManager.DisableOOMWarnings = True المصدر http://www.add-in-express.com/outlook-security/index.php جرب وأخبرني بالنتيجة حيث أني أستخدم 2010 ولا يخرج أي رسائل تحذيرية عندي