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

تفضل يا أخي كل ما عليك هو أن تختار التصنيف وسيتم عمل رسم بياني تلقائي الرسم_البياني.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"

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

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

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

شكرا لحضرتك تم عمل اللازم

نعم تم عمل الكود بشكل عكسي بارك الله فيك وبالاخوة 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

حاول أن تقرأ أسطر الكود وستجد أن التعديل بسيط .. لو لم تستطع فأرجو من أحد الأخوة التعديل ليعمل الكود بشكل عكسي ..

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

وعليكم السلام الخطأ قد يكون من نسخة الأوفيس التي لديك أو قد يكون لديك إضافة 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

بارك الله فيك أخي أبو عيد إثراءً للموضوع إليكم ملف بدون أكواد بمعادلات فقط تمكنك من الذهاب إلى آخر خلية في العمود المحدد (في المرفق مطبق على العمود C) بحيث يذهب لآخر خلية في العمود C .. رابط الملف المرفق من هنا

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

أخي الحبيب ياسر العربي .. يبدو أن الأخوة لم يجربوا الملف بشكل جيد أو لربما أكون مخطيء .. راجع هذا السطر ففيه خطأ يتسبب في عدم عمل الكود بشكل صحيح 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