نزار سليمان عيد

اخي الكريم السلام عليكم انظر للمشاركة رقم 16 للاخ ابو تامر على الرابط ادناه وان شاء الله تستفيد http://www.officena.net/ib/index.php?showtopic=22668&hl= او المرفق بالاسفل ان اعجبك __________________.rar

اخي علي السلام عليكم تم التغلب على مشكلة الصفر في مشاركتي رقم 13 من موضوعك هل يمكن تركيب معادلة على اخرى على الرابط http://www.officena.net/ib/index.php?showt...mp;#entry109847 وسارفق الملف هنا مرة اخرى ولكن بخصوص سؤالك عن تطبيق دالة IF بحدود 12 خلية لم افهم قصدك فهل تريد دالة IF لـ 12 خلية او 12 دالة IF لخلية واحدة او 12 دالة IF الى 12 خلية صراحة لم افهم قصدك فلو تعمل ملف وتكتب كتابة بدون صيغ عن ماذا تريد بالظبط ونتيجة المطلوب لكي افهم قصدك المرفق للتغلب على قيمة الصفر IF.rar

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

اخي الكريم السلام عليكم انظر للمرفق بعد تعديل بسيط عليه ليتم الفرز على اساس عدد المشتريات في نفس الشهر بغض النظر عن الايام واذا اردت التعديل اعلمني من فضلك على اساس الايام انظر للمرفق من فضلك adnan.rar

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

اخي الكريم السلام عليكم انظر للمرفق IF.rar

اخي الكريم السلام عليكم انظر للمرفق بعد التعديل واي استفسار اعلمني من فضلك P2.rar

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

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

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

الاستاذ محمد طاهر السلام عليكم الرجاء ايقاف اشتراك السيد / jamila444 نظرا لما قام بنشر هذا الموضوع على جميع اقسام المنتدى وانا سااحاول حذف هذه المشاركات بعد اذن سعادتك

اخي الكريم السلام عليكم انا شاهدت الملف ولكن لم افهم ما تقصده بالتعديل ولكن انظر للمرفق هل هذا ما تقصده P2.rar

اخي الكريم السلام عليكم انظر للمرفق لعله يفيدك وهو من عمل اخونا اكسيلجي ( ابو عبدالله ) له كل التقدير وجزاه الله خيرا CHEQUES_PROGRAM.rar

اخي الكريم السلام عليكم من قواعد المنتدى عدم جعل المشاركة بعنوان ( الحقوني او انا في ورطة ..... الخ ) هذا يؤدي الى حذف المشاركة يرجى عدم تكرار ذلك انظر للمرفق __________________.rar

اخواني السلام عليكم اخي الحبيب احمد السلام عليكم مشكور على مرورك اخي الحبيب aah_aah2008 السلام عليكم مشكور على مرورك اخي ali fathi لك ماتريد بالنسبة لخاصية navigate هي من احد ادوات Tollbars وبالتحديد ثالث واحدة من الاسفل بالنسبة للسؤال الثاني بالفعل اخي انا ارفقت ملف قبل التعديل على هذا الاستفسار فعذرا وانظر الى المرفق في هذه المشاركة وسترى المطلوب ويمكنك نسخ الكود وتغيير كلمة السر ( لاتنسى ان تنظر للمرفق بهذه المشاركة) بالنسبة للطلب الاخير نعم اخي الكريم فلا علاقة بين كلمة السر على الصفحة وكلمة السر على VBA واي استفسارات اخرى انا جاهز مع الشكر للجميع انظر للمرفق ________________2__________5_2_.rar

اخي الحبيب نستعرض الكود الاول وبجانبه الشرح Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row <> 11 Or Target.Column Mod 2 = 1 Then Exit Sub هنا ان يتم التنقل من العمود 2 ولا يزيدعن السطر العاشر If Target.Row = 11 Then الشرط هنا عندما يصل المؤشر الى السطر 11 يقوم بالتالي Cells(1, Target.Column + 2).Select هذه نتيجة الشرط عند وصو المؤشر الى السطر 11 انتقل الى العمود بعد التالي لماذا بعد التالي وليس العمود التالي مباشرة وذلك Cells(1, Target.Column + 2).Select لوجود رقم 2 اما اذا احببت العمود التالي مباشرة فعدل رقم 2 الى 1 وهكذا اي شرط تضيفه End If نهاية الشرط End Sub اما الكود الاخر فهو Private Sub Worksheet_SelectionChange1(ByVal Target As Range) Dim i As Integer Dim iRow As Integer For i = 1 To 10 iRow = Choose(i, 6, 5, 15, 10, 16, 21, 1, 17, 13, 2) Cells(iRow, 4) = i Next i End Sub والذي بملف اخي ابو اسامة لاعلاقة له بتنفيذ المثال لان الجزء الذي يتحكم بحركة المؤشر هو الكود التالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Integer Application.EnableEvents = False If Cells(65000, 1).Value = 7 Then Cells(65000, 1).Value = 0 Cells(65000, 1).Value = Cells(65000, 1).Value + 1 i = Cells(65000, 1).Value Range("r_" & i).Select Application.EnableEvents = True End Sub مع الشكر

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

اخي الكريم السلام عليكم يمكن عمل ذلك باتباع الاتي 1- كليك يمين على زر الماكرو 2- اختيار Format contol 3- خصائص 4- اختر الخاصية الثالثة وهي عدم تحريك او تغيير شكل زر الماكرو وبعدها افعل ماتشاء واذا لم تتضح الفكرة اعلمني من فضلك لارسال ملف به الشرح من احد مشاركاتي السابقة

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

اخي الحبيب justice السلام عليكم تاكد اخي انني شاهدت الملف من اخي ابو اسامة والذي تم ارساله بعد ما ارسلت مشاركتي عموما الاخ gamalin سيختار مايناسبه شكرا اخي gamalin على هذا الاطراء ففعلا هذه الاخوة فانا افتقدتك منذ فترة لم اجد مشاركاتك فاهلا بعودتك وشكرا مجددا

اخواني جميعا السلام عليكم جهد مشكور للجميع اخي bekhaa انظر للمرفق واي استفسار اعلمني من فضلك TEST.rar

اخي محمد السلام عليكم انظر للمرفق واذا كانت الفكرة تناسبك انسخ الكود مع تغيير الخلايا التي تريد التنقل لها او ارسل ملفك وحدد الخلايا التي تريد التنقل لها باي لون لكي اعدل الكود اذا ناسبتك الفكرة __________________.rar

اخواني جميعا السلام عليكم لقد قمت بعمل تعديل على آخر مشاركة لي وهي الغاء Cancell كما طلب الاخ msa_2006 اخي ali fathi بالنسبة للملف الذي تسأل عنه هو عبارة عن قائمة منسدلة بجميع الصفحات التي بالملف حيث يقوم المستخدم باختيار الصفحة الخاصة به وفي حالة اختيار الصفحة 2 في مثالنا ولايعرف كلمة السر سوف لن يصل للصفحة واذا اردت المزيد من الشرح اعلمني من فضلك اخي msa_2006 يمكنك تسمية الصفحات باسماء الاشخاص الذين سيذهب لهم الملف وعند الضغط على زر اظهار الصفحة سيتم ادخال المستخدم لها هذه الخاصية عملتها لك لكي تمكنك من عمل رقم سري مستقل لجميع الصفحات كل على حده واخبار صاحب الصفحة بكلمة السر الخاصة به فقط ارجو ان اكون وصلت المعلومة واي استفسار اعلمني من فضلك انظر للمرفق ________________2__________5_1_.rar

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

اخي msa_2006 السلام عليكم بالنسبة للطلب الثاني انظر للمرفق navigate________________2__________5.rar