اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابوحمزه المصرى

03 عضو مميز
  • Posts

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

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

  • Days Won

    1

ابوحمزه المصرى last won the day on يونيو 10 2016

ابوحمزه المصرى had the most liked content!

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

106 Excellent

2 متابعين

عن العضو ابوحمزه المصرى

  • تاريخ الميلاد 07 ينا, 1983

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

  • Gender (Ar)
    ذكر
  • Job Title
    محاسب
  • البلد
    مصر
  • الإهتمامات
    لاتعطنى سمكه .. لكن علمنى كيف اصطاد

اخر الزوار

2,041 زياره للملف الشخصي
  1. شكراً لك أخى الكريم المتألق رجب جاويش وننتظر بتشوق اللإصدار الجديد لكنترول الصف الأول والثانى الثانوى
  2. السلام عليكم أخوانى الأفاضل أعضاء المنتدى الكريم VBAأريد ان اتعلم اكسس 2010 من الصفر حتى الاحتراف المتقدم وال هل هناك كتاب باللغه العربية او كورس فيديو لذلك
  3. دائماً متميز اخى الكريم شوقى ربيع ... بارك الله فيك على ماتقدمه لنا تحياتى
  4. المثال مره اخرى للتوضيح اخوانى الافاضل الوارد اولا صادر اولا حسب التاريخ.rar
  5. السلام عليكم ورحمة الله وبركاته اخوانى الكرام اعضاء منتدى اوفيسنا ارجو ان يكون هناك حلا لمشكلتى اريد عند صرف بضاعه يظهر فى آخر عمود تاريخ وارد تلك البضاعه مع مراعاة ان البضاعه المنصرفه قد تكون لها اكثر من تاريخ للوارد اليكم المثال الوارد اولا صادر اولا حسب التاريخ.rar
  6. اخى الفاضل ابو أسيل موضوع رائع ومجهود اروع لكن يتبقى نقطه هامه ان يضاف عمود اخير يظهر فيه الكميه وتاريخ دخول البضاعه مع مراعاة انه ممكن تحصل مبيعات لاكثر من تاريخ مشتريات
  7. تم العمل بالكود بنجاح .. اشكرك اخى الغالى ابو البراء على المجهود الرائع .. بارك الله فيك
  8. اخى الفاضل ابو البراء طبقت تعليماتك واضفت صورة no.jpg لكن للاسف عندما لا تتوفر صورة واحده لا يعرض باقى الصور للشخص ... انظر الى الكود لعل اكون مخظئ فى التنفيذ Private Sub Worksheet_Change(ByVal Target As Range) Dim myPath As String, fullImagePath As String myPath = ThisWorkbook.Path & "\pic\" fullImagePath = myPath + [B1] If Target.Address = "$B$1" Then On Error GoTo Skipper Image1.Picture = LoadPicture(fullImagePath & "1.JPG") Image2.Picture = LoadPicture(fullImagePath & "2.JPG") Image3.Picture = LoadPicture(fullImagePath & "3.JPG") Image4.Picture = LoadPicture(fullImagePath & "4.JPG") Exit Sub End If Skipper: Image1.Picture = LoadPicture(myPath & "NO.jpg") Image2.Picture = LoadPicture(myPath & "NO.jpg") Image3.Picture = LoadPicture(myPath & "NO.jpg") Image4.Picture = LoadPicture(myPath & "NO.jpg") End Sub
×
×
  • اضف...

Important Information