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

ahmedgenedy

عضو جديد 01
  • Posts

    29
  • تاريخ الانضمام

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

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

0 Neutral

عن العضو ahmedgenedy

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

  • Gender (Ar)
    ذكر
  • Job Title
    lawer

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. السلام عليكم ورحمه الله وبركاته اريد ادارج اكثر من صوره فى شيت اكسل واحد حاولت ادراج الصوره Vlook_pic ولكن لصوره واحده . . المطلوب انى لو كتبت رقم الموظف تظهر صوره بطاقته وصورته الشخصيه فى نفس الوقت وثيقه تعارف للعاملين2.rar
  2. الاستاذ / وليد فتحى بارك الله لك فى علمك وزادك الله من فضله
  3. بصراحه يا استاذى الفاضل مرفق مش بالضبط المطلوب فى المرفق مره اخرى اريد جعل الارقام بعكس ما حضرتك عملتها نموذج نقل عاملين الى فروع المنشأه - معدل_33.rar
  4. الاخ وليد فتحى شاكر لكم مجهودك بارك الله فيك
  5. استاذنا الجموعى اعتزر ولكن المرفق هو الملف الاصلى بدون تعديل الاستاذ / وليد فتحى شاكر ليك مجهودك العظيم استاذى ومعلمى الاستاذ / جمال عبدالسميع تحياتى لكم دائما نعم العون لى وفى اسرع وقت ( مرفق لسيادتكم الملف مره اخرى اريد لارقام طبقا للمرفق وليس العكس اريد جعل الخانات بها الارقام من اليمين والخانات الفارغه على اليسار ) نموذج نقل عاملين الى فروع المنشأه.rar
  6. الساده الكرام مرفق لسياتكم ملف استعملت معه MID ولكنه يجلب الارقام من اليسار الى اليمين وليس العكس مرفق مثال على ذلك نموذج نقل عاملين الى فروع المنشأه - Copy.rar
  7. استاذى : عبد الله باقشير استاذى ومعلمى : جمال عبد السميع استاذى : حسين العصلوجي السيده الفاضله : ام عبدالله السلام عليكم ورحمة الله وبركاته جزاكم الله كل خير فى سرعه الرد بارك الله فيكم وفى علمكم وزادكم من فضله ان شاء الله
  8. الساده الافاضل اريد فصل الارقام والتواريخ طبقا للملف المرفق ضرورى اريد مساعده.rar
  9. استخدم ده والاحمر ده الباث باع الصور عندك على الجهاز Function VLOOK_Pic1(PicName) Dim CurrentCel As Range, Pic As Shape PicName = PicName: MyPath = ThisWorkbook.Path & "\StaffPhotos\": PicName = MyPath & PicName: ChkPic = Array(".jpg", ".bmp", ".gif", ".png") Set CurrentCel = Application.Caller For Each Pic In ActiveSheet.Shapes If Pic.Type = msoLinkedPicture Then If Pic.Top >= CurrentCel.Top And Pic.Top < CurrentCel.Top + CurrentCel.Height Then Pic.Delete Exit For End If End If Next For X = LBound(ChkPic) To UBound(ChkPic) If Not Dir(PicName & ChkPic(X), vbDirectory) = vbNullString Then Set Pic = ActiveSheet.Shapes.AddPicture(PicName & ChkPic(X), True, False, CurrentCel.Left, CurrentCel.Top, CurrentCel.Width, CurrentCel.Height): VLOOK_Pic1 = "" Exit For Else VLOOK_Pic1 = "áÇ ÊæÌÏ ÕæÑÉ" End If Next End Function
  10. السلام عليكم ورحمه الله وبركاته الاساتذه الافاضل اريد برنامج لازاله باسوور شيت الاكسل الداخليه . . اوفيس 2010 كان يوفر هذه الخدمه ولكننى لا استطيع ايجادها الان . . ارجو المساعده
  11. بارك الله فيك استاذ عبدلله ويجعله فى ميزان حسناتك
  12. الاستاذه والاخت ام عبدالله ربنا يباركلك ويقدرك ماتعرفيش كنت مستعجل النتيجه ازاى. . ربنا يقدرك ويجازيكى على ذوق حضرتك
×
×
  • اضف...

Important Information