أكرم الغامدي

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

عمل جميل ورائع بارك الله فيكم جميعاً وجعله في ميزان حسناتكم.

وانت بألف خير وصحة وعافية أخي الكريم. إذا كنت قد شاركت معي من قبل بتظبيط إعدادات الإكسيل لكتابة التاريخ الهجري بالشكل الصحيح فهذا هو الحل. أو قم مباشرة ً بحذف هذه القيمة الثنائية "Mso TbCust" (المحدد باللون الأزرق في الصورة التالية) من محرر الرجيستري من هذا العنوان "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Options"

بارك الله فيكم جميعاً وكل عام وأنتم بخير.

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

تستخدم في الكود الخاص بفتح كتاب الاكسيل Private Sub Workbook_Open() End Sub وإن شاء الله في حال أصلح المنتدى تحميل الملفات سأضع مثال على ذلك إذا لم تتوصلوا للحل.

عذراً ففي هذه الأمور من الأفضل أن يكون الشرح بملف يشرح الحالة بالتمام وهذا ما فهمت فأعذرني ان كان فهمي لك خطأ Sub ccc() Dim I As Integer Dim S As Integer Dim K As Integer S = 0 K = 0 For I = 1 To 1000 If Range("H" & I).Font.ColorIndex = 3 And Range("H" & I) = "" Then S = S + 1 MsgBox "عدد الخلايا الفارغة ولون خطها أحمر = " & S & " خلية." End If If Range("H" & I).Interior.ColorIndex = 6 And Range("H" & I) = "" Then K = K + 1 MsgBox "عدد الخلايا الفارغة ولونها أصفر = " & K & " خلية." End If Next I End Sub

أخي أبو شرف لعل هذا الكود يفيدك فيما تريد Option Explicit Private Sub Form_Load() retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج") Unload Me End If End Sub

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

مشكور أخي الكريم، جزاك الله خيراً.

أخي أشرف أعتقد أن هناك مشكلة بالملف المرفق أما بالنسبة للمعادلة الخاصة بحساب الخانات الفارغة فهي "COUNTBLANK" وهذا مثال عليها: =COUNTBLANK(A:A)

عذراً أخي pinkpanther فقد رأيت كلمة "Print" = "Pring". العتب ع النظر ( :

يعطيك العافية أخي هشام

بالنسبة لحل السؤال الثاني: 1-إذا كنت تريد البيانات بدون تغيير: تقوم بنسخ الخلية المراد نقل قيمتها فقط ثم تقوم بلصقه "لصق خاص" ثم تنقر نقراً مزدوجاً على القيم. 2- في حال أردت البيانات متغيرة: تذهب للخلية المراد نقل القيم إليها وتكتب "=" ثم تقوم بتحديد الخلية التي بها المعادلة ثم تضغط زر الإدخال. أو تقوم بنسخ الخلية التي بها المعادلة مع كافة الخلايا المعتمدة عليها في استخراج الناتج.

أخي سامي أتمني أن تجد ما تبحث عنه في هذا الموضوع.

على العموم المشكلة التي كانت لدي: هي عند قيامي بالنقر على الورقة بزر الفأرة الأيمن لا تظهر لي القائمة المعتاد ظهورها، وقد حددت منبع المشكلة وقمت بحذفه. شكراً على الردود التي أشعرتني أنني قمت بفتح هذا الموضوع لأحدث نفسي فيه.

أخي one.tv لا أجد أساس أعتمد عليه في ترحيل البيانات بالطربقة التي تطلبها، أما إذا كان المطلوب في الطريقة التي إقترحتها عليك فيمكن ذلك بالإعتماد على التواريخ الموجودة، كأن نطلب منه ترحيل من تاريخ كذا لتاريخ كذا بدون إظهار التاريخ إن أحببت، ويكون الترحيل من الورقة2 للورقة3. فإن وجدت ما نرتكز عليه في طريقتك أخبرني لو تكرمت.

ألف مبرووك يا أبو عبدالله تستاهل، اسم على مسمى.

عذراً أخي one.tv على التأخير في الرد، وغداً إن شاء الله سأحاول في المطلوب.

ربما يفيدك هذا الموضوع أخي الكريم.

الملف الأول به الطريقة التي طلبتها وأتمنى أن تكون ما ترنو إليه. والملف الثاني به الطريقة التي أرشحها لك في عملية الفرز. مع تمنياتي لك بالتوفيق. one2007_2.rar one2007_3.rar

يعطيك ألف عافية أخي سراب.

حدثت مشكلة خطيرة معي من جراء هذا العمل ألم تلاحظوها؟ من قام بملاحظتها، يا ريت يديني خبر الحل بسيط جداً وهو كالآتي: طبعاً نحن في بداية الأمر قمنا بعمل نسخة إحتياطية لما هو موجود لدينا في المفتاح "Options" على العنوان التالي في محرر التسجيل: HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Options 1- نذهب إلى نفس العنوان الذي بالأعلى في محرر التسجيل ثم نقوم بحذف جميع القيم الموجودة ما عدا القيمة "Xl9_hijri". 2- بعد ذلك نذهب إلى ملف الريجستري (النسخة الإحتياطية القديمة) ونقوم بتفعيله كما فعلنا من قبل. وبذلك ستعود قيمكم القديمة (إعداداتكم القديمة) إلى جانب قيمتنا الجديدة "Xl9_hijri" (إعداد التاريخ الهجري عند سبقه بحرف "a") وبذلك نكون قد انتهينا من المشكلة الخطيرة التي كانت لدينا. س: هل تعلمون من الذي سيقع حقيقة ً ضحية هذا الخطأ الغير مقصود؟ جـ: هم الذين لا يقرأون الموضوع لآخره. لذا نصيحتي لكم يا إخواني الأعزاء: إذا هممتم لقراءة موضوع ما، أن تقرأوه للنهاية، وبالأخص إذا كان فيه تحميل ملفات. وفي النهاية أكرر أسفي، وأسألكم الدعاء لي ولوالديا وللمسلمين أجمعين، شاكراً لكم سعة صدوركم.

الله يعافيك، هذا هو العمل الجماعي الأصيل، جعله الله بميزان حسناتك أخي سراب الليل.

عذراً أخي حاجب لتأخري في الرد على سؤالك؛ والبسبب في ذلك هو أنني كنت قد توقفت تماماً عن استخدام هذه الطريقة بسبب طولها ولاستخدامها لعدد كبير من الخلايا على عكس دالة "Vlookup". الكتاب يقارن بين استخدام دالة "If" ودالة "Vlookup"، وستجد في النهاية أن استخدام دالة "Vlookup" أفضل بكثير كما تفضل عليكم أخي أبو عبدالله في مشاركته السابقة. Vlookup_If_Function.rar