DBA.Oracle

Dim i As Integer for each worksheet in Workbook.Worksheet For i = 4 To 115 If Range("B" & i).Value = 0 Then Rows(i & ":" & i).EntireRow.Hidden = True End If Next i Next worksheet كنت احاول اضافة هذا الكود بداخل كود ارسال عدة صفحات عن طريق الايميل لاجعله يخفي الصفوف الفارغة فى كل الصفحات المختارة فلا اعلم المشكلة هل من الكود نفسه ام من عدم وضعه فى المكان الصحيح داخل كود ارسال رسائل متعددة بالايميل برجاء المساعدة فى هذا ولكم جزيل الشكر

جزاك الله كل خير اخي الفاضل / (ابو عبد الله) واخي العزيز (خبور خير) ان شاء الله نراك بالخير دائما لا تغيب عن نظرنا الا لظروف خيره فدوما نتمني لك ان تكون موفق وفى خير صحة وحال .. آمين

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

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

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

up

اخى الفاضل مايسترو برجاء المساعدة Private Sub Workbook_Activate() For i = 2 To 1000 If Range("active_user") = Sheets("Messages").Cells(i, "c") And Sheets("Messages").Cells(i, "g") = ("New") Then View_message.Show End If Next End Sub عندما يطابق الخلية الموجود فيها اسم الاكتف يوزر ويجد انها تساوي صف فى جدول الرسائل وان هذا الصف حالته غير مقروءة فيظهر الرسالة لكن المشكلة انه لو ان للمستخدم "Test" رسالتين جديدتين يقوم بعرض محتويات الرسالة ويأتي لاخر مرحلة هو ان يجعلها مقروءة وفعلا يجعلها مقروءة ولكن انه ايضا يقوم بتحويل كل رسائل هذا اليوزر من جديدة الي مقروءة Sheets("Messages").Cells(i, "g") = ("OLD") فبرجاء مراجعة الكود والتعديل بما تراه مناسبا ولك جزيل الشكر For i = 2 To 1000 If Range("active_user") = Sheets("Messages").Cells(i, "c") And Sheets("Messages").Cells(i, "g") = ("New") Then TextBox1.Value = Sheets("Messages").Cells(i, "b") TextBox2.Value = Sheets("Messages").Cells(i, "d") TextBox3.Value = Sheets("Messages").Cells(i, "e") TextBox4.Value = Sheets("Messages").Cells(i, "f") Sheets("Messages").Cells(i, "g") = ("OLD") End If Next حيث b= from d = to g = status new or old

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

تسلم ابو عبد الله ولك فائق التقدير والاحترام

الجزء الاول سهل وتم تنفيذه والحمد لله الجزء الثاني هو المشكلة بالنسبة لي وهي كيف اخبر البرنامج انه عندما يتم فتحه يذهب للبحث داخل جدول الرسائل بـ شرطين سبق ذكرهم وذلك طبعا بعد انشاء خلية تحتوي علي اسم المستخدم الحالي ليتم مطابقتها مع الشرط الاول فهل من مساعدة ..؟

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

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

طبعا كود الترحيل ممتاز بصراحة ومفيد جدا وقيم للغاية بس هل صعب التعديل عليه ام ان التعديل غير ممكن ام ان المطلوب صعب المنال تم تحميل الملف 19 مرة بدون حتي اضافة فكرة بسيطة علي الكود :S

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

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

اخى الفاضل عبد الله عندي اقتراح مثلا عندما اخترنا من القائمة "ايمن" ظهر له رقمان ومن بعده اخترنا شخص اخر "عماد" مثلا فالمفروض ان له رقم واحد فيقوم بمسح خانة من خانتي ايمن ويضع مكانها عماد ويبقى الخانة الاخري لأيمن فى الليست ايضا فممكن بدأ كود combobox change باضافة listbox1.clear حتي عندما نختار اسم اخر يقوم بحذف محتويات الليست انا جربتها مش عارف الاقتراح دا حيكون مفيد ولا لا ولك فائق احترامي combobox.rar

اخي الفاضل / المايسترو جزاك الله كل خير علي توضيح الفكرة جاري المحاولة فيها

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

جزانا واياكم

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

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

جزاك الله كل خير

هو الطريقة طويلة اكيد فى طريق اسهل لكن هو دا اللى قدرت اوصله حتي الان

Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("Now").Copy Range("Now_2").PasteSpecial xlPasteValues Range("close").Value = Time Range("open").Copy Range("between").PasteSpecial xlPasteValues End Sub Private Sub Workbook_Open() Sheets("sheet1").Range("a1").Select MsgBox "The File Was Open Last Time In This Date " & Range("Now_2") & vbNewLine & "Open Time :" & Range("between") & vbNewLine & "Close Time : " & Range("close") Range("open").Value = Time End Sub يجب تسمية خلايا بالاسماء التالية خلية يكون اسمها = open خلية يكون اسمها = close خليه اسمها = between وخليه اخري اسمها = now وخلية اخري باسم = now_2 وبالنسبة للخلية now >>> اكتبي فيها المعادلة =now() واعادة عمل فورمات للخلايا السابقة بالفورمات التالي dd/mm/yyyy hh:mm عن طريق Format cells

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