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

السلام عليكم ورحمة الله وبركاته إخواني الكرام في المنتدى الغالي أقدم لكم موضوع بسيط جداً ألا وهو كيفية إظهار المعادلات في الخلايا بدون أكواد سبق أن قدمت على الرابط التالي موضوع حول هذا الخصوص باستخدام دالة معرفة رابط الموضوع الآن بدون أكواد يمكن عمل ذلك بمنتهى اليسر والسهولة روح للتبويب Formulas ثم انقر على Name Manager ثم انقر New (وكفاية كدا نقر عشان منقلبش فراخ) اكتب اسم للنطاق الذي سيتم تسميته باسم ShowFormula ليكون معبر عن الهدف من المعادلة ، وفي الحقل المسمى Refers to اكتب المعادلة التالية =GET.CELL(6,INDIRECT("RC[-1]",FALSE)) وأخيراً أوك ... بس خلاص كدا الخطوة الكبيرة انتهت روح للخلايا اللي فيها المعادلات واكتب جنبها المعادلة التالية =ShowFormula هتظهر لك المعادلات المكتوبة في الخلايا في الملف المرفق تطبيق لما تم شرحه حمل الملف من هنا لا تنسونا بصالح دعائكم تقبلوا تحياتي

بسم الله ما شاء الله أخي أسامة بارك الله فيك ملحوزة صغيرة .. متنساش تلغي اهتزاز الشاشة وخلافه حتى يستغرق الكود وقت أقل .. جرب الكودين هتلاقي حوالي ثانيتين أو تلاتة فرق .. طبعاً مع عدد المصنفات الكثيرة هيفرق حاجة تانية مع السطرين اللي بدايتهم xl0.Worksheets("المعلومات الأساسية") الأفضل نستخدم جملة With xl0.Worksheets("المعلومات الأساسية") End With أنا مش بعدل عليك ..أنا بس بفكر بصوت عالي عشان نوصل لأفضل الحلول .. يداً بيد نبني قلعة الأكواد الحصينة ( YK & OB) :fff:

السلام عليكم بعد إذن الاستاذ الكبير ياسر (علشان انا كنت باجهز الرد) ممكن برضه تجرب الكود ده Sub UpdateData() Dim R Dim WbkName As String Dim MyPath As String MyPath = ActiveWorkbook.Path If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\" Dim xl0 As New Excel.Application For R = 2 To 6 WbkName = MyPath & Cells(R, 1) & ".xlsx" Dim xlw As New Excel.Workbook Set xlw = xl0.Workbooks.Open(WbkName) xl0.Worksheets("المعلومات الأساسية").Cells(6, 1) ="تاريخ الاستقالة" xl0.Worksheets("المعلومات الأساسية").Cells(6, 2).Value = ActiveSheet.Cells(R, 2).Value xlw.Save xlw.Close Set xl0 = Nothing Next Set xlw = Nothing End Sub

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

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

انا اصوت ل 2013 فهو يجب ما كان قبله :power:

السلاك عليكم أخي الكريم لم أعد أفهم ماتريد هذه النسخة أيضا ليس بها مشاكل أرجو أن تعيد التعبير عما تريد بالضبط إن كان الملف كبيرا ، إرفعه علي موقع آخر وانسخ اللينك فقط

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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام في الصرح العملاق أوفيسنا (الذي يعتبر بمثابة الأم التي تحتضن أبناء الوطن جميعهم) أقدم لكم موضوع بسيط جدا في كيفية تظليل عمود وصف الخلية النشطة بناءً على رغبة الأخ الحبيب أحمد غانم (حفظه الله ورعاه) إذا أردت تنفيذ الفكرة بنفسك قم بعمل الآتي : أولاً حدد خلايا ورقة العمل بأكملها ..مش صعبة يا أحمد ثانياً روح للتنسيق الشرطي ..واختار New Rule ثم Use a formula to determine which cells to format ثم اكتب المعادلة التالية : =COLUMN()=COLUMN(INDIRECT($P$1)) اضغط Format ثم التبويب Fill واختار اللون اللي على مزاجك (يا لذيذ يا رايق) كرر نفس الخطوات السابقة مرة أخرى واكتب المعادلة التالية أيضاً .. =ROW()=ROW(INDIRECT($P$1)) ثالثاً : كليك يمين على ورقة العمل ثم View Code واكتب الكود التالي : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Range("P1").Value = Target.Address Application.ScreenUpdating = True End Sub رابعاً ودي أهم خطوة : بس خلاص جرب الملف المرفق .. في الملف المرفق قمت بتلوين بعض النطاقات ، وعمل تنسيق شرطي للتأكد من أن الكود لا يؤثر بأي حال على التنسيق الشرطي الموجود ولا على الخلايا التي تم تلوينها من قبل ، ويسمح أيضاً بتلوين أي خلايا تريدها Highlight Activecell's Row And Column V2.rar

السلام عليكم بعد التحية الى جميع اعضاء المنتدى الكرام اظن البعض قد يقول ان الموضوع متكرر لانى شفت الدالة موجودة مسبقا فى احد الردود واناجربتها لكن وجدت فيها بعض الملاحظات الصغيرة، منها 1- ان فيها خطأ لو الواحد نسى يدخل العملة الرئيسية او الفكة 2- انك لما تحدد الفكة مثلا بيظهر 25/100 قرش !! 3- ولو كانت الفكة مثلا 0.251 هاتظهر 251 قرش ولانى كنت عامل دالة تعمل نفس الوظيفة مسبقا قمت بتعديل واضافة النسخة الانجليزية منها ومن المميزات فيهما: 1- ادخال العملة اختيارى 2- مراعاة بعض القواعد النحوية حسب علمى 3- الدالة شغالة حتى 999 مليون 4- كتابة الكسور مع مراعاة الفكة لما تكون واحد من الف زي الريال العمانى = 1000 بيسة مثلا وكذلك تجاهل اى كسور زائدة عن الحاجة وهما مرفقتان هنا وارجو من الجميع الاستفادة والتجريب واخطارى لو فيه خطأ حصل تبلغونى WriteDownNumbers.zip

وبه نستعين والصلاة والسلام على اشرف المرسلين سيدنا محمد الصادق الامين ومن سار على سنته الى يوم الدين.. وبعد في موضوع قاعدة بيانات خاصة بمختبر تحاليل طبية بالاكسل أحببت أن أوضح لأخواني بالمنتدي ان التجربة والخطأ هي افضل الطرق للتحصيل والتعلم والمنتدي ذاخر بالمادة العلمية ومساهمات الاعضاء المختلفة وكلها مفتوحة المصدر بالاضافة الي التعاون المستمر من جميع اخواني بالمنتدي في الرد علي الاستفسارات المختلفة والتي تحتوي بين طياتها علي الكثير والكثير من المعرفة والافكار ولاحظت في الفترة الاخيرة تكرار الطلب مع انه موجود بصورة او باخري وليس شرطا ان يكون بنفس فكرة الاخ الطالب لكن موجودة افكار كثيرة يمكن تطويعها لاعمالنا او تكون مدخلا لافكار اخري قابلة للتطوير كنت من فترة طرحت موضوع برنامج الشيكات مع التقارير مفتوح ويصلح لاعمال عديدة بتطويعه واليوم نفس البرنامج لم اقم الا بتغيير مسميات الاعمدة وتغير مظهر الفورم ليتناسب مع طلب الاخ السائل في موضوع مختبر التحاليل الطبية ويكون دعوة للجميع بالمنتدي ان نبحث ونجرب ونخطيء ونتعلم ونسأل ونستفسر ويصبح لنا بصمة لاعمالنا وذلك افضل من طرحنا سؤال او طلب لبرنامج كامل حتي ان وجدنا من يجيب او يصمم ذلك البرنامج ستكون افادتنا ليست الا مستخدمين لذلك البرنامج فدعونا جمعيا نشارك بايجابية ونبحث قبل طرحنا السؤال اسف للاطالة شرح البرنامج 1- الشاشة الرئيسية وبها وظيفتي ادخال جديد والبحث وطباعة ايصال استلام النقدية عند اختيار جديد نلاحظ ان المسلسل تلقائي وايضا يتم ادراج اليوم تلقائيا والتفقيط ايضا 2- البحث برقم مسلسل العميل من خلال شاشة البحث يظهر معنا خيار طباعة ايصال استلام النقدية كالتالي 4- من خلال الوظائف اسفل الفورم يمكنك الانتقال شاشة التقارير 5- شاشة التقارير والتي تتيح لك خيارات تقرير باسم مريض معين لحصر معاملاته خلال فترة معينة ويمكنك من خلالها عمل تقرير يومي لمعرفة الايراد او تقرير لفترة محددة بين تاريخين ومن خلال شاشة التقارير يمكنك طباعة التقرير كالتالي شاشة المساعدة وبها شرح مبسط للبرنامج عند اختيارك اغلاق للفورم للدخول علي الملف يطلب منك كلمة مرور كالتالي في شيت Info يمكنك اضافة اسماء التحاليل الطبيبة المستخدمة وسوف تظهر في الفورم عند اختيارك لادخال جديد فاللهم تقبل منا عملنا هذا خالصا لوجهك الكريم اسأل الله العلي القدير أن يوفقني وإياكم لما فيه الخير الملف بالمرفقات ويسعدني اي استفسارات حول البرنامج اوفيسنا للتحاليل الطبية.rar

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

بسم الله ما شاء الله منور المنتدى والله ..ربنا يبارك فيك لا تحرمنا من وجودك ومن إبداعاتك .. تقبل ودي وحبي واحترامي وتحياتي

اخي جعفر طبعا فكرة ادخال الدالة format في الطرفين : طرف المعيار وطرف القيمة المعلمة ! ليست جديدة عليكم ولكن قد يكون تطبيقها هو الذي جعلكم تبحثون عن فكرة وهي ابسط حقوق المبرمج ! الآن راح نشوف الاكسس لضمان تساوي التنسيق ! في ال sql Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where format([date],'dd/mm/yyyy')='" & Format(idate, "dd/mm/yyyy") & "'") هنا نلاحظ ان السر في عدم استخدام # واستبدالها ب ' لانه اصبحت المقارنة نصية ! والافضل وضع تنسيق التاريخ بهذا الشكل mmddyyyy في دالة ال dcocunt RC4 = DCount("*", "tbl_T", "format([Date],""ddmmyyyy"") =Format(idate, ""ddmmyyyy"")") بالتوفيق

أخي وحبيبي الغائب عن الأعين الحاضر في القلوب مختار حسين بوركت وجزيت خيراً وأكلت لحم طيرٍ وتزوجت بكراً (ربنا يستر وجماعتك ميشوفوش الدعاء ده ليدعوا عليا)

أحبائى أعضاء وأساتذة المنتدى العظيم أتمنى من الله أن تكونوا جميعا بخير أقدم لكم اليوم كودين الكود الأول وهو لإخفاء أشرطة الأدوات والكود الثانى لإظهار أشرطة الأدوات ولا أدرى إذا كان الموضوع مكرر أم لا عموما للفائدة Sub RemoveToolbars_HH() On Error Resume Next With Application .DisplayFullScreen = True .CommandBars("Full Screen").Visible = False .CommandBars("MyToolbar").Enabled = True .CommandBars("MyToolbar").Visible = True .CommandBars("Worksheet Menu Bar").Enabled = False End With On Error GoTo 0 End Sub Sub RestoreToolbars_HH() On Error Resume Next With Application .DisplayFullScreen = False .CommandBars("MyToolbar").Enabled = False .CommandBars("Worksheet Menu Bar").Enabled = True End With On Error GoTo 0 End Sub Hide And Show The Menu Bar Yasser Albanna.rar

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

أخي الفاضل لم تغير اسم الظهور للغة العربية بالنسبة للتعديل أبسط مما تتخيل روح للخلايا اللي أشرت إليها في المشاركة رقم 4 وغير الرقم 30 إلى الرقم الأخير في البيانات ومتنساش تضغط Ctrl + Shift + Enter حاول وافضل حاول .. ولا تكف عن المحاولات .. وافشل يكفيك شرف المحاولة الأخ الحبيب علاء رسلان .. إحنا غلابة لا أسود ولا حتى ضباع .. ممكن أعدل تعديل بسيط على ملفك بحيث يكون مرن خلي المعادلة بهذا الشكل في الخلية F2 =IFERROR(VLOOKUP(COLUMN()-5,$A$2:$C$30,3,FALSE),"") واسحبها عبر الصفوف لأي عدد بدون تغيير المعادلة في كل مرة مشكور على إثرائك للموضوع تقبل تحياتي

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

وعاد في حاجة مهمة لا تنسى تعاير الماء والزيت قبل تشغيل قاعدة البيانات^_^

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

الأخ أبو حازم بعد إذن الأخ الحبيب سليم .بارك الله فيه إليك الحل التالي بدالة معرفة قمة في الروعة تغنيك عن كل هذا الكم من المعادلات ..حيث قام أخي وحبيبي سليم باخفاء ورقة العمل ورقة3 ووضع بها معادلات لاستخراج القيم الفريدة أما الدالة المعرفة فتغنيك عن كل هذا الأمر Function GetUnique(ArrDupes As Variant, Ref As Long) As Variant 'تقوم الدالة باستخراج القيم الغير مكررة وتخطي الخلايا الفارغة '=IFERROR(GetUnique($A$1:$A$20,ROW(A1)),"") '----------------------------------------------------------- Dim E With CreateObject("Scripting.Dictionary") If TypeOf ArrDupes Is Range Then For Each E In ArrDupes If E <> "" Then .Item(E.Value) = Empty Next Else For Each E In ArrDupes If E <> "" Then .Item(E) = Empty Next End If GetUnique = .keys()(Ref - 1) End With End Function تقبل تحياتي حصر الاسماء وفرزها YK.rar

أخى الكريم اضغط على مفتاحى ctrl + ~ ولاحظ

السلام عليكم ادخل في البرنامج eng adel_data.mdb ، اذهب لقائمة الجداول ، للجدول الالوان : وغير اسمه الى الالون (لاحظ الاسم مافيه ألف بين الواو والنون): واغلق البرنامج. ادخل في البرنامج eng adel.mdb ، واعد ربط الجدول الالون بالبرنامج eng adel_data.mdb بالجدول الالون ، الآن شغل البرنامج وجرب الظاهر ان في احدهم غير اسم الجدول وصارت هذه المشكلة كلها جعفر

جميلة فعلا يا أبا البراء ماشاء الله عليك

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

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

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

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

الأخ الفاضل نهاية فوضوي إليك الكود التالي عله يفي بالغرض Sub RecordEmployee() Dim rngID As Range, WS As Worksheet, SH As Worksheet Dim LR As Long, X As Long Set WS = Sheets("in"): Set SH = Sheets("Sheet1") Set rngID = SH.Range("C5") With SH LR = .Cells(Rows.Count, "I").End(xlUp).Row + 1 If IsEmpty(.Range("C5")) Or IsEmpty(.Range("C7")) Or IsEmpty(.Range("C10")) Or IsEmpty(.Range("C13")) Then MsgBox "أكمل البيانات أولاً", vbExclamation: Exit Sub If Not WS.Range("A5:A" & WS.Cells(Rows.Count, 1).End(xlUp).Row).Find(rngID) Is Nothing Then X = Application.WorksheetFunction.Match(rngID, WS.Range("A5:A" & WS.Cells(Rows.Count, 1).End(xlUp).Row), 0) + 4 If Not .Columns("I:I").Find(WS.Cells(X, 2)) Is Nothing Then MsgBox "تم إدخال اسم الموظف " & WS.Cells(X, 2) & " من قبل", vbExclamation + vbMsgBoxRtlReading Else .Cells(LR, "I") = WS.Cells(X, 2) .Cells(LR, "J") = .Cells(7, "C") .Cells(LR, "K") = .Cells(13, "C") .Cells(LR, "L") = .Cells(10, "C") .Cells(LR, "N") = .Cells(16, "C") End If Else MsgBox "لا يوجد موظف لهذا الرقم", vbInformation: Exit Sub End If End With End Sub تم مراعاة ألا يتكرر اسم الموظف في الجدول 2 وألا تكون الخلايا التي سيتم التسجيل فيها فارغة ... جرب المرفق التالي وأعلمنا بالنتائج Record Employee Sales YasserKhalil.rar

انا كنت بأتفق معاك أخوي أبوخليل ، لو انه كان يستعمل الاكسس 2003 من مدة ، بس لأنه الآن بدأ وقال "حالياً أنا أتعلم برمجة الأكسس" ، لهذا السبب اقترحت عليه ان يبدأ بـ 2010 مباشرة ، فهي بتسهل عليه مجموعة اشياء وجزء من دفاعي عن 2010 هو http://www.officena.net/ib/index.php?showtopic=59697&p=382621 جعفر

انا اصوت للاستمرار على وضعك

وعليكم السلام كود الاخ رمهان هو عبارة عن مجموعة اسطر مدمجة في سطر واحد: Set img = CreateObject("wia.commondialog") Image_Path = (Application.CodeProject.Path & "\photo\" & "\\" & [id] & ".jpg") img.ShowAcquireImage.SaveFile Image_Path والان المسألة اصبحت اسهل للتعامل معها ، فالسطر الاول والاخير لا يوجد تغيير عليهم , ولكن التغيير يكون في السطر الثاني ، وهو مسار الصورة، والذي يجب ان نشتغل عليه ونتوسع فيه طلبك هو: (4) ليحفظ الصورة في (3) المجلد الفرعي داخل (2) مجلد صور الموظفين الموجود في (1) مجلد البرنامج الرئيس Set img = CreateObject("wia.commondialog") '1 Image_Path = Application.CurrentProject.Path '2 Image_Path = Image_Path & "\photo\" '3 Image_Path = Image_Path & "\" & [id] & "\" '4 Image_Path = Image_Path & [id] & ".jpg" img.ShowAcquireImage.SaveFile Image_Path وللعلم ، فالصورة التي يحفظها الكود ليست jpg وانما bmp (كما اوضحتها انا هنا http://www.officena.net/ib/index.php?showtopic=61540&p=399567 ) جعفر

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

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

وعليكم السلام انا اصوت لـ 2010 ، مع ان 2013 موجود. جعفر

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

أخي الحبيب أبو يوسف الكود فقط يقوم بوضع قيمة في خلية Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Range("P1").Value = Target.Address Application.ScreenUpdating = True End Sub يمكنك أن تغير الخلية لأي خلية أخرى بعيداً عن مجال البيانات أما بالنسبة لعملها بدون كود فأعتقد أن غير ممكن

السلام عليكم ورحمة الله مرحبا أخي في الكود اللي انا وضعته تقدر تتحكم في موضع الإضافة لكليك يمين من الجزئية التالية With ContextMenu.Controls.Add(Type:=msoControlButton, before:=2) .OnAction = "'" & ThisWorkbook.Name & "'!" & "ToggleCaseMacro" .FaceId = 59 .Caption = "Toggle Case Upper/Lower/Proper" .Tag = "My_Cell_Control_Tag" End With 'Add custom menu with three buttons Set MySubMenu = ContextMenu.Controls.Add(Type:=msoControlPopup, before:=3) With MySubMenu .Caption = "Case Menu" .Tag = "My_Cell_Control_Tag" إذا أردت جعل الإضافة في نهاية القائمة فسوف نقوم بحذف من السطر الأول , before:=2) وحذف من السطر الثامن , before:=3) وكده هتظهر في نهاية القائمة إذا أردت تغيير ترتيبها مثلا في المنتصف أو رقم 5 أو ما إلخ فقط قم بتغيير الرقم من 3 إلى 10 أو 15 بدون أن تحذفهم في كل مرة تغيير فيها إضغط F5 وفي الشيت نفسه اضغط كليك يمين عشان تشوف المكان الجديد لها يعني الحذف فقط لو أردت إنهم يظهروا تلقائيا في نهاية قائمة كليك يمين

لم يرد على احد ! وهنا اسمحو لي اسولف شويتين : دخلت عالم الكمبيوتر عام 1999 وطبعا دراستي ليست في الكمبيوتر ! اكتشفت بعد كم سنة خبرة اننا في السعودية وقد يكون في العالم العربي استخدام تقنيات ميكروسوفت في الويندوز كانظمة تشغيل ولغات البرمجة وقواعد البيانات وذلك لسهولة تعلمها ووجود مصادر التعلم من الشركة الام ودعمها للغة العربية ! ولكن للاسف ليس لجودتها ! بل اكتشفنا ان ميكروسوفت تجري خلف شركات عملاقة محاولة تقليدها ثم وضع الدعم العربي ومن ثم بيعها للسوق العربي ! كانت ميكروسوف تهدف الى السوق العربي ! قصص كثيرة مررت بها كغيري من الاخوة التقنيين العرب ! فلا مقارنة بين نظام تشغيل اللينكس والويندوز ! ولا مقارنة بين الجافا ولغة البيسك ! ولا مقارنة بين الجافا سكريبت والفي بي سكريب ! ولا مقارنة بين الاسكيو ال سيرفر والاوراكل ! هذا زمان ! ثم جاءت الدوت نت محاولة اللحق بالركب ! ولكن هيهات هيهات ! كان العتب والله على من كان يضعون المناهج الدراسية فقد كانو برضه ما يعرفون ايش السالفة ! كلنا عهيدين بالتقنية ! في الهند لا وجود لتقنيات ميكروسوفت زمان في مناهجهم بل شي قليل جدا ! درسو الجافا وال c++ وتعمقو فيها وهي الاساس ! انا اشتغلت على فيجول بيسك 6 فترة قصيرة ثم حولت للدلفي ورايت عجب العجاب ! وعند نزول الدوت نت وجدتها والله يا اخوان نفس الدلفي وطريقة تعاملها ! كان فيه شي مضحك : طبعا اذا سويت برنامج بالفيجول بيسك لا يشتغل الا على الويندوز فقط ! اما الدلفي عند انشاء ال exe روح شغل على ويندوز او لينكس وتسمى هذه cross-platform طيب ايش الزبدة وفي الموضوع هذا يارمهان الان شوفو كيف قوقل تنطق النص العربي ! وميكروسوفت لسا فقط نطق الانجليزي قوقل https://translate.google.com.sa/?hl=ar&tab=wT#auto/ar/%D9%85%D8%AD%D9%85%D8%AF ميكروسوفت https://www.bing.com/translator/ عارفين سبب رداءة ميكروسوفت : لم تتخصص الا في الويندوز والاوفيس فقط ! ولكن طمعها خلاها تدخل خشمها في شغلات ما هي على قدها بحثا عن الربحية! ياناس حتى الموبايل ابليكيشن مسويها نفسها فيه ! وجاءت شركات بعدها زي الاندرويد وغطت عليها ! بينما الشركات الاخرى تؤمن بالتخصص فتجد منتج او منتجين وبجودة وتخصصية! تحيات رمهان

وعليكم السلام 1. لازم تعمل جدول يكون فيه حقل نوع الجهاز (Device) ، وحقل موديل الجهاز (Model) ، كما هو في الجدول tbl_Devices ، ويجب عليك تعبئة اسماء جميع الاجهزة وموديلاتها: 2. في النموذج ، تأخذ معلومات الحقل/كمبوبوكس نوع الجهاز ، من الحقل Devices ، في الجدول tbl_Devices ، وعلى حدث "بعد التحديث" تكتب هذا الكود ، حتى يكون محتوى الحقل موديل الجهاز حسب نوع الجهاز: Me.[موديل الجهاز].Requery Me.[موديل الجهاز] = "" 3. في النموذج ، تأخذ معلومات الحقل/كمبوبوكس موديل الجهاز ، من الحقل Model ، في الجدول tbl_Devices ، واستعلامه يكون: جعفر 85.computer.mdb.zip

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

السلام عليكم أخي الحبيب راجعت الكود ، يعمل بكفاءة ماشاء الله عليك الكود ممتاز أنظر الفيديو المرفق لاشيء خطأ عندما تقوم باستدعاء اشعار ( في الاشعارات التي تحتوي على صنف واحد فقط ) لايتم استدعاء البيانات أواضافتها من الاشعارات التالية لم أفعل أي تغيير للكود الخاص بك فقط غيرت في الملاف بأن وضعت في Sheet2 بالخلية B5 العنوان "رقم الاشعار" ، كان غير موجود بالنسخة التي رفعتها أنت ALBARAKANI.rar

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

أحسنت ..أحسن الله إليك وجزاك الله خيراً....

الجزء 2 سنقوم ضمن هذا الجزء بشرح تطبيقات عملية وبعض دقائق الأمور الحاسمة و المهمة ، كي نتمكن من إستخدام SQL بسهولة ويسر . ومن خلال هذا الفصل سيتم شرح وتفصيل جملة (عبارة) SELECT وتستخدم عبارة SELECT لتحديد البيانات من قاعدة بيانات ، ويتم تخزين النتيجة في جدول النتيجة، المسمى ( مجموعة النتيجة ) result-set . SELECT بناء الجملة SQL SELECT Syntax SELECT column_name(s) FROM table_name و .... SELECT * FROM table_name[/right] ومثال ذلك تعاملنا مع الجدول Employees من قاعدة البيانات المختارة للتطبيق Northwind نريد تحديد مضمون الأعمدة "LastName" و "FirstName" من الجدول Employees ، فنستخدم العبارة التالية : SELECT LastName,FirstName FROM Employees أو SELECT Employees .LastName, Employees .FirstName FROM Employees; SELECT Employees .* FROM Employees; فائدة : النجمة (*) هو وسيلة سريعة لتحديد كافة الأعمدة! ويكون شكل result-set كما كما في الاستعلام Q_SelectAll ....................................... NA_NorthwindSQL.rar ويكون شكل result-set كما في الاستعلام Q_Select SELECT * نريد تحديد كافة الأعمدة من الجدول Employees ، فنستخدم العبارة التالية : SELECT * FROM Employees أو

اخي الفاضل اسباب عدم ظهور الصورة في ملفك المرفق 1. هناك كود في حدث Worksheet_Change لورقة العمل (صحيفة احوال ) ليس موجود في ملفك 2. اسم فولدر الصور يجب ان يكون pic حسب الكود وليس كما انت مسميه 3. الاصار الذي تعرض فيه الصورة غير موجود 4. يجب ان يكون نسق الصور jpg وليس اي نسق اخر وان يكون اسم الصورة حسب الرقم وللعلم فان اي من هذه الاسباب بمفره يوقف جلب الصورة فكيف بها مجتمعة تفضل ملفك بعد التعديل عليه ابواحمد New Folder (4).rar