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

الحمدلله وبعد جهد جهيد وجدت ضالتي في هذه الساعة، وبالرغم من توفر بعض الساعات النادرة في ملفات الإكسيل، إلا أنها تعيبها بعض الأمور منها: 1- عمل الساعة في الخلفية مما يعطل تنفيذ بعض الأوامر وتجميد ورقة العمل. 2- رتابة التصميم. 3- عدم توافقها لبعض إصدارات الإكسيل والوندوز. ولذلك تم تفادي هذه المشاكل مع إمكانية التصميم المرن للساعة حيث أننا فصلنا كل رقم من الساعة (digit) ليعمل بشكل منفصل ومترابط مع الأجزاء الأخرى، وكل من يشاهد التصميم يتوق بأنه قد تم برمجته بلغات الويب المتقدمة كالجافا.. نتمنى أن ينال إعجابكم ولا تنسونا من الدعاء clock03.rar

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

بسم الله الرحمن الرحيم اقدم لكم كود بحث متقدم كود بحث متقدم يفوق معظم أنواع البحث بالاعتماد على المصفوفات لضمان كفاءة عالية للبحث وسرعة جلب البيانات والمرونة العالية به من حيث البحث داخل كل الأعمدة الموجودة داخل النطاق تم توضيح المتغيرات التي تستطيعوا تعديلها لتتوافق مع ملفاتكم الكود المستخدم داخل الملف Sub Yasser_Serch() Dim myArray, lr, X, targt, targtN Dim SERCH As Worksheet, DATA As Worksheet '____________________________________________ Set DATA = Worksheets("Sheet2") 'اسم شيت قاعدة البيانات Set SERCH = Worksheets("Sheet1") 'اسم الشيت الخاص بالبحث '____________________________________________ lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row 'اخر صف به بيانات SERCH.Range("A4:J" & SERCH.Cells(Rows.Count, 4).End(xlUp).Row + 1).ClearContents 'مسح نطاق البحث القديم targt = SERCH.Range("e1").Value 'خلية البحث targtN = Application.WorksheetFunction.Match(SERCH.Range("D1"), SERCH.Range("A3:J3"), 0) 'دالة لايجاد رقم عمود البحث myArray = DATA.Range("A2:J" & lr + 1) 'نطاق قاعدةالبيانات الذي سيتم البحث فيه '____________________________________________ ReDim Y(1 To lr, 1 To 10) For X = 1 To lr If targt = "" Then Exit Sub If myArray(X, targtN) Like targt & "*" Then rw = rw + 1 Y(rw, 1) = myArray(X, 1): Y(rw, 6) = myArray(X, 6) Y(rw, 2) = myArray(X, 2): Y(rw, 7) = myArray(X, 7) Y(rw, 3) = myArray(X, 3): Y(rw, 8) = myArray(X, 8) Y(rw, 4) = myArray(X, 4): Y(rw, 9) = myArray(X, 9) Y(rw, 5) = myArray(X, 5): Y(rw, 10) = myArray(X, 10) End If Next X If rw > 0 Then SERCH.Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(rw, 10).Value = Y() End Sub لتحميل الملف اضغط هنا اعداد / ياسر العربي تقبلو تحياتي

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

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

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

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

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

ربما يكون هذا الكود (المرفق)اسرع قليلاً SERCH_ARRY salim.rar

السلام عليكم ورحمة الله وبركاتة إخواني الأعزاء اقدم لكم هديتــي برنامجي المصغًر (سندات القبض وسندات الصرف{ إثنين في واحد ]) والمستوحى من برنامج سند صرف لأستاذنا ومشرفنا القدير ضاحي الغريب جزاه الله خير إن شاء الله ينال إعجابكم . شرح مفصل لطريقة التعامل مع البرنامج : عند تشغيل البرنامج تظهر شاشة الدخول اضغط زر دخول البرنامج ستظهر رسالة عليها الوقت خانتين للساعات ومثلها للدقائق وكذلك للثواني والوقت مأخوذ من ساعة الجهاز.وهي لإستخدام كلمة المرور والمتغيرة بتغير الوقت أي كلمة مرور غير ثابتة. انا برمجت كلمة المرور علي أساس الدقائق ويستطيع كل شخص برمجة كلمة المرور بأكثر من عملية حسابية وكذلك بإمكانك إضافة التاريخ والوقت. في برنامجنا هذا كلمة المرور للدخول هي الدقائق عند إدخال كلمة المرور الصحيحة سيتم دخولك إلي الشاشة الرئيسية وتختار سند قبض او سند صرف. سنختار سند صرف كمثال لتطبيق الخطوات : عند إختيار سند صرف سيتم فتح سند جديد (تلقائيا نقدي) وبرقم سند جديد وينتقل المؤشر الي حقل المبلغ. ملاحظــــة : السندات تبداء من 1 لسندات الصرف ومن 1000 لسندات القبض تستطيع تغير بداية السندات من صفحة العملاء والبنوك Sheet3 CustAndBanks انتهـــــــــــــــــــــــــــــــــى. ادخل المبلغ ثم اختار إسم العميل (يصرف للسيد) بالضغط علي CheckBox بجانبها فستظهر قائمة كومبوبكس بالاسماء اختار منها إسم العميل وإن لم يكن العميل موجود بالقائمة وهذا يعني لنا انه عميل جديد فقم بإلغاء خانة الإختيار CheckBox واكتب العميل يدويا ثم إنتر فستظهر رسالة تفيد بأن هذا العميل غير موجود هل تريد إضافته إلي سجل العملاء فسيتم إضافته وينتقل المؤشر إلي سبب الصرف (وذلك عـن) طبعا إذا لم تريد إضافته اضغط زر الامر (لا) كذلك سينتقل المؤشر إلي سبب الصرف.وهذا الحقل نفس الشرح كاملا لإسم العميل (يصرف للسيد) .ثم سينتقل المؤشر إلي زر امر ترحيل.علي أساس السند نقدي اما إذا كان السند بموجب شيك فبعد إختيار سبب الصرف(وذلك عـن) قم بإختيار خانة شيك من CheckBox سيظهر فريم به حقول بيانات الشيك وهي رقم الشيك تاريخ الشيك يظهر تلقائي ثم إسم البنك المسحوب علية الشيك وهو نفس شرح حقل إسم العميل (يصرف للسيد) وحقل سبب الصرف (وذلك عـن).ثم سينتقل المؤشر إلي زر امر ترحيل. إنتهـــى الشرح من إدخال سند جديد. نأتي الآن إلي إختيار البحث برقم السند او برقم الشيك عند إختيار البحث برقم السند سيتحول الليبل من سند صرف نقدي إلي البحث برقم السند او البحث برقم الشيك في حالة إختيارك البحث برقم الشيك كذلك سيتم ظهور زر امر تعديل ويختفي زر امر ترحيل. قم بالتعديل ثم اضغط علي زر امر تعديل. وأخيرا نأتي إلي ازارير المسح : مسح الفورم إلغاء آخر سجل والخاصة هنا بسندات الصرف فقط مسح جميع البيانات والخاصة هنا بسندات الصرف فقط عند الضغط علي زر إلغاء آخر سجل او مسح جميع البيانات هنا يتطلب كلمة مرور وهنا تعتمد علي الثواني. إنتهينا من الشرح المفصل لسند الصرف. سندات القبض شرحه بالتفاصيل الدقيقة. لكل من سندات القبض وسندات الصرف قاعدة بيانات مستقله فقط مشتركين في أسماء العملاء وسبب الصرف وأسماء البنوك وبعض المعلومات مثل إسم الشركة وعنوانها وتلفوناتها وإسم المدير والمحاسب والمستلم. هذاما استطعت شرحة في طريقة التعامل مع البرنامج نرجوا الاطلاع وإستخدام البرنامج وإفادتنا في الأخطأ (الأخطاء) او أي إضافه عليه. علي امل الإستفادة منــــة. الداعي لكم بالخير اخوكم في الله : أبو الحسن والحسين إيصال قبض وسند صرف.rar

الأخوة الأفاضل السلام عليكم ورحمة الله وبركاته بحثت عن كيفية عمل قوائم داخل نموذج فى الاكسيس كالتى نراها فى المواقع بحيث عند الضغط عليها تظهر محتويات القائمة مع عدم إظهار الشكل الاعتيادى للقوائم المنسدله ولكنى وجدت بعض الأفكار التى لم تلبى احتياجى. فخطرت لى فكرة وضع زر فوق القائمة وعند الضغط عليه تظهر محتويات القائمة ونجح الأمر كما بالمثال المرفق ولكن ... بعد الضغط على الزر تظهر محتويات القائمة ويختفى الزر خلف القائمه. والمطلوب: أن يظل الزر فوق القائمه دائمًا بحيث لايظهر شكل القائمة المنسدله دومًا ..... فهل أجد فكرة تساعد فى انجاز هذا الامر ... ولكم جزيل الشكر والتقدير وهذا شرح لكيفة تنفيذ الفكره... https://msdn.microsoft.com/en-us/library/office/ff836880.aspx Test.rar

السلام عليكم إخواني الكرام .. أقدم لكم شيئا قد يكون جديدا بعض الشيء ألا وهو البحث عن أو التعرف على الخلايا المدمجة في ورقة العمل في الملف المرفق ستجد أكثر من طريقة للتعرف على الخلايا المدمجة الطريقة الأولى طريقة خاصية البحث .. يوجد دالة معرفة تحدد إذا ما كانت الخلية مدمجة أو لا يوجد كود لتلوين الخلايا المدمجة .. كما يوجد كود يعرض لك عناوين الخلايا المدمجة .. كل هذه الطرق الأربعة في ملف مرفق واحد فقط ( 4 * 1 ) زي برت بلس عشان متقولوش حارمكم من حاجة مع تمنياتي لكم بدوام الصحة والعافية أخوكم في الله أبو البراء Find Merged Cells.rar

تفضل اخي الكريم DB1.rar

you welcome in times to come, please try to choose a suitable name for the subject because it bases posts in forums and we must all respect for those rules do not put your address is not suitable for the subject, as it did and you would have your own e-mail regarding the arabization list you can search the internet for the arabization of office suit version you are using, and so are all the menus to translate the arabic language that you want it as he can switch between languages when you want to after that with ease

الدالة المطلوبة: =IF($A5="","",IF(B5=$D$1,HLOOKUP($A5,$F$1:$I$2,2,0)+COUNTIF($B$5:B5,$D$1)-1,""))

اسم الفيديو: شرح دالة dlookup فى أكسيس الوصف : السلام عليكم نواصل شروح أكسيس الاحترافية أشرح اليوم الجمعة 7 أكتوبر 2016 دالة dlookup · البحث عن قيمة فى حقل نصى بدلالة حقل رقمى · استخدام الدالة فى معيار استعلام · استخدام الدالة فى الحصول على قيم نصية ثابتة رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfNXdxdk85dzlLa1k/view?usp=sharing كلمات دلالية شرح أكسيس dlookup, رابط الفيديو https://www.youtube.com/watch?v=bIt8x2O3HCU&feature=youtu.be

أشكرك أبا جودى على ثنائك و دعواتك الطيبة

استاذ ياسر العربى لك كل التحية وبارك اللة بيك وجعلة فى ميزان حسناتك

عفوا اخى اسف ولكن انا لست و عرب ولذلك ربما لغتى ليس جيدا Sorry friend my Arabic language is not good that's why some friend said you should choose a right title to your request

جعلة اللة في ميزان حسناتك اخي ابو البراء على هذه المعلومات القيمة .

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

عمل رائع من عملاقة الاكسيل

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

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

الحمد لله أن توصلت للحل

شكرا جزيلا ابا جودى على الشرح المفصل تم التطبيق بنجاح

السلام عليكم أرجو المساعدة منكم في تنسيق هذا الملف وذلك جلب البيانات بالرقم الوزاري للمدرسة واحضار عدد الطلاب المقيدون وكذلك المعلمين والاداريين وكذلك الغياب لنفس الفئات وتلوين الخلايا المكررة بنفس الرقم الوزاري وكذلك تلوين الخلايا الفارغة وعمل فرز للمراحل الدراسية ‫ شاكرين لكم تعاونكم ‫ملف غياب بداية الفصل الدراسي الأول لعام الدراسي 1437-1438 - نسخة.rar غياب الاسبوع الأول37-38.rar

تفضل اخي العزيز هذه محاولة مني هي نوعا ما حيلة او تلاعب بطريقة العرض عسى ان تفيدك Test1.rar

جزاك الله كل خير يا أبو البراء جعله الله في موازين حسانتك وزادك الله من علمه وفضله بالتوفيق اخى الحبيب

السلام عليكم ورحمة الله لست أدري إن كنت قد استوعبت المطلوب... في الملف المرفق تم التعديل على كود أخي الحبيب ياسر بما فهمته... (أضفت لنتائج البحث العمود الخاص بالتاريخ لتأكيد صحة المخرجات). بن علية SERCH_ARRY salim.rar

تمام جزاك الله خيرا ونفعك الله بعلمك وجعله فى ميزان حسناتك

ليس في الحياة أجمل إلا من أن يجد المرء من يهتم لأمره بصدق من القلب شكرا لك أخى حسام

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

جميل اخ عبد الله لكن كملاحظة ولتعم الفائدة هناك زري امر في نموذج فرعي اعتقد انك لم تلاحظهما

شكرا استاذ عبدالفتاح لماذا لا تعمل

تم تعديل بالملف تحت اشراف و مساعدة الخبير ا / ياسر و مرفق الملف بعد التعديل الملف المرفق : New Microsoft Excel Worksheet2.rar

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

استبيان 2.rar جرب الملف المرفق :

السلام عليكم ورحمة الله وبركاتة تحية طيبة وبعد ,,,, مرفق لسيادتك ملف بالمطلوب برجاء الاطلاع ملحوظة : تم الاستعانة ببعض الاكواد من الاستاذ الفاضل المحترم : حمادة عمر الملف المرفق : New Microsoft Excel Worksheet2.rar و اتمني ان يكون هذا هو المطلوب وشكرا

جرب هذا الماكرو Sub Salim() Dim Mg As Range Set Mg = Range("p1:p4") With Range("B6:N22") .HorizontalAlignment = xlGeneral .Font.Size = 16 End With For i = 6 To 22 With Range("b" & i) For j = 1 To 4 If .Value = Mg.Cells(j) Then .Font.Size = 24 .Resize(1, 13).HorizontalAlignment = xlCenterAcrossSelection End If Next End With Next End Sub

تمت التجربة والطريقة ناجحة

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

ياسر العربى اخى ياسر شيء جديد فعلها عبدالله باقشير بالبحث في اللست جزاك الله خيرا اخى الله عليك

ياسر العربى اخى الفاضل ما شاء الله عليك ومتغبش علينا من ابداعاتك

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

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

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

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

وعليكم السلام ابا محمد تفضل : استبد الكود الخاص بجلب الصورة بهذا On Error GoTo err_Form_Current Me.Student_Img.Picture = Application.CurrentProject.Path & "\Imags\" & Me.id & ".jpg" Exit Sub err_Form_Current: If Err.Number = 2220 Then Me.Student_Img.Picture = Application.CurrentProject.Path & "\Imags\NoPicture.jpg" End If

السلام عليكم ممكن من خلال الوظيفه Zoom Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then ActiveWindow.Zoom = 115 Else ActiveWindow.Zoom = 100 End If End Sub