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

أخي الكريم الدمج هو المشكلة .. قم على سبيل المثال بإزالة الدمج في النطاق D11:D376 ثم ضع المعادلة التالية في الخلية D11 ثم قم بسحبها =$L$3 كرر نفس الخطوات مع بقية الأعمدة التي قمت بإخفائها .. وجرب الكود مرة أخرى .. وأخبرني بالنتيجة

جرب الكود بهذا الشكل Sub CopySheet() Dim Sh As Worksheet Set Sh = Sheet1 Sh.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = "Test" & Format(Now(), "hhmmss") End Sub

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

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

أخي الكريم جرب الكود بهذا الشكل Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Row > 10 Then If Target.Column >= 3 And Target.Column <= 60 And Target.Column Mod 3 = 0 Then Application.EnableEvents = False Application.ScreenUpdating = False Target.Offset(, 2).Value = Target.Value * Target.Offset(, 1).Value Application.ScreenUpdating = True Application.EnableEvents = True End If End If End Sub أرجو أن يفي بالغرض

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

الأخت الفاضلة هاجر أهلاً بك في المنتدى .. يرجى تغيير اسم الظهور للغة العربية لمزيد من التفاصيل يرجى الإطلاع على موضوع التوجيهات في الموضوعات المثبتة في صدر المنتدى بالنسبة لطلبك غير واضح ويفضل إرفاق ملف لتوضيح المطلوب .. هل تقصدين بالربط مساواة قيم خلايا بعينها ؟ إذا كان الأمر كذلك ..لنفترض أن لدينا ورقتي عمل أحدهما باسم Sheet1 والأخرى باسم Sheet2 ونريد أن نضع معادلة في الورقة الثانية في الخلية A1 بحيث تساوي قيمة الخلية A1 أيضاً الموجودة في الورقة الأولى .. نضع المعادلة التالية في الورقة الثانية في الخلية A1 ..نضع علامة يساوي ثم نشير إلى اسم ورقة العمل المراد ربطها ثم علامة تعجب ثم نشير للخلية المراد ربطها بالخلية التي بها المعادلة لتصبح المعادلة بهذا الشكل =Sheet1!A1 أرجو أن يفي ذلك بالغرض .. أما إذا كان الأمر مختلف فيرجى إرفاق ملف بعد ضغطه بأحد برامج الضغط كالوينرار .. تقبلي تحياتي

أخي الكريم أبو ذكرى يرجى تغيير اسم الظهور للغة العربية يمكن ذلك عن طريق خيارات الإكسيل من خلال Options ثم في الخيارات العامة General ستجد نوع الخط وحجم الخط Font Size و Default Font ..كما يمكنك عن طريق الذهاب للتبويب Home ثم الأمر Cell Styles ثم تختار New Cell Style وتعطيه اسم محدد (أي اسم كما يروق لك) وتبدأ في تنسيق الخلايا بما ترغبه ..ثم يمكنك تطبيق هذا الـ Style على أي خلايا تحددها فيما بعد عن طريق نفس الأمر بأن تحدد الخلايا وتختار اسم الـ Style الذي قمت بتنسيقه من قبل .. تقبل تحياتي

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

أخي الكريم أحمد ضع الكود التالي في حدث ورقة العمل ..كليك يمين على اسم ورقة العمل "عميل رقم1" ثم اختر الأمر View Code والصق الكود التالي .. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 3 And Target.Row > 10 Then Application.EnableEvents = False Application.ScreenUpdating = False Target.Offset(, 2).Value = Target.Value * Range("L3").Value Application.ScreenUpdating = True Application.EnableEvents = True End If End Sub يمكنك تجربة الكود عن طريق إدخال كميات في عمود الكمية العمود C > وجرب تغير في خلية السعر L3 ... تقبل تحياتي

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

أخي الكريم رميلي تم فك حماية المصنف وعمل معادلة بسيطة جداً تعتمد على الخلية N1 في ورقة العمل (صفحة المعلومات) المسماة 333 إليك الملف المرفق عله يؤدي الغرض ..تم إخفاء العمود N في ورقة المعلومات (قائمة التلاميذ) المسماة 333 تقبل تحياتي CERTIFICAT.rar

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

أخي الحبيب عبد الله بارك الله فيك وجزيت خيراً على مجهودك الرائع .. وإن كنت أختلف معك في الطريقة ولكن هذا لا يقلل أبداً من جهدك في تقديم المساعدة للآخرين ولا يقلل من الحل الرائع المقدم .. جعله الله في ميزان حسناتك يوم القيامة وجمعني الله وإياك في الفردوس الأعلى من الجنان تقبل وافر تقديري واحترامي

أخي الحبيب أبو يوسف إليك الرابط على الميديا فاير http://www.mediafire.com/download/cg04ib2gkgm6wun/VBPRO.iso أرجو أن يفي بالغرض

تفضل أخي الكريم سعيد بيرم يتم إظهار العمود F ثم طباعة نسخة بما طلبت ثم إخفاء العمود مرة أخرى أرجو أن يكون المطلوب Sub Print_All() Dim Sh As Worksheet, LR As Long, Cel As Range Dim Stx1 As String, Stx2 As String, St1 As String, St2 As String Dim Texte1 As String, Texte2 As String Set Sh = Sheets("فاتورة") LR = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row Stx1 = "جنيها ": Stx2 = "قرشا ": St1 = "و ": St2 = "لاغير" Texte1 = NoToTxt2(Cells(LR, "J")) Texte2 = NoToTxt2(Cells(LR, "I")) Range("del_range").NumberFormat = ";;;" For Each Cel In Range("A8:A" & LR) If Left(Cel.Value, 6) = "ماقبله" Then Cel.Offset(-3, 0).Resize(3).EntireRow.Hidden = True Next Cel Range("A" & LR).Offset(3, 0).Resize(3).EntireRow.Hidden = True ActiveSheet.PrintOut Copies:=1 Range("A8:A" & LR + 5).EntireRow.Hidden = False With Cells(LR + 1, "B") .Value = "إجمالى الفاتورة : " .HorizontalAlignment = xlLeft .Offset(1, 0).Value = "ما عدا السهو والخطأ" If Cells(LR, "I") = 0 Then .Offset(, 1).Value = "فقط " & Texte1 & Stx1 & St2 Else .Offset(, 1) = "فقط " & Texte1 & Stx1 & St1 & Texte2 & Stx2 & St2 .HorizontalAlignment = xlRight End With Range("del_range").NumberFormat = "00" ActiveSheet.PrintOut Copies:=2 Range(Cells(LR + 1, "B"), Cells(LR + 2, "C")) = "" Columns("F:F").EntireColumn.Hidden = False Range("F1").Value = "نسخة للحفظ" ActiveSheet.PrintOut Copies:=1 Columns("F:F").EntireColumn.Hidden = True End Sub تقبل تحياتي

ملحوظة أخرى يجب أن تتطابق البيانات في عمود المعاملة مع العمود الذي يحتوي شروط الترتيب مثلاً افراغ غير كلمة افراغ صوري ..الأمر مختلف ...

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

أخي الحبيب محمد حسن الموقع لكي تتمكن من التحميل عليه يجب عليك التسجيل في الموقع حتى لا تتعرض لهذه الأزرار الوهمية الخاصة بالـ Download وإذا أردت أرسلت لك حسابي تدخل منه ويمكنك التحميل ، أو تصبر حتى أقوم برفعه لك على موقع آخر وهو الميديا فاير ..الخيار لك أخي الغالي زيزو البسكري أعرف الإضافة الخاصة بالإعلانات ومنعها على الفايرفوكس وأستخدمها .. وعندما هممت بتحميل الملف وجدت أن الانتظار 1000 ثانية ولما قريت المعلومات في الموقع عرفت أن فترة الانتظار 1000 ثانية سببها أنني مفعل هذه الإضافة فقمت بالدخول على الإضافة وعطلتها بالنسبة للفور شير حتى أتمكن من الانتظار 20 ثانية فقط .. وقد كان وبدأ تحميل الملف تقبلوا تحياتي

أخي الحبيب عبد العزيز بالنسبة لإضافة منع الإعلانات مع موقع الفورشيرد ..لو منعت هيديك فترة انتظار 1000 ثانية أما لو سمحت بيها هيديك فترة انتظار 20 ثانية أعتقد إنها مش قضية ..إعلان وتنتظر 20 ثانية ولما تبدأ تحميل قفل الصفحات الخاصة بالإعلانات والخاصة بموقع الفورشيرد كلها تقبل تحياتي

أخي الحبيب الغالي المتميز محمد حسن المحمد سأقوم إن شاء الله بتنزيل الملف الأيزو ورفعه على موقع الميديا فاير ..أيناسبك الموقع ؟ تقبل تحياتي

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

You're welcome Thanks for the feedback Regards

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

الأخت الفاضلة ربا يبدو أنك متعلمة جديدة مقبلة على تعلم الإكسيل ، وإن شاء الله هنا ستستفيدين إلى أقصى درجة بمعاونة إخوانك بالمنتدى الأخ الحبيب عبد الله الصاري بارك الله فيه وجزاه الله خير الجزاء قدم حلاً جميلاً وفيه إبداع ..رغم أنني لست من محبي الاعتماد على أعمدة مساعدة كثيرة في الملف عموماً بدأ أخونا عبد الله بعمل معادلات في أعمدة مساعدة .. أولاً في ورقة البيانات في العمود FD بدايةً من الصف الثاني قام بوضع معادلة بهذا الشكل =IF($A2="بكلوريوس",COUNT(FD1:FD$1)+1,"") والمعادلة بسيطة جداً حيث أن الدالة IF تستخدم للشرط ..فالشرط هو أن الخلية A2 أي التي تحتوي على اسم الشهادة إذا كانت تساوي القيمة "بكالوريوس" ..ماذا يفترض أن يحدث؟ الشرط إذا تحقق وكانت قيمة الخلية تساوي "بكالوريوس" فإنه يتحقق جواب الشرط وهو الجزء الثاني من المعادلة COUNT(FD1:FD$1)+1 والتي تقوم بعد القيم في نفس العمود المساعد المسمى FD بدايةً من الصف الأول (والصف الأول ثابت حيث أنه في كل مرة تطبق فيها المعادلة مع السحب سيظل الصف الأول ثابت ثم أضاف للناتج 1 .. في المعادلة الأولى سيكون الناتج للعد هو صفر لأن النطاق FD1:FD1 والذي يعتبر خلية واحدة لا يوجد بها قيمة فالناتج يساوي صفر ، وأضاف رقم 1 ليتحقق الهدف ويبدأ العد الفعلي نظراً لتحقق الشرط في الخلية A2 .. الجزء الثالث من المعادلة هو إذا لم يتحقق الشرط .. وهنا الأمر بسيط فإنه إذا لم يتحقق الشرط تصبح الخلية التي بها المعادلة فارغة وهنا تم استخدام أقواس التنصيص مرتين (فراغ) وإذا تم سحب المعادلة فإنه الصف الثابت يظل كما هو ألا وهو الصف الأول ويتغير النطاق للصف المتغير ويصبح 2 وفي الخلية التالية يصبح 3 وهكذا .. تم عمل عمود مساعد لكل شهادة (بكالوريوس في العمود FD .. دبلوم في العمود FE .. اعدادية في العمود FF .. متوسطة في العمود FG) .. يمكنك تحديد الأعمدة المذكورة ثم تلوين لون الخط بأي لون غير الأبيض لترى النتائج بنفسك .. هذه كانت الأعمدة المساعدة في ورقة العمل المسماة البيانات ******************** ننتقل إلى ورقة العمل المسماة النتيجة .. ونرى تسلسل الحل : ----------------------------------------------------------------------- أولاً في العمود G في أول صف مقابل للبيانات في الصف الثاني وضع الرقم 1 بشكل يدوي ثم وضعت المعادلة التالية في الخلية G3 أي في الصف الثالث =IF(MAX($G$1:G2)<$I$1,MAX($G$1:G2)+1,"") والمعادلة تعتمد على قيمة الخلية I1 (وهذه المعادلة السابقة تعتبر بمثابة عداد للنتائج .. ولكن استخدم الشرط لإيقاف العداد في حالة تخطي عدد النتائج ، فمثلاً لو كان عدد النتائج 5 وهو أكبر عدد للنتائج حصلنا عليه في الخلية I1 .. من ثم فإن العداد سيقوم بكتابة التسلسل من 1 إلى 5 فقط ثم تظهر النتائج فارغة .. وإليكم تفصيل المعادلة في الخلية I2 ------------- وضعت المعادلة التالية في الخلية I1 لاستخراج أكبر رقم في العمود FD في ورقة البيانات لمعرفة كم عدد النتائج التي تطابق الشرط (البكالوريوس في هذه الحالة) =MAX(البيانات!$FD$4:$FD$100) وفي الخلية I54 وضعت معادلة مشابهة للشرط الثاني لاستخراج أكبر رقم في العمود التالي FE والذي يقوم بتطابق الشرط دبلوم ..وهكذا نفس المعادلة في الخلية I وبداية كل ورقة في شيت النتيجة ثم الخلية التالية تم وضع معادلة مختلفة ألا وهي : =IF(G2="","",MATCH(G2,البيانات!$FD$2:$FD$100,0)) المعادلة بتقول لو الخلية G2 فارغة إذاً الناتج فارغ وإلا يقو بالبحث عن قيمة الخلية G2 في ورقة البيانات في العمود FD وذلك لاستخراج رقم الصف الذي يحتوي البيانات المطلوبة --- ** ---- كررت المعادلات في العمود G والعمود I في كل ورقة على حدا ..بنفس الطريقة لكل نوع من أنواع الشهادات أخيراً خلصنا من الأعمدة المساعدة .. ننتقل لآخر جزء ألا وهو استخراج البيانات المطلوبة ::: في الخلية A2 وضعت المعادلة التالية =IF($I2="","",INDEX(البيانات,$I2,COLUMN(A$2))) المعادلة تنظر للخلية I2 والتي تعتبر في العمود المساعد فإذا كانت الخلية فارغة تظل الخلية التي بها المعادلة (A2) فارغة وإلا يتم استخدام دالة البحث ليبحث في النطاق المسمى البيانات (وهو النطاق A2:C248 أو آخر خلية بها بيانات في ورقة البيانات) .. ويتم البحث من خلال رقم الصف (ورقم الصف الموجود به النتيجة موجود في الخلية I2) .. كما يتم البحث من خلال العمود والعمود هنا هو العمود الأول .. أي أن البحث يكون عن طريق رقم الصف ورقم العمود (وإذا توافر رقم الصف ورقم العمود يتم جلب البيان المناسب) ... وهكذا بالنسبة لبقية المعادلات نفس الكلام مع تغير العمود الذي يتم جلب البيانات منه أرجو أن أكون وفقت في توصيل المعلومة .. وأخيراً لا تنسونا بدعوة بظهر الغيب