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

عبدالله باقشير

المشرفين السابقين
  • Posts

    4,796
  • تاريخ الانضمام

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

  • Days Won

    57

كل منشورات العضو عبدالله باقشير

  1. السلام عليكم اخي الحبيب الخالدي...........حفظكم الله اضافة ممتازة جزاكم الله خيرا تقبلوا تحياتي وشكري
  2. السلام عليكم الشكر واصل للاخ الحبيب محمد أبو البراء والاخ الحبيب رجب جاويش وائراءا للموضوع هذا حل بواسطة معادلة ارجاع صفيف في المرفق معادلتين فقط الاولى في الخلية D2 عند التعديل حدد نطاق بدأً بخلية الصيغة D2 بعدد صفوف اكبر او يساوي خلايا نطاق البيانات في العمود C واضغط F2 لتحرير الخلية ثم اضغط CTRL+SHIFT+ENTER =IFERROR(INDEX(C:C;SMALL(IF((MOD(ROW(C2:C500);2)=1)*(C2:C500<>"");ROW(C2:C500);"");ROW()-1));"") والثانية في الخلية E2 عند التعديل حدد نطاق بدأً بخلية الصيغة E2 بعدد صفوف اكبر او يساوي خلايا نطاق البيانات في العمود C واضغط F2 لتحرير الخلية ثم اضغط CTRL+SHIFT+ENTER =IFERROR(INDEX(C:C;SMALL(IF((MOD(ROW(C2:C500);2)=0)*(C2:C500<>"");ROW(C2:C500);"");ROW()-1));"") المرفق 2010 الخلايا.rar
  3. اللهم فك كرب المسلمين اجمعين في كل ملأ وفي كل حين
  4. نعم ممكن مع تعديل بسيط Private Sub CommandButton1_Click() Dim Cntl As Control Dim Txt As String For Each Cntl In Me.Controls If TypeOf Cntl Is MSForms.CheckBox Then If Cntl.Value = True Then Txt = Txt & IIf(Len(Txt), " - ", "") & Cntl.Caption End If End If Next Range("B2").Value = Txt End Sub تحياتي
  5. السلام عليكم ورحمة الله وبركاته يمكنك ذلك بتحديد العمود كامل واضغط عل علامة التعجب في الخلية الاولى للتحديد حتظهر قائمة اختر تحويل الى رقم تحياتي
  6. السلام عليكم بالنسبة للطلب الاول جرب هذا الكود Private Sub CommandButton1_Click() Dim iNx As Integer iNx = Me.Index - 1 With UserForm1 .MultiPage1.Value = iNx .Show End With End Sub تحياتي
  7. جزاك الله خير بالنسبة للقائمة : اختر اي نطاق تريدة في اي مكان في الملف وسميه اي اسم مثلا "العملاء" ثم ضع هذا الاسم في التعليق في راس العمود التي تريد اظهار القائمة فيه تحياتي
  8. فعلا بحق وبكل جداره وهنيئا لصاحب الهدية اخي الحبيب حمادة عمر
  9. السلام عليكم جرب الكود التالي Private Sub CommandButton1_Click() Dim Cntl As Control Dim Txt As String For Each Cntl In Me.Frame1.Controls If TypeOf Cntl Is MSForms.CheckBox Then If Cntl.Value = True Then Txt = Txt & IIf(Len(Txt), " - ", "") & Cntl.Caption End If End If Next Range("B2").Value = Txt End Sub تحياتي
  10. السلام عليكم لعبة ترتيب اجزاء الصورة هدية للاخ مجدي يونس بامكانية تغيير اجزاء الصورة في فولدر الملف بالنسبة للجزء الفارغ من الصورة اختياري وممكن حذفه او ابقائه باي اسم في فولدر الملف المرفق 2003 kh_imgemove.rar
  11. السلام عليكم أخى الفاضل / الجموعي جزاك الله خيرا..........شرح رائع فقط للمعلومية: بدلا من اغلاق الملف وفتحه استخدم الزر وضع التصميم من المطور للخروج من التصميم حيث ان الزر (وضع التصميم) يستخدم للتبديل بين التصميم والخروج من التصميم تقبل تحياتي وشكري
  12. اخي الحبيب عبد الرحمن الحمصي ............حفظكم الله اخي الحبيب عادل ابو زيد ............حفظكم الله اخي الحبيب جمال عبد السميع ............حفظكم الله اخي الحبيب أبو حنين ............حفظكم الله اخي الحبيب أبو محمد عباس ............حفظكم الله اختي الفاضلة أم عبدالله ............حفظكم الله اخي الحبيب رجب جاويش............حفظكم الله اخي الحبيب محمد الاسيوطي ............حفظكم الله اخي الحبيب احمد غانم ............حفظكم الله اخي الحبيب احمد فؤاد............حفظكم الله اخي الحبيب عبدالله المجرب ............حفظكم الله اخي الحبيب حمادة باشا ............حفظكم الله اخي الحبيب حمادة عمر............حفظكم الله جزاكم الله خيرا واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري
  13. السلام عليكم ورحمة الله وبركاته قائمة Validation مختارة من نتيجة بحث في نفس خلية القائمة لا تحتاج الى ترتيب بيانات البحث وممكن استخدامها في اي ورقة من اوراق الملف المرفق 2003 بحث في خلايا قائمة التحقق من الصحة.rar
×
×
  • اضف...

Important Information