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

استاذي / أبو عيد تفضل الملف و جزاك الله خيرا طباعة.rar

السلام عليكم ورحمة الله وبركاته كل لحظة وانتم طيبين إن أمكن جزاكم الله خيرا ، عندي صفحة ولتكن (طباعة القيود ) وخانة لشرح القيد ـ أريد إذا طلبت طباعة القيد وكانت خانة شرح القيد ولتكن مثلا ax100 = لا شيء ـ خالية ـ تظهر رسالة بذلك وفقكم الله

السلام عليكم ورحمة الله وبركاته أخي ياسر خليل ـ أبو البراء طلب في نفس الموضوع لو تكرمت إذا حدث تكرار لنفس البيانات ( مثلا يعني إذا كان الاسم أحمد 1 موجود في لجنة القرآن الكريم وتكرر نفس الاسم في نفس اللجنة فهل يمكن عدم لصق المكرر ( لا يحذف البيانات المتكررة ولكن القائمة الجديدة لايكون فيها متكرر) أنا بياناتي موجودة في أكثر من 3 أعمدة مثلا على المثال موجود عمود م وعمود الاسماء وعمود اللجان ونضيف عمود لموقع اللجنة وأريد العمل على عمودين فقط عمود الاسماء وعمود اللجان وشكرا جزيلا

جميل جدا أخي محي الدين أبو البشر ولكن ماذا في حالة حذف الأعمدة ، وحتى مع استخدام الأكواد في اللصق أو حذف الاعمدة المشكلة موجودة وقد بحث بالانجليزي ووجدت هذا الفيديو وفيه شرح لتنظيف الذاكرة ، ولكم لأن قدراتي ضعيفة فلم استفد منه لعلكم او احد الاخوة يراه ويخبرنا جزاكم الله خيرا https://www.google.com.sa/search?q=vba+clear+memory&oq=vba+&aqs=chrome.1.69i59l3j69i57j69i59j69i65.7081j0j4&sourceid=chrome&ie=UTF-8

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

شكرا لك اخي محمد عبد الناصر أخي سليم هل يمكن ان تشرح الكود لنتعلم منه والكود يعمل في اي عمود ليس فقط في عمود 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 ) لا يعمل الفورم إذا كانت خاصية العمل داخل ورقة العمل اثناء ظهور اليوزر فورم شغالة أما عند إظهار اليوزر فورم بالطريقة العادية يعمل الفورم تمام لا أدري لماذا ؟؟؟؟ مع اني نسخت الكود كله ووضعته في حدث الورقة كما اوضحت الحمد لله وصلنا لهذه النتيجة وان كان أحد عنده تعديل ليعمل الفورم عند الضغط على العمود المحدد فجزاه الله خيرا ولعل غيري يستفاد منه . تقبلوا وافر تقديري واحترامي لكم جميعا