عاطف عبد العليم محمد

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

شكرا لك اخي محمد عبد الناصر أخي سليم هل يمكن ان تشرح الكود لنتعلم منه والكود يعمل في اي عمود ليس فقط في عمود 1 و 2 إذا كان العمود غير خالي والاعمدة التي بعده ب8 عمود غير خالية فأرجو إصلاح ذلك وجعله يعمل في عمود 1 و 2 فقط

شكرا لك اخي محمد عبد الناصر طبعا انا فكرت في الحل ده بس النتيجة عندي #VALUE! اذا عندك بتعطي نتيجة صحيحة واليوم يتغير بالظبط فارجو ان ترسل الملف مرفقا او تخبرني كيف

اخي الكريم سليم حاصبيا شكرا جزيلا لك اولا بإضافة السطر التاسع كما تفضلت ( قبل end if الاولى ) كل ما تغير هو ان التاريخ في العمود 9 او 10 يتغير الفورمات له فلا يظهر والمطلوب ان يظهر ويزداد سنة والا يتغير العمود1 او 2 يبقى خالي اذا تعذر ذلك فلا باس ان يكون التغير بالضغط على العمود 9 او 10 غيرت السطر التاسع بالآتي Target.Offset(0, 8) = Target.Columns فاصبحت النتيجة مرضية ــ يتغير العمود 1 او 2 ويتغير ايضا العمود 9 او 10 ثانيا المعادلة اشتغلت بارك الله فيك ولكن النتيجة اريد استغلاها بتحديد عدد الايام الباقية بالطرح من now() إذا كان عندك حل لذلك لانعا تعطي #VALUE!

يا اخي احرجتني من كرمك واخجلتني من جهلي الآن اذا مر المؤشر على العمود الاول او الثاني يكتب التاريخ بعد الزيادة فيهما و المطلوب بارك الله فيك ان يتغير التاريخ في العمود المكتوب فيه التاريخ ويبقى العمود الاول او الثاني خالي وبالنسبة للمعادلة لم تعمل auto_fit Higri.rar

هو المطلوب تماما حسب ما أنا طلبت جزاك الله خيرا ولكن أكمل جميلك لأنني حاولت التعديل قليلا ما استطعت فإن أكملت جميلك أخي سليم استفدت من الكود واستفاد غيري إن شاء الله والتعديل فقط سيكون في الاعمدة العمود المطلوب أن يتغير سيكون العمود رقم 9 أو 10 والعمود الذي سيتم الضغط عليه هو العمود 1 او 2 فإذا تم الضغط على العمود ا يتغير العمود 9 وإذا تم الضغط على عمود 2 يتغير العمود 10 وطلب آخر لو زدتم في احسانكم أريد ان أزيد عدد أيام على التاريخ الهجري بمعادلة في عمود آخر حسب المرفق واعتذر لك عن اشغالك auto_fit Higri.rar

شكرا جزيلا لك أخي سليم حاصبا فضلا أريد ألا يكون في العمود 3 المعادلة ـ اريد اذا تم الضغط على اي خلية في العمود 3 يكتب فيها التاريخ الموجود في العمود1 زائد سنة Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) انا حاولت ولم اوفق جزاك الله خيرا

شكرا جزيلا لك أخي حسين العصلوجى

شاكرا لك تفضلك بعرض المساعدة الكود لا يعمل اذا كان التاريخ هجري

أخي / سليم حاصبيا شكرا لك تكرمك بهذا الحل ، واطمع ان يكون الحل بماكرو يستبدل التاريخ في الخلية دون حاجة لخلية أخرى وفقك الله

هذه حيلة لزيادة التاريخ الهجري بافتراض ان التاريخ الموجود إما العام فيه 1436 او 1437 او 1438 وان الخلايا المطلوب تغييرها من a1 الى a10 ولعل احد الاخوة يتحفنا بحل افضل Sub a1date() Range("a1:a10").Select Selection.Replace What:="1438", Replacement:="1439", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="1437", Replacement:="1438", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="1436", Replacement:="1437", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub

هذا الكود لزيادة التاريخ الميلادي سنة Sub aaab() myDateIn = [a1].Value myDateOut = DateAdd("yyyy", 1, myDateIn) [a1].Value = myDateOut وهذا كود آخر ايضا للتاريخ الميلادي Sub dateFixer() Dim d As Date d = ActiveCell.Value ActiveCell.Value = DateSerial(Year(d) + 1, Month(d), Day(d)) End Sub تغيير التاريخ للخلية النشطة

السلام عليكم ورحمة الله وبركاته هل من كود لزيادة التاريخ الهجري سنة بالتمام والكمال ، فإذا كان بالخلية a1 تاريخ 1437/10/05 بالكود تتغير الى 1438/10/05 وشكرا لمن يتطوع بالإجابة

وفوق كل ذي علم عليم (من آية 76 يوسف )

جزاك الله خيرا يا ابا البراء

سعادة المراقب العام ابو البراء يافندم للأسف لم يعمل الكود ولا يوجد سطر أصفر النموذج يظهر ولكن غير فعال وبعدين يافندم الواحد ما بيصدق حد يرد عليه في موضوعه ويستوعب طلبه لان احيانا مافي احد بيرد ( وطبعا ما على المحسنين من سبيل ) بس عشان كده بنتمنى اللي بدأوا يردوا ياخدوا الشيلة للآخر وبرضه احنا فاهمين ( ما على المحسنين من سبيل ) وبما ان حضرتك مراقب عام فانت تنظر للمصلحة بصفة عامة وتوجيهات سعادتك اوامر ومافيش مضايقة ولا حاجة بس حل المشكلة يافندم وتذكر نصيحتك وللأخ / احمد عن الأخ ابو البراء نعم الاخ والصديق والمعلم والناصح النصوح ..... صدقت و تقبلوا تحياتي

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

السلام عليكم ورحمة الله وبركاته اخي ابو القبطان جميل جدا بارك الله فيك وجدت 2 ماكرو واظن ان الماكرو الثاني لايخص الموضوع بس باين انه شغل تمام Picture1_Click Picture2_Click وفقك الله

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

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

السلام عليكم ورحمة الله وبركاته واسعد الله صباحكم جميعا الأخ / rasboten اكرر شكري لك ان كنت اول من رد جزاك الله خيرا الأخ / عبد العزيز أكرر شكري لك أن صبرت علي وردت أكثر من مرة واستفدت منك جزاك الله خيرا الأخ / ابو بسملة شكرا لك ان مررت وسألت السؤال الذي كنت احرج ان اسئلة عن علامة الملاحظة فقد حدث معي مثل ماحدث لك ولم أشأ ان اسئل وكنت كلما اريد أن أضع العلامة ابحث عنها في اي كود وانسخها وتعلمت منك ايضا وضعها من ذر حرف الطاء وشكرا ايضا على نصيحتك بمراجعة اليوزر فورمات المتعددة عندي ومراجعة اكوادها لمعرفة الخطأ وشكرا لحسن ظنك ولكن الواقع غير ذلك فمحتاج مني تفرغ شوية لتعلم اليوزرفورم واكوادها الأخ / أبو البراء جزاك الله خيرا على مرورك واستفادتنا جميعا منك والحمد لله وجدت حل المشكلة وهي انني وضعت في حدث الورقة كود عند الضغط على عمود معين يظهر اليوزر فورم ونسخت كامل الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then On Error GoTo 1 With UFormChang .kh_SetAddrss "دليل الحسابات", "a3:c3" .Show End With 1: If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء" On Error GoTo 0 End If فعند الضغط على العمود 3 ( c ) لا يعمل الفورم إذا كانت خاصية العمل داخل ورقة العمل اثناء ظهور اليوزر فورم شغالة أما عند إظهار اليوزر فورم بالطريقة العادية يعمل الفورم تمام لا أدري لماذا ؟؟؟؟ مع اني نسخت الكود كله ووضعته في حدث الورقة كما اوضحت الحمد لله وصلنا لهذه النتيجة وان كان أحد عنده تعديل ليعمل الفورم عند الضغط على العمود المحدد فجزاه الله خيرا ولعل غيري يستفاد منه . تقبلوا وافر تقديري واحترامي لكم جميعا

جزاك الله خيرا لما تفصل في ملف منفصل كله تمام ولما انسخها في ملف الشغل تأتي المشكة أنت وفيت وفقك الله

السّلام عليكم و رحمة الله و بركاته بالنسبة لي توقف الاكسيل عن العمل وانا لست خبير في المشكلة و لعل الاخوة يفيدونا

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

وعليكم السلام ورحمة الله وبركاته والله انا أصدقك ولعل المشكلة في جهازي هل ممكن تصبر معي أحاول انسخ الكود ـ فقل لي اين انسخه ليعمل مع اليوزر فورم المحدد ولماذا يظهر اغلب الكود بالأخضر كأنه ملاحظة ما اظنك تقصد ذلك / إن لم يكن هذا قصدك ففضلا فأضغط على علامة <> وهي ثالث علامة من اليمين في اعلى صندوق ادخال المشاركة فيظهر الكود واضح وشكرا لك و الخاصيّة التي تتيح إستعمال ورقة العمل و اليوزرفورم شغّال / جربتها في الملف وتمام ولكن في الملف الأصلي الذي اعمل به إذا فعلتها يتوقف اليوزر فورم نفسه عن العمل فعند الضغط عليه يظهر صوت تنبيه فقط وأضطر الى الخروج منه بعد محاولات التنقل بينه وبين ورقة العمل مرة اخرى شكرا لك اخي راسبوتين واخي عبد العزيز