أ / محمد صالح

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

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

أعتقد أن المطلوب الأول مرتبط بنمط القائمة المختصرة في اكسل عموما وبالنسبة لتغيير faceid فهي مجموعة من الأرقام غير كما تشاء ويمكنك استعمال هذا الملف للتعرف على أشكال وأرقام أول 4000 من رموز الاكسل الرموز تظهر في تبويب جديد FaceID2.zip

أثناء حماية شيت الحل review --> protect sheet يمكنك تحديد اختيار use auto filter للسماح باستخدام التصفية التلقائية رغم وجود الحماية

تفضل أخي الكريم تم إنشاء إجراء لكل زر يقوم هذا الإجراء بإنشاء قائمة مختصرة حسب رقم العمود وفي أثناء إنشاء القائمة المختصرة يقرأ الخلايا الموجودة في الصفوف 22 وما بعدها في العمود المحدد ويضيفها إلى القائمة وتم إنشاء إجراء لكل شيت لفتحها بالتوفيق mas_Classeur1.xlsm

بالتوفيق لا تنسانا من صالح دعائك

كيف ليس هذا هو المطلوب؟ في السجل الأول تكتب أسماء الحقول بصورة طبيعية في السجل الثاني تضيف كلمة next record قبل أول حقل في السجل الثالث تضيف كلمة next record قبل أول حقل وهكذا مثال: الاسم: «name» العنوان: «address» الرقم: «mark» ************************* الاسم: «Next Record»«name» العنوان: «address» الرقم: «mark» ************************* الاسم: «Next Record»«name» العنوان: «address» الرقم: «mark» أليس هذا هو المطلوب بالنسبة لحضرتك؟ ولا أنا فهمت بطريقة غير صحيحة؟!!

بالنسبة للمطلوب الأول يمكنك استعمال هذا الإجراء Sub tar7eel() For n = 3 To 51 Sheets("خصم").Range("c" & n - 2).Value = Sheets("حساب").Range("f" & n).Value Next n MsgBox "Done" End Sub وبالنسبة للمطلوب الثاني في صفحة حساب يوجد في العمود f معادلة وإذا تم الترحيل من صفحة خصم إليها سيتم حذف المعادلة

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

حسب فهمي للمطلوب وعذرا إذا اختلف يمكنك وضع هذه المعادلة في الخلية D2 =IFERROR(IF(COUNTIFS($A$2:A2,A2,$B$2:B2,B2)=1,D1+1,D1),1) إن شاء الله تكون هي المطلوب

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

إذا دعت الحاجة لوضع أكثرمن سجل في صفحة واحدة من دمج المراسلات عموما يمكنك استعمال next record قبل اسم الحقل مثل: «Next Record»«field name» ويجب عدم تكرارها مع باقي الحقوق في نفس السجل بالتوفيق

رائعة جدا هذه الحيلة البسيطة جزاكم الله كل خير باشمهندس محمد

رائع جدا بارك الله لكما ولإثراء الموضوع هذه صفحة الاختصارات من موقع تعليمات ميكروسوفت وورد باللغة الانجليزية Keyboard shortcuts in Word (microsoft.com) وهذه صفحة الاختصارات من موقع تعليمات ميكروسوفت وورد باللغة العربية اختصارات لوحة المفاتيح في Word (microsoft.com) بالتوفيق

لا داعي إذن لدمج المراسلات يمكنك إدراج جدول الإكسل داخل صفحة الوورد

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

الملف فيه معادلة في عمود رقم الفاتورة =COUNTIFS($A$2:A2,A2,$B$2:B2,B2) وأعتقد أنها تنفذ المطلوب أم أن المطلوب غير هذه ؟

مادام المطلوب هو كما ذكرت لك في المشاركة السابقة فيمكنك وضع هذا الكود في شيت المعطيات Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$16" Then Sheets(2).Range("$R$9:$R$35").AutoFilter Field:=1, Criteria1:="non" End If End Sub ويعني أنه إذا كانت الخلية التي تم تغييرها هي h16 فيقوم بتنفيذ الفلتر في شيت الحل تلقائيا ويلزمك حفظ الملف بصيغة تدعم الكود مثل xlsb وهذا ملفك بعد تطبيق ما سبق احصاء تنبؤي.xlsb

تكتب هذه الأكواد في محرر أكواد الفيجوال بيسك بالضغط على alt+f11 ويمكنك البحث في المنتدى فستجد الكثير من الشرح والدورات التي تجعلك بإذن الله من المبدعين أما عن برنامج جاهز فلا يحضرني حاليا أي برنامج بالتوفيق

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

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

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

شكرا لكلماتك الطيبة في أول مشاركة وفي آخر مشاركة ؟؟؟؟؟ إذا كنت تقصد جلب التاريخ من الشيت وترحيل التاريخ إلى الشيت فأهم شيء هو تحويل قيمة الخلية أو مربع النص إلى تاريخ بـ CDATE طبعا مع تطابق تنسيق التاريخ في الخلية ومربع النص وإليك مثالا عن إدخال التاريخ في النموذج وترحيله وجلبه من الشيت إن شاء الله يفيدك date in form.xlsb

اعذرني أخي الكريم فالملف المرفق من حضرتك يعتمد على فكرة هي: ترتيب عمود تاريخ الميلاد من الأصغر للأكبر ثم البحث في الأسماء حسب تاريخ الميلاد الحالي وقد وجدت هذه الأخطاء وتم بفضل الله تصحيحها: خطأ في المسلسل عند الصف 106 تشغيل معادلة التاريخ في العمود D وضبط تنسيق التاريخ في العمود M المعادلة في البداية تقرأ حتى الصف 900 ولكن من الصف 19 أصبحت تقرأ حتى الصف 500 تم ضبط معادلة الاسم العمود Q والعمود R يقرأ حتى 500 والصواب 900 وهذا ملفك بعد التعديل بالتوفيق ترتيب الطلاب حسب السن.rar

بعد التجربة على الملف المرفق من الأستاذ حسين تبين لي ما يلي: مشكلة الكود الموجود في المشاركة رقم 1 هو وجود مسافة بعد ok في الشرط رغم أنها تكتب بدون مسافة في الكود And Cells(a, 14) <> "ok " Then بالإضافة إلى عدم وضع جميع شروط or بين قوسين لأنها جميعا تمثل حالة واحدة من and وهذه النقطة هي مشكلة الكود الموجود في المشاركة هذه وبعد فهمي للمطلوب عمليا يمكن تعديل الكود للتالي: Sub recp_fill2() Application.ScreenUpdating = False For I = 5 To [a10000].End(xlUp).Row If Cells(I, 14) <> Cells(I, 13) And Left(Cells(I, 13), 6) = "recept" Then With Sheets("recept") .Cells(4, 2) = Cells(I, 2) .Cells(6, 2) = Cells(I, 5) .Cells(7, 2) = Cells(I, 6) .Cells(8, 2) = Cells(I, 8) .Cells(21, 2) = Cells(I, 13) End With Cells(I, 14) = Cells(I, 13) Exit For End If Next I Application.ScreenUpdating = True MsgBox "!تم الترحيل بنجاح", vbInformation + vbMsgBoxRight, "تم الترحيل" Range("b6").Select End Sub مشكلتنا فعلا هي عدم القدرة على تحديد وتوصيل المطلوب بطريقة صحيحة بالتوفيق