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

السلام عليكم ورحمة الله تعالى وبركاته من منا يمل من كثرة استخدام الرسائل مثلى ويظل يفكر فى كل مرة كيف سيكتب الكود المناسب الان موديول واحد به الحل النهائى المرن فى التعامل مع الرسائل وحتى لا ننسي الفضل لاصحاب هذا العمل الحقيقين الاستاذ @أبو هادي >>----> تعريب الصندوق الاستاذ @ابوخليل >>----> تعريب الصندوق الاستاذ @أبو آدم >>----> تلوين محتوى الرسالة هذا المثال الذى اهديه لكم هو خلاصة دمج الاكواد المستخدمة من كل معلم من هؤلاء العظماء مع بعض التطوير البسيط الذى لا يذكـر اصلا والذى فقط يضفى المرونة فى سهولة استدعاء الكود داخل اى نموذج مع مرونة التغيير فى اضافات الرسالة او عنوان الرسالة حسب متطلبات المبرمج - ملاحظة للمرة الاولى احاول التوفيق بين الأكواد التى تعمل على كل من النواتين 64 بيت والـ 32 بيت ولا اعلم صراحة هل وفقت فى ذلك ام لا شرح سريع لمحتوى المثال المرفق اولا أكواد الموديول هذا الكود للاستاذ الجليل الاستاذ @أبو آدم '---- اللألوان -------------------------------------------------------------------------------- #If Win64 Then Declare PtrSafe Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long Declare PtrSafe Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long #Else Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long #End If Public DefaultColour As Long Public Const COLOR_WINDOWTEXT As Long = 8 Public Const CHANGE_INDEX As Long = 1 طريقة استخدام الكود بالاستدعاء داخل اى مكان بالبرنامج DefaultColour = GetSysColor(COLOR_WINDOWTEXT) ' تخزين لون ثيم النظام الافتراضي SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, vbRed ' اضبط لون ثيم النظام على اللون الأحمر MsgBox "you welcome in officena forums", , "welcome" ' كود الرسالة SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, defaultColour ' استعادة القيمة الافتراضية بعد اغلاق الرسالة الشرح تفصيلا لكل سطر بالكود DefaultColour = GetSysColor(COLOR_WINDOWTEXT) هذا السطر لحفظ تنسيق الالوان المستخدم فى ثيم الويندوز ثم SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, vbRed هذا يغير اعدادت ثيم الويندوز لتغير لون الكتابة الى اللون الاحمر طبعا يمكن تغيير اللون كيفما تريد بتغير vbRed الى ما تريده انت ثم نكتب الرسالة داخل الكود المخصص لها مثلا MsgBox "you welcome in officena forums", , "welcome" ثم بعد عرض الرسالة العودة مرة اخرى للون المفضل لثيم الويندوز والذى اختفظنا به فى الجزء الاول من الكود SetSysColors CHANGE_INDEX, COLOR_WINDOWTEXT, DefaultColour وبهذا انتهى جزء تلوين محتوى النص للرسالة الجزء الثانى من الكود داخل الموديول والخاص بتعريب الأزرار الاستاذ @ابوخليل / الاستاذ @أبو هادي #If Win64 Then Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare PtrSafe Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long #Else Declare Function GetCurrentThreadId Lib "kernel32" () As Long Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long #End If Private m_hHook As Long Const IDOK = 1 Const IDCANCEL = 2 Const IDABORT = 3 Const IDRETRY = 4 Const IDIGNORE = 5 Const IDYES = 6 Const IDNO = 7 Const IDCLOSE = 8 Const IDHELP = 9 Const WH_CBT = 5 Const GWL_HINSTANCE = (-6) Const HCBT_ACTIVATE = 5 Public Sub MessageBoxFullArabicButtons(hwndThreadOwner As Long) Dim hInstance As Long Dim hThreadId As Long hInstance = GetWindowLong(hwndThreadOwner, GWL_HINSTANCE) hThreadId = GetCurrentThreadId() m_hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, hInstance, hThreadId) End Sub Private Function MsgBoxHookProc(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long If uMsg = HCBT_ACTIVATE Then SetDlgItemText wParam, IDOK, "موافق" SetDlgItemText wParam, IDCANCEL, "إلغاء" SetDlgItemText wParam, IDABORT, "إحباط" SetDlgItemText wParam, IDRETRY, "إعادة" SetDlgItemText wParam, IDIGNORE, "تجاهل" SetDlgItemText wParam, IDYES, "نعم" SetDlgItemText wParam, IDNO, "لا" SetDlgItemText wParam, IDCLOSE, "إغلاق" SetDlgItemText wParam, IDHELP, "مساعدة" UnhookWindowsHookEx m_hHook End If MsgBoxHookProc = False End Function الجزء التالى هو بناء كود عام للرسالة حتى يسهل استخدامه باستدعائه بكل سهولة فى جميع نماذج البرنامج Public Function MyMesg(Mesgtxt As String, _ Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional ByVal Title As String = "تطوير صندوق الرسائل العربى من منتديات اوفيسنا", _ Optional ByVal HelpFile As Variant, _ Optional ByVal Context As Variant) As VbMsgBoxResult MessageBoxFullArabicButtons Application.hWndAccessApp MyMesg = MsgBox(Mesgtxt, Buttons + vbMsgBoxRtlReading + vbMsgBoxRight + vbDefaultButton1, Title) End Function نلاحظ الاتى بوجه عام هذا الكود تم تصميمه على ان يكوم اقتراضيا بهذا الشكل الرسالة بسيطة تحتوى على زر امر واحد Buttons As VbMsgBoxStyle = vbOKOnly عنوان الرسالة الإفتراضى Title As String = "تطوير صندوق الرسائل العربى من منتديات اوفيسنا" الجزء من الكود هذا MessageBoxFullArabicButtons Application.hWndAccessApp الذى يستدعى تعريب الازرار السطر الاخير البناء الطيعى لتكوين كود الرسالة بالاضافات التى يفضلها المبرمج MyMesg = MsgBox(Mesgtxt, Buttons + vbMsgBoxRtlReading + vbMsgBoxRight + vbDefaultButton1, Title) طريقة استخدام الكود بالاستدعاء داخل اى مكان بالبرنامج MyMesg "منتديات أوفيسنا ترحب بكم" لتغيير العنوان الافتراضى MyMesg "منتديات أوفيسنا ترحب بكم",,"العنوان الجديد كما تريد" استخدام الاضافات لتغيير الازرار مثلا MyMesg "هل أعجبتك هذه الترجمة و التعديلات والأفكار؟", vbYesNo مع عنوان مخصص MyMesg "هل أعجبتك هذه الترجمة و التعديلات والأفكار؟", vbYesNo,"عنوان جديد" والان وصلنا الى نهاية الموضوع اسأل الله تعالى ان يرزق اساذتنا العظماء الذين كان لهم الفضل فى هذا الموضوع البركة فى العمر والعلم والرزق والاهل والولد اللهم اغفر لهم ولوالديهم واللهم احسن اليهم كما احسنوا هم الينا اللهم تقبل اعمالهم يارب العالمين فى موازين اعمالهم وضاعف حسناتهم و الاجر اضعافا مضاعفة يارب العالمين اللهم ارفع درجاتهم فى أعلى درجات الجنان ودرجاتهم والديهم يارب العالمين امين امين امين Full Arabic Message Box.accdb Full Arabic Message Box.mdb

السلام عليكم حل باستعمال الدالة MATCH في التنسيق الشرطي بن علية حاجي Book1_1.xlsx

وعليكم السلام-تفضل تنسيق شرطى.xlsx

شرح كيفية عمل فورم بالترتيب بالمسلسل او الاسم الجزء 12 الفيديو الصور

واحد من هذين الماكروين البسيطين Sub From_cel_to_tab() Dim k%: k = 4 Dim sh For Each sh In Sheets sh.Name = Range("M" & k) k = k + 1 Next End Sub Option Explicit Sub From_Tab_To_cel() Dim k%: k = 4 Dim sh For Each sh In Sheets Range("M" & k) = sh.Name k = k + 1 Next End Sub

تفضل لا حاجة للوحدة النمطية القديمة جرب ووافني بالنتيجة :: تحياتي Horizontal-waz.accdb

ابداع استاذ سليم معادلات رائعة بارك الله فيك

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

السلام عليكم تم عمل المطلوب في الملف المرفق... رقم حماية الدخول للقراءة هو 123 ورقم حماية الدخول للتعديل هو 1234 (يمكنك تغييرهما).... بن علية حاجي مصر ام الدنيا.xlsm

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

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

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

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

حياك الله تفضل: If Me.l1.Width >= Me.r1.Width Then Me.TimerInterval = 0: DoCmd.OpenForm "YourFormName": Forms![ThisForm].Visible = False l1.Width = l1.Width + 100 T1 = l1.Width / r1.Width

تفضل If Me.l1.Width >= Me.r1.Width Then Me.TimerInterval = 0: DoCmd.OpenForm "YourFormName" l1.Width = l1.Width + 100 T1 = l1.Width / r1.Width

وضعت لك تلميح في الوحدة النمطية في حال تريدها مجمعة في اسطر عموما تفضل التعديل Optional NewLine As String = ", ") As String استبدله هذا السطر بالسطر الموجود في الوحدة النمطية واخبرني بالنتيجة

تجربة لعل وعسى test.rar

رقم 3 في معادلة الأستاذ احمد بدره تعنى العمود M ,فهو العمود رقم 3 بداية من العمود K:M فأنت تعرف كما اوضحها لك الأستاذ احمد سابقا أن النطاق Ahmed يبدأ من الخلية K5:M31 وعن الخلية E5 الموجودة في بداية المعادلة فهى الخلية التي بها الرقم الذى نبحث له وبناءا عليه عن اسم الشركة أتمنى ان يكون الأمر قد وضح لك,بارك الله فيك

السلام عليكم لعلك قمت بحفظه بصيغة لا تقبل الماكرو مثل .xlsx، الصيغ التي تقبل الماكرو هي : .xls (بالنسبة لإكسيل 2003) أو .xlsm أو .xlsb للنسخ المتقدمة للإكسيل (2007-2010-2013-2016-2019)... ولا دخل لحماية الملف من الخارج (الفتح أو التعديل) بالماكرو... وقد قمت للتو بتطبيق هذا على ملف عندي والماكرو يعمل جيدا... بن علية حاجي

شكرا كتير عالملفين ما قصرتوا ابدا

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

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

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

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

ممكن نسخة 2003

من قال ذلك يبدو انك لم تشاهد تلفزيون اوفيسنا اتمنى لكم مشاهدة ممتعة officena_smart_tv.zip

جرب هذا الملف صفحة Salim لا أعلم لما حجم الملف كبير بهذا الشكل Maba3at.xlsx

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

تفضل وضعنا شرط للتأكد من عدم وجود تحاليل Lab 2019_up.rar

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

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

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

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

Program Files\Common Files\microsoft shared\OFFICE11\MSO.DLL انتبه لــ OFFICE11 سيختلف عندك سيكون OFFICE12 أو OFFICE14 أو OFFICE16 تبعا لاصدار الاوفيس

تفضل مع تغيير ما يلزم بما يناسبك Dim strSQL As String Dim DBs As Database Dim Qdf As QueryDef strQry = "REPORT_QUERY" Set DBs = CurrentDb Set Qdf = DBs.CreateQueryDef(strQry) '=== هنا مصدر السجلات على شكل جملة اس كيو ال SQLStr = " SELECT EmpTbl.ID, EmpTbl.EmpName, EmpTbl.Begin_Date " & _ " FROM EmpTbl;" Qdf.SQL = SQLStr DoCmd.TransferSpreadsheet acExport, , _ strQry, "D:\MQudsy.xls", True, _ "Mpage1" DoCmd.DeleteObject acQuery, strQry

احسنت أستاذ عادل عمل رائع بارك الله فيك

اخي جرب المرفق ComboBox.xlsm

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

جربت موضوع تصدير بيانات الريجيستري المشار اليها من اوتلوك 2013 و استيرادها فى اوتلوك 2016 ، و لم اجد اي تعريفات للبريد كما توقعت و بحثت عن السبب فوجدت التالي فقد قمت بالتصدير من HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Outlook\Profiles\Outlook و هو مسار الاوتلوك 2013 فى الجهاز الاول و تم الاستيراد على نفس المسار فى الجهاز الثاني و ليس كما توقعت فى المسار الخاص بالاوتلوك 2016 المحمل على الجهاز الي HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Profiles\Outlook و لهذا لم سظهر شيئ فى اعدادت الاوتلوك 2016 على الجهاز الثاني فكرت فى سجب البيانات يدويا بين المجلدين ، و لكن تراجعت عن ذلك خشية جدوث مشاكل الخلاصة ان هذه الطريقة قد تنفع اذا كان الجهازان يحملان نفس اصدار الاوفيس ـ فاذا اردت تجربة ذلك فيجب ان يكون الجهازان بنفس الاصدار لتجنب المشاكل

لا يمكن بطريقة افتراضية يمكن عن طريق الكود هذا الكود يقوم بالارسال مباشرة اذا كان المرسل هو admin@officena.net و بعطيك رسالة تحذير اذا كان الارسال من حساب اخر ، و يمكنك الالغاء Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) If Not LCase(Item.SendUsingAccount) = "admin@officena.net" Then Prompt$ = "You are sending this From " & Item.SendUsingAccount & ". Are you sure you want to send the Mail?" If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check Address") = vbNo Then Cancel = True End If End If End Sub و يجب اضافة الكود فى Thisoutlooksession اضغط ALT+F11 ثم انقرنقر مزدوج علي Thisoutlooksession و الصق الكود ، و قم بتغيير البريد المرتبط يالحساب

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

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

إخوتي الفضلاء وإستكمالاً للحديث ... أقول كنت قد قمت ببعض التعديلات بالتجربة ووفق الحاجة لضبط فروقات التعامل مع الرقم أو التاريخ أو النص عند التجميع أفقياً وكان لي مساهمات في الموضوع على الرابط ... http://www.officena.net/ib/index.php?showtopic=38119 ... مع الأخ الشاعر والله من وراء القصد ... وهو حسبي ..........

إخوتي الفضلاء الوحدة Horizontal وفضائلها واستخدامها تعلمناه من أخي الفاضل منتصر الآنسي نسأل الله أن يديم تواجدة بيننا ، فهو - فيما أعلم - أول من نقلها لهذا المنتدى ، ولله الفضل من قبل ومن بعد ، وكان لأستاذنا الفاضل أبو خليل سؤال للأخ منتصر حول شرحها في الموضع على الرابط ... http://www.officena....showtopic=36136 وفيه فوائد طيبة ... وقد أكثرت من تجربته واستخدمه عند لزومه ، حتى ظننت أنه أصبح معروفاً للجميع ... ظناً .. وللحديث بقية .... ...............