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

شكرا لك اخي  محمد عبد الناصر          طبعا انا فكرت في الحل ده  بس النتيجة عندي

اخي الكريم سليم حاصبيا

شكرا جزيلا لك 

اولا  بإضافة السطر التاسع كما تفضلت ( قبل end if الاولى ) كل ما تغير هو ان التاريخ في العمود 9 او 10 يتغير الفورمات له فلا يظهر  والمطلوب ان يظهر ويزداد سنة والا يتغير العمود1 او 2 يبقى خالي

اذا تعذر ذلك فلا باس ان يكون التغير بالضغط على العمود 9 او 10

غيرت السطر التاسع  بالآتي

Target.Offset(0, 8) = Target.Columns

فاصبحت النتيجة مرضية ــ يتغير العمود 1 او 2 ويتغير ايضا العمود 9 او 10

ثانيا  المعادلة اشتغلت بارك الله فيك ولكن النتيجة اريد استغلاها بتحديد عدد الايام الباقية بالطرح من now()  إذا كان عندك حل لذلك  لانعا تعطي 

 يا اخي احرجتني من كرمك واخجلتني من جهلي

الآن اذا مر المؤشر على العمود الاول او الثاني يكتب التاريخ بعد الزيادة فيهما و المطلوب بارك الله فيك ان يتغير التاريخ في العمود المكتوب فيه التاريخ  ويبقى العمود الاول او الثاني خالي

وبالنسبة للمعادلة لم تعمل

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)

انا حاولت ولم اوفق

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

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

14 ساعات مضت, حسين العصلوجى said:

الاخ / عاطف

ماهي مشكلتك مع هذا الكود حتي نتمكن من مساعدتك

شاكرا لك تفضلك بعرض المساعدة 

الكود لا يعمل اذا كان التاريخ هجري

أخي / سليم حاصبيا

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

وفقك الله

هذه حيلة لزيادة التاريخ الهجري  بافتراض ان التاريخ الموجود إما العام فيه 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 يوسف ) 

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

4 ساعات مضت, ياسر خليل أبو البراء said:

جرب الكود بهذا الشكل ..تم تعديل الجزء الأول

إذا لم يعمل معك يرجى وضع صورة للسطر الأصفر الذي تظهر فيه المشكلة

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

أنا بطلب كدا من باب النصيحة لأن من خلال خبرتي في التعامل مع الموضوعات لاحظت ضعف في الاستجابة للطلبات الفرعية غير لما يكون الموضوع جديد وفريش .. أنا واحد من الناس لا أنتبه كثيراً للطلبات الفرعية ... أرجو أن تكون الصورة واضحة .. فكوني بطلب موضوع جديد لكل طلب مش فزلكة مني ، لكن لمصلحة السائل قبل أي شيء آخر

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

 

 

سعادة المراقب العام      ابو البراء

يافندم  للأسف لم يعمل الكود  ولا يوجد سطر أصفر 

النموذج يظهر ولكن غير فعال 

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

( وطبعا ما على المحسنين من سبيل  )  بس عشان كده بنتمنى اللي بدأوا  يردوا  ياخدوا  الشيلة للآخر  وبرضه احنا فاهمين ( ما على المحسنين من سبيل ) 

وبما ان حضرتك مراقب عام  فانت تنظر للمصلحة  بصفة عامة  وتوجيهات سعادتك اوامر  ومافيش مضايقة ولا حاجة 

بس حل المشكلة يافندم وتذكر نصيحتك 

19 ساعات مضت, ياسر خليل أبو البراء said:

أحب أن أوجه إليك نصيحة .. نحن هنا : كما قالها عمر المختار .. نحن لا نستسلم ، ننتصر أو نموت

وهكذا نحن في طلب العلم ننتصر أو نموت ! وهذا هو شعارنا

وللأخ / احمد   عن الأخ ابو البراء 

نعم الاخ والصديق والمعلم والناصح النصوح        ..... صدقت

و تقبلوا تحياتي 

يا أبا البراء  السلام عليكم ورحمة الله وبركاته

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

طبعا المشكلة الرئيسية  هي عدم عمل نموذج البحث عند الضغط مرتين على عمود3

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

طبعا المطلوب حل المشكلة من اي من الافاضل لمن يتيسر له الوقت  

وفق الله الجميع

نموذج ادخال معصلج.rar

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

اخي ابو القبطان

جميل جدا   بارك الله فيك  

وجدت 2 ماكرو  واظن ان الماكرو الثاني لايخص الموضوع  بس باين انه شغل تمام 

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

يا أبا البراء  

        فكرة جميلة نفذتها ولكن الوضع كما هو     ــ  جزاك الله خيرا   

واخي احمد  

          يكفيني ماوصلنا اليه 

وفق الله الجميع لما يحب ويرضى

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

أخي الكريم الزباري

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

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

واسعد الله صباحكم جميعا

الأخ / 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 )  لا يعمل الفورم إذا كانت خاصية العمل داخل ورقة العمل اثناء ظهور اليوزر فورم شغالة 

أما عند إظهار  اليوزر فورم بالطريقة العادية  يعمل الفورم تمام        لا أدري لماذا ؟؟؟؟ مع اني نسخت الكود كله ووضعته في حدث الورقة كما اوضحت 

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

  تقبلوا وافر تقديري واحترامي  لكم جميعا

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

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

أنت وفيت  وفقك الله 

السّلام عليكم و رحمة الله و بركاته

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

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

 تم بنجاح تعطيل  عمل الكود الخاص بجعل اليوزرفورم ملء الشّاشة 

 وتم بنجاح تفعيل  الخاصيّة التي تتيح إستعمال ورقة العمل و اليوزرفورم  على الشاشة 

ولكن عند تفعيلها في الملف الذي أعمل به وهو ملف آخر كبير به أكثر من يوزر فورم  كل مفاتيح اليوزر فورم لا تعمل 

آسف جدا لإشغالك معي أخي الكريم 

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

والله انا أصدقك ولعل المشكلة في جهازي 

هل ممكن تصبر معي أحاول انسخ الكود ـ فقل لي اين انسخه ليعمل مع اليوزر فورم المحدد

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

وهي ثالث علامة من اليمين  في اعلى صندوق ادخال المشاركة فيظهر الكود واضح 

وشكرا لك 

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

مرة اخرى شكرا لك اخي راسبوتين واخي عبد العزيز

شكرا لك أخي ياسر خليل أبو البراء

وشكرا لك أخي ناصر سعيد

أنا حاولت ادخال الكود بين العلامة <>  ولم يتغير شيء  ثم ومن مشاركة الأخ ناصر فهمت 

فكما قال أخي ناصر نظرت في صندوفق الكتابة فوجدت العلامة ( الثالثة من اليمين  ) 

هي زر ادراج الأكواد

عموما كانت اول مشاركة ايجابية لي لأن الطلب كان سهل جدا  

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

                     أخي الكريم / عبد العزيز البسكري

شاكر لك تكرمك بالرد 

ولكن للأسف بعد تحميل الملف ومحاولة فتحه يخرج الأكسيل عن العمل عند كل محاولة 

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