نجوم المشاركات

السلام عليكم ورحمة الله وبركاته الفرق بين تاريخين باستخدام الدالة DATEDIF اتمنى ان يفيدكم جميعا تعريف الدالة امثلة على استخدام الدالة مدونة خبير اكسيل http://excelfinancial1.blogspot.com.eg/ تحميل الملف الفرق بين تاريخين.rar

أخي الكريم الياسر جرب الكود التالي Sub Test() Dim LR As Integer LR = Cells(27, 1).End(xlUp).Row + 1 Range("A" & LR & ":F" & LR).Value = Range("A3:F3").Value End Sub تقبل تحياتي

السلام عليكم ورحمة الله وبركاته أخي الحبيب ياسر نبارك لك بالمشاركة 8888 ونرجو الله لك أن تكون مشاركاتك النافعة حتى تكون 888888888888 وأنت بخير وسلامة أنت وكل أحبتي فهذه المشاركة لأخي محمد الريفي جعلتني أنظر إلى قطار العمر الذي مر سريعاً 50 سنة و9 أشهر و 2 يوماً نرجو الله أن يختم لنا بالحسنى والسلام عليكم.

أخي الحبيب الغالي محمد الريفي هذه المشاركة مميزة جداً بالنسبة لي وهي مقدمة لشخص مميز وعزيز على قلبي ، لأنها المشاركة رقم 8888

السّلام عليكم و رحمة الله و بركاته حاول أخي الكريم إتّباع هذه الصّور لعلّها تفي بالغرض ..

جزاكم الله خيراً ...خيركم من طال عمره وحسن عمله...فإن في طاعة الله ويختم لنا برضى الله ....وهذا ما نرجوه من الله تعالى . أما الهداية "فبهداهم اقتده" .. فإن كانت على كلمة التوحيد وهدي نبينا محمد صلى الله عليه وسلم ...فما أغلاها وما أسعدها حياة تبشر بسعادة الدار الآخرة التي هي دار القرار. والسلام عليكم.

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

السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام: جزاكم الله خيراً على دروسكم القيمة رأيت أن أسد جانباً من الثغرة التي تركها فقدان الملف بهذه الصورة التي أرفقها والسلام عليكم. تم حذف المرفق بعد إرفاق الملف من أستاذنا محمد الريفي لأنه إذا حضر الماء بطل التيمم.

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

أخي الكريم محمد علي ضع الكود التالي في موديول عادي Sub ShowForm() UserForm1.Show End Sub Function LastRowPic(ColumnNumber As Long) As Long Dim Arr, Pic As Shape, I As Long ReDim Arr(1 To Columns.Count) For Each Pic In ActiveSheet.Shapes With Pic For I = .TopLeftCell.Column To .BottomRightCell.Column Arr(I) = Application.Max(.BottomRightCell.Row, IIf(Arr(I) = "", 0, Arr(I))) Next I End With Next Pic LastRowPic = Arr(ColumnNumber) End Function ثم قم بوضع الكود التالي في حدث الفورم #If VBA7 Then Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #Else Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long #End If Private Const SW_HIDE As Long = 0 Private Const SW_SHOW As Long = 5 Private LastSelectedFilePath As String Private Sub CommandButton1_Click() Dim strFileName As String strFileName = Application.GetOpenFilename(FileFilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select A File", MultiSelect:=False) If strFileName = "False" Then MsgBox "File Not Selected!" Else Me.Image1.Picture = LoadPicture(strFileName) LastSelectedFilePath = strFileName Me.Repaint End If End Sub Private Sub CommandButton2_Click() Dim R As Range, LR As Long ShowWindow FindWindow("ThunderDFrame", Me.Caption), SW_HIDE If LastRowPic(22) = 0 Then LR = Cells(Rows.Count, "V").End(xlUp).Row + 1 Else LR = LastRowPic(22) Set R = Range("V" & LR) ShowWindow FindWindow("ThunderDFrame", Me.Caption), SW_SHOW With ActiveSheet.Pictures.Insert(LastSelectedFilePath) .ShapeRange.LockAspectRatio = msoFalse .Top = R.Top .Left = R.Left .Width = R.Width .Height = R.Height End With End Sub وإليك الملف المرفق فيه تطبيق للأكواد أرجو ان يكون المطلوب إن شاء الله Load Picture On UserForm Using Dialog & Insert Image To Worksheet YasserKhalil.rar

أخي العزيز أنس دروبي جرب الكود التالي عله يفي بالغرض Private Sub save_pro_Click() Dim C As Range, LR As Long Dim Ctrl As Control For Each Ctrl In Me.Controls If TypeName(Ctrl) = "CheckBox" Then If Ctrl.Value = True Then With Worksheets("4") On Error Resume Next Set C = .Rows(1).Find(What:=Ctrl.Caption, LookAt:=xlWhole) On Error GoTo 0 If Not C Is Nothing Then LR = .Cells(Rows.Count, 1).End(xlUp).Row Intersect(.UsedRange, .Range(.Cells(C.Row, C.Column), .Cells(LR, C.Column))).Copy Worksheets("5").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) End If End With End If End If Next Ctrl Unload Me End Sub تقبل تحياتي

زيادة في اثراء الموضوع هذه المعادلة =SUM(INDIRECT(ADDRESS(8,MATCH($B$6,$A$8:$AO$8,0),1)&":"&SUBSTITUTE(ADDRESS(8,MATCH($B$6,$A$8:$AO$8,0),1),RIGHT(ADDRESS(8,MATCH($B$6,$A$8:$AO$8,0),1),1),"")&27))

أخى الفاضل سليم سلمت يداك أخى محمد هل تقصد هكذا =SUMIFS(OFFSET($D$9;;MATCH(B6;D8:AO8;0)-1;27;1);A9:A35;B3;B9:B35;B4;C9:C35;B5) New Microsoft Excel Worksheet.rar

السلام عليكم و رحمة الله وبركاته جزاكم الله كل خير

ولا يهمك أخي الغالي ياسر العربي إن شاء الله المشاركة اللي جاية 9999 تكون مخصصة ليك وهعمل لك موضوع مخصوص (إن كان في العمر بقية) تقبل وافر تقديري واحترامي

بسم الله ماشاء الله اسال الله العلى العظيم ان يتقبل منك وان يجعل كل حرف شاركت به فى 8888 ان يمحو عنك سيئة ويجعل لك حسنه اطال الله فى عمرك وبارك فيك

تكرم حبيبي ربنا يجازيك كل خير ولك بمثل ما دعوت به كنت عايز ابارك لك على المشاركة رقم 8888 ولكن يشاء القدر ان مشاركتك 8889 تكون لي وبوظت ليك الرقم ههه تقبل تحياتي

لا أعلم اذا كان هذا المطلوب بالفعل Salim Work.rar

تفضل اخي ابو البراء وجدت لك كود اخر اجمل ويعتمد علي استخدام ال IDs جرب وشوف قوائم بطريقة افضل add menu yasser.rar

أخي الكريم ابن الملك المتغير MyAr عبارة عن مصفوفة ثنائية الأبعاد ..تم تحديد أبعاد المصفوفة في السطر التالي ReDim Preserve MyAr(1 To ContColmn, 1 To ii) بعد اسم المتغير وما بين الأقواس هي أبعاد المصفوفة .. البعد الأول ثم فاصلة ثم البعد الثاني وتعتمد على المتغيرات ContColmn و iii ...

وعليكم السلام ورحمة الله وبركاته الأروع مما قدمته هو كلماتك الطيبة وشعورك الطيب تجاهي جزيت خيراً أخي الغالي عبد العزيز على كلماتك الرقيقة والتي تفوق ما أقدمه جمعني الله وإياك في مستقر رحمته يوم القيامة تقبل تحياتي

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي القدير ياسر خليل أبو البراء على الشّرح و التّوضيح تمام التّمام .. بصراحة أهوى الأعمال الراقية و أنت و بدون منازع ملك الأعمال أكثر من الرّائعة و الرّاقية باسم الله ما شاء الله فائق إحتراماتي

وعليكم السلام ورحمة الله وبركاته أخي الحبيب عبد العزيز افتقدناك لفترة ..عسى أن يكون غيابك عن إخوانك خير إن شاء الله الحمد لله أن نال الملف إعجابك .. بالنسبة لسؤالك فيما يخص تسلسل الصور .. يتم حفظ الصور في العمود V حسب الكود الخاص بحفظ الصورة في ورقة العمل ... وهناك دالة معرفة في الموديول من خلالها يمكن معرفة أول صف فارغ ليس به صور فيقوم الكود في المرة الثانية بإدراج الصورة تحت آخر صورة تم إدراجها من قبل في العمود V فقط .. تقبل وافر تقديري واحترامي

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

السلام عليكم أخي نبيل تفضل: . ولكن الكود لن يعمل اذا رقم اللغة لم يكن صحيحا في الكود وهذا هو الكود: Option Compare Database Private Declare Function ActivateKeyboardLayout Lib _ "user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long Private Const Ar = 5121 'Arabic United Arab Emirates keyboard language layout, Oman 8193 Private Const Fr = 1036 'Français(united states)keyboard language layout Private Const En = 1033 'US Private Sub cmd_Change_Language_Click() 'go back to the same field we were in, but to the end of it Dim ctl As Access.Control Set ctl = Screen.PreviousControl 'the last control we were on ctl.SetFocus 'set the focus back to it ctl.SelStart = Len(ctl.Text) 'go to the end of the field, so that we can continue writing If Me.cmd_Change_Language.Caption = "Arabic" Then Me.cmd_Change_Language.Caption = "French" Call ActivateKeyboardLayout(Ar, 0) ElseIf Me.cmd_Change_Language.Caption = "French" Then Me.cmd_Change_Language.Caption = "Arabic" Call ActivateKeyboardLayout(Fr, 0) End If End Sub Private Sub Form_Load() 'start with Arabic Call ActivateKeyboardLayout(Ar, 0) End Sub وهذا للقائمة المنسدلة Private Sub textlog_AfterUpdate() If Me.textlog.Value = "Arabic" Then Call ActivateKeyboardLayout(Ar, 0) ElseIf Me.textlog.Value = "French" Then Call ActivateKeyboardLayout(Fr, 0) End If End Sub . جعفر 283.Database changer.accdb.zip

السّلام عليكم و رحمة الله و بركاته أخي الكريم .. هذا حل بطريقة أخرى .. ليس الحل الأمثل .. لكن أفضل من البطالة .. شغّل نفسك به قليلاً ريثما يتدخّل أحد الإخوة الأفاضل .. تقوم بجلب رابط الصورة ثم يتم ترحيل هذا الرابط .. و من خلال الرابط على الشيت يمكنك معاينه الصّورة إدراج الصورة.rar

تفضل جرب هذا الشيء اوفيسنا salim.rar

حاضر يا غالي ..مع أنّي أعطيتك الحل السليم و البسيط و قد تحتاجه في كثير من الأوقات تفضل المرفق .. لا تقلق أبدًا .. إضغط فقط على الخلية ..سيكتب التاريخ تلقائيا كتابة تاريخ اليوم عند الضغط على الخلية.rar

انسخ هذه المعادلة الى الخلية C3 ,و اسحب نزولاً =IF(A3<>"",(TEXT(TRIM(A3),"dd/mm/yyyy hh:mm:ss"))*1,"")

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

أخي الغالي أحمد كن كالنخيل عن الأحقاد مرتفعاً ... يرمى بحجر فيعطي أطيب الثمر مجرد نصيحة وليس هذا ضعف منك وإنما اجعل الأمر من خلقك .. تقبل تحياتي

أخي الحبيب أحمد الفلاحجي الموضوع طول ولم تصل لنتيجة على ما أعتقد .. قم بإرفاق ملف مبسط توضح فيه المطلوب مرة أخرى لربما وجدنا لك حل إن شاء الله .. تقبل تحياتي

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

بعد اذن أخى الحبيب المبدع ياسر خليل ولاثراء الموضوع هذا كود آخر Private Sub save_pro_Click() Dim LC As Integer, LR As Long, I As Integer LR = Worksheets("4").Cells(Rows.Count, 1).End(xlUp).Row For I = 1 To 18 If Me.Controls("CheckBox" & I).Value = True Then LC = Worksheets("5").Range("IV1").End(xlToLeft).Column + 1 Range(Cells(1, I + 1), Cells(LR, I + 1)).Copy Worksheets("5").Cells(1, LC) End If Next Unload Me End Sub

السّلام عليكم و رحمة الله و بركاته و هذه أخي الكريم إحدى روائع أخانا العزيز الغالي ياسر خليل أبو البراء جزاه الله خيرًا و زادها بميزان حسناته التاريخ الميلادي و الهجري.rar

السلام عليكم جمع خلايا حسب اخر ثلاث ارقام.rar

بارك الله فيك أخي وحبيبي أبو البراء الكود اصبح صحيح بالفعل وينقل الأعمدة المنسوخة الى الورقة رقم (5) بالترتيب بارك الله فيك مرة أخرى وجزاك الله كل خير

أخي الفاضل أنس جرب التعديل التالي عله يفي بالغرض Private Sub save_pro_Click() Dim C As Range, LR As Long, I As Integer, Str As String For I = 1 To 18 If Me.Controls("CheckBox" & I).Value = True Then Str = Me.Controls("CheckBox" & I).Caption With Worksheets("4") On Error Resume Next Set C = .Rows(1).Find(What:=Str, LookAt:=xlWhole) On Error GoTo 0 If Not C Is Nothing Then LR = .Cells(Rows.Count, 1).End(xlUp).Row Intersect(.UsedRange, .Range(.Cells(C.Row, C.Column), .Cells(LR, C.Column))).Copy Worksheets("5").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1) End If End With End If Next I Unload Me End Sub تقبل تحياتي

أخي الكريم عبد العزيز محمد إليك الملف المرفق لأخونا أبا الحسن والحسين فيه الطلب الأول بالنسبة للطلب الثاني توجد الأداة Frame تقوم بعمل إطار يمكنك وضع الأدوات بداخلها أرجو أن يفي الملف المرفق بالغرض Gregorian Hijri Dates UserForm.rar

أنظر الى الصفحة Sheet1 لغله المطلوب بالنسبة للمعادلة الثّانية تم ادراحها في الورقة الاولى الخلية J4 fail Salim.rar

السلام عليكم لاتحزن يا أخى لعله خير أتم أعمالك واجعلها خالصة لله

مبدع يا استاذنا العزيز جعفر ،،، والى الأمام ،،، وجعله الله في ميزان حسناتك حبذا لو يحتوي الاصدار القادم على : * -زر اظهار/ اخفاء ترويسة تشمل شعار. * -زر اظهار/ اخفاء مربع الاعمدة في التقرير. *- التحكم براس الصفحة والتقرير وتذييل الصفحة بازرار الضبط يمين، يسار، وسط. :: تحياتي

أخي الكريم محمد علي إذا أردت المساعدة عليك تسهيل الأمر على إخوانك المرفق غير معبر عن الطلب .. قم بإرفاق ملف يخص طلبك فقط واحذف أية أكواد أخرى كما قم بحذف الفورم الغير مستخدم وركز على الفورم المطلوب فقط ، لتيسير الإطلاع على الملف من قبل إخوانك .. كما أنني لم ألاحظ وجود Image على الفورم .. ما هو الفورم المطلوب العمل عليه ؟؟ أفضل إرفاق الملف مرة أخرى بعد إجراء عملية تنقيح بحيث يكون الملف يخص الطلب في الموضوع المخصص له فقط تقبل تحياتي

لا يوجد لدي خطأ في الناتج اطلع على الصورة التالية

أخي الكريم عبد الله يفضل دائماً وضع أي طلبات جديدة في موضوعات منفصلة (راعي هذه النقطة أخي الفاضل) إليك الملف المرفق فيه ما تريد إن شاء المولى تقبل تحياتي Calculate Difference Between Two Dates In Days & Hours & Minutes.rar

حياك الله اخي حامد لم افهم في اصورة تقصد ... وحبذا ترفق ما توصلت اليه بالتوفيق

أولا أهلا وسهلا بك حليموووووووووووو ثانيا راجع توجيهات الأستاذ ياسر صفحة 1 فى المنتدى ثالثا تفضل الملف الحفظ كالتالى اتوماتيكى كل دقيقة يمكنك تغييره بسهولة الى 4 ساعات كما تريد الحفظ يكون الى بارتش H المجلد HALEMOO غيره فى الكود الى المسار الذى تفضله يعنى تعمل مجلد اسمه HALEMOO فى الـــــــ H ,شغل الكود هتلاقى هناك ملف جديد كل فتره زمنية رابعا ان أعجبك المرفق حدد الاجابة كأفضل اجابة عشان متزعلش الأستاذ ياسر تحياتى Auto Save Workbook after x time by mokhtar for halemoooooooo.rar

بارك الله فيك طيب الطمع فى الكرام واجب لحضرتك موضوع عن تصدير الجداول والتقارير الموضوع ده استفدت منه بصوره كبيره جداا هل بالامكان دمج الملفات فى ملف واحد وتنفيذ فكره ان يتم نقلهما الى اى ملف بطريقه اوتوماتيكيه

استاذى الفاضل اقتراح بسيط قد يخدم من ليس له خبره مثلى ارجوا التكرم به عمل ملف تنفيزى يقوم بنقل الكائنات المكلوبه الى اى قاعده ارغب فى نقل هذا المثال اليها ثانيا عمل امانيه الى تثدير هذه التقارير الى الوورد والاكسيل والاكسس هل هذا ممكن بارك الله فيك

استاذى الفاضل هل بالامكان تصدير هذه التقارير الى الوور والاكسيل ؟ هل بالامكان عمل حفظ لهذا التقرير الناتج ؟ _________________________- عمل اكثر من رائع وسوف نستفيد منه كثيراا ___________________________ اتمنى رفع صور الشرح فى ملف مضغوظ رجاء لو تكرمت مع الشرح الكتابي فى ملف نصى او جمع الصور والشرح الكتابي فى ملف بي دى اف جعله الله فى ميزان حسناتك