أ / محمد صالح

الأخت الفاضلة هل المقصود بالعدد المتوفر من كل مادة هو عمود الرصيد؟؟ إذا كان كذلك فيمكنك وضع المعادلة التالية في الخلية المجاورة لمادة 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 ولا يخرج أي رسائل تحذيرية عندي

أخي الكريم في حالة التعامل مع برنامج مثل أوت لوك من خلال الإكسل يجب تنشيط المرجع الخاص ببرنامج أوتلوك في نافذة محرر الفيجوال بيسك للتطبيقات vba وذلك من خلال tools--->references--->Microsoft outlook 0.14 object library وبعد فتح النموذج يتم استدعاء جهات الاتصال في القائمة combobox1 الموجودة أعلى النموذج userform5 تختار منها الاسم ثم تضغط على to فيتم وضع البريد في مربع النص الخاص ب to وهكذا .......... طبعا معروف كيفية فتح النموذج في الإكسل؟؟ إذا لم تكن تعرف يتم إنشاء إجراء sub جديد ضمن وحدة نمطية module بالكود التالي sub mas() userform5.show end sub كما هو موجود في الملف المرفق في المشاركة السابقة

أخي الكريم معتز ما دام الموضوع دخل في شبكة واسعة النطاق والإنترنت يخرج الأكسس من المنافسة ويدخلها الثنائي المعروف php & mysql أو الثنائي البديل asp & sql server ولكن في هذه الحالة يستلزم الأمر معرفة ببرمجة صفحات php ولو كان التعامل مع قاعدة البيانات مجرد إضافة وعرض للسجلات فيوجد برنامج اسمه phpmaker يمكنه مساعدتك في إنشاء كود php http://www.demonoid.me/files/download/2810719/0012909387186/ ............... ولو مصرّ على الأكسس يوجد برنامج اسمه hamatchi يستخدم في عمل شبكة من خلال الإنترنت وكأنك في شبكة لان عادية http://www.filehippo.com/download_hamachi/ أتمنى أن أكون قد وضحت الأمر قليلاً

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

أخي الكريم حسب وصفك للمطلوب في برنامجك أعتقد أنه لا فائدة من فتح نافذة دفتر العناوين ويمكن الاستغناء عنها بقائمة combobox تحتوي على أسما وعناوين بريد جهات الاتصال الموجودين في دفتر العناوين وبديهيا لا يلزمك استخدام فحص الأسماء check names لأن الأسماء والعناوين مأخوذة مباشرة من فتر العناوين وبعد اختيارك لجهة الاتصال يمكن الضغط على زر to أو cc أو bcc لنقل بريد جهة الاتصال المحددة في القائمة إلى مربع النص to وهكذا فإذا كان هذا ما تريده فأخبرني حتى أقوم بتعديل ملفك وإلا ...........................