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

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

اخي Emad Sabry جزاك  الله خيرا ان تطوعت بالرد  وارجو ان تصبر علي لجهلي

انا بدأت من آخر ما كتبت 

وقبل دا افتح شيت اكسل ومن developer هتلاقى adds in شيل علامة الصح من جنب solver وجرب 

لم توجد علامة صح من البداية  ثم 

اخي Emad Sabry جزاك  الله خيرا ان تطوعت بالرد  وارجو ان تصبر علي لجهلي

من كنترول بانل  اي شاشة التحكم تمام /دوس على programs and features / اي البرامج ومنها البرامج والمميزات تمام /  وبعدين دوس على الاوفيس كليك يمين واختار change / بالضغط يظهر لي ازالة تثبيت او تغيير بالضغط على تغيير يظهر لي خياران اصلاح سريع بدون انترنت او اصلاح عبر الانترنت فتم الاصلاح ////   لم اجد  جنب كلمة Microsoft Office فى سهم دوس عليه (او دوس كليك يمين) واختار Run all from my computer وبعدين اوك او continue        ولذلك لم اتم ما تفضلت بشرحه            

نسخة الاوفيس 2016 

السلام عليكم 

هذا ملف للأخ / عبدالله باقشير  غفر الله لنا وله وجزاه الله خيرا 

والملف به فورم رائع جدا واظنه يصلح للجميع 

المشكلة عندي ظهور هذه الرسالة could not load some objects because they are not available on this machine

واظن سبب المشكلة ان الجهاز عندي 64bit

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

ارجو لمن يعرف الحل المساعدة 

وفقكم الله

 رابط الموضوع الاصلي

المشكلة عن

فورم ادخال و تعديل مرن بمعية فورم ادخال التاريخ (1).rar

أخي  ali mohamed ali  

وفقك الله  و جزاك الله خيرا 

أخي  ali mohamed ali  

وفقك الله 

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

وقد اجبت على سؤال وبقي سؤال اريد ان اضع تعريف المدى داخل الكود ويكون اكثر من مدى 

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

Dim tt As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Not Intersect(Target, Range("PRot_range")) Is Nothing And Target.Address <> "$A$1" Then
m = Target.Count
c = [AA1]
k = tt
If IsEmpty(k) Then GoTo 1
If m * c >= 1 Then
        Application.EnableEvents = False
     my_pass = Application.InputBox(" لا يمكن التعديل في هذه الخلية.... " _
     & Chr(10) & "الا بحالات خاصة تتطلب كلمة مرور", "password")
      If my_pass = "pass" Then GoTo 1
        Application.Undo
        Application.EnableEvents = True
       
End If
    End If
1:
Application.EnableEvents = True
End Sub
_____________________________________________________________________
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
tt = Selection.Value
End Sub

السلام عليكم 

يقول الاستاذ سليم بارك الله فيه 

كي توقف عمل الكود و يعود كل شيء الى طبيعته امسح محتويات الخلية AA1 (غير مرئية)

لإعادة عمل الكود اكتب في الخلية AA1 الرقم 1

اذا أردت تغيير قيمة خلية غير فارغة سوف يطلب منك كلمة المرور     أكتب  pass

كل ذلك في المدي من A1الى Z225

والسؤال كيف يمكن تغيير مدى الحماية فلم  اجد  في الكود a1 الى z225 

وهل ممكن ان يوجد اكثر من مدى للحماية  مثلا من a1 الى d10  ومن a15 الى d25

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

وفقك الله 

في الكود اين يمكن تغيير النطاق المحمي ؟ و كيف اجعل نطاقين محميين في نفس الورقة 

اخي ali mohamed ali 

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

تمام جدا ـ الله ينور عليك ويبارك لك ويوفقك

السلام عليكم 

ممكن استاذ سليم نجعل التغيير مفتوح لخلايا محددة والباقي كما موجود لا يسمح بالتغيير ؟

اخي ali mohamed ali 

إذا  كان الرقم  مثلا 561 وهو غير موجود في الجدول الناتج يكون 956  وهكذا  كل رقم غير موجود يعطي رقم للمجموعة التالية  ـ ان امكن وفقك الله تظبط الدالة اكثر بحيث تعطي رسالة خطأ

بارك الله فيك  اخي طارق محمود   و جزاك الله خيرا

بارك الله فيك  اخي ali mohamed ali وجزاك الله خيرا  وساعتمد على الدالة ان شاء الله

اخي ali mohamed ali 

ان امكن شرح 

=My_Customesion($C$3;G7;G8;G9)

لماذا  فقط g7 ,g8 ,g9

=IF(AND(C3>0;C3<51);951;IF(AND(C3>99;C3<131);952;IF(AND(C3>199;C3<214);953;IF(AND(C3>299;C3<311);954;IF(AND(C3>399;C3<409);955;IF(AND(C3>499;C3<561);958;IF(AND(C3>599;C3<660);956;IF(AND(C3>699;C3<739);957;IF(C3=740;959;IF(C3=739;961;IF(C3=738;960;IF(C3=737;962;"ادخل رقم حساب الصنف بالخليةc3"))))))))))))

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

المعادلة عاليه شغالة ولكن طويلة  هل من طريقة لتقصيرها 

وكيف يمكن جعلها في الكود ليضعها مثلا في الخلية c4  حتى اذا اتمسحت يمكن جلبها بسهولة

انا وضعتها بالكود ولكن عند تشغيله لم يلصق المعادلة كامل
 

if طويلة.xlsm

اخي مهند  بارك الله فيك انا طلبت فورم فقط  ولو كنت استطيع تصميمه لفعلت فعذرا

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

اسأل الله ان يكون هذا الطلب واضح ويمكن تنفيذه وييسر له من ينفذه

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

 وصوما مقبولا للجميع ( يوم عاشوراء) 

شرح الطلب.xlsx

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

واضح جدا جزاك الله خيرا 

هل من مزيد بالنسبة للدالة 

الأخ الكريم /ali mohamed ali

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

عند الاختيار  بالسهم تعمل الدالة  ولا يعمل ادراج اسم الصنف في الخلية C4 

وعند الاختيار بالضغط انتر لا تعمل الدالة ويدرج اسم الصنف 

الاخ الكريم / ali mohamed ali

السلام عليكم 

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

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

باقي ان النص الذي يظهر بها محاذي للشمال والمطلوب ان يكون محاذي لليمين

وباقي دالة البحث 

VLOOKUP($B$3;ورقة1!$A$2:$H$70;COLUMNS($A$1:A1)+1;0)

لم استطع حتى الان تطويعها 

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

أرفقت الملف ارجو التصحيح  وشكرا

محل1.rar

الاخ الكريم / ali mohamed ali

السلام عليكم 

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

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

باقي ان النص الذي يظهر بها محاذي للشمال والمطلوب ان يكون محاذي لليمين

وباقي دالة البحث 

VLOOKUP($B$3;ورقة1!$A$2:$H$70;COLUMNS($A$1:A1)+1;0)

لم استطع حتى الان تطويعها 

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

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

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

المطلوب ادراج الكمبو في صفحة البيع  خلية c2

الاختيارات من صفحة الأصناف من بداية خلية c3

في صفحة البيع الخلية c3 اريد ان يكتب بها تلقائيا بعد الاختيار من الكمبو الرقم المقابل لما تم اختياره والموجود في عمود b

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

محل1.rar

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

هل يمكن عمل ما في الملف ليكون في نموذج ادخال ؟ اعني بمجرد ان اكتب في نموذج ادخال الاسم  مثلا تظهر في خانات اخرى من نموذج الادخال البيانات نفسها و في خانة اخرى من نموذج الادخال ادخل رقم  فيظهر في خانة اخرى منه الرقم مضروب في خانة اخرى ؟

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

الاخ /سليم حاصبيا     وفقكم الله 

في عملكم السابق كيف نجعل خلية بجانب خلية المبلغ الكلي ليظهر بها الاسم المراد ثم بعد اختياره يكون مكان الاختيار خالي ليسهل اختيار اسم آخر

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

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

نفترض ان في فورم الادخال خانة بها سعر الوحدة هل يمكن بعد ادخال السعر يظهر في خانة اخرى السعر مضروب في خانة الكمية 

وهكذا 

عذرا اذا كان يمكن الشرح او الاحالة على مشاركة في نموذج بهذه الطريقة 

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

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

زادك الله علما وتوفيقا

كيف اغير مكان القائمة المنسدلة  بدلا من b3  اجعلها في c10 مثلا

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

هل يمكن عمل ما في الملف ليكون في نموذج ادخال ؟ اعني بمجرد ان اكتب في نموذج ادخال الاسم  مثلا تظهر في خانات اخرى من نموذج الادخال البيانات نفسها و في خانة اخرى من نموذج الادخال ادخل رقم  فيظهر في خانة اخرى منه الرقم مضروب في خانة اخرى ؟

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

وفقك الله 

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

انا لست خبير ولكن هذه المشكلة تقابلني ـ جرب ايقاف تشغيل الماكرو  في الاكسيل عامة ثم افتح الملف  لو فتح ممكن تنسخ ما فيه لملف جديد  وفقك الله

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