ياسر خليل أبو البراء

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

أخي الحبيب أبو سلبيمان الخطأ قد يكون عن ناتج استخدام الفاصلة العادية ، قم باستخدام الفاصلة المنقوطة ;

الأخ الكريم هاني .. هل عملية النسخ تتم في تذييل الصفحة ؟؟ هذه هي المشكلة .. وليست المشكلة في النسخ .. لم أسمع من قبل عن معادلات في تذييل الصفحة وعلى ما فهمت من طلب الأخ هشام أنه يريد تكرار هذه الصفوف أثناء الطباعة (أي التعامل يكون مع تذييل الصفحة ..!! ) وإلا لابد من التفكير بشكل آخر لمحاولة الوصول لحل .. أنا أحاول قدر استطاعتي ولكني لم أتوصل إلى فكرة أفضل من الفكرة المطروحة في المشاركة رقم 8 عموما ..من لديه أي فكرة ولا يعرف كيفية تنفيذها فليبادر بها لربما نستطيع أن نصل سوياً إلى حل

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

السلام عليكم ورحمة الله وبركاته أخي الكريم ..الأعضاء في المنتدى لا يبخلون على أحد ، ولا ينتظرون مقابلاً مادياً ، ولا يتقاضون أجراً .. إنما كل يجود بما عنده ، من علم أو وقت .. فلا تستعجل .. وأكرر فلا تستعجل .. ولا تعتقد أنك بقولك " وينكم يا مبرمجين ؟ " أنك ستستنفرهم ، بالعكس ، لقد هممت ألا أجيب على طلبك ... ولكن خشيت أن أكون ممن يكتمون العلم فبالله عليكم إخواني رفقاً بإخوانكم .. رفقاً بإخوانكم الذي يقدمون المساعدة .. تفضل الملف المرفق .. فيه زري أمر أحدهما لبدء عملية الترحيل ، ويبدأ بعدها الترحيل كل 10 ثواني - بالطبع يمكنك تغيير الوقت كما تشاء - ، والزر الآخر لإيقاف عملية الترحيل .. أي إيقاف العداد .. أرجو أن يكون هذا هو المطلوب Transfer Data Every 10 Seconds.rar

أخي الكريم جرب الملف التالي Test This.rar

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

أخي الفاضل .. تطلب الطلب بشكل وكأننا نفهم المرفق بشكل جيد رفقاً بنا أخي الفاضل .. اشرح بالتفصيل ويا ريت بمثال توضيحي المطلوب ... ايه اللي ترميه في التفصيلي .؟؟ أرفقت الملف هاهنا ... Book1.rar

أين المرفق ؟ أين المثال ؟ أين صاحب الموضوع ؟

تفضل أخي الحبيب (ويا ريت ميكونش فيه جمايل تاني .. بهزر معاك .. إنت تؤمر) بس متنسناش بقا بنقطة وأفضل إجابة ، عشان أدخل موسوعة أوفيسنا للأرقام القياسية Unload Userform After A period Of Time V2.rar

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

الأخ الحبيب أحمد ضع هذا الكود في الفورم Private Sub UserForm_Activate() Application.Wait (Now + TimeValue("0:00:03")) Unload Me End Sub إليك المرفق التالي Unload Userform After A period Of Time.rar

الأخ ميسرة إليك حل آخر بجانب حل الأخ الحبيب محمد الريفي الحل بدالة معرفة ... قمت بدمج الحلين في ملف واحد Reorder Numbers By Formula & UDF.rar

بعد صلاة الظهر سأرسل لك رسالة خاصة بايميلي إن شاء الله

الأخ الحبيب أبو سليمان ... بارك الله فيك على العنوان الجذاب . بس خلي بالك دا آخره عذاب .. لأن شغل الكتاتيب طالما طالبت بيه ، يبقا لازم الفلكة (ودي أداة العقاب في الكتاتيب ) يعني اللي مش هيركز ويفهم يبقا يستاهل اللي يجرا له .. الفلكة متحضرة !! والله زمان يا أبو سليمان بالنسبة للمعادلات المركبة من هذا النوع . متفكرش إننا لما نيجي نكتب معادلة زي دي بتلاقينا نكتب علامة يساوي ونبدأ نكتب دا كله (دا شغل عباااااااااااااااقرة نادر وجودهم) لا طبعا ... المعادلة المركبة فكرتها في عملية البناء .. أي بناء المعادلة . طوبة طوبة .. دالة دالة ..كل دالة تؤدي غرض معين .. وتخدم الأخرى وهكذا يبقا عشان تفهم المعادلة اتعملت إزاي .. تعمل ايه ؟؟ فيه واحد بناها ..قوم إنت وهدها (أيوا والله زي ما بقولك كدا) هدها ترتاح .. أقصد بالهدم ليس التخريب وإنما التقسيم (قسمها .. يا إما الفلكة هتقسم عليك) تبدأ تاخد الأجزاء الصغيرة في المعادلة .. وتشوف الغرض منها وهكذا أنا مش هشرح المعادلة بتاعتك لأني مش فاهم هي بتعمل ايه ؟؟ متستغربش . مش فاهم لأن مفيش ملف مرفق..!! هديلك مثال من عندي في الخلية B1 اكتب المعادلة دي =IF(MID(A1,1,1)="Y",LEN(A1),"أوت يا كبير") واكتب اسم Yasser في الخلية A1 وشوف النتيجة واكتب اي اسم مش بيبدأ بحرف الـ Y وشوف النتيجة طبعا المعادلة مركبة فيها 3 دوال .. يبقا لازم تفهم كل دالة لوحدها الأول عشان تقدر تفهم المعادلة كلها ابدأ من الأول (أول دالة IF ... تعال على القوس اللي بعد كلمة IF في المعادلة وانقر بالماوس ، هتلاقي الإكسيل ببساطة قدم لك مساعدة من عنده .. ويقولك على البارامترات الخاصة بالدالة .. =IF(logical_test,[value_if_true],[value_if_false]) دا تلميح بيديهولك برنامج الإكسيل عشان تعرف الدالة دي بتشتغل إزاي .. نترجم اللي قاله الإكسيل : بعد اسم الدالة فتحنا قوس .. البارامتر الأول الشرط المطلوب عمل اختبار عليه ، والبارامتر الثاني هو ايه اللي يعمله الإكسيل لو الشرط تحقق ، والبارامتر الثالث ايه اللي يعمله الإكسيل لو لم يتحقق الشرط .. كلاااااااااااااااااااااام معقد .. طيب السؤال إزاي نقدر نعرف البارامترات وأجزائها في المعادلات المركبة .. ببساطة شفت الهنت Hint التلميح يا أبو سليمان متغلبنيش معاك .. التلميح اللي ظهر لما عملت كليك على القوس اللي بعد كلمة IF في المعادلة .. ببساطة انقر داخل التلميح نفسه على الجزء اللي إنت عايزه هتلاقي الإكسيل بيظلله ..حلوة دي أكيد .. أكيد عجبتك .. معجبتكش وعارفها .أمال بتسأل ليه ؟؟ لو عملت كليك على كلمة logical_test هتلاقي الإكسيل ظلل الجزء الأول الخاص بالشرط MID(A1,1,1)="Y" كليك على الجزء الثاني هتلاقي الجزء المظلل LEN(A1) كليك على الجزء التالت هتلاقي الجزء المظلل "أوت يا كبير" مش بقولك إنت والله ..دا النص في المعادلة لو الشرط متحققش .. طيب يبقا كدا عرفت أجزاء المعادلة الرئيسية (الشرط - والشرط لو تحقق - والشرط لو لم يتحقق) فاصل ونواصل .. رجعنا لكم بعد الفاصل الغير إعلاني نمسك جزء جزء ونبدأ نحلله ونشوف اتعمل إزاي الجزء الأول : الشرط MID(A1,1,1)="Y" الدالة Mid بتتعامل مع النصوص .. ونفس الكلام اللي قلناه مع الدالة IF نعمل كليك على القوس اللي بعد اسم الدالة Mid نلاقي تلميح الإكسيل بيشرح لنا بارامترات الدالة Mid هنلاقي التلميح بالشكل ده =mid(text,text_start_num,num_chars) وبردو 3 بارامترات : الاول النص اللي هنشتغل عليه ودا في المعادلة النص الموجود في الخلية A1 فكتبنا A1 الثاني هو نقطة البداية : هتبدأ منين في النص .غالبا هنبدأ من أول النص فنكتب هنا رقم لأن البارامتر دا رقمي .. فكتبنا واحد 1 .. بداية النص الثالث هو عدد الحروف المراد استخراجها من داخل النص وهنا أنا كتبت واحد 1 عايز أطلع حرف واحد والناتج اللي هيطلع هيكون عبار عن نص .. طيب لو عايز أعرف الناتج ممكن تحدد بالماوس الجزء ده MID(A1,1,1) وتضغط من لوحة المفاتيح F9 هتلاقي الناتج ، بس متنساش تضغط Ctrl + Z للتراجع فلو كان الاسم في الخلية A1 هو Yasser هيكون الناتج Y بين أقواس تنصيص لأن دا نص يبقا الشرط هو إننا بنشوف أول حرف هل هو حرف الـ Y أم لا ؟؟ لو تحقق الشرط هيعمل ايه ..هيبدأ تنفيذ الجزء الخاص بتحقق الشرط في دالة IF الجزء الثاني في الدالة IF LEN(A1) ودي دالة سهلة ويسيرة بتحسب عدد حروف النص فلو كان الاسم في الخلية A1 بيبدأ بحرف الـ Y هتقوم الدالة بعد عدد الحروف لهذا الاسم وإذا لم يتحقق .. ننتقل للجزء الثالث والأخير الخاص في حالة عدم تحقق الشرط ألا وهو ظهور النص ("أوت يا كبير") دا كان مجرد مثال لتوضيح وتقريب الصورة ليس أكثر ولا أقل أرجو أن أكون قد وفقت في توصيل المعلومة بأسلوب كتاتيبي .. ولما نشوف هنشغل الفلكة ولا هتفضل مركونة تقبل تحياتي

أخي الحبيب هشام الحاجة أم الاختراع كما يقولون . فكرت ثم فكرت ثم بحثت فلم أجد حلاً مناسباً .. فخطرت لي فكرة (ويا سلام عليا لما تخطر لي فكرة .. مبستناش .تلاقيني علطول أو على عرض ..بابدأ تنفيذ الفكرة الفكرة بدأت من إمكانية إدراج صورة في تذييل الصفحة . فقلت يبقا الحل بسيط .. نشوف الأسطر اللي عايزين نعملها كتذييل .. وناخها كصورة .. وتم ذلك عن طريق زر Print Screen من لوحة المفاتيح ..(الصورة المرفقة بها خطوط الشبكة يمكن التخلص منها بسهولة إذا أردنا ... يعني ببساطة ننسق الأسطر زي ما إحنا عايزين وبالشكل اللي إحنا عايزينه ، وبعدين ناخد الأسطر دي كصورة ، ونروح لبرنامج الرسام في الويندوز ونلصق الصورة طبعا هتكون الصورة لكامل الشاشة ، نقوم نعمل ايه يا عم هشام؟ نقص الجزء اللي عليه العين والنن ، الجزء المطلوب أقصد .. ونحفظ الصورة بأي اسم (سميها باسمي ! لأزعل منك) لحد كدا تمام .. قول : تمام ................ مقولتش ليه : سامعك على فكرة نيجي للشيت المطلوب عمل الصورة دي ليها كتذييل للصفحة وندخل على التبويب Insert ثم Footer وفي الـ Footer هنلاقي فوق ظهر أمر اسمه Picture ننقر عليه ونحدد مكان الصورة اللي حفظناها .. لحد كدا تمام .. قول تمام .. أيوا الله ينور عليك نعمل معاينة هنلاقي إن الصورة متداخلة مع اللي موجود في الشيت نقوم ندخل التبويب Page Layout وبعدين Margins الهوامش ,ونختار Custom Margins ونبدأ نزود الهامش السفلي ، حتى نقوم بعمل ضبط للصورة حتى تظهر بدون تداخل مع البيانات الموجودة في الشيت .. اضبط الهامش السفلي واعمل معاينة لحد ما تطمئن نفسك إن دا هو المطلوب ... ومرفق لك مثال من عندي .. عملت فيه اللي أنا شرحته بالتفصيل أرجو أن أكون قد وفقت في الوصول لحل .. وإن شاء الله يعجبك الحل .. Rows To Repeat At Bottom.rar

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

جرب هذه الإضافة MasNoPass.rar

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

لم يعمل هذا الملف أيضا معي .. ايه حكاية الأوفيس عندك ؟ ولا المشكلة عندي أنا ..

الأخ الحبيب أبو آلاء ..مشكور على مرورك العطر الأخ الغالي والمعلم الكبير شوقي ربيع الكود ليس لي .. ولكن أحب أن أضيف أن السطر On Error Resume Next يقوم هذا السطر بتجاوز وتجاهل الخطأ الذي قد ينتج عن السطر التالي في الكود .. وذلك تجنبا للخطأ في حالة إذا ما كان اسم الشيت خطأ على سبيل المثال : قم بعمل شيت بأي اسم وليكن (أوفيسنا) وضع تعليق على السطرين اللذين ذكرتهما.. ثم في ورقة العمل التي بها الكود اكتب في الخلية A1 كلمة (أوفيسنا) ستجد أن الإكسيل يظهر رسالة خطأ تفيد أنه لا يمكن تسمية الشيت بهذا الاسم حيث أن هناك شيت آخر بنفس الاسم إذا السطر يساعدنا في تجاوز هذا الخطأ .. ولكن لابد أن ننتبه أنه إذا كان هناك أسطر أخرى في الكود تتضمن رسالة خطأ أخرى فإنه سوف يتم تجاهلها أيضاً ولذلك تم استخدام السطر On Error GoTo 0 أي أن هذا السطر يستعيد خاصية رسائل الخطأ .. إذا ما كانت موجودة في أسطر أخرى في باقي الكود هذا والله أعلم

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. أقدم لكم .. كما هو واضح من عنوان الموضوع ، بدون شرح للموضوع ، أقدم لكم كود يقوم بتغيير اسم ورقة العمل ، وذلك تبعاً لتغير قيمة خلية تقوم بتحديدها في الكود ، فتتغير اسم ورقة العمل تلقائياً تبعاً لقيمة الخلية ، وإذا كان الاسم غير صالح Invalid تظهر رسالة تفيد بذلك .. أترككم مع الملف المرفق .. تقبلوا تحياتي Changing Sheet Name To Match Cell Automatically.rar

أخي هشام بالنسبة لإضافة صفوف أسفل الصفحة يمكنك نسخ الصفوف المراد العمل عليها ولصقها في نهاية الصفحة .. سيتم نسخ المحتويات والصور وكل شيء إن شاء الله قم بتحديد مجموعة الصفوف التي تريد نسخها وكليك يمين نسخ ثم لصقها في المكان الذي ترغب فيه .. كيف يمكن أن تضع 20 حافظة تسليم في ورقة واحدة ؟؟ أكيد لا تقصد ورقة الطباعة سؤال آخر : هل يمكن أن تضع حافظات التسليم بشكل رأسي أي كل حافظة تلي الأخرى ..تحت بعض يعني مش جنب بعض !! هل التعامل مع 20 حافظة وفقط بالنسبة للمصنف أم أنك ستقوم بإدراج المزيد في نفس المصنف .. صراحة الفكرة غير مكتملة بالنسبة لي ..اعذرني أنا أحاول المساعدة لكن المطلوب غير واضح بالنسبة لي حتى الآن .. يمكن عشان الموضوع بعيد عن مجال شغلي كمعلم ..

الأخ الكريم خالد إليك الملف التالي ..تمت إضافة صف في شيت نصف العام قبل الأسماء مباشرة .. تجنبا للخلايا المدمجة والصف مخفي اختر المادة ثم اضغط زر RUN استدعاء.rar

ارفق ملف للشرح عليه أخي الكريم وأعتقد شرحك الأخ سليم واضح جدا كليك يمين على الخلايا اللي فيها التاريخ ثم تنسيق خلايا Format Cells ثم التاريخ Date واختر التنسيق الذي تريد أو قم بالتنسيق المخصص الذي أشار إليه الحبيب سليم Custom Format