اذهب الي المحتوي

الصـقر

الخبراء
  • Content Count

    1,836
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    21

الصـقر last won the day on أكتوبر 17 2016

الصـقر had the most liked content!

السمعه بالموقع

1,335 Excellent

عن العضو الصـقر

  • الإسم الفعلي
    الصقر

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مدير حسابات
  • الإهتمامات
    لا تعطنى سمكه ولكن علمنى كيف اصطاد

اخر الزوار

6,394 زياره للملف الشخصي
  1. اخوتى فى هذا الصرح العلمى الكبير اعتذر لكل الاعضاء بالمنتدى عن كل شئ سئ صدر منى فى اى وقت وفى اى ظرف منذ اشتراكى فى هذا الصرح بتاريخ 26-4-2014م والى اخر مشاركة لى بالمنتدى الان بما فيهم الاخ العرب نت فلكل شئ بدايه ونهايه اسال الله تعالى لكم التوفيق والسداد وكل عام وانتم بخير بحلول رمضان المبارك واتمنى لا تنسونا من صالح دعائكم لى بالهديه فأنا احوج ما يكون لها تقبلوا جميعا تحياتى وحبى وتقديرى لكل عضو بالمنتدى منذ نشأته
  2. السلام عليكم اخى الكريم الاستاذ عبدالسلام ابوالعوافى ما شاء الله عليك روعه ملاحظ نشاطك واعملك كلها روعه تنم عن شخص محترف ارجوا من اداره الموقع والقائمين عليه أعطاء الاستاذ عبدالسلام قدره فأنزلو الناس منازلهم فالشمس لا تحتاج الى تليسكوب واعماله اصبحت مثل ضوء الشمس ساطعه بالمنتدى ارجوا من ابوالبراء الاهتمام بالامر تقبلوا جميعا تحياتى
  3. اخى وحبيبى فى الله واستاذى الكبير ابوالبراء يعلم الله كم احبك فى الله وأسال الله تعالى ان يستظلنا بعرشه يوم لاظل الا ظله والله انا لا صاحب عقليه ولا شئ انا زى اللى بيجرب حظه مره تصيب ومره تخيب ههههههههههه تسلم يا غالى على مرورك العطر وكلمات الطيبه وبلغى سلامى للبراء - اتصلت بيك من يومين جوالك كان مغلق المهم هبقى اتصل بيك علشان عايز اسلم على البراء ومريم تقبل تحياتى
  4. الاخت الفاضله بخصوص طلبك الاول زر التبديل جربى تغير اتجاه الفورم وذالك بالدخول الى شاشة الخصائص للفورم رقم 2 ومن الخاصيه Right to left غيريها من False الى True ---- وبخصوص طلبك الثانى والثالث جربى المرفق هل هو طلبك تقبل تحياتى نسخة من الهنوف.zip
  5. وفيك بارك اخى الحبيب ابو سليمان منور الموضوع ---------------------------------------- اخى الكريم ابو حماده انظر انت الى المعادله المطلوب كما طلبت هو ما تم فعله علشان اريحك قولا واحد اختر اى رقم جلوس فى الخليه وشاهد النتيجة وافتح الفورم واكتب نفس رقم الجلوس وشوف النتيجة ستجدها واحده بأعتذر منك لاستكمال الموضوع معك واذا كان حد من الاساتذه الافاضل فاهم شئ يكمل معك تقبل تحياتى
  6. اخى الكريم والله انا بحاول فهم طلبك واخير فهمته بصعوبه وذالك لان الطلب غريب كيف يكون للطالب الواحد اكثر من درجه !!!! المهم بدون دخول فى تفاصيل جرب المرفق هل هو ما تريد تقبل تحياتى تحويل المعادلة الى كود.zip
  7. بسم الله الرحمن الرحيم " وَذَا النُّونِ إِذ ذَّهَبَ مُغَاضِبًا فَظَنَّ أَن لَّن نَّقْدِرَ عَلَيْهِ فَنَادَىٰ فِي الظُّلُمَاتِ أَن لَّا إِلَٰهَ إِلَّا أَنتَ سُبْحَانَكَ إِنِّي كُنتُ مِنَ الظَّالِمِينَ (87) فَاسْتَجَبْنَا لَهُ وَنَجَّيْنَاهُ مِنَ الْغَمِّ ۚ وَكَذَٰلِكَ نُنجِي الْمُؤْمِنِينَ (88)" سورة الانبياء فإن لقول العبد: "لا إله إلا أنت سبحانك إني كنت من الظالمين" فضلًا عظيمًا وخيرًا كثيرًا؛ فقد قال رسول الله صلى الله عليه وسلم: دَعْوَةُ ذِي النُّونِ إِذْ دَعَا وَهُوَ فِي بَطْنِ الْحُوتِ لَا إِلَهَ إِلَّا أَنْتَ سُبْحَانَكَ، إِنِّي كُنْتُ مِنَ الظَّالِمِينَ، إِنَّهُ لَمْ يَدْعُ بِهَا مُسْلِمٌ فِي شَيْءٍ قَطُّ إِلَّا اسْتَجَابَ اللَّهُ لَهُ بِهَا. رواه أحمد في المسند, والحاكم في المستدرك وغيرهما, وصححه تفضل اخى الكريم الحل من خلال الفورم مباشرة تقبل تحياتى تحويل المعادلة الى كود.zip
  8. جزاكم الله خيرا اخى الحبيب محمد الريفى تقبل تحياتى
  9. تفضل الكود Sub abd() Application.ScreenUpdating = False For Each f In Range("d2:d10000") If f <> "" Then x = f.Value Union(Range(f.Offset(0, -3), f.Offset(0, -1)), Range(f.Offset(0, 1), f.Offset(0, 1))).Copy ir = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row Sheets(x).Range("a" & ir + 1).PasteSpecial xlPasteValues Range(f.Offset(0, 2), f.Offset(0, 2)).Copy Sheets(x).Range("f" & ir + 1).PasteSpecial xlPasteValues End If Next f Application.CutCopyMode = False Range("a2:f100000").ClearContents Sheets(1).Activate Application.ScreenUpdating = True End Sub تقبل تحياتى
  10. اخى الكريم على حسب فهمى لطلبك ولو انك برأى مصعب الامور على نفسك المهم ادخل على الموديول رقم 3 استبدل الكود الموجود بالتالى Sub abd() Application.ScreenUpdating = False For Each f In Range("d2:d10000") If f <> "" Then x = f.Value Union(Range(f.Offset(0, -3), f.Offset(0, -1)), Range(f.Offset(0, 1), f.Offset(0, 1))).Copy ir = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row Sheets(x).Range("a" & ir + 1).PasteSpecial xlPasteValues Range(f.Offset(0, 2), f.Offset(0, 2)).Copy Sheets(x).Range("f" & ir + 1).PasteSpecial xlPasteValues End If Next f Sheets(1).Activate Application.CutCopyMode = False Application.ScreenUpdating = True End Sub تقبل تحياتى
  11. والله منور يا ابوحنين حلول رائعه والاروع عودة الاسم ابوحنين منور المنتدى ربنا يباركلك يارب فى حنين تقبل تحياتى
  12. اخى الكريم انس أهنئك بهذا العمل اللى اكيد هيكون روعه ويسعدنى اكون اول المهنئين جزاكم الله خيرا والى الامام دائما تقبل تحياتى
  13. استاذى الفاضل ابوحنين مرورع هو الاروع بالنسبه لابوالبراء ربنا مديله شويه طاقه وقوة وصحه فبيفترى على الابواب ههههههههههههههههههه معندوش صبر الاخ الحبيب عبدالعزيز جزاكم الله خيرا اخى الكريم تقبلوا جميعا تحياتى
×
×
  • اضف...