عبد الفتاح كيرة

نعم أخى هذا مفروغ منه لابد أن يكون الملفان مفتوحان لكنى قصدت شيئا آخر وهو أن الارتباط و التحديث يكون لمدى محدد يعنى لو حددت خلايا 3 صفوف و 4 أعمدة فسوف يتم تحديثها فى الوورد لكن لو زدنا صفا جديدا فى إكسل أو عمودا فلن يتم تحديث مساحة الجدول التحديث فقط فى المدى الذى حددناه أولا أرجو أنك تكون فهمتنى وشكرا لمشاركتك التى ستفيدنى كثيرا بإذن الله وقد وجدت أيضا أن تغيير التنسيق فى إكسل يتم تحديثه فى وورد كلون و نوع و اتجاه الخط و الأهم من ذلك نوعية الأرقام " هندية و عربية" جزاك الله خيرا

صدقت أنا عن نفسى حريص على ذلك مع أنى أستخدم 2010

أشكرك أستاذ ياسر بارك الله فيك

هذا؟ من تنسيق خلايا محاذاة تجد التفاف النص أو مباشرة كما بالصورة

ممتاز يا أخى بارك الله فيك لكن نقطة التحديث التلقائى لم تتحقق يعنى ليس هناك تزامن بين ما يتغير فى إكسل و بين الوورد

غير المعادلة إلى =INDEX(names;SMALL(IF(result="ناجح";ROW(result)-ROW(البيانات!$E$2)+1);ROWS(البيانات!$E$2:E2))) مع ضغط ctrl+shift+enter و ذلك بصفحة الناجحين

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

يمكنك استخدام الكود التالى لمسح كل الخلايا التى بها أخطاء " غير المدى حسب طلبك" Sub Button1_Click() Dim MYR As Range Dim MYC As Range Set MYR = Range("A1:E5") For Each MYC In MYR If IsError(MYC) Then MYC.ClearContents End If Next MYC End Sub

لعموم الفائدة هذه تعليقات بسيطة توضح الكود شكرا للأستاذ الحسامى على الكود الرائع Private Sub CommandButton1_Click() Dim rng As Range, rng2 As Range For Each rng In [a1:h17] 'شرط العمل أن تكون الخلية مدموجة If rng.MergeCells = True Then ' المدى rng2 = مكان خلايا منطقة الدمج Set rng2 = rng.MergeArea 'فك الدمج rng.MergeArea.UnMerge ' المدى rng2 كل خلية فيه تساوى قيمة الخلية المدمجة ' يعنى هذا هو سطر النسخ rng2.Value = rng.Value End If Next rng End Sub

نفترض أن خمسة خلايا مدموجة تساوى قيمة واحدة هى qq فالسطر التالى يجعل rng2 = qq و هذا من ناحية عدد الخلايا فقط و ليس قيمتها Set rng2 = rng.MergeArea أما قيمة هذه الخلايا فيحددها السطر التالى rng2.Value = rng.Value شكرا للتوضيح

شكرا أخانا الحسامى على هذا الإبداع بارك الله فيك ما فائدة هذا السطر؟ rng2.Value = rng.Value

جرب أن تحذف النسخة أولا ثم تركب الجديدة وإلا فمصدر التثبيت فقد بعض الملفات

هذا كود إلغاء دمج الخلايا بكل الصفحة" وهو للأخ أيسم" أما نسخ قيمة الخلايا المدموجة للخلايا الفارغة بعد الدمج فشأن آخر نحتاج لوقت Application.ScreenUpdating = False Dim AYSAM As Range Set AYSAM = ActiveSheet.UsedRange For Each cel In AYSAM If cel.MergeCells = True Then cel.UnMerge cel.Copy cel.Offset(0, 1) End If Next Application.ScreenUpdating = True Cells.Select Cells.EntireColumn.AutoFit

راجع هذا الشرح فهى فس الفكرة

أخى يمكنك تغيير نطاق الطباعة لتحصل على ما تريد ActiveSheet.PageSetup.PrintArea = "$F$1:$I$10" إلى ActiveSheet.PageSetup.PrintArea = "$F$1:$I$15"

أعتقد يجب تشغيل برنامج إعداد أوفيس و اختيار إصلاح

لابد من نسخ الخلايا أولا لنطاق جديد بحيث يتم إلغاء الفراغات ثم طباعة النطاق الجديد استخدم الكود التالى لتنظيم الخلايا كما أردت و من ثم تعيين نطاق الطباعة للنطاق الجديد هذا ما يحضرنى الآن وربما هناك حلول أفضل لكنها تحتاج لوقت Sub Button1_Click() Dim myrng As Range, myc As Range, i As Integer, j As Integer i = 1 j = 6 For x = 1 To 4 Set myrng = Range(Cells(i, j - 5), Cells(10, j - 5)) For Each myc In myrng If myc <> "" Then myc.Copy Cells(i, j) i = i + 1 End If Next myc i = 1 j = j + 1 Next x Range("F1:I10").Select ActiveSheet.PageSetup.PrintArea = "$F$1:$I$10" End Sub الملف المرفق PRINT1-kemas.rar

من تبويب " عرض " شيك على " شريط الصيغة"

شاهد الفديو

طيب جرب البحث فى هذه النافذة وانظر النتائج

ضع المعادلة التالية فى a1 =2000-SUM(A2:A2000)

الرباط الخاص بي

لماذا أربعة موضوعات نسخة واحدة؟ لنفس الموضوع؟