السلام عليكم

رح بلش موضوع جديد ومفيد للجميع بإذن الله, رح حط أكواد جاهزة للفيجوال بيسك ضمن الإكسل ( ماكرو ), هالأكواد مو شغلي, هي منقولة وبالتالي في حال رغب أحد الأعضاء تعديل الموجود في أحدها فمابضمن إنو يكون فيني, بكل الأحوال باتمنى للجميع الإفادة والتوفيق.
مع كل كود بإذن الله رح يكون في صفحة اكسل كمثال للكود وبالتالي اللي ماعرف كيف يضيف الكود ممكن يستفيد من المثال ليعرف أو ع القليل ليستخدم الكود كما هو, لأنو مثل ماقلت هالأكواد رح أنقلها لكم مع استخدامها ومثال عليها فقط بدون أي شرح للغة البرمجة إلا ما هو بنطاق ما أعرف.

بنبلش على بركة الله مع أول كود 

كود لتلوين الخلية الفعالة ( اللي بنكون واقفين عندها )

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

الكود:

من الرابط أدناه فيك اتحمل بإذن الله مثال جاهز لهذا الكود.

http://www.4shared.com/file/111388756/4b48e90c/highlight_active_cell_with_yellow_color.html

كود جميل
بارك الله فيك
منتظرين الكثير من هذه الأكواد الرائعة
دمتم بكل الخير

السلام عليكم

أهلاً بك أخي الكريم, الأكواد سأضيفها تباعاً بإذن الله القدير فتوكل على الله.

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

 كود

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static OldCell As Range

If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
End If

Target.Interior.ColorIndex = 6

Set OldCell = Target


End Sub

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

السلا م عليكم

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

عنما أكون جاهزاً لهكذا أمر بإذن الله, سأضعه هنا ليستفيد منه الجميع إن شاء الله

السلام عليكم

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

ملاحظة, بالكود الأول اللي أضفته في هذا الموضوع, مكان الكود كان مختلفاً عن الصورة السابقة, كما في الصورة التالية,

في المشاركة التالية سأتكلم عن الكود الذي أضفته الآن بإذن الله

سأضيف كود مهم جداً للبعض, حيث أنه خلال عملنا كثيراً مانصادف بيانات من أكثر من نوع في خلية واحدة ( أرقام وأحرف ) وبالتالي نريد حذف الأرقام أو الأحرف.

هذا الكود ببساطة يقوم بذلك.

نبدأ بنص الكود

 كود

Option Explicit

Function AlphaNum1(txt As String, Optional numOnly As Boolean = True) As String
'same result as AlphaNum2
With CreateObject("VBScript.RegExp")
.Pattern = IIf(numOnly = True, "\D+", "-?\d+(\.\d+)?")
.Global = True
AlphaNum1 = .Replace(txt, "")
End With
End Function

دعونا مع صور الكود وكيفية استخدامه, ثم صفحة اكسل فيها الكود. بالتوفيق بإذن الله العزيز الحكيم

وأخيراً صفحة اكسل فيها الكود مضاف للتشغيل والتجربة مباشرة

http://www.4shared.com/file/112252747/48cd0536/delete_letters_from_cell.html

بالتوفيق والرضى من الله

الموضوع مفيد جدا لجميع مستخدمي الأكسل

جزاك الله عنا كل خير