ahmedgenedy

ارجو الرد

السلام عليكم ورحمه الله وبركاته اريد ادارج اكثر من صوره فى شيت اكسل واحد حاولت ادراج الصوره Vlook_pic ولكن لصوره واحده . . المطلوب انى لو كتبت رقم الموظف تظهر صوره بطاقته وصورته الشخصيه فى نفس الوقت وثيقه تعارف للعاملين2.rar

الاستاذ / وليد فتحى بارك الله لك فى علمك وزادك الله من فضله

بصراحه يا استاذى الفاضل مرفق مش بالضبط المطلوب فى المرفق مره اخرى اريد جعل الارقام بعكس ما حضرتك عملتها نموذج نقل عاملين الى فروع المنشأه - معدل_33.rar

الاخ وليد فتحى شاكر لكم مجهودك بارك الله فيك

استاذنا الجموعى اعتزر ولكن المرفق هو الملف الاصلى بدون تعديل الاستاذ / وليد فتحى شاكر ليك مجهودك العظيم استاذى ومعلمى الاستاذ / جمال عبدالسميع تحياتى لكم دائما نعم العون لى وفى اسرع وقت ( مرفق لسيادتكم الملف مره اخرى اريد لارقام طبقا للمرفق وليس العكس اريد جعل الخانات بها الارقام من اليمين والخانات الفارغه على اليسار ) نموذج نقل عاملين الى فروع المنشأه.rar

الساده الكرام مرفق لسياتكم ملف استعملت معه MID ولكنه يجلب الارقام من اليسار الى اليمين وليس العكس مرفق مثال على ذلك نموذج نقل عاملين الى فروع المنشأه - Copy.rar

استاذى : عبد الله باقشير استاذى ومعلمى : جمال عبد السميع استاذى : حسين العصلوجي السيده الفاضله : ام عبدالله السلام عليكم ورحمة الله وبركاته جزاكم الله كل خير فى سرعه الرد بارك الله فيكم وفى علمكم وزادكم من فضله ان شاء الله

الساده الافاضل اريد فصل الارقام والتواريخ طبقا للملف المرفق ضرورى اريد مساعده.rar

استخدم ده والاحمر ده الباث باع الصور عندك على الجهاز 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

بارك الله استاذنا

بارك الله فيك واعانك

السلام عليكم ورحمه الله وبركاته الاساتذه الافاضل اريد برنامج لازاله باسوور شيت الاكسل الداخليه . . اوفيس 2010 كان يوفر هذه الخدمه ولكننى لا استطيع ايجادها الان . . ارجو المساعده

بارك الله فيك استاذ عبدلله ويجعله فى ميزان حسناتك

الاستاذه والاخت ام عبدالله ربنا يباركلك ويقدرك ماتعرفيش كنت مستعجل النتيجه ازاى. . ربنا يقدرك ويجازيكى على ذوق حضرتك

الساده الكرام ارجو من سيادتكم مساعدتى طبقا للمرفق ادناه فى تقسيم الاسماء بحيث اننى اريد الاسم ثلاثى اقوم بتغير المعادله واذا احتجت الى الاسم رباعى اقوم بتغير آخر . . ارجو المساعده للاهميه الاسم بالكامل الاسم ثلاثى الاسم رباعى احمد محمد على ابراهيم ا حمد محمد على احمد محمد على ابراهيم تقسيم الاسم.rar

الاستاذ / حماده بارك الله فيك وفى علمك

جزالك الله كل خير استاذ عباس

السلام عليكم ورحمه الله وبركاته ارجو المساعه فى كيفيه ادراج صوره موظف ( يوجد ملف كامل به صور الموظفيين ) بمجرد كتابه رقمه الوظيفى مرفق ملف Photo.rar Photo.rar

الف شكر استاذى ربنا يبارك فيك

السلام عليكم ورحمه الله وبركاته مرفق ملف اريد لو اجمالى الرقم اقل من الشهر السابق مثلا بمفدار 3 درجات يعطى اللون اصفر اما لو زاد عن خمس درجات يعطى احمر . . اما لو الرقم الحالى اكبر من رقم الشهر الماضى يعطى اخضر Sample2.xls.rar

تحفه يا استاذ جمال ربنا يبارك فيك

كيف يتم ربط الارقام باللون بمعنى لو الفارق اتنين سيكون اللون اصفر ولو اكثر من ذلك سيكون احمر

هل يمكن ربط صوره من ملف معين برقم موظف بمعنى اول ما اكتب رقم الموظف يضع صورته بالخانه المطلوبه Sample.rar

هل يمكن ربط صوره من ملف معين برقم موظف بمعنى اول ما اكتب رقم الموظف يضع صورته بالخانه المطلوبه