Cobone قام بنشر مايو 25, 2019 الكاتب قام بنشر مايو 25, 2019 لم أطلع عليه حتى الآن إنما جزاك المولى ضعف ماتتمنى سبحان من خلقك و للخير يسرك
صالح حمادي قام بنشر مايو 25, 2019 قام بنشر مايو 25, 2019 السلام عليكم اقتباس قواعد المشاركة فى الموقع و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف أخي الكرام حاول كتابة عنوان مناسب و تجنب مخالفة قوانين المنتدى كي لا يعزف بعض الأعضاء عن إضافة الحلول لمشاركتك
ابو جودي قام بنشر مايو 25, 2019 قام بنشر مايو 25, 2019 انتبه انت الان فى قسم الاكسس التابع لمنتديات اوفيسنا
Ali Mohamed Ali قام بنشر مايو 25, 2019 قام بنشر مايو 25, 2019 أظن أستاذ Cobone انك لم ترى الملف الأخير المرسل لك !!!!!!!
Cobone قام بنشر مايو 25, 2019 الكاتب قام بنشر مايو 25, 2019 آسف والله جداً جداً لم أنتبه يا أخ صالح والعذر جداً وأنرت الصفحة أبا جودى لا عدمتك بالنسبة للعزيز علي بل إنتبهت لآخر ماتم إرساله ولا يمكنني فعلاً أن أطلب أفضل مما عملت أنت فسبحان من علمك و بالخلق زانك فشكراً لك جزيل الشكر بك تشرفت وإسمحلي أن أسألك رغبة مني في العلم عن الدالة أو الكود أو نوع التنسيق الذي استخدمته في الجدول الخاص بظهور التاريخ والوقت غير محدثان واختفائهما في حال فراغ الخلية المحدد لظهورهما و شكراً جزيلا
Ali Mohamed Ali قام بنشر مايو 25, 2019 قام بنشر مايو 25, 2019 هذا هو الكود المستخدم فى حدث الصفحة وموجود بالفعل داخل الملف Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("A2:A1000")) Is Nothing Then VBA.Calendar = vbCalGreg If Len(Target.Cells(1).Value2) <> 0 Then Cells(Target.Row, 2).Resize(Target.Rows.Count).Value = Date Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = Now Else Cells(Target.Row, 2).Resize(Target.Rows.Count).Value = vbNullString Cells(Target.Row, 3).Resize(Target.Rows.Count).Value = vbNullString End If End If If Not Application.Intersect(Target, Range("H2:H1000")) Is Nothing Then VBA.Calendar = vbCalGreg If Len(Target.Cells(1).Value2) <> 0 Then Cells(Target.Row, 6).Resize(Target.Rows.Count).Value = Date Cells(Target.Row, 7).Resize(Target.Rows.Count).Value = Now Else Cells(Target.Row, 6).Resize(Target.Rows.Count).Value = vbNullString Cells(Target.Row, 7).Resize(Target.Rows.Count).Value = vbNullString End If End If End Sub
Cobone قام بنشر مايو 26, 2019 الكاتب قام بنشر مايو 26, 2019 جزاك الله كل خير في الدنيا والآخرة شكرا لك ولم أعمل حتى الآن بفضل الله ثم بتوجيهك ومن لايشكر الناس لا يشكر الله فشكراً لك جزيل الشكر ولنفترض اني اردت وهاذي اريد عملها بنفسي حتى لا تزعل علي انما اريد توجيهك فكل ما ارغبه هو المحافضة على الود بيننا سأنشيء بنفس الاكسل صفحتين الصفحة الأولى تضاف بها كل المعاملات المنتهية اتوماتيك والصفحة الثانية تضاف بها المعاملات الغير المنتهية حتى الآن والمتأخرة فهلا بطرف خيط شرحتلي الأمر أو أن هناك من يتفضل بذلك وماهي الأكواد المستخدمة
أحمد يوسف قام بنشر مايو 26, 2019 قام بنشر مايو 26, 2019 السلام عليكم -من الأفضل طبعا رفع ملف وشرح كل المطلوب الجديد عليه فأنا أرى ان هذا الموضوع اخذ وقت زيادة عن اللازم وكما أرى في الردود ان استاذنا علي نفذ كل المطلوب من قبلك بكل دقة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.