كل الانشطه

الذي فهمته من ردك الاخير انك تريد حماية A2&C2 فقط من التعديل وترك B2 قابل للتعديل والعمل سيكون على هذا الصف فقط المعادلة تنض غلى اذا كان تاريخ العمولة (B2) اقل من التاريخ الثابت (A2) تكون النسبة 50% وان كانت اكبر 100% اذا كان العكس غير علامة < الى > الخليتان محميتان بدون كلمة مرور تحياتي حساب النسبة المئوية.xlsx

الله ينور عليك ويفتح عليك بالضبط نفس ما فهمته أخي العزيز ولكن أنا أريد يكون التاريخ الثابت في العمود A2 فقط ادخل تاريخ العمولة في العمود B2 وتظهر لي تلقائياً النسبة المئوية العمود C2 إذا كان التاريخ أقل من مثلاً : 01-01-2026 تكون النسبة 50% وإذا كان التاريخ أعلى من 01-01-2026 تكون النسبة 100% بدون تكرار عدد الخلايا ( يكون هو مرجع فقط مثل طريقة حساب العمر وغيرها ) .

بارك الله فيك وجزاك الله خيرا يا رب

أخواني وأساتذتي ومعلمينا ( دون استثناء ) .. بعد البحث في المنتدى عن مواضيع تتحدث عن أداة تقوم بإنشاء شريط ريبون خاص بالمستخدم ، لم أجد سوى موضوع واحد ، ولكن بطريقة إلى حد ما تحتاج المهارة والتدخل اليدوي في إنشاء الشريط . لذا وبفضل الله تعالى وكرمه توصلت الى فكرة تفاعلية ومرنة إلى أبعد حد يخطر ببال المستخدم . 1️⃣ التعامل باللغتين العربية والإنجليزية كلغة واجهة الأداة . 2️⃣ إنشاء شريط تفاعلي يدعم المعاينة الفورية لشكل الشريط . 3️⃣ إمكانية استيراد ( فتح ) مشروع شريط ريبون محفوظ مسبقاً . 4️⃣ إمكانية تعيين وظائف عامة من آكسيس أو خاصة باستدعاء دوال خاصة بمشروعك . 5️⃣ التحكم التام والكامل والمرن بأيقونات الأزرار ومسمياتها . 6️⃣ التحكم بعرض / إخفاء تبويبات آكسيس الأفتراضية . 7️⃣ التحكم بالقوائم المختصرة الإفتراضية لآكسيس . 8️⃣ عرض كود XML للشريط الذي يتم انشاؤه . 9️⃣ إمكانية دمج الأداة كوظيفة أساسية في آكسيس Add-ins . 🔟 إمكانية تصدير الشريط عند تصميمه إلى قاعدة بيانات أخرى ، أو القاعدة الحالية لمشروعك . 1️⃣1️⃣ دعم عرض الشريط بالإتجاهين من اليمين لليسار - من اليسار لليمين . دعم نسخ آكسيس العربية الواجهة . 1️⃣2️⃣ إضافة المكونات الخاصة بالشريط من خلال قائمة منسدلة . حيث المكونات هي ( تبويب ، مجموعة ، فاصل داخل المجموعة نفسها ، زر ، مربع تسمية ) وسيتم شرحها لاحقاً . 1️⃣3️⃣ إمكانية نقل وتحريك المكونات داخل الشريط من خلال السحب والافلات . 1️⃣4️⃣ إمكانية تحديد مفتاح اختصار للتنقل بين المكونات ، من خلال النقر على مفتاح Alt + الحرف الذي تم تحديده للعنصر . 1️⃣5️⃣ إمكانية إعادة تسمية أي عنصر أثناء تصميم الشريط بسهولة من خلال قائمة مختصرة سريعة ، أو من خلال مربعات نص الخصائص . 1️⃣6️⃣ إمكانية حذف أي عنصر أثناء التصميم بسهولة أيضاً من خلال قائمة مختصرة سريعة ، أو من خلال مربعات نص الخصائص . 1️⃣7️⃣ دمج سليم وبرمجي للأيقونات التي تم تخصيصها للأزرار داخل قاعدة البيانات بحيث تعمل معك في أي جهاز دون أي مشاكل . 1️⃣8️⃣ إمكانية إضافة تلميح لوظيفة أي عنصر داخل الشريط . 1️⃣9️⃣ إمكانية حذف شريط الريبون من قاعدة بياناتك بسهولة وسلاسة . 2️⃣0️⃣ إمكانية حذف مشروع شريط ريبون كامل من سجلات الأداة ، لتلافي التراكم والفلترة . والمزيد من الخصائص والوظائف المدمجة في الأداة ، التي ستتمتع باكتشافها بنفسك عزيزي القارئ . 📸 صور من واجهة الأداة باللغتين العربية والإنجليزية :- ♻ كيف تعمل الأداة ؟ أنشئ مشروع جديد ، وحدد اسمه كما ترغب . قم بالنقر مرتين على اسم المشروع الذي تم ادراجه في قائمة المشاريع المحفوظة . من القائمة المنسدلة "إضافة عنصر جديد الى الشريط" ، اختر تبويب لإضافة تبويب جديد . ثم غير اسم التبويب كما تريد . كمثال "Home" - "الرئيسية" ... إلخ . انقر على التبويب بعد تغيير اسمه لتحدده ، ثم قم بإضافة "مجموعة" . وأيضاً حرر اسم المجموعة كما تريد . مثال "التقارير" . وحدد الخصائص التي تريدها لها . انقر على اسم المجموعة الجديدة التي أضفتها ، ثم قم بإضافة زر جديد داخل المجموعة . وأيضاً حدد خصائصه كما تريد . مثل اسمه وأيقونته ، أو حتى مفتاح اختصاره السريع ، أو حتى الحدث المخصص له ... وهكذا لبقية العناصر . وفيما يلي شرح مصور بسيط لآية العمل بشكل كامل من الألف إلى الياء . فيديو توضيحي لطريقة الاستخدام بشكل سريع .. ملف الأداة للتحميل للإصدار 64 :- Ribbon Builder.zip ملف الأداة للتحميل للإصدار 32 :- Ribbon Builder - 32.zip الملف المستخدم للتجربة هو من أحد المشاريع في المنتدى ، من باب التجربة ليس إلا ..

بهذا النجاح و وصول عدد المشاهدات لـِ 6 آلاف قراءة ، كونوا الليلة على موعد بإطلاق المفاجأة الجديدة 😇 .

وعليكم السلام ورحمة الله وبركاته، حسب الشرط لطلب الأخ الكريم (في حال كان تاريخ الاشتراك اكبر أو أصغر من التاريخ الثابت ، فقط احتاج نسبة مئوية ( 50% & 100% ) ، فإن التنسيق المطلوب يعتمد على الشرط التالي: إذا كان تاريخ العمولة (في العمود B) أقل من التاريخ الثابت (في العمود A)، تكون النسبة 100%. وإذا كان تاريخ العمولة أكبر من التاريخ الثابت، تكون النسبة 50%. بناءً على ذلك، يتم وضع المعادلة التالية في الخلية C2: وتسحب لاسفل مع ضبط تنسيق الخلايا في العمود C على نسبة مئوية =IF(B2>A2; 0.5; 1) بالنسبة للحماية تم حماية العمود التالث بكلمة سر هي 123 هذا حسب فهمي للسؤال وان كان غير ذلك فالتوضيح من صاحب السؤال ضروري المصنف1.xlsx تحياتي لكما

بداية وعليكم السلام ورحمة الله وبركاته .. بصراحة قرأت السطرين أكثر من 5 مرات ، ولم أفهم المطلوب أو حتى استوعبه . يعني من خلال المرفق :- بناءً على ماذا سيتم عرض النسبة المئوية كمقارنة ؟؟؟؟؟؟؟؟؟؟؟؟ المحتوي = حقول تاريخ بغض النظر عن تنسيق التاريخ .. فكيف سيتم عرض نسبة مئوية 🤔

السلام عليكم ورحمة الله وبركاته اسعد الله أوقاتكم بكل خير أولا : اعتذر إذا كان هناك نفس الموضوع بحثت ولكن لم أجد العنوان المناسب أو الصحيح لموضوعي . ثانياً : لدي طلب بسيط على عمالقة الأكسل في هذا المنتدى الكبير . طلبي : أحتاج إلى طريقة لإظهار نسبة مئوية في حال كان تاريخ الاشتراك اكبر أو أصغر من التاريخ الثابت ، فقط احتاج نسبة مئوية ( 50% & 100% ) ، طبعاً تكون خانة التاريخ الثابت لا يمكن التعديل عليها وكذلك خانة النسبة المئوية لا يمكن التعديل عليها في الذي يتم تعديله هو خانة الاشتراك يتم التعديل عليه بإضافة التاريخ . [ مرفق مثال ] المصنف1.xlsx

تعتمد ميزة اقتراحات التصميم (Designer) على محتوى الشريحة، مثل النصوص والصور، ثم تقدم اقتراحات تصميم مختلفة يمكنك اختيار الأنسب منها، مما يوفر الوقت ويساعدك على الحصول على تصميم جذاب دون الحاجة إلى بناء التخطيط من الصفر. كيفية الاستخدام: أنشئ شريحة جديدة وأضف إليها المحتوى، مثل العنوان والنص أو الصور. انتقل إلى تبويب الشريط الرئيسي (Home) واختر اقتراحات التصميم (Designer). ستظهر لوحة جانبية تحتوي على مجموعة من اقتراحات التصميم. اضغط على التصميم الذي يعجبك لتطبيقه مباشرة على الشريحة. يمكنك تجربة عدة اقتراحات حتى تصل إلى التصميم الأنسب لمحتوى الشريحة. 💡 نصيحة: لا تتعامل مع اقتراحات التصميم (Designer) على أنه مصمم يقوم بكل شيء نيابةً عنك، بل اعتبره مصدرًا للأفكار والإلهام. إذا لم يعجبك الاقتراح الأول، جرّب تغيير ترتيب المحتوى أو إضافة صورة مناسبة، ثم راجع الاقتراحات مرة أخرى؛ فقد تظهر لك تصاميم مختلفة تمامًا.

أضف إلى ذلك أيضاً حرف "ئ ، ى ، ؤ ، ء" الألف المكسورة وغيرها أو حتى التاء المربوطة أو الهاء المربوطة .. فمثلاً ، كم حرف لم يأت ذكره في الآية الكريمة :- وعلى الله فليتوكل المؤمنون

سؤال ولو فيه نوع من التطفل اخي @zozzz بارك الله فيكم ماذا عن هذه الحروف "أ", "إ", "آ" اليس المفروض احتسابها على انها ا ام ماذا ؟ اشكرك على سعة صدرك ... لاني لا اعلم بطبيعة عمل برنامجك ولكن من باب الفائدة فقط

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

حاولت افتح الملف مرات عديدة ولم تفلح

السلام عليكم ,, ممكن مساعدة بالملف المرفق معادلة تاريخ.xlsx

السلام عليكم الجد الاقصي المسموح به حاليا هو 1000 فى 750 px

تسلم تسلم 🙏 احسنتم 💐

تفضل Public Function GetMissingArabicLetters(ByVal InputText As String) As String Dim strAlphabet As String Dim strOutput As String Dim i As Integer Dim char As String Dim inputLetters As Collection Dim missingCount As Integer ' الحروف العربية الأبجدية (الألف إلى الياء) strAlphabet = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي" ' إنشاء مجموعة لتخزين الحروف الموجودة Set inputLetters = New Collection ' إضافة كل حرف عربي موجود في النص إلى المجموعة (منع التكرار) For i = 1 To Len(InputText) char = Mid(InputText, i, 1) If InStr(1, strAlphabet, char, vbBinaryCompare) > 0 Then On Error Resume Next inputLetters.Add char, char On Error GoTo 0 End If Next i ' بناء النتيجة بالشكل المطلوب (حرف، حرف، حرف) strOutput = "" missingCount = 0 For i = 1 To Len(strAlphabet) char = Mid(strAlphabet, i, 1) On Error Resume Next inputLetters.Item (char) ' محاولة الوصول إلى الحرف If Err.Number <> 0 Then ' إذا حدث خطأ فهذا يعني أن الحرف غير موجود If missingCount > 0 Then strOutput = strOutput & "، " ' فاصلة عربية + مسافة End If strOutput = strOutput & char missingCount = missingCount + 1 End If On Error GoTo 0 Next i ' النتيجة النهائية If missingCount = 0 Then GetMissingArabicLetters = "لا توجد حروف مفقودة" Else GetMissingArabicLetters = strOutput End If ' تنظيف الذاكرة Set inputLetters = Nothing End Function استدعيه بهذا الشكل Private Sub cmdExtract_Click() Me.txtOutput.Value = GetMissingArabicLetters(Me.txtInput.Value) End Sub

شکرا جزیلا علی الرد اخی " ابو البشر " بس هل من الممکن تبدیل هذا الکود الی public function حتی نضیف له Module ؟؟

وعليكم السلام ورحمة الله وبركاته اهلا بك جرب هذا Private Sub cmdExtract_Click() Dim strInput As String Dim strAlphabet As String Dim strOutput As String Dim i As Integer Dim char As String Dim inputLetters As Collection Dim missingCount As Integer strAlphabet = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي" strInput = Me.txtInput.Value Set inputLetters = New Collection For i = 1 To Len(strInput) char = Mid(strInput, i, 1) If InStr(1, strAlphabet, char, vbBinaryCompare) > 0 Then On Error Resume Next inputLetters.Add char, char On Error GoTo 0 End If Next i strOutput = "" missingCount = 0 For i = 1 To Len(strAlphabet) char = Mid(strAlphabet, i, 1) On Error Resume Next inputLetters.Item (char) If Err.Number <> 0 Then If missingCount > 0 Then strOutput = strOutput & "'، '" End If strOutput = strOutput & "'" & char & "'" missingCount = missingCount + 1 End If On Error GoTo 0 Next i If missingCount = 0 Then Me.txtOutput.Value = "لا توجد حروف مفقودة" Else Me.txtOutput.Value = strOutput End If Set inputLetters = Nothing End Sub

سلام علیکم و رحمه الله كيف يمكن العثور على أحرف الغير موجودة فی الجمله؟ مثال : بسم الله الرحمن الرحیم حروف الغیر موجوده : ت ث ج خ د ذ ز ش ... و شکرا لمساعدتکم

اقترب موعد إطلاق النسخة الأولى من أداة صانع شريط الريبون 😎 كونوا على الموعد .. قريباً ⏳

تم حضرتك بعتذر كنت بكتب من الهاتف وأنا مستعجل

الحمدلله على التمام 🙂 .. أخي @The best .. خيار [ تمت الإجابة ] يعطى للمشاركة التي وافقت الحل الصحيح لديك .. لذلك تكرما أعد تعيينها للمشاركة التي حلت مشكلتك 🙂

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

عفواً ،،، نسيت أن أوضح أنني أفضل العمل بعيداً عن VBA لأنني مبتدئ وصعب علي التعامل معها في حال حديث أخطاء