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

لم أفهم كلامك في المشاركة الأخيرة .. من المفترض أنك تقصد حدوث الكود في حالة تغير ورقة العمل وما معنى أن يكون الكود عن طريق مفتاح ..؟؟ وضح بشكل تطبيقي يكون أفضل للفهم

الأخ الفاضل بكري لم لا تتابع موضوعك بشكل دائم .. إذا كنت تريد حل مشكلتك لابد من المتابعة (ولن أقول اليومية ولكن أقول المتابعة كل ساعة) المرحلة الأولى من حل المشكلة : ملف الورد ملف كبير جدا في الحجم ...ولما فكرت رأيت أنك تريد البيانات التي خارج الجداول أي أن البيانات المطلوبة خارج الجداول .. فكان لابد من تخفيف الملف استعداداً لمرحلة أخرى بحثت عن كود يتم تنفيذه في الورد وليس الإكسيل ... يقوم بحذف كل الجداول الموجودة في الملف Sub RemoveTables() Dim oTable As Table Dim I As Paragraph, N As Long Application.ScreenUpdating = False For Each oTable In ActiveDocument.Tables oTable.Delete Next oTable For Each I In ActiveDocument.Paragraphs For N = 1 To I.Range.Characters.Count If I.Range.Characters(1).Text = " " Or I.Range.Characters(1).Text = "?" Or I.Range.Characters(1).Text = Chr(9) Then I.Range.Characters(1).Delete Else: Exit For End If Next N Next Application.ScreenUpdating = True End Sub وإليك الملف بعد حذف الجداول منه وإلى مرحلة أخرى .. لكن شرط المتابعة تقبل تحياتي Cards.rar

1- 2- 3- 4- 5- اطلع عل التوجيهات (ويرجى للمرة الأخيرة تغيير اسم الظهور للغة العربية) http://www.officena.net/ib/index.php?showtopic=60147 لن يلتفت إلى أكثر من طلب في موضوع واحد

أخي الفاضل طالما أنه لا توجد استجابة إذاً فالطلب غير واضح ..! حاول تبسط طلبك عشان تلاقي مساعدة من الأخوة الكرام

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

أخي الحبيب لا داعي للاعتذار اللي بيغلط هنا بيدفع غرامة غلط !! ههه والغرامة حاجة ساقعة لكل الأعضاء الليلة (دا أقل واجب) ولا يهمك أخي الكريم أحمد ..مطلوب إننا نتناقش في كل كود وفي كل سطر طالما في مصلحة ومنفعة الجميع تقبل تحياتي

أخي الكريم لا أفهم معنى شاشة إدخال هل تقصد عمل فورم يمكن من خلاله إدخال البيانات؟؟ إذا كان الأمر كذلك يرجى طرح موضوع جديد بطلبك الجديد ، حيث أن لكل طلب موضوع مستقل إذا تم الطلب الأول على خير فيرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي كما يرجى تغيير اسم الظهور لديك للغة العربية اطلع على الرابط التالي لتعرف التفاصيل http://www.officena.net/ib/index.php?showtopic=60147 ولن أكرر التنبيه عليك أخي الفاضل فقد أرشدتك الطريق (تقبل تحياتي)

موجود في الكود .. ومشكور على مرورك العطر أخي أحمد أبو زيزو

بارك الله فيك أخي الحبيب سليم جرب الكود التالي عله يفي بالغرض Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$13" Then Application.Goto Reference:="R10C4" End If End Sub تقبل تحياتي

اطرح مثال تطبيقي لأفهم المطلوب ..أخي الحبيب توكل ينبغي تحديد شكل الأرقام المقربة اضرب مثال بأي أرقام .. والتقريب المطلوب لفهم تلك النقطة

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

أخي الحبيب محمد الكود يقوم بمسح محتويات النطاق ..!!!!!!! هو إحنا دخلنا طلب تاني ولا الطلب هو هو ..تصدق إني تهت!! هو ايه المطلوب ... ألم تفي المشاركة رقم 2 بالغرض

وهذه محاولة أخرى لاقتناص أفضل إجابة من مشاركة كبير المنتدى الباشمهندس طارق (مناغشة بس) في الملف المرفق إمكانية لاستخراج كل احتمالات الجمع داخل النطاق .. Extract Possible SUMs.rar

الأخ الكريم مروان راجع رابط التوجيهات التوجيه السابع http://www.officena.net/ib/index.php?showtopic=60147

أخي الفاضل محمد الخازمي بدون أكواد وبدون معادلات وبدون تعب (الكسل حلو وجميل !!) حدد النطاق D10:D13 بس خلاص (هههههههههه) آه والله زي ما بقولك كدا حددت النطاق ضع مؤشر الماوس في شريط المعادلات وابدأ عملية إدخال البيانات ولما توصل لآخر خلية اللي هي D13 وتضغط مفتاح إنتر هتلاقي الخلية D10 متحددة يبقا كدا من غير تعب ولا أكواد تقبل تحياتي

هذه محاولة أخرى إثراءاً للموضوع Sub ColorSumRange() Dim I As Long, J As Long, LR As Long, SumVal As Double, rSum As Double SumVal = Range("D21").Value LR = Cells(Rows.Count, 2).End(xlUp).Row Columns("B:B").Interior.Color = xlNone For I = 2 To LR rSum = Cells(I, 2) For J = I + 1 To LR rSum = rSum + Cells(J, 2) If rSum = SumVal Then Range(Cells(I, 2), Cells(J, 2)).Interior.ColorIndex = 4 Exit Sub ElseIf rSum > SumVal Then Exit For End If Next J Next I End Sub تقبل تحياتي

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

يرجى تحديد الموضوع بأنه مجاب .. والحمد لله أن تم المطلوب على خير

الأخ الحبيب عبد الله فاروق (يرجى تغيير اسم الظهور للغة العبرية ..وخلي بالك من العربية) الأخ الحبيب عمرو طلبة بارك الله فيكما وجزاكما الله خير الجزاء ومشكور على كلماتكما الرقيقة ومشاعركم الطيبة ولكن الصبر قليلاً فلم يحدد صاحب السؤال إذا ما كانت الإجابة مرضية بالنسبة إليه أم أن هناك أقوال أخرى

لم أفهم المطلوب .. الطريقة التي قدمتها لك تظهر البيانات بشكل عادي على الشاشة ولا يتم طباعة الجزء الذي لا تريد طباعته

الطلب غير واضح يرجى إرفاق بعض النتائج المتوقعة

أخي الكريم يرجى تغيير اسم الظهور للغة العربية بدون أكواد فقط حدد نطاق الجدول A1:E ورقم آخر صف تريد طباعته من التبويب Page Layout ثم اختر Print Area ثم اختر Set Print Area فيتم طباعة هذا الجزء المحدد فقط أثناء الطباعة عدا ذلك لا يتم طباعته

أخي الفاضل وضح طلبك بملف مرفق .. هل تريد إظهار البيانات فقط وعند الطباعة يتم إخفائها ..!!؟

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

راجع هذا الرابط أيضاً http://www.officena.net/ib/index.php?showtopic=60618&hl=%2B%D8%A7%D9%84%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D8%B3%D9%84%D9%8A%D9%85#entry389780