محمد_عبد_الوهاب

الاستاذ القدير العلامة / عبد الله باقشير السلام عليكم كم انت كبير جداً . . استاذي الفاضل الف الف الف مليون شكر ... وجزاك الله عنا خيراً وجعله في ميزان حسناتك يوم القيامة اما بخصوص طلب الاخ ابوادهم فالحل بالمرفق تفضل اخيBook77.rar

السلام عليكم اساتذتي الكرام .. كل عام وانتم بخير .. رمضان كريم لدي استفسارات بخصوص طريقة جعل الكود اسرع واخف ولقد وجدت الطريقة في موضوع محفظة الاكواد للاستاذ القدير / عبد الله باقشير ولكن لي بعض الاستفسارات علي طريقة تشغيله وهو اضافي هذا الجزء للكود Application.Calculation = xlCalculationManual ** هل يتم اضافة هذا الجزء لاي كود موجود في الاكسيل ** هل يؤثر علي عمل الكود وهل الاكواد تقوم بالحساب دون الضغط علي الزر الخاص بكل كود بعد التغيير في اي خليه بالملف ** لدي ملف به اكواد لا تعمل الا من خلال ازرار للترحيل والطباعة وجعل قيم نطاق معين ( صفر ) ... فهل ينفع معها ذلك ** لدي اكواد تعمل عند فتح الملف تلقائيا للترحيل ايضا بدون ازرار هل ينفع معها ذلك ** ما هي الطريقة لتنفيذ ذلك آسف علي الاطاله ولكن اريد التزود من علمكم المشاركة الموجودة بالمحفظة هي كالتالي : عندما يكون لدينا ملف ممتلئ بالمعادلات و الأكواد قد يحدث بطء في تنفيذ الماكروات و السبب أن إكسيل يقوم بعمل Calculate للخلايا آلياً كلما حدث تغيير في خلية ما مما يسبب البطء في تنفيذ الكود كثيراً ما يكون الحل لهذه المشكلة هو إيقاف هذه العملية قبل تنفيذ الكود ثم إعادتها لطبيعتها بعد تنفيذ الكود لعمل ذلك نكتب هذا الأمر في بداية الكود Application.Calculation = xlCalculationManual يقوم هذا الأمر بتعطيل آلية هذه العلمية ثم في نهاية الكود نضيف هذا السطر الذي سيرجع العملية لصورتها الآلية كما كانت Application.Calculation = xlCalculationAutomatic

الاساتذة الافاضل كل عام وانتم بخير .. رمضان كريم .. تقبل الله صيامكم احتاج للتعديل في الكود التالي ... حيث أنني اقوم بالعمل عليه كالتالي اذا قمت بالادخال في خلايا العمود A يقوم الكود بدوره في وضع تاريخ اليوم في العمود B والتعديل المطلوب عليه ** انه ان قمت بالادخال مثلاً في A1 يكتب التاريخ في الخليه B1 واذا قمت بحذف القيمة او الكلمة الموجودة في A1 لايتم حذف التاريخ فاحتاج الي تعديل الكود ليكون ان كان بخلايا العمود A قيم او كلمات يعطيني التاريخ وان كانت الخليه فارغة يقوم بحذف التاريخ ** وهل من الممكن حماية الخليه التي يتم وضع التاريخ بها فقط من اي تعديلات اخري ولايتم حماية الخلايا الفارغة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("a1:a10000")) Is Nothing Then VBA.Calendar = vbCalGreg With Target(1, 2) .Value = Date .EntireColumn.AutoFit End With End If End Sub

السلام عليكم رمضان كريم ...

السلام عليكم ورحمة الله وبركاته اخوني اريد منكم المساعدة فيما يلي 1- عندي خليتين في ملف اكسل واحدة صفقات اليوم والثانية صفقات الامس اريد ان يتم نقل بيانات الخلية الاول الي الخلية الثانية بعد انهاء اليوم اي عند الساعة 10 م 2- الخلية الثالثة مجموع تراكمي للصفقات لمدة 30 يوم ولكن لي رجاء .. ان يكون الحل علي اوفيس 2003 حيث حدث عطل لدي في الاوفيس 2010 ولكم منى كل الشكر مثال.rar

الاستاذ القدير /mahmoud-lee السلام عليكم اعرف انه لا يحق لي ان ابدي ملاحظات علي اعمالك فأنت أكبر من ذلك بكثير ولكن لي ملاحظة في ملفك ( الحل بالمعادلات ) وهو ان التاريخ يتغير في كل الخلايا بتغيير التاريخ فلو ان الحل بالمعادلات ومادام التاريخ قد دخل في الخلية بناءاً علي الشرط يجب عدم تغيير التاريخ في الخلية بعد ادخاله نهائياً حتي مع تغيير تاريخ اليوم التالي ساااااااااااااااامحني ولكن انتم علموتمونا فاستحملونا ... تلميذك شكرا لصعة صدرك

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

الاساتذة الافاضل السلام عليكم اريد التعديل في الكود التالي وهو خاص بطباعة نطاق معين بناء علي شرط في خليه ليصبح عدد نسخ الطباعة 2 تلقائياً للصفحة الكود Sub طباعة_1() If ActiveSheet.[i1] = True Then ActiveSheet.PageSetup.PrintArea = "A1:h44" ActiveSheet.PrintOut End If UserForm2.Hide Sheets("Main").Select End Sub شكراااا

الاستاذ القدير السلام عليكم الف الف شكر لردودك السريعة استاذنا كود رائع .. ولكن به نفس المشكلات .. واريده عند فتح الملف تلقائياً يفتح في شاشة كاملة ولاتظهر الا عند فتح ملف آخر اي انني في الملف الموجود به الكود يقوم باظهار الاكسيل في شاشة كاملة ولا تظهر القوائم جميعها بكل انواعها في اي حالة الا عند فتح ملف آخر

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

السلام عليكم ورحمة الله وبركاته الاساتذة الكبار .. الخبراء هناك اكود كثيرة لفتح الاكسيل في شاشة كاملة ولكن عند استخدامي لها كان لها بعض القصور ولكني وجدته ذات مرة في ملف للاستاذ / الحسامي ولكن لم استطيع الوصول اليه والمشاكل هي : 1- انه عند فتح الاكسيل في شاشة كاملة وبعد الاغلاق وعند فتح ملف آخر تكون ايضا القوائم مخفية ... وهذا ما لا اريده . 2- انه عند فتح الاكسيل في شاشة كاملة وعند القيام بعمل تصغير Minimize للملف من خلال Taskbar ثم عمل restore down للملف تظهر القوائم مرة اخري متجاهلة الكود ( اي عند تصغير الملف ثم تكبيرة من شريط المهام بالاسفل يتجاهل الكود ) اريد كود لجعل شاشة الاكسيل تفتح في شاشة كاملة مثلها مثل اي برنامج آخر وعند تصغيره ثم تكبيرة يظل في شاشة كاملة ايضا جزاكم الله خيراً ... وجعله الله في ميزان حسناتكم

استاذنا الكبير الاستاذ العلامة / عبد الله باقشير السلام عليكم ورحمه الله وبركاته كنت في احد المنتديات الاخري وكان لاخ آخر تقريباً نفس طلبي من فورم سيادتكم الرائع ( الفورم الاصلي ) وقد ارسلته له بالفعل ( تحت رعاية سيادتكم ) ولكنه طلب زيادة عدد التكست بوكس من 5 تكست الي 7 تكست بوكس ليكون البحث في الصف مكون من 7 اعمدة فتم الرد عليه الانتظار لحين وصول رد سيادتكم اخي الكريم واستاذنا الكبير الف الف شكر لهذا المنتدي الرااااااااااااااااااااااااااائع وجزاكم الله خير

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

السلام عليكم انظر المرفق قائمة منسدلة.rar

السلام عليكم برجاء اعتبار الطلب هام وعاجل جزاكم الله خيرا