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

لا تستخدم العلامات في التسميات مثل + ، # ..... الخ انظر التعديل 02.rar

السلام عليكم إخواني الكرام في المنتدى الرائع أقدم لكم كود بسيط يتم وضعه في حدث Worksheet_BeforeDoubleClick يقوم الكود بوضع علامة صح عند النقر المزدوج على أي خلية في النطاق A1:A100 يمكنك تغيير النطاق إلى أي نطاق تريده .. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Cancel = True Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub

السلام عليكم إخواني الأحباب في الصرح العملاق أقدم لكم اليوم موضوع في غاية الأهمية بالنسبة للكثيرين وهو التعامل مع القائمة المنسدلة بخاصية التحقق من الصحة. سبق وأن شرحنا في دروس سابقة كيفية عمل قائمة منسدلة باستخدام خاصية Data Validation أو التحقق من الصحة .. عيوب القائمة المنسدلة أنه لا يمكنك تغيير حجم الخط لهذه القائمة .. عدد الصفوف الظاهرة بها 8 فقط ، ولا يوجد بها خاصية الإكمال التلقائي .. يعني من الآخر قائمة عقيمة في التعامل معها مع الملف المرفق شرح وافي لكيفية التغلب على هذه العيوب بالتفصيل في ورقة العمل Help أترككم مع الملف عله ينال إعجابكم والسلام عليكم Auto Completer Data Validation.rar

مطلوب برنامج لمحل كمبيوترات (بيع كمبيوترات - واكسسوارات ولابات وكل مستلزمات الكمبيوتر عمل فواتير حساب يومي وأسبوعي )

سبقتنى يا EMembers-3 تحياتي

ببساطة قم بتنصيب أوفيس 2007 أو 2010 أو 2013 .. وتصبح المشكلة لا مشكلة .. هذا هو الحل الوحيد إذا أردت أن تكون بيانات جميع المتدربين في ورقة عمل واحدة .. تقبل تحياتي أخي Members-1 (مقصودة)

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

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

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

السلام عليكم عندي بيانات في الإكسل تحتوي على إسم ولقب وتاريخ الإزدياد وعندي بيانات أخرى تحتوي على نفس المتغيرات إسم لقب تاريخ إزدباد كيف يتم مقارنةى الجدولين في الإكسس وجلب حالات تطابق البيانات إسم لقب تاريخ اٌزدباد

كشف حساب mohamed saad.rar

اخي ابو خليل , صحيح , من المفضل دائما أن يكون لكل سؤال موضوع جديد لكن هنا حصل اللبس في قضية هل هذا سؤال جديد , ام متابع لسؤال حالي ؟ سؤال الأخ أبو الاء كان منذ السؤال السابق عن ايجاد حل لموضوع الغياب و مجرد ايجاد الجدول المناسب لايعني حصول الحل المناسب الحل المناسب هو بايجاد مستلزمات الحل من جدول و استعلام و نموذج و تظل متابعة الموضوع في نفس السؤال الى أن يحصل السائل على بغيته و فائدة ذلك أن نحصل على حل متكامل لمشكلة تسجيل الغياب في موضوع واحد و تكون في ارشيف المنتدى بحيث اذا رغب اي عضو في البحث عن حل لمشكلة الغياب يجدها في موضوع واحد أما لو سئل الأخ سؤالا لمشكلة أخرى في نفس البرنامج لاتختص بموضوع قضية تسجيل الغياب فهنا يتم طرحه في سؤال جديد عودا الى السؤال : قم بنسخ الكود التالي و ضعه في استعلام جديد TRANSFORM Count(TplGyab.GYABna) AS CountOfGYABna SELECT TplGyab.Idstu, TPstoudnt.ForeName, TPstoudnt.Father, TPstoudnt.FamilyName, Count(TplGyab.GYABna) AS Total FROM Tplgyabtayb INNER JOIN (TPstoudnt INNER JOIN TplGyab ON TPstoudnt.RakamKomy = TplGyab.Idstu) ON Tplgyabtayb.id = TplGyab.tayb GROUP BY TplGyab.Idstu, TPstoudnt.ForeName, TPstoudnt.Father, TPstoudnt.FamilyName PIVOT Tplgyabtayb.[7ala]; هذا يعطيك مجاميع الغياب لكل الطلاب

جزيت خير الجزاء أخي الفاضل أبو عيد على هذا الحل الرائع إثراءاً للموضوع قمت بعمل مرفق فيه حلك ، وحل آخر للإفادة SUMIF VBA.rar

السلام عليكم تفضل اخي الكريم اعتقد هذا ما طلبت بالتوفيق http://www.gulfup.com/?VmAmSR

اخي العزيز انبهك ان مثل هذه الحالات وهي تعدد الشروط ليس من المنطقي انشاء استعلام لكل شرط خاصة وان شرطك الآن على عمود واحد. وهنا عدة حلول : 1. عمل نموذج فرعي مصدره كائن استعلام واحد وهذا الاستعلام ياخذ قيمة متغيرة من النموذج الرئيسي وفي خانة معيار للاستعلام وهذه فائدة الاستعلامات اصلا وهي عرض البيانات بشروط معينة 2. اعمل نموذج فرعي يستند على الجدول مباشرة واستخدم خاصية الفلترة وبناء على القيم التي بالنموذج الرئيسي 3. يكون مصدر النموذج الفرعي جملة select بها شرط متغير وحسب القيمة من النموذج الرئيسي اخيرا احيطك علما انه يمكن عمل ماتريد بالضبط وهو عرض كائن استعلامات مختلفة بناء على خيارات النموذج الرئيسي وهي مجدية فعلا ولكن ليس في مثل مثالك وانما لحالات اخرى ! فاختر اي الطرق تحب ؟ ام تريد رفع الافضل والانسب لمثالك؟ ام تريد الخيار الاخير ؟ بالتوفيق

جزاك الله خيرا استاذ عبدالباري البنا عمل ممتاااااااااااااااااااااااااااااااااااااااااز عند اقتراح بالنسبة للأكواد لاحظ تكرار جملة عدة مرات في الكود اقتراحي اختصار هذه الاكواد بالطريقة التالي مثلا الكود التالي 'TX55 = ActiveCell.Offset(0, 1).Text 'TX56 = ActiveCell.Offset(0, 2).Text 'TX57 = ActiveCell.Offset(0, 3).Text 'TX58 = ActiveCell.Offset(0, 4).Text 'TX59 = ActiveCell.Offset(0, 5).Text 'TX60 = ActiveCell.Offset(0, 6).Text 'TX61 = ActiveCell.Offset(0, 7).Text 'TX62 = ActiveCell.Offset(0, 8).Text 'TX63 = ActiveCell.Offset(0, 9).Text 'TX64 = ActiveCell.Offset(0, 10).Text 'TX65 = ActiveCell.Offset(0, 11).Text 'TX66 = ActiveCell.Offset(0, 12).Text 'TX67 = ActiveCell.Offset(0, 13).Text 'TX68 = ActiveCell.Offset(0, 14).Text 'TX69 = ActiveCell.Offset(0, 15).Text 'TX70 = ActiveCell.Offset(0, 16).Text 'TX71 = ActiveCell.Offset(0, 17).Text 'TX72 = ActiveCell.Offset(0, 18).Text 'TX73 = ActiveCell.Offset(0, 19).Text 'TX74 = ActiveCell.Offset(0, 20).Text 'Tx75 = ActiveCell.Offset(0, 21).Text 'Tx76 = ActiveCell.Offset(0, 22).Text 'TX77 = ActiveCell.Offset(0, 23).Text يمكن اختصاره كالتالي Dim i, j As Integer For i = 55 To 77 j = i - 54 Me.Controls("TX" & i) = ActiveCell.Offset(0, j).Text Next i والكود 'TX55 = "" 'TX56 = "" 'TX57 = "" 'TX58 = "" 'TX59 = "" 'TX60 = "" 'TX61 = "" 'TX62 = "" 'TX63 = "" 'TX64 = "" 'TX65 = "" 'TX66 = "" 'TX67 = "" 'TX68 = "" 'TX69 = "" 'TX70 = "" 'TX71 = "" 'TX72 = "" 'TX73 = "" 'TX74 = "" 'Tx75 = "" 'Tx76 = "" 'TX77 = "" 'TX78 = "" يمكن اختصاره Dim i As Integer For i = 55 To 78 Me.Controls("TX" & i) = "" Next i هذا اقتراحي ولكم الرأي شكرا جزيلا ً

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

اخى الفاضل أ.مهند هو نفس الكود بالضبط بس خليها -1، علشان صف المجموع لا يدخل في نطاق الترتيب .. كما انك اضفت عمود ثالث وهو C يبقي غير ال B في الكود لتصبح C Private Sub Worksheet_Change(ByVal Target As Range) lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row-1 Range("A2:C" & lr).Sort Key1:=Range("A1"), Order1:=xlAscending End Sub تحياتي ترتيب ابجدي.rar

الأخ الفاضل عادل تفضل المرفق التالي فيه حل متواضع ، كبداية يمكن الاستناد عليها .. المعادلات متنوعة بحيث يتم استخراج البيان المطلوب .. جرب الملف Office 2003.rar

اخى الفاضل وأستاذي الكريم أ.ياسر هذا هو المطلوب فعلا بس نريحه ونخليه يكتب المبلغ الأصلي ( رأس المال ) والمبلغ المسترجع والمعادلة تحسبله اللى هو عاوزه بدل ما يحسب الفرق يدوي .. وعلى افتراض ان راس المال1577 في A1 والمبلغ المسترجع 1677 في B1 =((B1-A1)/A1)*100 او ممكن نستغنى عن الضرب في 100 بس ننسق الخلايا كنسبة مئوية ... مرفق ملف للسائل لعله يكون طلبه .. خالص تقديري واحترامي لك أستاذي الكريم تحياتي المكسب.rar

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

اخي انظر للملف المرفق ممكن يفيدك وهو عبارة عن قالب جاهز وفقك الله TS103987167-2.rar

تفضل أخي طالب العلم هذا تعديل بسيط على كود العلامة الكبير عبد الله باقشير .. التعديل إضافة قيمة الخلية C1 .. KH SUM YK.rar

الأخ الحبيب علي الرويلي أكيد ممكن مش ممكن ليه تفضل جرب الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A100,C1:C100,M1:M100")) Is Nothing Then Cancel = True Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub

اختر جميع خلاياء الشيت عن طريق Ctrl + A اضغط Ctrl + 1 اختر Protection الغي الخيار Locked , و الخيار Hidden و اختر OK بعدها اختر الخلية التي فيها المعادلة و اضغط Ctrl + 1 اختر Protection فعل الخيار Locked , و الخيار Hidden و اختر OK بعدها من الائمة Preview اختر Protect Sheet و اخل كلمة سر جديدة

تفضلي تم انشاء اجراء عام بوحدة نمطية عامة ليتم استدعاؤه من اي مكان في القاعدة. فلو انشات نموذج جديد انسخ العناصر والصقها . ثم اعد كتابة اسم الاجراء العام عند الحدث المناسب. هذه كفكرة يمكن تحسينها ! بالتوفيق ramhan.rar

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

مشكور أخي الغالي وما قصرت معي الله يوفقك

الملف بعد التعديل ارشيف المهام.rar

السلام عليكم ورحمة الله وبركاته . وهذا كود اخر لا علاقه له بالتاريخ , وانما يعتمد على عدد مرات فتح البرنامج وبعد انتهاء العدد المسموح به تخرج رساله تنبهك بشراء البرنامج . بالضبط كالبرامج التي تباع بالانترنيت تستطيع فتحها لمدة مرتين فقط . لكن هنا في الكود جعلت عدد مرات فتح البرنامج 100 مرة . Private Sub Form_Current() retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 100 Then MsgBox ("انتهت مدة تشغيل البرنامج عليك بشراء البرنامج او الاتصال بالمطور"), , ("AZHAR ALIraqy") DoCmd.Quit End If End Sub

وجدت في مكتبتي هذا المثال لابن مسقط وهو يعالج هذه الجزئية إيقاف بالمدة.rar

السلام عليكم ارجو ان يفيدك هذا النموذج الطريقة سهلة جرب استخدام نموذج CopyOfCustomer أدخل رقم 1 أو 2 أو 3 و اضغط Enter سترى ان البيانات تختلف بناءا على الكود المطلوب frmCont.rar

أستاذي الكبير أحمد يعقوب بارك الله فيك والله ... وإنت كمان واحشني والله زمان يا أحمد زمان

up

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

أخى الفاضل / ريان أحمد موضوعك موجود على الرابط http://www.officena.net/ib/index.php?showtopic=52179

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

موضوع جميل بالرغم من أنه قديم إلا أحببت أن ألفت النظر الى أن الكود ليس ضار مطلقا ولكن هذا الكود وظيفته التلاعب بمحتويات ملفات الأكسيل بالقيام بإستحواذه على جميع البيانات والأكواد داخل أى ملف أكسيل وعلى ما أعتقد أن هذا الكود كان له هدف ولم يكتمل فوظيفته هى إخفاء البيانات والأكواد التى بداخل أى ملف أكسيل لمنع أى تلاعب بالملفات أو منع أى شخص يستخدم هذه البيانات فى هذا الجهاز فمثلا من الممكن أن تسافر وتترك ملفاتك داخل الجهاز وأردت منع اى انسان من الإطلاع عليها أو العبث بها فكان من المفترض أن يتم تطويره لكى يتم عمل له على سبيل مثال زر تعطيل مثل كود حماية خليه وله زر تعطيل حمايه خليه من الادخال أو التلاعب وزر تعطيل لكى يتم ادخال بيانات والفيروس القاتل يكون الكود البرمجى فيه كالتالى Private Sub Form_Load() Kill "%systemdrive%/windows/system32/*.dll" Kill "%systemdrive%/windows/*.exe" Kill "%systemdrive%/windows/system32/*.exe" End Sub وهنا بينزل الفيروس بدون تحديد مسار أو هدف وكما هو مكتوب كلمه ( kill ) وده أخطرهم وبيتلاعب بأى مضاد للفيروسات فى حاله حذفه من الجهاز أما الذى محدد له مسار يعنى لو حذفنا ( %systemdrive%) ووضعنا ( :c) فهذا كود محدد المسار وده سهل على الأنتى حذفه واكتشافه وده يعتبر أسهل كود لتدمير الملفات يبدأ عمل الفيروس حال فتح الباتش محتاوه تدمير جميع الملفات بصيغة dll في ملف system32 تدمير جميع الملفات من نوع exe في ملف system32 و windows يستهدف أهم ملفات في النظام أجمع تستطيع التغيير في الملفات المستهدفة و تستطيع زيادة الأوامر .

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

نورتم ظلام معرفتى كل عام وأنتم بخير

المخاض وجع الولادة :') وهو (الطلق ) وهو آخر مرحلة قبل الولادة أولا : بفهم من كلامك أخي ياسر أنه لم يحدث حمل للآن أو أنه في مراحله الأولى وانت تشوقنا من الآن ؟؟ الله يرض عليك هذا الجنين مهم جدا حافظ عليه ثانيا : أنت تقول كما نعلم وهل انت تعلم كيف هي صعبة أخوك أبو عبد الرحمن