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

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، وهي شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel فتابعونا. شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel؟ نبدأ أولا بمعرفة القواعد النظرية الرياضية التي اعتمد عليها الشرخ. الحدث application.ontime يستخدم في تنفيذ إجراء معين في وقت معين. مثال: تنفيذ الإجراء masclock بعد ثانية من الآن Application.OnTime Now + TimeSerial(0, 0, 1), "masclock" نأتي للساعة العقارب تعتمد على أن عثرب الساعات يمشي 30 درجة في الدائرة 360 درجة كل ساعة من خلال المعادلة التالية ثم نحسب زوايا الساعات والدقائق والثواني = 6 * عدد الثواني وهكذا ثم نوزع الضرب على الجمع ونختصر فتكون ونتعرف أيضا على: استدعاء ماكرو عند فتح مصنف إكسل ماكرو يستدعي نفسه ويكرر نفسه طريقة ونظرية برمجة عقارب الساعة رياضيا حساب إحداثيات نقطة بدلالة زاوية وطول الضلع على محور السينات X axis ومحور الصادات Y axis إضافة خلفية الرسم البياني Char إظهار محتوى خلية في شكل تلقائي auto shape كتابة معادلة في الشكل التلقائي لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 و 2003 الملف المستعمل في الشرح في المرفقات ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك mas digital and analog clock.rar

تم تعديل العنوان اخي الكريم يجب الاهتمام باختيار العنوان المناسب للموضوع

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

بارك الله في جهودكم ونفع الله بكم

آمين يا رب العالمين و إن شاء الله أجمعين

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم أحبتي في الله اليوم هديتي لإدارة ومشرفي وأعضاء وزوار منتدانا الرائع هدية كبيرة الحجم قليلا (فأنا معروف بسلسلة ما خف وزنه وغلا ثمنه "الماس" ) برنامج أوفيس 365 وهو تحديث أوفيس 2016 بأحدث إصدار 16.0.8431.2110 بصيغة img وهي مثل iso تحميل مباشر من موقع ميكروسوفت (يعني أصلية ومش ملعوب فيها) ويوجد روابط اللغتين اللغة العربية O365ProPlusRetail_ar.img واللغة الإنجليزية O365ProPlusRetail_en.img حجم الاسطوانة الوهمية img حوالي 2.5 جيجابايت والآن مع روابط التحميل اللغة الإنجليزية http://swiftation.com/9612849/mso365en2018 اللغة العربية http://swiftation.com/9612849/mso365ar2018 وفي الأخير لو بخل بهذه المعلومة غيرك ما وصلت إليك فلا تبخل على غيرك بما عرفت وشارك هذه الصفحة قدر استطاعتك فلا خير في كاتم علم ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة

لسلام عليكم جزاكم الله خيرا اريد ان اجمع المبلغ الئمقبوض بشرطين هما العميل الهرم ونوع العملة دولار هل يمكن ان اضع اسم العميل =DSum("[المبلغ المقبوض]";"العملاء";"[اسم الحساب]='" & [الهرم] & "'" & "and [نوع العملة]='دولار'") بحيث يكون مجموع الدولار لاسم الحساب الهرم ولايتاثر هذا الحقل بالتبديل بين العملاء الا باضافة سجل جديد حوالات جديد.rar

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

بارك الله فيك استاذي الكريم جزاك الله خير الجزاء تحيه اليك يالغالي

أولا غير هذا السطر: Set rst = Me.ARD.Form.RecordsetClone بهذا السطر: Set rst = Me.RecordsetClone لأنه ليس لديك نموذج فرعي ثانيا غير خاصية النموذج السماح بالتحرير إلى نعم. الاستاذ صالح.rar

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

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

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

عملت اليك هذا يحدد سجل واحد فقط باذن الله تجد من الاخوان طريقه تحدد السجلات كامل السموحه منك اخي 3.rar

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

حلو!! <== ماذا تقصد بها، هل حلت المشكلة لديك ام لا؟

شكرا جزيلا اخوي العزيز سليم .. بارك الله فيك ... وفي علمك واهلك ومالك ..

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

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

اتفضل اتمنى يكون المطلوب test_2.rar

السلام عليكم أخى محمد هناك مشكلة فى تحميل هذا الملف

لو لاحظت أخي الكود الذي أرسلته لك لم أضع فيه +1 بل وضعت فيه +i

السلام عليكم أخي محمد جرب الكود بهذه الطريقة غير به ما تحتاج حسب حاجتك: Dim i As Integer For i = 1 To Me.t4 DoCmd.RunSQL "INSERT into tbl(id, nn, ff) VALUES (" & Me.hh.Form![id] + i & ",'" & Nz(Me.hh.Form![t2], "") & "'," & Me.hh.Form![t3] & ");" Next i Me.Refresh و هذا المرفق يوضح ذلك tt.rar

راجع الموضوع ده في المنتدى يمكن يكون فيه فائدة لك

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

راجع هذا الموضوع

بالنسبة لوضع التكبير للنموذج (الرئيسية) تمت معالجته بسهولة.. لكن بالنسبة لاستقرار النموذج (Main) في الأعلى لم أحصل على نتيجة مرضية لأن إعادة التكبير تفقد النموذج (Main) التركيز (البقاء في الأعلى).. ومع هذا وضعت حلا أرجو ألا يخيب ظنك.. Minimize.zip

السلام عليكم ما هي العلامة العشرية في جهازك؟ إذا كانت هي الفاصلة "," فيجب القيام في كل أعمدة علامات المواد والمعدل (بعد تحديدها كليا) باستبدال العلامة الأخرى "." بالعلامة "," (والعكس إذا كانت العلامة العشرية في جهازك هي ".")... وإن شاء الله تعود كل الأمور إلى نصابها... والله أعلم. بن علية حاجي

السلام عليكم لأن في الجدول قيم نصية حسب العلامة العشرية في جهازك باعتبار أن هذه القيم هي من الشكل 00,00 أو من الشكل 00.00 (العلامة العشرية هي تارة "," وتارة أخرى ".") بن علية حاجي

نعم استاذ رمهان هذا صحيح شكرا جزيلا

بعد اذن الاساذ صالح اعتقد المشكلة تكمن في ان الجملة تاخذ قيمة الراتب حسب السحل الحالي وهو غالبا يكون الاول عند فتح النموذج هنا جرب الجملة التالية بديلا للجملة اعلاه sql_statment = "update Employees set salary = Salary +" & SalaryIncrement & " where Category = '" & Cat & "'" وهنا ملاجظة بان المشكلة ستضل قائمة بان الفئة هي نفسها فئة اول سجل لذلك يمكنك وضع قيمتها يدوي اسوة بقيمة الزيادة واخيرا للاستاذ صالح اعتقد ليس هناك فرق بين الجملتين في النتيجة ولكن قد يكون هناك فرق في السرعة والفرق الظاهر هو اختلاف المكتبة حيث الاولى مستخدمة كائنات الاكسس والاخرى كئنات dao تحياتي للجميع

أجب ان اضيف انه في حالة الرغبة في غلق الملف دون غلق تطبيق الاكسيل نفسه ، في حال اذا كان اكثر من الملف مفتوح مثلا فيكتفي بالسطر الثاني فقط دون الأول Private Sub closeme() ActiveWorkbook.Close True End Sub

اتفضل اخي هذا طلبك Purchase & Store.rar

تفضل جرب المرفق 2.xls

اتفضل استاذ تامر Sub Close1() Application.Quit ActiveWorkbook.Close SaveChanges:=False End Sub

طيب انا ترقيتي متعطلة ليه يا استاذ محمد مع انني عضو قديم كده هشتكي لمكتب العمل

هل تصبو الى التميز المؤسسي ؟ ?Are you striving for Organizational Excellence Self-assess your organization against 9 principles that are common to high performing organizations قم بعمل تقييم ذاتي لمؤسستك بناء على 9 مبادئ شائعة لدى المؤسسات ذات الأداء العالي The principles are based on the 'Organizational Excellence Framework', a framework that integrates leading global excellence frameworks. The assessment should take 5 minutes to complete. The results will provide a description of the current culture in your organization and provide the foundation for future improvement activities. Receive a free feedback report that shares your ratings and shows the relationship between low rated principles and best management practices. https://lnkd.in/gbS7Xg8 هذه المبادئ مبنية على الإطار العام للتميز المؤسسي ، و هو إطار عام يدمج أطر التميز العالمية الرائدة . عملية التقييم تستغرق 5 دقائق و النتائج تشمل وصفا للوضع الحالي للثقافة المؤسسية و تمثل الأساس لأنشطة التطوير المؤسسي المستقبلية. Questions about the assessment may be directed to the Dawn Ringrose, Principal at dawn@organizationalexcellencespecialists.ca

جرب الاستعلام التالي وقم بتغيير تاريخ البدء ووقته وتاريخ الانتهاء ووقته وحسب مدة التقرير SELECT TB_1.Date1, TB_1.tem, [date1] & " " & [tem] AS Expr1 FROM TB_1 WHERE ((([date1] & " " & [tem]) Between #1/26/2017 15:0:0# And #1/27/2018 2:0:0#)); بالتوفيق

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

تفضل أخي الكريم الكود في ملف مرفق .. Test.rar

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

بارك الله فيك أخي الكريم نوري والحمد لله الذي بنعمته تتم الصالحات تقبل وافر تقديري واحترامي

وعليكم السلام أخي الكريم أولاً أهلاً بك في المنتدى ونورت بين إخوانك ثانياً ما قدم من قبل أخونا العيدروس هو كود وليس معادلة .. المعادلة توضع في ورقة العمل وتبدأ بعلامة يساوي أما الكود فيوضع في محرر الأكواد في موديول أو في حدث المصنف أو أوراق العمل أو الفورم ثالثاً إذا أردت تغيير العمود فيمكن ذلك من خلال تغيير الكود في سطرين السطر الأول هو رقم العمود الهدف Target.Column <> 1 الرقم 1 في هذا الجزء يشير للعمود الأول .. فإذا أردت التعامل مع العمود E وهو العمود رقم 5 ستقوم بتغيير الرقم 1 إلى الرقم 5 السطر الثاني هو نطاق العمود الأول Fo Each Cel In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row - 1) قم بتغيير حرف الـ A المعبر عن العمود الأول وضع مكانه حرف العمود المطلوب العمل عليه أرجو أن أكون قد أفدتك

الاخ حسام كل عام وانت طيب طريقة عمل القوالب مشروحة على هذا الفيديو https://youtu.be/p-J13jtadY8 مشروح من زمان اما لو كنت عاوز الطريقة الموجودة فى الموضوع ساجهذها لك ارجو توضيح جملة الاشكال بالورق هل المقصود منها ادراج اشكال من البوربوينت

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

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

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

السلام عليكم لمحبي الرسائل التنبيهية في الأكواد هذه طريقة لجعل الرسالة تختفي بعد فترة محددة من الزمن وللأمانه هي من اعدادا الإستاذ محمد صالح (ماس) CreateObject("Wscript.shell").Popup "إنتظر قليلاً ستختفي هذه الرسالة خلال ثانية ", 1, "إنتظار !!!!", vbExclamation طبعاً الرقم 1 هو الزمن المختار لإختفاء الرسالة بعد عرضها

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