العالم الجليل علامة الإكسيل
والله لكم يطير قلبي فرحاً بكلماتك الرقيقة
جزاكم الله خيرا على تشجيعكم لي
وإننا مهما بلغنا فلن نبلغ قطرة في بحر علمكم فمنكم دائماً نستفيد
جزاك الله عنا خير الجزاء
باشمهندس شرف
الملف يعمل لدي بشكل ممتاز
هل نقلت الكود إلى ملفك أم أن الملف الذي أرفقته هو الذي قمت بتحربته ؟
أرجو الإفادة..
ملحوظة فيه بعض الأعمدة مخفية في الورقة الأولى!!
وفيه بعض النطاقات التي تم تسميتها
-------
المهندس شرف
إليك الملف التالي عله يفي بالغرض
وجدير بالذكر أنه لولا الدالة التي أبدعها العالم الجليل خبور خير لما كان هذا الحل !!
فلله الفضل ثم لهذا العالم الكبير فيما وصلنا إليه
أخوك أبو البراء
SeparationOfNames.rar
أخي الحبيب طالما أنك جربتها فلما السؤال
عموما ما تزعلش .. على حد علمي أنها لا تعمل معها إلا إذا عرفت ColorIndex الخاص باللون المراد واستبدلته في الكود بدلا من 41 و 7
يعني ممكن!!!
مفيش حاجة مستحيلة!!
السلام عليكم إخواني الكرام في المنتدى الغالي
أقدم لكم اليوم درس عن السلاسل النصية في VBA ، أتمنى أن تستفيدوا منه إن شاء المولى .. .
أخوكم ياسر خليل أبو البراء
حمل من هنا
جرب أن تضع هذا الكود في صفحة ورقة العمل
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Me.Range("A1:C15")) Is Nothing Then
Application.CalculateFullRebuild
End If
End Sub
بسم الله ما شاء الله
منتدى إلتقاء المبدعين ...أعمال وحلول كلها رائعة
إثراءاً للموضوع أقدم لكم كود يقوم باستخراج أوراق العمل ويضعها في العمود A وهو من أعمال الأخ يحيى حسين - جزاه الله خيرا
إليكم الملف المرفق
أخوكم أبو البراء
ExtractSheetNames.rar
أخي عامر
جرب الملف التالي وهي عبارة عن دالة تقوم باسترجاع اسم الكمبيوتر
جرب طريقة أخرى يدوياً لمعرفة اسم الكمبيوتر
على أيقونة My Computer على سطح المكتب اعمل كليك يمين ثم التبويب Computer Name ثم قم بقراءة اسم الكمبيوتر من الجزء Full Computer Name
ComputerName.rar
أيوا تمام المفروض تضغط إنتر يظهر اسم الكمبيوتر الخاص بك
قم بالدخول إلى محرر الأكواد صفحة الأكواد الخاصة بالمصنف ثم قم بتعديل الاسم SICOWIN إلى الاسم الذي ظهر لك (اسم الكمبيوتر الخاص بك)
الأخ الكريم أمير
إليك في الملف التالي تصحيح الكود - وإن كان سهلاً - كسر هذه الحماية
عموما أرفقت لك ملف ... عند فتحه قم باختيار Cancel ثم غير في السطر الأول من الكود اسم الكمبيوتر من SICOWIN إلى الاسم الظاهر لديك في A1 وإن شاء الله يعمل معك
أخوك أبو البراء
ProtectUsingComputerID.rar