alkalil قام بنشر أغسطس 2, 2004 قام بنشر أغسطس 2, 2004 بسم الله الرحمن الرحيم الإخوة الأعزاء فى الله أرجو مساعدتى فى كيفية ترقيم خلايا العمود الأول بشرط ألا يتم ترقيم الأبناء أو بمعنى آخر ألا يتم ترقيم صف لا يحتوى العمود الثانى له على بيانات حيث أن العمود الثانى مخصص لرب العائلة وأريد ترقم رب العائلة فقط وليس ترقيم أبنائه والتى تحتل الصفوف التالية له . وبحيث إذا احتجت لمسح رب عائلة يتغير الترقيم تلقائيا مع خالص شكرى لكل من أعار رسالتى اهتماما . 1 أحمد محمد فاطمة محمد ميرفت أحمد أحمد أحمد محمد أحمد 2 السعيد السعيد ماجدة ابراهيم ماجدة السعيد
smart قام بنشر أغسطس 3, 2004 قام بنشر أغسطس 3, 2004 السلام عليكم أخي العزيز جرب هذا لعله ينفع ويفيد مع ملاحظة تغيير في ما بين القوسين لتغيير العمود والصف تضع الدالة في العمود Cوتكتب في العمود b فان وجد كتابة يضع الرقم وهكذا =IF(ISTEXT(C14);1;" ") =IF(ISTEXT(C15);B14+1;" ") وبعده تقوم بسحب المعادلة على باقي الصفوف في نفس العمود حيثc العمود الذي ننوي الكتابة به فيكون العمود b هو الذي تظهر فيه الأرقام نضع الدالة الأولي في العمود c ونضع الثانية في الصف الذي يليه وبعدها نسحب المعادلة إلي باقي الصفوف
alkalil قام بنشر أغسطس 4, 2004 الكاتب قام بنشر أغسطس 4, 2004 بسم الله الرحمن الرحيم أخى الفاضل / جزاك الله كل خير على محاولاتك مساعدتى . إلا أن هذه الطريقة مفيدة جدا إذا كانت الصفوف متتالية بالبيانات . 1جمعه السيد على قبيه 2654 2 ناهد الامام قبيه 2السعيد السعيد ابراهيم فوده 531 6 عايده احمد شرف ياسر السعيد السعيد ميرفت السعيد السعيد اسامه السعيد السعيد فاطمه السعيد السعيد 3 جمعه حمدان السيد 2883 1 وبناء عليه الخلية التالية لرقم اثنين (المقابلة لاسم " ياسر السعيد " وما يليها الماقلبة " لـ ميرفت ... " وهكذا )ستكون صفر ، وعند تطبيق المعادلة على رقم 3 ستكون 2 لأن المعادلة تعتمد على الخلية السابقة وستكون فى هذه الحالة صفر أى ان الرقم سيتكرر ساحاول ارسال صورة من بعض خلايا الملف للتضح الصورة ساحاول فقط معرفة كيفية ارسال ملف ملح فى الرسالة للمنتدى . مع خالص الشكر
السيد عبد العال قام بنشر أغسطس 5, 2004 قام بنشر أغسطس 5, 2004 (معدل) مرفق طريقتان أولا المعادلات مثل هذه =IF(ISTEXT(B7),SUM(IF(ISTEXT(B3:B7),1,0)),0) مع التعديل لكل الخلية وضغط Ctrl+Shift+Enter بعد التعديل ثانيا ماكرو اختار نطاق الخلايا التى تريد ترقيمها ثم اضغط الزر Sub Button1_Click() Dim iCount As Integer Dim cCell As Range For Each cCell In Selection If Not cCell.Offset(0, 1).Formula = "" Then iCount = iCount + 1 cCell.Value = iCount End If Next End Sub تم تعديل الملف تم تعديل أغسطس 11, 2004 بواسطه السيد عبد العال
alkalil قام بنشر أغسطس 7, 2004 الكاتب قام بنشر أغسطس 7, 2004 بسم الله الرحمن الرحيم الأخ الفاضل / عبد العال أشكرك شكرا جزيلا على معادلتك الجميلة الرائعة . سعدت جدا بهذا الحل وخاصة بعد نجاحه. أكرمك الله وعفاك فى بدنك دنياك وعلمك ودينك . لقد شككت أنه لاحل لهذه المشكلة . وان أملت أن تحل مشكلة الترقيم فقد بعد المراد فى أن يعاد الترقيم عند مسح صف أو صفوف لكن استجابت المعادلة بنجاح . انك وكل الإخوان المتعاونين معنا لمن ينطبق عليهم " تعلم العلم وعلمه " جزاك الله خيرا. وأرجو ان كان عندك من الوقت ما تسمح به لكى أفهم فقط بعض نقاط هذه المعادلة الجميلة الرائعة . 1 - فى الجزء الخاص بـ sum لم أجد مدى حتى يجمع فهل المدى التى تجمعه هذه الدالة هو المكتوب لدالة Istext . التالية لها . 2 - فى المثال الذى ارسلته . لا تتغير قيمة B3 وبرغم اتباعى لما قلته وضغط 3 مفاتيح shift+ctrl +enter ووجود أقواس مجموعة على جانبى المعادلة إلا أنها تتغير عندى وأضطررت إلى جعلها مرجع مطلق حتى لا تتغير وعندئذ وهنا فقط استجابت المعادلة وعند نسخها على باقى الخلايا تم ترقيمها تلقائيا حسب العمود B فهل هذه المافتيح الثلاثة وظيفتها تثبيت B3 فقط وفشلت أنا فى تطبيقها وعند جعلها مطلقة استجابت . ام ما هو وظيفتها ؟ جزاك الله كل خير ويسر لك كل عسير أبو سيف الدين
السيد عبد العال قام بنشر أغسطس 9, 2004 قام بنشر أغسطس 9, 2004 أولا أحب أن أشير أن الفكرة ماخوذة أن الإبداعة الرائعة لاستاذنا أبو هادى فى مشاركته فى ذلك الموضوع وقد سجلت أعجابى بالفكرة هناك ووظيفة Ctrl+Shift+Enterهى لجعل الأكسل يفهم ان هذه معادلة مصفوفةArray ومعنى المعادلة المكتوبة فى A7 (مع Ctrl+Shift+Enter) هىالآتى: كون مصفوفة وهمية مناظرة للخلايا فى النطاق B3:B7 (من أول صف حتى الصف الحالى) وكل عنصر فى هذه المصفوفة (أحادية البعد) يتم حسابه كلتالى: أذا كانت الخلية المقابلة للعنصر تحوى كتابة ضع العنصر مساويا واحد واذا كانت الخلية المناظرة غير ذلك ضع العنصر مساويا صفرا IF(ISTEXT(B3:B7),1,0) ثم اجمع عناصر هذه المصفوفة SUM(IF(ISTEXT(B3:B7),1,0)) ثم أذا كانت B7 (الخلية المجاورة) تحوى كتابة فضع الناتج (A7) مساويا لهذا المجموع وذا كانت B7 غير ذلك فضع الناتج صفرا =IF(ISTEXT(B7),SUM(IF(ISTEXT(B3:B7),1,0)),0) ثم نلاحظ انه قد تم وضع تنسيق مخصص لرقم للخلية يجعل قيم الاصفار لا تظهر .;-0; وبذلك يتضح أن كل خلية يدخل فى حسابها نطاق الخلايا من البداية وحتى الخلية المجاورة لها ويلاحظ فى المثال المرفق أن كل المعادلات عبارة عن B3 إلى السطر الحالى والحقيقة غاب عن ذهنى فكرة تثبيت B3 وقمت بتعديل المعادلات يدويا ورأيت ساعتها أن عملية تعديل المعادلات ستكون مملة ولذلك أضفت الكود كحل بديل اما وقد ألهمك الله لفكرة تثبيت B3 فقد سددت هذه الثغرة وأعتقد ان المعادلة أصبحت عملية جدا -حتى فى حالات الأضافة يكفى نسخ المعادالة فقط للصفوف المضافة أوكد أن Ctrl+Shift+Enter هو جزء أساسى من المعادلة وهى الطريقة التى نخبر بها الأكسل أن هذه معادلة مصفوفة وليس لها علاقة بتثبيت B3 وأن تثبيت B3 باستخدام المرجع المطلق هو الحل الصحيح وجزاكم الله خيرا
السيد عبد العال قام بنشر أغسطس 11, 2004 قام بنشر أغسطس 11, 2004 وهذه معادلة أرى بسيطة جدا =IF(ISTEXT(B7),COUNTA($B$3:B7),"") Numbring.zip 1
الردود الموصى بها