بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
ahmedgenedy
-
Posts
29 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه ahmedgenedy
-
-
السلام عليكم ورحمه الله وبركاته
اريد ادارج اكثر من صوره فى شيت اكسل واحد حاولت ادراج الصوره Vlook_pic ولكن لصوره واحده . . المطلوب انى لو كتبت رقم الموظف تظهر صوره بطاقته وصورته الشخصيه فى نفس الوقت
-
الاستاذ / وليد فتحى بارك الله لك فى علمك وزادك الله من فضله
-
بصراحه يا استاذى الفاضل مرفق مش بالضبط المطلوب فى المرفق مره اخرى اريد جعل الارقام بعكس ما حضرتك عملتها
-
الاخ وليد فتحى شاكر لكم مجهودك بارك الله فيك
-
استاذنا الجموعى اعتزر ولكن المرفق هو الملف الاصلى بدون تعديل
الاستاذ / وليد فتحى شاكر ليك مجهودك العظيم
استاذى ومعلمى الاستاذ / جمال عبدالسميع تحياتى لكم دائما نعم العون لى وفى اسرع وقت
( مرفق لسيادتكم الملف مره اخرى اريد لارقام طبقا للمرفق وليس العكس اريد جعل الخانات بها الارقام من اليمين والخانات الفارغه على اليسار )
-
الساده الكرام
مرفق لسياتكم ملف استعملت معه MID ولكنه يجلب الارقام من اليسار الى اليمين وليس العكس مرفق مثال على ذلك
-
استاذى : عبد الله باقشير
استاذى ومعلمى : جمال عبد السميع
استاذى : حسين العصلوجي
السيده الفاضله : ام عبدالله
السلام عليكم ورحمة الله وبركاته
جزاكم الله كل خير فى سرعه الرد بارك الله فيكم وفى علمكم وزادكم من فضله ان شاء الله
-
الساده الافاضل اريد فصل الارقام والتواريخ طبقا للملف المرفق ضرورى
-
استخدم ده والاحمر ده الباث باع الصور عندك على الجهاز
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 كان يوفر هذه الخدمه ولكننى لا استطيع ايجادها الان . . ارجو المساعده
-
بارك الله فيك استاذ عبدلله ويجعله فى ميزان حسناتك
-
الاستاذه والاخت ام عبدالله
ربنا يباركلك ويقدرك ماتعرفيش كنت مستعجل النتيجه ازاى. .
ربنا يقدرك ويجازيكى على ذوق حضرتك
-
الساده الكرام ارجو من سيادتكم مساعدتى طبقا للمرفق ادناه فى تقسيم الاسماء بحيث اننى اريد الاسم ثلاثى اقوم بتغير المعادله واذا احتجت الى الاسم رباعى اقوم بتغير آخر . . ارجو المساعده للاهميه
الاسم بالكامل الاسم ثلاثى الاسم رباعى
احمد محمد على ابراهيم ا حمد محمد على احمد محمد على ابراهيم
-
الاستاذ / حماده بارك الله فيك وفى علمك
-
جزالك الله كل خير استاذ عباس
-
-
الف شكر استاذى ربنا يبارك فيك
-
السلام عليكم ورحمه الله وبركاته
مرفق ملف اريد لو اجمالى الرقم اقل من الشهر السابق مثلا بمفدار 3 درجات يعطى اللون اصفر اما لو زاد عن خمس درجات يعطى احمر . . اما لو الرقم الحالى اكبر من رقم الشهر الماضى يعطى اخضر
-
تحفه يا استاذ جمال ربنا يبارك فيك
-
كيف يتم ربط الارقام باللون بمعنى لو الفارق اتنين سيكون اللون اصفر ولو اكثر من ذلك سيكون احمر
-
هل يمكن ربط صوره من ملف معين برقم موظف بمعنى اول ما اكتب رقم الموظف يضع صورته بالخانه المطلوبه
-
هل يمكن ربط صوره من ملف معين برقم موظف بمعنى اول ما اكتب رقم الموظف يضع صورته بالخانه المطلوبه
مساعده ادراج اكثر من صوره فى شيت اكسل واحد
في منتدى الاكسيل Excel
قام بنشر
ارجو الرد