كل الانشطه

السلام عليكم الجد الاقصي المسموح به حاليا هو 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 لأنني مبتدئ وصعب علي التعامل معها في حال حديث أخطاء

السلام عليكم. عند رفع الصور من جهازي للموقع لإدراجها في المشاركات، تكون بالعادة بصيغة JPEG أو PNG، أجد أنها تفقد تقريبًا 30% من جودتها، فهل يوجد مقاس معين أو نوع محدد من الصيغ التي يمكن أن تحتفظ بالجودة؟ أم هي خاصية في الموقع لتقليل حجم الصور بشكل تلقائي ولا يمكن تغييره؟ وشكرًا.

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

السلام عليكم ورحمة الله وبركاته ،،، مرفق ملف به عدد من الأوراق كنموذج محاسبي أريد وسيلة لنقل البيانات من شيت اليومية إلى بقية الشيتات آلياً بحيث يتم إدخال البيانات في اليومية فتتوزع تلقائياً على البقية ، علماً بأنني كانت لدي محاولة لعمل نموذج إدخال بيانات اليومية على شكل زر بلون أخضر إلا أنه لم تنجح فأرجو تعديله ، وأكون لكم شاكراً . المالية للعام 1447هـ_٠١٥٩٠٩-3.xlsm

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

كيف يتم تصدير الحقول فى ملف اكسيل إلى نصوص

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

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

تتيح ميزة صورة الشريحة (Zoom) إنشاء روابط مرئية بين الشرائح، بحيث يمكنك الانتقال إلى أي جزء من العرض بنقرة واحدة، ثم العودة إلى الشريحة الرئيسية تلقائيًا. وتُستخدم كثيرًا في العروض التعليمية، والعروض التفاعلية، والعروض التي لا تتبع ترتيبًا خطيًا. كيفية الوصول إلى الميزة: يمكنك استخدام صورة الشريحة (Zoom) من خلال: الانتقال إلى تبويب إدراج (Insert). اختيار صورة (Zoom). ثم اختيار أحد الأنواع التالية: صورة جدول المحتويات (Summary Zoom😞 لإنشاء صفحة رئيسية تضم أقسام العرض. صورة المقطع (Section Zoom😞 للانتقال إلى قسم معين. صورة الشريحة (Slide Zoom😞 للانتقال إلى شريحة محددة. كيفية الاستخدام: افتح تبويب إدراج (Insert) ثم اختر صورة (Zoom). حدد النوع المناسب لعرضك: صورة جدول المحتويات (Summary Zoom)، صورة المقطع (Section Zoom)، صورة الشريحة (Slide Zoom). اختر الشرائح أو الأقسام التي تريد ربطها. اضغط إدراج (Insert) ليتم إضافة صورًا مصغرة (Thumbnails) للشرائح داخل الشريحة الحالية. عند تشغيل العرض، انقر على أي صورة مصغرة للانتقال مباشرة إلى الشريحة المرتبطة، ثم العودة تلقائيًا إذا كانت خاصية العودة إلى الصورة(Return to Zoom) مفعّلة. 💡 نصيحة: استخدم صورة الشريحة (Zoom) لإنشاء صفحة رئيسية تشبه قائمة التنقل، بحيث يستطيع مقدم العرض الانتقال إلى أي موضوع حسب أسئلة الجمهور، دون الحاجة إلى التنقل بين الشرائح بالترتيب التقليدي. هذه الطريقة تجعل العرض أكثر مرونة واحترافية، خاصة في الدورات التدريبية والعروض التفاعلية.

تفضل بدون استعلامات .. مباشرة من الجدول HR_EDARA3.rar

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

تفضل تعديل يخص بيانات الموظف الأساسية فقط وعرضها في التقرير سيبقى نوع البيانات في الجدول رقمية ولكن يتم عرضها كنص حقيقي وليس مربع تحرير صحيح اذا استخدمنا مربعات التحرير في التقرير ستظهر كنصوص ويتم طباعتها كنصوص .. ولكن المشكلة فيما لو تم تصدير التقرير الى اكسل حينها ستظهر كأرقام لذا يتوقف هذا على المستخدم ماذا يريد ان يصنع في التقرير هل هو طباعة فقط ام يحتاج الى التصدير انظر الى التصميم في الاستعلام .. وانظر الى العدد الكبير من الجداول الفرعية المتعلقة طبعا لا مشكلة مهما كان عددها وليس لها تأثير ولكن لو اردنا فقط الطباعة او التصدير كــ pdf فلن نحتاج الى هذه الجداول الفرعية داخل الاستعلام واكتفينا فقط بجعل الحقول في التقرير مربعات تحرير كما اشار الاستاذ منتصر واستغنينا عن الاستعلام كمصدر بيانات للتقرير وجعلنا مصدره الجدول مباشرة HR_EDARA2.rar

السلام عليكم ورحمه الله وبركاته محاوله بسيطه لعله يكون المطلوب فورم شفاف للنسخ واللصق والكت show.xls

أنا عاجز فعلا على الشكر زادك الله علما

ان سمحت لي بالتصرف .. سأساعدك واعيد تصميم جداولك .. الى طريقة اصح