اذهب الي المحتوي
أوفيسنا

سليم حاصبيا

أوفيسنا
  • Posts

    8,723
  • تاريخ الانضمام

  • Days Won

    262

كل منشورات العضو سليم حاصبيا

  1. السلام عليكم استاذ بن علية لما ترهق نفسك بالمعادلا ت ،طالما الدكتور اكسل يقوم بالواجب حل الرقم السري للاخ ابو صلاح الرقم السري-ابو صلاح.rar
  2. الاخ ياسر انا اقصد بالمشاركة 42 طبعاً الجدول المتحرك و على فكرة القِ نظرة على المشاركة 44 الذي هو تكملة للغز "ادراج كلمة Blank"
  3. هل تقصد هذا الشيء Course Attendance_Req salim.rar
  4. السلام عليكم رداً على سؤال الاستاذ ابراهيم ابو ليلى وضع كلمة "Blank" حتى في الخلايا المدمجة blank with merge.rar
  5. اخي ياسر صح النوم اين كانت اقتراحاتك للحل / لم ار اي مشاركة هو ايه اللي جرى انت مش عايز تحك دماغك حبتين نفس الموضوع لكن أريد ان تتوزع الارقام على الاعمدة وليس الصفوف يعني: 1 2 3 4 5 6 7 8 9 10 .... و هكذا (لغز برسم الجميع) مع انه ليس دوري في اللغز لكن بعد الاعتذار من ابن مصر
  6. صباح الخير للجميع بالفعل يا استاذ عيدالله هذا هو الحل لأن المعادلة صحيحة 100% الفرق البسيط بيني وبينك في المعادلة هو النقطة فاصلة التي تعمل على جهازك بينما عندي الفاصلة هي التي تعمل كلمة السر 123**
  7. أشكر مروركم الكريم استاذ عبدالله ،لكن الامر لم ينجح اذ ان هناك عامود زائد الى اليمين
  8. الاخ عمران قبل ان تكتب المعادلة يجب ان تحدد النطاق من : A$2:$a$100 مثلاً و تتأكد ان الخلية e2 هي النشطة و عند اذن تضغط Alt+O+D و تكتب المعادلة
  9. اخواني في المنتدى لغز جديد من الغاز اكسل الرائعة لا استطيع الشرح لذلك حملت الملف مع باسوورد لحماية المعادلات عندما يجد احد ما الحل سوف ابلغكم بكلمة لمرور عليك فقط ان تختار عدد الصفوف و عدد الأعمدة جدول متحرك.rar
  10. تفضل اخي ما تريد تجربة 1.rar
  11. استاذ طارق ما رأيك بهذه المعادلة (تستطيع ان تحدد عدد الارقام المطلوب من الخلية D1) =IF(ROWS($A$1:A1)>$D$1,"",LCM(2,3,4,5,6)*ROWS($A$1:A1)+1) و تضعها اينما تريد وتسحب نزولاً
  12. جيد استاذ طارق لكن انا اريدها ايضا بدون معادلة صفيف و استطيع ان احدّد عدد الارقام المطلوبة
  13. استاذ طارق مع اعتذاري الشديد الجواب ليس صحيحاً ما رأيك بالعدد 121 مثلا
  14. في موضوع الالغاز و بناءً لطلب الاخ ياسر اريد أول عشرة اعداد يتوفر فيها هذا الشرط اذا قسمت اي عدد منها على 2, 5,4,3 ,و 6 يكون الباقي 1 طبعاً بواسطة المعادلات
  15. اليك هذا المثال تستطيع ان تبني على اساسه تقاطع.rar
  16. تسلم (Keyboard)ـك أقصد ايديك اخي ياسر كود رائع أفضل من الذي عندي على فكرة كي يعمل الصف العاشر يجب ان تزال علامة = قبل الرقم عشرة لتصبح do until i>10
  17. ربما كان المطلوب مجموع مميز.rar
  18. يجب ان تحدد النطاقات حيث سيعمل الماكرو لا يجوز ان يعمل على الورقة بأكملها يمكن ان يتواجد خلايا لست بحاجة لنتسيقها (الارقام الصغيرة مثلاً او النصوص)
  19. اخواني في المنتدى اليكم هذا الملف الذي ينصب لك مقلباً جميلاً اخفاء خلايا مع الوقت.rar
  20. اخي ياسر ربما يعجبك هذا الحل الكود مرفق Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a1:b10")) Is Nothing Then Dim myrange As Range Set myrange = Range("a1:b10") i = 1 Do Until i >= 10 If Cells(i, 1) = "" Then Cells(i, 1) = "blank" If Cells(i, 2) = "" Then Cells(i, 2) = "blank" i = i + 1 Loop End If End Sub blank.rar
  21. ربما كان هذا المطلوب جمع بشرط.rar
×
×
  • اضف...

Important Information