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

الأخ الحبيب الغالي سعيد بيرم مشكور على كلماتك الرقيقة وتشجيعك المستمر لتلميذك بالنسبة للزوم داخل محرر الأكواد ..ادخل على Tools ثم Options ثم التبويب Editor Format ثم غير حجم الخط إلى الحجم الذي يناسب نظرك إن شاء الله تتحل مشكلة محرر الأكواد بالنسبة لك الأخ الحبيب ياسر البنا .. بارك الله فيك وجزيت خيرا على تشجيعك الدائم لي تقبلوا تحياتي

أخي هذا هو الكود الخاص بي .. ارفق الكود الخاص بك في ملف مرفق ..

السلام عليكم ورحمة الله وبركاته إخواني الكرام أقدم لكم كود يقوم بمعرفة دقة الشاشة لديك .. كل ما عليك أن تضغط على زر الأمر .. وستظهر لك رسالة تعلمك بدقة الشاشة أم ما يسمى Screen Resolution .. أتمنى أن يفيدكم هذا الكود تقبلوا تحياتي Determining Video Resolution.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. أحاول دائماً أن آتي إليكم بما هو مفيد وجديد ، في عالم الإكسيل ، اللامتناهي ، والممتد أقدم لكم اليوم دالة معرفة .. تقوم الدالة باستخراج البريد الإلكتروني أو الايميل Email من داخل النصوص ... قد تفيد أحد ما في وقت ما .. أترككم مع الدالة ومع الملف المرفق .. تقبلوا تحياتي Extract Email Address.rar

جرب الحيلة التالية في المرفق Copy And Paste According To Value In Column A V3.rar

جرب الملف التالي .. لن تضطر إلى أن تضغط Enter فقط قم بتحديد أي خلية في العمود الأول .. Copy And Paste According To Value In Column A V2.rar

الأخ الكريم إليك الملف التالي .. Copy And Paste According To Value In Column A.rar

أخي حاول أن تخفف من حجم ملفك وقم بضغطه ثم رفعه .. لم أفهم الأكواد

تفضل أخي الحبيب وإن كنت لا أدري شكل الأكواد لديك .. Codes To Run At Startup.rar

ارفق ملفك أخي الفاضل ..

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

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

السلام عليكم ورحمة الله وبركاته طبعاً فيه ناس أول ما شافت العنوان ، دخلت على الموضوع عشان تعرف مين (فريدة) اللي بتكلم عنها ... فريدة دي مش فريدة اللي ف بالكم يا أحباب !! فريدة بمعنى غير مكررة .. الدالة التي أقدمها لكم اليوم دالة تقوم بتوليد (ومحدش يعلق عليها ..فريدة دي مش داية ..ولا حتى دكتورة نسا) ...الدالة تولد أرقام عشوائية .. واحد فتك هيقولي طيب ما فيه دالة اسمها Randbetween بتعمل اللي بتقول عليه وبتولد أرقام عشوائية بين رقمين .. الكلام صحيح ، لكن عيب الدالة دي ، اللي عملتها مايكروسوفت إنها بتولد أرقام عشوائية لكن الأرقام بتتكرر !! ..كان ممكن يضيفوا ليها إضافة ...بس مخدوش بالهم المهم الدالة بتاعتنا النهاردة ..بتعمل نفس الكلام ، لكن مع اختلاف إن الأرقام بتكون غير مكررة (فريدة) ..كدا إنتو عرفتو فريدة .. بس عشان نقدر نستخدم الدالة لازم نتعامل معاها بشكل مختلف غير اللي اتعودنا عليه ، إحنا اتعودنا نكتب المعادلة ونسحب ..هنا الوضع (لا أقصد وضع الجنين) أقصد وضع كتابة المعادلة مختلف تماما عما تعودنا .. في المرفق شرح لكيفية تطبيق الدالة أترككم مع الملف ، كما أترككم في رعاية الله وأمنه .. تقبلوا تحيات فريدة (دي واحدة والله ولا أعرفها) إلى لقاء ..دمتم بود Random Integers Without Repetition UDF Function.rar

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

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

الأخ الكريم قمر الدالة Concatenate تقريبا نفس استخدام علامة الفاصلة & ، الفرق بينهما أن عدد البارامترات للدالة Concatenate هو 254 بارامتر أي أنها لا تقبل أكثر من ذلك أما علامة & فتقبل أي عدد ... مفتوح

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

بارك الله فيكم إخواني وجزيتم خيرا على كلماتكم الرقيقة تقبلوا تحياتي

أخي الغالي أخوك لا يجيد التعامل مع أكواد البريد الالكتروني .. اعذرني لعدم القدرة على المساعدة

المشاركة رقم 15 ليس مكانها يرجى من الأخوة المشرفين نقلها إلى الموضوع المناسب http://www.officena.net/ib/index.php?showtopic=59558

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

أخي الفاضل يجب أن تدقق النظر في الكود Range("A2:F" في هذا السطر النطاق لحد العمود F وفي المرفق النطاق المطلوب العمل عليه لحد العمود Z إذا يجب أن تقوم بالتغيير في الكود ليعمل معك عموما جرب الكود بهذا الشكل Sub ClearSpeicific() Dim Cell As Range Application.ScreenUpdating = False On Error Resume Next For Each Cell In Range("A4:Z" & Cells(Rows.Count, 1).End(xlUp).Row) If Cell.Value = "ــ" Or Cell.Value = "ــــــ" Or Cell.Value = "*" Or Cell.Value = "//" Or Cell.Value = "لا يوجد" Then Cell.Select: Cell.Value = "" Next Cell Application.ScreenUpdating = True End Sub

بارك الله فيك أخي وحبيبي محمد الريفي إثراءاً للموضوع .. هذا حل آخر بالأكواد .. Validation List Depends On Cell Value.rar

في الخلية F3 اكتب المعادلة =COUNTA(الجدول1[الإسم])

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