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

تفضل أخى المصنف1.rar

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

جرب هذا الملف hide_j_rows.rar

هذا من الاساسيات اللي لازم تعملها لما برنامجك يبدأ يشتغل ، من اول يوم لأن الجداول نادرا يصير لها Corruption ، بينما الطامة تصير في جزء النماذج / التقارير ... ، فلا تضيّع الشغل الكبير (البيانات) بسبب عدم تقسيم برنامجك جعفر

السلام عليكم ورحمة الله تعالى وبركاته بفضل الله تعالى تم انجاز المشروع والحمد لله وذلك لطلب الاخوة فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=62339&hl= الموضوع يتلخص فى نظام مراسلة وارسال رسالة بين المستخدمين لقاعدة البيانات شبيه بالفيس بوك صفحة تسجيل الدخول قمت باضافة شى مهم جدا وهو ربط نموذج باستضافة مجانيه به جدول وضعته اذا احببت ارسال تعليق لى بخصوص البرنامج شكر الله لكم جميعا والاكواد الخاصة بهذا الربط مدرجة فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=61514 الصفحة الشخصية بها قائمة الاصدقاء ونظام المراسلة منصة عرض الرسائل والارشفة قوائم الاعضاء ويمكنك اضافة الاصدقاء الى قائمة اصدقائك والان مع البرنامج تحياتى

السلام عليكم ورحمة الله وبركاته مرفق ثلاث ملفات اثنان للترقيم التلقائي بالأكواد وواحد بالمعادلات بمجرد الكتابة في الخلية B يتم نزول الترقيم تلقائي كود ترقيم تلقائي 3.rar ترقيم تلقائي 4.rar ترقيم تلقائي بالمعادلة.rar

أساتذتي الأفاضل أواجه مشكلة مع موقع حكومي في سحب جوازات السفر .. وهي انني عند سحب تاريخ الجواز من الموقع الحكومي يكون إنتهاء الجواز بالهجري على الشكل مثلا 14370812 وبناء على ذلك إريد تحويله إلى ميلادي فكرة التحويل إلى ميلادي تم حلها بفضل الله .. لكن المشكلة الآن هو عند عمل ماسك للتاريخ الهجري من 14370812 إلى 0000/00/00 بالتالي يصبح التاريخ كالتالي 1437/08/12 ولكن في الحقيقة هو مازال رقم والذي قام بتحويله لتاريخ هو فقط الماسك وبالتالي عند تحويله إلى التاريخ الميلادي يرفض لأنه لا يتعامل مع تاريخ وإنما يتعامل مع رقم .. لذلك اريد طريقة ما بمجرد وجود في الفيلد تاريخ على شكل 14370812 اريد تحويله إلى 1437/08/12 بدون ماسك ما الحل وفقا للملف المرفق Test2.rar

أتمنى أن يكون الملف المرفق مفيد للجميع _______.zip

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

عمل رائع و مجهود كبير تسلم يدك

تفضل لما تختار الملفات ، تستطيع تستخدم زر Ctrl او Shift او الضغط بالماوس والسحب على اسماء الملفات لإختيار الملفات المطلوبة ، وبعدما تختار ملفات من مجلد معين ، تستطيع مرة ثانية/ثالثة ان تختار ملفات اخرى من مجلدات مختلفة (لا تقول ما ادلعكم ) وبعدين في شغلة اريد اقولها ، انا لما قلت: مو تصدقون كل شئ اقوله جعفر 275.4.ImportDegrees.accdb.zip

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

الله يرحمها ان شاء الله ويسكنها فسيح جنانه ، ويُلهمكم الصبر على فراقها ان شاء الله أحسن الله عزاءكم ، ولا اراكم الله مكروه في من تحبون انا لله وانا اليه راجعون

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

السلام عليكم ورحمة الله وبركاته... إخوتي الكرام: بعد التفكير بطريقة للطباعة السريعة قمت بوضع الكود التالي في موديول: يقوم بالتصفية التلقائية ثم الطباعة ثم إلغاء التصفية لينتقل إلى الصنف التالي: ضمن مدى معين من الأصناف لكنني أرغب من علماء الإكسيل الكرام إيجاد إمكانية لتحديد مدى الأصناف من:..... إلى:...... وذلك بخلاف ما هو عليه الآن إذ يبدأ برقم وينتهي بنهاية الأرقام للأصناف... Private Sub CommandButton1_Click() Application.ScreenUpdating = False For I = 1 To 6 If ورقة6.Range("j1") = I And ورقة6.Range("j1") <> "" Then ورقة6.Range("g3") = I ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=6, Criteria1:= _ "<>" ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=1, Criteria1:= _ "<>" ورقة6.PrintOut Copies:=1 ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=1 ورقة6.ListObjects("الجدول6").Range.AutoFilter Field:=6 ورقة6.Range("j1") = الجدول6.Range("j1") + 1 End If Application.ScreenUpdating = True Next I End Sub فائق احترامي وشكري وتقديري والسلام عليكم ورحمة الله وبركاته... برنامج مخازن.rar

اليك إظهارالتقويم في الفورم.rar

استاذي العزيز خالد الرشيدي زادك الله رفعه وعلما وبارك الله فيك استاذي العزيز ابو البراء زادك الله علما ورفعه واحسن الله اليك

السّلام عليكم و رحمة الله و بركاته ألف شكر أخي الغالي " محمد حسن المحمّد " على الجهود المبذولة جزاك الله خيرًا و زادها بميزان حسناتك فائق إحتراماتي

وعليكم السلام أخي عمرو الامر isNumeric سيساعدك في الفصل بين اذا كانت المعلومة رقم (وستكون نعم) ، او نص (وستكون لا) ، يعني (وبدون انزال مرفقك): if isnumeric(X) = true then هذا رقم A=val(x) else هذا نص A=Trim(x) او A=Replace(X," ","") endif جعفر

السلام عليكم اسمح لي أخي الاستاذ علي ان اطرح هذه المعلومة في التقرير ، عادةً لا نستخدم الحدث "عند التحميل" OnLoad ، وانما نستخدم الحدث "عند التنسيق" OnFormat او "عند الطباعة" OnPrint للقسم الذي به حقل النص الذي تريده (يعني في قسم راس التقرير ، او قسم التفصيل ، او ...) ، لاحظ هذه الفيديو: . وهناك شئ في غاية الاهمية ، والذي للأسف يعمل الكثير من المشاكل ، والتعرف عليها صعب بعض الاحيان ، وهي مسمى اسم القسم!! مسميات أقسام النماذج / التقارير يعتمد على لغة نسخة الاكسس التي تم تنصيبها على جهازك ، واليك بعض الامثلة في مسميات الاقسام بين العربية والانجليزية: راس_التقرير ReportHeader ، التفصيل Detail ، ... وهذا الاسم يجب ان يتماشى مع الاسم الموجود في الكود ، مثلا: في برنامجك ، في التقرير ، اسم قسم التفصيل هو: تفصيل ، فعليه الكود اصبح: Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) بينما في برنامجي اسمه Detail ، فالكود يصبح: Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) لذلك ، لما تنقل الكود بين الكمبيوترات ، تأكد من هذه المسميات جعفر

=today() 1- ادخل تاريخ اليوم تلقائيا في الخلية A2

السلام عليكم ورحمة الله وبركاته... جزاكم الله خيرا أساتذتي وإخوتي الكرام على مساهماتكم الطيبة وإثرائكم لهذا الموضوع بطرح أفكاركم النيرة ... ولا أخفيكم أنني أفكر بـ :هل يمكن إدراج كود حلقة تكرارية لطباعة تقرير حركة الأصناف من الصنف رقم ...إلى الصنف رقم... وذلك بعد تصفية تلقائية للأيام التي تحتوي حركته في كل مرة لكل صنف..لتكون أسرع؟!. بدلا من طباعة كل صنف على حده كما هو في المرفق السابق(بداية البحث). ماجدوى هذه الفكرة؟.. والسلام عليكم.

أخي الكريم الطلب الأول جرب المعادلة التالية =COUNTIF($C$1:$C$300,">="&A4) الطلب الثاني جرب المعادلة التالية =COUNTIF($D$1:$D$300,">"&0) إذا صادفتك أي مشكلة قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

أخي الكريم حدد أي خلية في النطاق الذي تريد رسم مخطط بياني له من التبويب Insert انقر على الأمر Recommended Charts واختر أول خيار في النافذة Clustered Columns

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

بارك الله فيك شي جميل

جزاك الله خير

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

أخى الفاضل أحمد لا يوجد ملف مرفق

لإدراج التاريخ اضغطي واتي في الخلية A2 على CTRL+;‎ والفاصلة المنقوطة هي حرف الكاف وللوقت اضغطي على CTRL+SHIFT+;‎ والفاصلة المنقوطة هي حرف الكاف بالنسبة ل 3 يتم كتابة العنوان ثم دمج الخلايا 4 . شاهدي الصورة فالبضغط دبل كليك على أسم ورقة العمل يمكن تعديلها الصورة توضح الدوال المستخدمة في الحالات أ - ب - د - هـ وهذه المعادلة للحالة ج =IF(H1>200;"ناجحة";"راسبة") وتستبدلي H1 بخلية درجة الطالبة

. أفا ، شو هالكلام أخوي سعيد ، بالطريقة هاي الطبخة ما تكون كاملة . حيا الله أخوي ابواحمد 1. مثل ما يقولون: مسكتني من ايدي اللي توجعني ، لكن ولا يهمك ، ما يصير خاطرك إلا طيب ، غالي والطلب رخيص 2. بس عطني كم يوم ، عندي شغل مستعجل ، أخلصه وارجع لكم بالمثال ان شاء الله . أخي مؤمن تحديث بقية الكمبيوترات ، سيتم بالطريقة اللي شرحتها انا في مشاركتي السابقة جعفر

في المديول الذي اسمه Defs اضفت هذا السطر Public ShowUser As String وفي نموذج كلمة المرور frm-UserLogon اضفت هذه السطر في آخر حدث زر دخول ShowUser = MyUser.UserName ثم في النموذج وايضا في التقرير وضعت هذا السطر txtx = ShowUser وافعل ذلك في جميع نماذجك وتقاريرك المرفق هو المرفق السابق نفسه مختصرا اسم الدخول admin وكلمة المرور 2439 up2.rar

حبيبي الغالي ابو البراء رجع للعادة بتاعته تاني ماشي ياريس موضوع فك محرر الاكواد للامتدادت الاخرى تحت البحث طبعا وانت عارف الموضوع دا ان لسه بنبحث فيه يبقي كدا وقع النقطة الاولي النقطة التانية مجرب على معظم الامتدادات وفك الاوراق بدون مشاكل اما عندك مش شغال مش عارف ليه انا هنزل نسخة مخصوص 64 عشان خطرك بس لما النت يظبط معايا هحملها اتعب نفسك كدا وجربها على نسخة 32 كدا وبعدين اللي عاوز يفك ملف لو هخليه يحوله لمقطع صوتي هيحوله تقبل تحياتي وجاري ارفاق فيديو لطريقة عمل البرنامج فيديو طريقة العمل yasser vba.rar

أخي الكريم سيف النصر لم تغير اسم الظهور للغة العربية (اللغة العربية .. لغتنا الجميلة) وجزيت خير الجزاء بمثل ما دعوت بارك الله فيك والحمد لله الذي بنعمته تتم الصالحات تقبل وافر تقديري واحترامي

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

اعتذر رفعت مرفق خاطئ البرنامج مرفق المراسلة.rar

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

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

السلام عليكم ============ اشكركم جميعا على حسن المتابعة وسدد الله خطانا حميعا نفترض ان لدينا عمودين كل منهما يحتوى على اسماء او فواتير ونريد المقارنة بينهما بطريقة سهلة وبالدوال ايضا مقارنة بين عمودين.rar