hegazee

يتم ذلك من خلال دمج المراسلات بين الاكسيل و الوورد راجع الرابط التالي https://www.officena.net/ib/topic/53571-ملف-pdf-لشرح-دمج-المراسلات-بين-الاكسل-والوورد-مفيد-جدا

و عليكم السلام ورحمة الله وبركاته عزيزي @طالب الحسني أرفق ملف ووضح طلبك بكل دقة لكي نستطيع مساعدتك

و عليكم السلام ورحمة الله و بركاته انشيء ملف جديد و وأضبطه كما تريد من حيث الحجم و الهوامش و كل شيء بعدين احفظ الملف باسم مثلا A4 وبصيغة Excel Template (*.xltx) الحفظ يكون في المسار التالي C:\Users\[اسم المستخدم]\Documents\Custom Office Templates لما تنشئ ملف جديد اختار القالب اللي أنت عملته اللي هو A4

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

و عليكم السلام ورحمة الله و بركاته الرابط به البرنامج محدثا مع كلمة السر https://www.officena.net/ib/topic/140009-فلترة-للطلاب-واتاحة-كتابة-الفصل-بالعلامه/#findComment-776415

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

أرفق الملف

جرب تغير اللغة

و عليكم السلام ورحمة اله و بركاته المشكلة مش من الكود نفسه، لكن من إعدادات الويندوز، لأنه أحيانًا لا يدعم النصوص العربية صح داخل محرر VBA، فتظهر رموز غريبة أو مربعات. لو غيرت اللغة الافتراضية للنظام (Region → Administrative → Language for non-Unicode programs → Arabic)، هيظهر العربي صح حتى VBA

وعليكم السلام ورحمة الله وبركاته تفضل الملف مع إضافة قائمة منسدلة لاختيار الحرف 77(2).xlsm

و عليكم السلام و رحمة الله و بركاته . جزاكم الله خيرا أخي حسين على البرنامج.في ميزان حسناتك فعلا كم ذكر الاستاذ @Foksh البرنامج كان به عدة ملاحظات و التي تجعله لا يعمل الملف به ملفات صوتية و فيديو و هي تعمل من جهاز الكمبيوتر الخاص بك و لا يمكن أن تعمل من اي جهاز آخر فمثلا مصدر واحد من الملفات الصوتية هو C:\Users\husain\OneDrive\سطح المكتب\تجربة\اقامة الصلاة.mp3 .و أيضا البرنامج يستخدم ملفات Active X فلاش التي تم حظرها و عدم استخدامها من مدة و هي تعطي خطأ أنها غير موجودة رأي الشخصي أن البوربوينت يصلح أكثر من الاكسيل لهذا البرنامج و الله أعلم

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

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

الاستاذ الكريم/ عباس إليك برنامج كامل و بسيط لشئون الطلاب و به طلبك و كل شيء يخص التعليم الابتدائي و البرنامج مجاني للأستاذ / سالم بدوي جزاه الله خيرا كلمة السر 1 اسم المستخدم 1 البسيط لشئون الطلاب 01-03-2025.zip

و عليكم السلام ورحمة الله وبركاته تفضل الملف و يمكن اختيار الفصل من القائمة المنسدلة لعمل التصفية لازم نشير أن الملف الأصلي من اعداد الدكتور أحمد البحراوي جديد 5 سلوك (2).xlsm

و إياكم. لو تكرمت قم بتعليم المشاركة على أنها الحل

لو عندك اكسيل حديث 365 مثلا يمكن استعمال الصيغة التالية =TEXTJOIN("",TRUE,القرار!AM24:AM39,القرار!AN24:AN39) و يمكن بالأكواد مع الاصدارات القديمة و ده يلزم وجود ملف عشان نتأكد من النتيجة

الحل الأكيد استبدال مربع النص بخلايا

و عليكم السلام حسب فهمي من تنسيق خلايا كما هو موضح بالصورة

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

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

كود الاضافة به خطأ اسم ورقة العمل بدلا من s-w مكتوب w-s Private Function SheetExists(sName As String, Optional wb As Workbook) As Boolean Dim sh As Worksheet If wb Is Nothing Then Set wb = ThisWorkbook SheetExists = False For Each sh In wb.Worksheets If sh.Name = sName Then SheetExists = True Exit For End If Next sh End Function Private Sub CommandButton6_Click() Dim wb As Workbook: Set wb = ThisWorkbook Dim inp As Worksheet, s As Worksheet, w As Worksheet If Not SheetExists("s-w", wb) Then MsgBox "ورقة 'w-s' غير موجودة في المصنف الحالي. الرجاء نسخ اسم التبويب كما هو.", vbExclamation Exit Sub End If If Not SheetExists("الصادر", wb) Or Not SheetExists("الوارد", wb) Then MsgBox "تأكد من وجود أوراق 'الصادر' و 'الوارد' أيضاً.", vbExclamation Exit Sub End If Set inp = wb.Worksheets("s-w") Set s = wb.Worksheets("الصادر") Set w = wb.Worksheets("الوارد") Dim lr As Long lr = s.Cells(s.Rows.Count, "A").End(xlUp).Row + 1 ' استخدام الصادر هنا حسب رغبتك With s .Cells(lr, 1).Value = lr - 1 .Cells(lr, 2).Value = inp.Range("E7").Value ' ... بقية الخلايا End With MsgBox "تمت إضافة المعاملة بنجاح", vbInformation End Sub

شكرا استاذ عبدالله و حاولت أن ابتعد عن الأكواد قدر المستطاع و لم يكن هناك خطأ في الصيغة و لكني استخدمت صيغة XLOOKUP و هي ليست متوفرة في الاصدرات القديمة لذلك قمت بتعديل الصيغة ليعمل الملف على أي اصدار تبادل معلوات ورقتين(2).xlsx تبادل معلوات ورقتين(2).zip

تفضل أخي و يمكن اختيار الرقم من قائمة منسدلة تبادل معلوات ورقتين(1).xlsx

الملف يعمل و الكود شغال و دي النتيجة النتيجة