نجوم المشاركات

تفضل يا أخي كل ما عليك هو أن تختار التصنيف وسيتم عمل رسم بياني تلقائي الرسم_البياني.rar

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

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

أساتذتى الكبار أخوتى وأخواتى فى منتدى أوفيسنا أنا فخور انى أحد أعضاء المنتدى الكريم ده دائما ما نجد ضالتنا فيه لقيت الملف ده على موقع أجنبى وبصراحه عجبنى وحبيت أشارك بيه أحلى طاقم عمل فى المنتدى الى أن يتم شرحه وتفكيكه من عباقرة المنتدى مرفق ومنتظر اراءكم يارب يعجبكم New-Userform-.rar

السلام عليكم بعد اذن اساتذة المنتدى الكرام هذه اول مشاركة لى بملف على هذا المنتدى العظيم .قمت يالتعديل والأضافة على بعض الشيتات الخاصة بالكنترول للصف الثانى الثانوى لما وجدت من بعض القصور فقمت ببعض الأضافات وأهمها ( ضم القسم العلمى والأدبى بكل فروعهم فى شيت واحد - كما ضميت كذلك طلبه المنازل ) ( تقريب الكسور فى المجموع الكلى للدرجة ) واتوجة بالشكر الى كل الأساتذة الموجودين بالمنتدى الذين تعلمت منهم الكثير وأخص بالذكر الأستاذ رجب جاويش على افكارة الرائعة فى الشيت كنترول الخاص بالثانوى العام التى اخذت منها الكثير واضفته للبرنامج وكذلك الأستاذ سامى الهادى وكذلك الأستاذ العلامة عبدالله باقشير الذى افادنى كثيرا فى تفقيط مجموع الطالب وهذه نسخة اولية ارجو التفضل بابداء ملاحظاتكم عليها. كلمة السر 123 ونظرا لكبر حجم الملف قمت بوضعه على هذا الرابط http://www.mediafire.com/download/l4lg47ckt7zobb8/%D8%A7%D9%84%D8%AB%D8%A7%D9%86%D9%89.rar

بارك الله فيك أخي الكريم أحمد حليم ومشكور على مرورك العطر ودعائك الطيب .. ولك بمثله إن شاء الله

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

إليك الملف المعدل بعد إضافة تعديلات بسيطة على الدالة المعرفة لتتمكن من تشغيل أي ملف صوتي في نفس مسار المصنف الحالي .. حيث ستكتب المعادلة بالشكل التالي : اسم الدالة المعرفة يليها قوس مفتوح ولها 3 بارامترات الأول الخلية المطلوب اختبار الشرط بها ، والثاني الشرط المطلوب والذي في حالة تحققه يتم تشغيل الملف الصوتي ، والثالث هو اسم الملف الصوتي المطلوب تشغيله في حالة تحقق الشرط لتجربة الملف قم بإدخال قيمة أكبر من 1000 في الخلايا A5 أو N7 >>>إذا أردت إيقاف الملف الصوتي قم بتغيير القيمة إلى قيمة أقل من 1000 Play Sounds In VBA Using UDF Hanafy Officena

في الخدمة دائماً لأعضاء المنتدى، أما موضوع المقارنة فبالإمكان أن تحتوي الرسمة على أكثر من مخطط بياني دفعة واحدة

ادخل لمحرر الأكواد عن طريق Alt + F11 ، ثم عدل السطر التالي الذي يحتوي الخلية الهدف WAVFile = ThisWorkbook.Path & "\" & Range("c2") & ".wav"

الله يفتح عليك تمام بالظبط هذا بالضبط ما اريد

يعني علب حسب فهمي انت عاوز نفس الناتج اللي اسفل صفحة التقرير يكون اعلي التقرير يعني تحت زي فوق صح؟؟

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

لالا اجعل القيمة الافتراضية في الجدول الرئيسي علي السيرفر.. فهمني ولا لا

نسال الله الخير والفلاح والصلاح والرشاد ان شاء الله يا اهلا وسهلا باخينا الحبيب فضلا وليس امرا انا اخوك محمد وانا مجرد طالب علم وعلى كل حال وانا فى العملكنت ابحث ووجدت هذا المثال ولا اتذكر بصراحة من اى منتدى قمت بتحميله ولكن فوجئت انه تقريبا والله اعلم فيجوال بيزك وانا لا املك البرنامج ولا ادرى عنه شئ لو استطاع احد الاساتذة الافاضل ممن لهم باع فى هذا المجال تحويل الكود لاستخدامة بالاكسس فليتصدق علينا بذلك وجزاكم الله خيرا ان شاء الله منع تغيير التاريخ.rar فكرة ولا اعرف هل تنفع ام لا اضف حقل في الجدول.. الجدول الذي يستخدمه كل قسم واجعل القيمة الافتراضية لهذا الحقل هي ()now.. ستعطي الوقت الحقيقي علي السيرفر. ..ثم استخدم كودك بعاليه علي هذا الحقل.. وبهذا تحصل علي الوقت الحقيقي الموجود علي السيرفر ركز معى اخى الحبيب كل الاقسام تفتح قاعدة بيانات بها النماذج الخاصة بكل قسم من على جهاز القسم وليس السيرفر اذن ()now حتى وان كانت على جهاز السيرفر ستأخذ قيمة التاريخ من الجهاز الذى قام بفتح قاعدة النماذج ولكن سيتم تسجبل القيمة للتاريخ فى الجدول المرتبط على السيرفر لا تجعل اجهزة المستخدمين الموجودة بكل قسم كاملة الصلاحيات.. يعني تعمل لكل جهاز user name And password بصلاحيات محددة يعني لا يعدل في تاريخ ووقت الجهاز ولا يستطيع تصطيب او حذف اي برنامج الا عن طريق يوزر ال administrator هذا اقرب للواقع ولكن ليس من السهل عمل كنترول على عدد 175 جهاز ومراقبتهم وهناك من يجدد نسخ انظمة التشغيل على راحته على كل حال شكرا استاذى الحبيب لمشاركتك لى سلمت وسلمت يمناك وحفظك الله ورعاك وجزاك خيرا امين امين امين

السلام عليكم فكرة ولا اعرف هل تنفع ام لا اضف حقل في الجدول.. الجدول الذي يستخدمه كل قسم واجعل القيمة الافتراضية لهذا الحقل هي ()now.. ستعطي الوقت الحقيقي علي السيرفر. ..ثم استخدم كودك بعاليه علي هذا الحقل.. وبهذا تحصل علي الوقت الحقيقي الموجود علي السيرفر فكرة اخري نستخدمها دائما في الاجهزة المربوطة بالسيرفر هي : لا تجعل اجهزة المستخدمين الموجودة بكل قسم كاملة الصلاحيات.. يعني تعمل لكل جهاز user name And password بصلاحيات محددة يعني لا يعدل في تاريخ ووقت الجهاز ولا يستطيع تصطيب او حذف اي برنامج الا عن طريق يوزر ال administrator تحياتي

نعم تم عمل الكود بشكل عكسي بارك الله فيك وبالاخوة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 1 And Target.Column = 6 Then Application.EnableEvents = False Range("Z1").Value = Target.Value Application.EnableEvents = True End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 1 And Target.Column = 6 Then Sheets("data").Columns(3).Replace What:=Range("Z1").Value, Replacement:=Target.Value, LookAt:=xlWhole End If End Sub

تفضل اخي العزيز وعلى الرحب والسعة Book7.rar

استاذنا الفاضل / ياسر خليل جزاك الله خير الكود شغال تمام التمام مع الشكر

وعليكم السلام الخطأ قد يكون من نسخة الأوفيس التي لديك أو قد يكون لديك إضافة AddIn حدث معها تضارب أو ماشابه يرجى ذكر إصدار الأوفيس الذي تعمل عليه ..وجرب حذف الإضافات لديك ثم جرب الكود مرة أخرى Sub Test() Dim fName As String Dim Path As String fName = Range("A1").Value Path = ThisWorkbook.Path & "\" & fName Application.ActiveWorkbook.SaveAs Filename:=Path, FileFormat:=52 End Sub

جرب الكود التالي في حدث ورقة العمل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 1 And Target.Column = 3 Then Application.EnableEvents = False Range("Z1").Value = Target.Value Application.EnableEvents = True End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 1 And Target.Column = 3 Then Sheets("list").Columns(6).Replace What:=Range("Z1").Value, Replacement:=Target.Value, LookAt:=xlWhole End If End Sub

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

الملف المرفق غير موجود برجاء ارفاق الملف مرة اخرى

السلام عليكم أخي رؤوف جرب المرفق BookExample_V1.rar

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

الحمد لله سألت و جاوبت تحياتي شفان ريكاني

أخي اسامة من المعلوم أن الرسم البياني يعتمد كليا على أرقام وليس نصوص لذا إذا أردت تطبيقه على ملفك يجب أن يكون هناك أرقام يتم التعامل معها من المعادلات الجميلة والتي ستفيدك دالة countif ومن خلالها نقوم باحصاء نسبة تكرر كل بيان بالنسبة للاجمالي انظر المرفق estb1.rar

شاهد الفيديو لتتأكد بنفسك .. هل يظهر لديك خطأ أو ما شابه؟ 2016-10-18_06-42-10.rar

اخي الكريم جرب المرفق علة المطلوب Book1.rar

تفضل جرب الملف التالي عله يفي بالغرض رابط الملف من هنا

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

في نموذج مساعد الفواتير الصق هذا الجملة لكي لا يجي قائمة مختصرة حين تعمل كليك ايمن لكن اذا تقول اخفاء رأس السهم في الحقيقة انا ما عندي معلومة عليه مع تقدير Private Sub Form_Load() Me.ShortcutMenu = False End Sub شفان ريكاني

ادخل الى تصميم النموذج الفرعي حدد الخيار ( قائمة مختصرة ) من نعم الى لا

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

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

السلام عليكم نعم يمكن ذلك , غير سطر الكود بإضافة Offset(1, 0) كما يأتي Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Select

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

أخي الحبيب ياسر العربي .. يبدو أن الأخوة لم يجربوا الملف بشكل جيد أو لربما أكون مخطيء .. راجع هذا السطر ففيه خطأ يتسبب في عدم عمل الكود بشكل صحيح targtN = Application.WorksheetFunction.Match(ComboBox1.Text, SERCH.Range("A3:J3"), 0) + 1 'دالة لايجاد رقم عمود البحث لما الرقم 1 .لأن الرقم 1 سيزيد من رقم العمود بمقدار واحد ويجلب العمود التالي له ؟! أمر آخر وهو الأهم أنك لم تستخدم هذا المتغير في عمود البحث ..لاحظ السطر التالي If myArray(X, 1) Like targt & "*" Then لاحظ استخدام الرقم 1 بدلاً من المتغير targtN ، وهذا سيجعل البحث محصوراً في العمود الأول فقط .. تقبل تحياتي

انت الاروع استاذ مختار حسين خاصةمع تعليقك تقبل تحياتي

تفضل اخي نايف listbox.rar

اخي الكريم جمال مشكور على مرورك الكريم اما بالنسبة لطلبك كل ما عليك تعديله في الكود هو السطرالتالي If myArray(X, targtN) Like targt & "*" Then يتم تغيير الى If myArray(X, targtN) Like "*" & targt & "*" Then

الشرح المستفيض لكود البحث المتقدم باستخدام المصفوفات للأستاذ الكبير ياسر العربي Search Using Arrays http://adf.ly/1efc1m

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

اخوانى بارك الله فيكم شكر الله لكم جهدكم المشكلة لدى لا تكمن فى انشاء قاعدة البيانات ولكن المشكلة فى كيفية ارسال العميل لى التقييم فانا لا اريد العميل ان يرسل لى ايميل بالتقييم فسوف اشق على نفسى بقرائة كافة الايملات الواردة واستخلاص المعلومات منها على حدا ما فكرت به واعكف الان على تنفيذه بعون الله اتممت جزء كبير جدا منه 1 - قمت بانشاء قاعدة بيانات لدى اسميتها منصة استقبال التقيمات 2 - قمت بانشاء جدول به خمسة حقول (اسم البرنامج - اسم المستخدم - التقييم - الايميل - التعليقات) 3 - قمت برفع هذا الجدول على قاعدة بيانات سيكوال موجودة على استضافة 4 - وفى كل برنامج ابيعه انشئت النموذج المذكور سلفا والخاص بالتقييم 5- اى (قمت بربط هذا النموذج بالجدول الموجود على سيكوال ) عند الارسال فسيقوم النموذج بارسال المعلومات الخاصة بالتقيم وربطها بقاعدة البيانات لدى من اى مكان على وجه هذه الارض جارى تجهيز المرفق ان شاء الله سيتم ارفاقه هنا ليستفيد الجميع

قد تفيدك هذه الروابط: Download/Retrieve Email from Gmail account in VB 6.0 و example for gmail with vba-web جعفر

افكر كثيرا فيما قلت ولكن كيف التنفيذ هل من مساعدة او اقتراح بشان تلك القاعدة السلام عليكم خليني افكر معاك ، بس بصوت عالي ممكن انك تسمعه احنا محتاجين جدولين ، tbl_Software ، ويكون فيه Software_ID (المعرّف ، ويربط به الجدول الآخر ايضا) ، اسم البرنامج ، الايميل ، كلمة السر ، الجدول الثاني هو tbl_Software_Feedback ، ونربطه بحقل Software_ID في الجدول الاخر ، In_Out (نوع الرسالة خارجة او آتيه) ، الرسالة ، التاريخ ، وهنا ، الكود يأخذ بياناته من الجدول جعفر

اما انا فعلى قد حالي ما أقرأ بين السطور ، وما افهم بدون مثال جعفر

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

بارك الله فيك ما دام مجاني ومفتوح المصدر .. ارفقه هنا ومن احتاجك سيتواصل معك

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