ابوسلماان

الاعزاء هل ممكن التعديل على الكود التالي بحيث يقوم بعملية الفرز بناء على قيمة خلية محددة في ورقة عمل؟! وذلك بدلا من كتابة المبلغ أو الرقم كتابةً. الكود الحالي هو : ActiveSheet.Range("$A$4:$E$286").AutoFilter Field:=3, Criteria1:=">=50", _ Operator:=xlAnd, Criteria2:="<=10000" الكود اعلاه يعمل بشكل صحيح لكن يجب ان اقوم بتغيير الارقام كلما حبيت اسوي تصفية بارقام اخرى. فاحتاج الى ربط القيم المحددة في الكود 50 و 10000 بخليتين مخصصتين بحيث يقرأ منهما. خالص محبتي،،

فعلا .. ظهرت النطاقات ... ولكن بعض تلك النطاقات لم استطع حذفها بسبب انها غير مفعلة ( نشطة ) .. لا يتوفر رمز الحذف .. وحاولت بلوحة المفاتيح وبرضه لم استطع الحذف .. هل من طريقة للحذف اخي ياسر .. وشكرا جزيلا لك ..

صباح الخير ،، عند نسخ ورقة عمل تظهر رسالة بوجود نفس الاسم للجرافيك و key على الملف الجديد ،، وعند النقر على نعم ،، تظهر اكثر من رسالة وهكذا ( في حدود عشر رسائل ) ،، رغم اني حذفت كل ما يظهر في ادارة الاسماء من تعريفات!! كيف استطيع التخلص من هذه الرسالة المزعجة؟ وشكرا مرفق لكم ملف لتوضيح ذلك.

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

تشكرات يا باشا ،، اشتغل الكود بشكل صحيح .. ما عدا الخلية الفارغة التي في الصف الرابع .. لكن مش مشكلة ننسخها يدوي .. تحية وتقدير لك باش مهندس ..

مساء الخير ،، احتاج الى كود برمجي لنسخ محتوى خلية الى خلية فارغة تحتها مباشرة .. أو بمعنى آخر ( أي خلية فارغة في العمود B مثلا .. احتاج الى نسخ البيانات التي اعلاها مباشرة لتصبح في الخلية الفارغة وهكذا ). مرفق لكم ملف لتوضيح ذلك. Copy.rar

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

اخي الكريم ،، برضه ما نفعش .. لو عوضت بالمعادلة زي ما شرحت انت .. حتلقى ان الخطأ مازال موجوداً. وشكرا لتفاعلك.

ما فيش حل لهذه المشكلة ؟؟؟

الاعزاء عندي ملف اكسل .. عند استيراد بيانات من النظام المحاسبي وجدت ان هناك بعض حقول التاريخ لايقرأها الاكسل بشكل صحيح وتم استيرادها بشكل خاطيء رغم ان التنسيق الخاص بها " تاريخ " ومكتوبة على شكل تاريخ فعلا. إلا انه وعند ادخال بعض الدوال عليها او تصديرها الى ملفات اكسل اخرى لا تظهر كتاريخ ... كما في المرفق الموضح. الحل الوحيد الذي وجدته هو ان اقوم بتحرير الحقل ثم اضغط انتر ،، وهذه العملية مرهقة اذا كان لدي اكثر من 10 الف حقل تاريخ. ارجو ان اجد دالة او كود يقوم بتحرير الحقل وتنشيطة ليقرأ الاكسل هذا الحقل كتاريخ ، ولكم خالص الامتنان. date_errore.rar

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

الاعزاء ،،، مساء الخير كنت اود معرفة السبب الذي ينتج عنه هذا الخطأ عند تنفيذ دالة SUMIF في جدول مرتبط ببيانات يتم جلبها في ملف اكسل آخر، رغم أن الملف لم يتغير موقعه. واحتاج الى الآتي: 1- عند فتح الملف الذي فيه الدالة يظهر هذا الخطأ، بينما اذا تم فتح الملف الآخر بجانب الملف الذي فيه الدالة ،، تشتغل الدالة بشكل صحيح، وتظهر القيم. فلماذا يظهر هذا الخطأ اذا فتحت الملف الاول دون الثاني؟ 2- هل هناك من طريقة آخرى لتنفيذ مثل هذه الدوال وبحيث لا تظهر مثل هذه الأخطاء؟ خالص محبتي ،،

ممنون لكم كثيرا ،، بارك الله فيكم، ورفع الله قدركم ، اللهم آمين.

بقي جزئية بسيطة ،، عند تعديل اسم الورقة لا يتغير اسمها في المعادلة.. كيف استطيع حل هذه الاشكالية؟

جزاك الله خيرا تشكرات استاذ سليم ،، اعجبني ونص

تسلم يدك اخي سليم ... هل عندك فكرة الحصول على ذلك عبر المعادلة وليس الكود؟!

الاعزاء .................. السلام عليكم معروف ان المعادلة = sheet() تعطيني رقم الورقة في ملف الاكسل .. فاذا كنت اريد اظهار اسم ورقة العمل أو سرد لاوراق العمل.. بناء على ارقامها المحددة في ملف الاكسل فماذا افعل؟؟ وشكراً ،،

الاعزاء الكرام ،،،،،،،،،،،،، صباح الخيرات احتاج الى تعديل في الكود التالي بحيث يقوم بعملية الفرز ولكن بتعديل تنسيق الاعمدة المفروزة الى " نص " . Range("F5:G1000").Select ActiveWorkbook.Worksheets("Groups").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Groups").Sort.SortFields.Add Key:=Range("G5:G1000") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortTextAsNumbers With ActiveWorkbook.Worksheets("Groups").Sort .SetRange Range("F5:G1000") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With وتقبلوا خالص الود ،،،

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

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

الاعزاء ،، مساء الخير هل بالامكان اظهار النص ( الجملة ) الى خارج الخلية التي هي مكتوبة فيها بحيث تطغى على الخلية الثانية ( والخلية الثانية فيها كتابة غير مهمة ).. هل يمكن عمل ذلك بدون استخدام تكبير العمود او التفاف النص او تصغير خط النص. وشكراً ،، Filter_Test.rar

تشكرات عزيزي سليم ،،

مساء الخير ،، ما هو الكود الذي احتاجه عند فتح ورقة عمل ( اي ورقة عمل ) والتي سأقوم بفتحها ،، ليتم تنفيذ كود بداخلها مثل ( اخفاء عمود بشرط معين ). بمعنى آخر ،، ينفذ هذا الكود فقط اذا تم فتح ورقة العمل هذه. وشكراً ،،

صحيح ،، لكن شكلها لن يكون لطيفا خاصة اذا كانت اكثر من عشرين تصنيف مثلا تشكرات عزيزي الزباري ،، لك خالص التحية.

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