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

كمال على طارق

03 عضو مميز
  • Posts

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

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

كل منشورات العضو كمال على طارق

  1. وعليكم السلام-بعد اذن طبعا أستاذنا الكبير صلاح -يمكنك استخدام أيضاً هذه المعادلة =DATEDIF($D2,TODAY(),"y")&"Years, " &DATEDIF($D2,TODAY(),"YM")&"Months, "&TODAY()-DATE(YEAR(TODAY()),MONTH(TODAY()),1)&"Days" مسودة1.xlsx
  2. تفضل ..أيوم كده ,,, كان لابد من البداية رفع ملف تجنباً لإهدار الوقت -لك ما طلبت العمل1.xlsx
  3. هى أصلا الدالة مش موجودة ولكن اذا كتبتها ستقوم بعملها .. على الرغم أنك لم تقم برفع ملف للتوضيح , فعلى سبيل المثال اذا كان هناك تاريخ موجود بالخلية A2 والتاريخ الأخر بالخلية B2 ....فستكون المعادلة كالتالى : DATEDIF(start_date, end_date, unit) =DATEDIF(A2,B2,"Y") السنوات =DATEDIF(A2,B2,"YM") الشهور =DATEDIF(A2,B2,"MD") الأيام Unit Returns "Y" The number of complete years in the period. "M" The number of complete months in the period. "D" The number of days in the period. "MD" The difference between the days in start_date and end_date. The months and years of the dates are ignored. Important: We don't recommend using the "MD" argument, as there are known limitations with it. See the known issues section below. "YM" The difference between the months in start_date and end_date. The days and years of the dates are ignored "YD" The difference between the days of start_date and end_date. The years of the dates are ignored.
  4. وعليكم السلام -من فضلك قم بتصميم ما تريد من الفورم وسيتم المساعدة من قبل الساتذة ان شاء الله .. فالمنتدى تعليمى من المقام الأول !!!
  5. وعليكم السلام -يمكنك استخدام هذه المعادلة =IF(COUNTIFS($B$2:B2,B2,$A$2:A2,A2)=1,"Input1 ",IF(COUNTIFS($B$2:B2,B2,$A$2:A2,A2)=2,"Output1 ",IF(COUNTIFS($B$2:B2,B2,$A$2:A2,A2)=3,"Input2 ",IF(COUNTIFS($B$2:B2,B2,$A$2:A2,A2)=4,"Output2 ",""))))
  6. وعليكم السلام انتبه من فضلك ان لا تقوم برفع أى مشاركة قبل محاولة البحث أولاً بالمنتدى عن طلبك -تفضل https://www.youtube.com/watch?v=LMx8rwUiYDQ
  7. انتبه من فضلك .. فالمنتدى تعليمى من المقام الأول وليس لعمل أو تقديم البرامج الجاهزة .. فهل تتخيل ان يقوم أحد بعمل برنامج لك على الجاهز ؟!!!! لا يمكن العمل على التخمين وتجنباً لإهدار وقت الأساتذة دون جدوى أو أهمية .فعليك بالبدء بنفسك بتصميم طلبك واذا تعثرت فى جزئية يمكنك رفعها هنا .. وشكرا
  8. أحسنت وأكرمك الله وبارك الله فيك وجعل هذا العمل فى ميزان حسناتك ..باطبع عمل ممتاز شكراً جزيلا لجهودكم الكريمة
  9. وعليكم السلام -ارفع من فضلك ملف موضح به المطلوب بكل دقة .. فلا يمكن العمل على التخمين وتجنباً لإهدار وقت الأساتذة دون جدوى أو أهمية ؟
  10. وعليكم السلام بارك الله فى سيادتكم وشكراً على ردكم الكريم ..وأعانكم الله وسدد خطاكم دائماً
  11. السلام عليكم أساتذتى وأحبائى الكرام مشرفين المنتدى الأفاضل .. كنت أود الإستفسار عن هذا , فهل هذا عطل ومشكلة بالمنتدى أم هذا أمر طبيعى ؟!!! وهو ان يكون هناك تفاعل وردود بالمشاركات على الرغم ان عدد القراءات 0 . صفر ؟!!! كما بالصورة باليسار
  12. السلام عليكم أساتذتى وأحبائى الكرام رجاءاً من سيادتكم بعد إذنكم مساعدتى فى جعل هذا البرنامج يعمل أيضأ على نظام 64 بت حيث انه لا يعمل الا على 32 بت ولكم جزيل الشكر وبارك الله فى جهودكم إسم المستخدم: Admin كلمة المرور : 123 برنامج الصيدليه.rar
  13. انتبه من فضلك Hussein Taso وعليك دائماً وأبداً التماس العذر لإخواننا وأساتذتنا فانت لا تعلم مدى ارتباطهم وانشغالهم بأعمالهم .. خصوصاً ان العمل والتواجد والنشاط والرد على المشاكل بالمنتدى انما لوجه الله فلا أجر له فكان لابد عليك قراءة قواعد وقوانين المشاركة بالمنتدى جيداً .فمنها عدم الإلحاح فى طلب المساعدة , وخصوصاً ان طلبك هذا مخالف لقواعد أى منتدى فهذه حقوق ملكية لصاحبها فقد , لما قد بذل من جهود للخروج بهذا العمل فعليك بالإتصال مباشرة بصاحب هذا العمل وهو الوحيد الذى له الحرية فى الإفصاح عن هذا لك!!!!! .. وشكراً جزيلاً
  14. أحسنت استاذ حسونة وبارك الله فيك هو بالفعل المطلوب جعله الله فى ميزان حسناتك وغفر الله لك ووسع الله فى رزقك وأكرمك الله فى أولادك وزوجك
  15. فين الملفات ؟!!! كان لابد من بدء المشاركة بالتحية ولابد ان يكون هناك ملف موضح عليه المطلوب بكل دقة حتى تتمكن الأساتذة من مساعدتك .. فلا يمكن العمل على التخمين !!!
  16. السلام عليكم .. أساتذتى الأحباء ...ولأنى حاولت أن أجعل الخلية H4 بصفحة Entry عند البحث بإسم الحاج ان تقوم بكتابة الإسم كاملاً بمجرد كتابة أول حرف أو أى حرف من الإسم فلم أنجح فى ذلك .. فهل يمكنك مساعدتى بذلك بارك الله فيك او جعل الخلية H4 كقائمة منسدلة تأخذ القائمة من الصفحة التى يتم اختيارها من قائمة الخلية J4 من جميع أسماء الحجاج من كل صفحات الملف ... ولكم جزيل الشكر نموذج ادخال بيانات الحجاج داخل الشيت.xlsm
  17. أستاذ حسونة حسين ...ولأنى حاولت أن أجعل الخلية H4 بصفحة Entry عند البحث بإسم الحاج ان تقوم بكتابة الإسم كاملاً بمجرد كتابة أول حرف أو أى حرف من الإسم فلم أنجح فى ذلك .. فهل يمكنك مساعدتى بذلك بارك الله فيك او جعل الخلية H4 كقائمة منسدلة تأخذ القائمة من جميع أسماء الحجاج من كل صفحات الملف ... ولكم جزيل الشكر
  18. بارك الله فيك وزادك الله من فضله
  19. مجهود ممتاز بارك الله فيك وزادك الله من فضله واختصار رائع للكود
  20. أحسنت استاذ حسونة حل رائع وتعديل ممتاز جعله الله فى ميزان حسناتك وبارك الله فى جهود سيادتكم وجعل تالله هذا العمل فى ميزان حسناتك وأكرمك الله
  21. السلام عليكم أساتذتى وأحبائى الكرام , أتمنى للجميع دوام الصحة والعافية .. الرجاء من سيادتكم مساعدتى بتعديل كود الترحيل لكى يقوم بالترحيل للصفحة المحددة والموضحة بالخلية J4 الموجودة بصفحة Entry ولكم جزيل الشكر وبارك الله فى جهودكم Private Sub cmdAdd_Click() Dim M As Integer M = Sheet2.Range("B500").End(xlUp).Row + 1 Sheet2.Cells(M, "B").Value = Sheet1.Range("G6").Value Sheet2.Cells(M, "C").Value = Sheet1.Range("G8").Value Sheet2.Cells(M, "D").Value = Sheet1.Range("G10").Value Sheet2.Cells(M, "E").Value = Sheet1.Range("G12").Value Sheet2.Cells(M, "F").Value = Sheet1.Range("J6").Value Sheet2.Cells(M, "G").Value = Sheet1.Range("J8").Value Sheet2.Cells(M, "H").Value = Sheet1.Range("J10").Value Sheet2.Cells(M, "I").Value = Sheet1.Range("J12").Value Sheet2.Cells(M, "k").Value = Sheet1.Range("J14").Value Sheet2.Cells(M, "J").Value = Sheet1.Range("G14").Value Sheet2.Cells(M, "M").Value = Sheet1.Range("J16").Value Sheet2.Cells(M, "L").Value = Sheet1.Range("G16").Value Sheet1.Range("G6").Value = "" Sheet1.Range("G8").Value = "" Sheet1.Range("G10").Value = "" Sheet1.Range("G12").Value = "" Sheet1.Range("J6").Value = "" Sheet1.Range("J8").Value = "" Sheet1.Range("J10").Value = "" Sheet1.Range("J12").Value = "" Sheet1.Range("G14").Value = "" Sheet1.Range("J14").Value = "" Sheet1.Range("G16").Value = "" MsgBox "تم ترحيل بيانات الموظف بنجاح" End Sub نموذج ادخال بيانات الحجاج داخل الشيت.xlsm
  22. وعليكم السلام- تفضل بما انك لم تقم برفع ملف توضيحى للمطلوب يكل دقة Book.xlsx
×
×
  • اضف...

Important Information