معتصم محمد

استاذي الفاضل / أبو عبدالله للأسف الشديد لم اتعامل قبل ذلك مع الـ Forms فلا اعرف كيفية اداء هذه المهمة لعل وعسى احد الإخوة الأفاضل يقوم بهذه المهمة :(

تفضل اخي الفاضل Sub FormatInsideCell() Dim StartChar As Integer, NumChar As Integer Dim FormatThis As String FormatThis = "خصم" NumChar = Len(FormatThis) StartChar = InStr(1, Range("H14").Value, FormatThis, vbTextCompare) If StartChar > 0 Then With Range("H14").Characters(StartChar, NumChar).Font .FontStyle = "Bold" End With End If End Sub

الأستاذ / ابو عبدالله يمكنك إستخدام الكود التالي Option Explicit Sub FormatInsideCell() Dim StartChar As Integer, NumChar As Integer, CellLen As Integer Dim FormatThis As String FormatThis = "خصم" NumChar = Len(FormatThis) CellLen = Len(ActiveCell) StartChar = InStr(1, ActiveCell.Value, FormatThis, vbTextCompare) If StartChar > 0 Then ' التنيق الذي سيُطبق على النص الذي يسبق كلمة خصم ' With Selection.Characters(1, StartChar - 1).Font ' .Italic = True ' End With With Selection.Characters(StartChar, NumChar).Font .FontStyle = "Bold" End With ' التنيق الذي سيُطبق على النص الذي يلي كلمة خصم ' With Selection.Characters(StartChar + NumChar, CellLen).Font ' .Size = 15 ' .Underline = xlUnderlineStyleSingle ' End With End If End Sub مع ملاحظة أنك تستطيع تعديل التنسيق الذي تريده و كذلك الكلمة التي سيتم التطبيق عليها

بسم الله الرحمن الرحيم الدرس الثالث : إضافة توقيع رقمي للماكرو و إضافة زر لتشغيل الماكرو من شريط الوصول السريع Quick Access Toolbar في المرفقات يوجد ملفان، كل ملف يتناول موضوع على حدة أعتذر عن التأخر في طرح الموضوع فيديو عن كيفية تنفيذ الماكرو بالتوفيق للجميع الدرس الثالث - دورة الفيجول بيسك في الإكسل.rar

الأستاذ الفاضل / سعد عابد نقدر رغبتك في التعلم وسد الفجوات المعلوماتية، لكن وفقاً لخطة الدورة فإن الجزء الأول هو لفهم كيفيةإستخدام اداة مسجل الماكرو - وبعيداً عن هذه الدورة فإن اول خطوات الدخول لعالم الأكواد في اي دورة يكون بشرح مسجل الماكرو- وظيفة هذه المرحلة هو تعلم كيفية تسجيل الماكرو وكيفية استخدام هذا الماكرو. بينما ما ترغب في معرفته فسوف نتطرق له مع الوقت فمثلاً هناك من لا يعرف اين هو الكود الناشئ عن تسجيل الماكرو ولا ما هو شكل الكود اساساً، فكيف نقوم بالتحدث عن الكود يبدأ ب SUB في حالة الأكواد العادية التي لا تكون نتيجتها قيمة معينة وتبدأ ب Function في حالة كتابة دالة مستحدثة UDF نحن نرغب فقط في آلا نشتت اذهان من يدخل هذا المجال للمرة الأولى؛ لانه ان تشتت ذهنه فقد لا يُكمل هذه الدورة لذلك ارجو من الجميع الإلتزام بخطة الدورة وعد الإستفسار عن اي مواضيع خارج النقاط التي تم شرحها (فضلاً لا أمراً)، وفي حالة رغبتك في الإستفسار عن شي خارج اطار الدور فيمكن انشاء موضوع جديد بالتوفيق للجميع

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

قم بإستخدام اداة ال Format Painter أو من خلال نسخ الخلية التي بها التنسيق الشرطي ثم عمل لصق Paste Special ونختار Format طريقة اخرى » حدد كل الخلايا مرة واحدة ثم طبق التنسيق الشرطي الذي تريده مرة واحدة وسيتم تنفيذه على جميع الخلايا المحددة

شكراً استاذ / عبدالفتاح على هذا الشرح لأداة الكومبو بوكس

تفضل الملف المرفق تم الحل على خطوتين الأولى : تعتبر بادئة الحركة وتعمل على التاكد من وجود ارقام في الخلايا F5:N5 وتم إدخال هذه المعادلة في الخلية B15 الثانية : تقوم بإدراج القيم وفقاً لمرات تكرارها ملاحظة : هناك بعض العيوب في هذه المعادلات في حالة ان عدد الشعب في أحد الصفوف = 0 فإن جدول البيانات سيدرج خانة واحدة بها هذا الفصل. لم استخدم الدالة IFERROR لإخفاء الأخطاء عندما يتم إدراج جميع الصفوف بالكامل (بمعنى اننا اذا انتهينا من الصف التاسع ) وذلك لأنك ادرجت ملف بصيغة XLS وهي اي الدالة غير مدعومة بهذه الإصدارة 2003؛ لذلك ان كنت تستخدم نسخة 2007 أو ما يليها يمكنك استخدام الدالة لإخفاء هذه الأخطاء بالتوفيق بإذن الله إحصائية شهرية.rar

الأستاذ / ابو عبد الله عمل متقن كالعادة بارك الله فيك، وجعله في ميزان حساناتك

الأستاذ / الفاضل / عبدالله شكراً على التوضيح، وبالنسبة للبرنامج المستخدم في الشرح الفيديو هو Camtasia وفي بعض الأحيان استخدم الموقع Screenr.com للتسجيل مباشرة دون برامج (الحد الأقصى 5 دقائق للفيديو الواحد)

الأستاذ / دغيدي بنسبة كبيرة لا توجد إختلافات في التعامل مع الفيجول بيسك للتطبيقات في الإكسل حين تعمل مع نسخة 2003 أو ما يليها الإختلاف الذي سيكون متوقع هو ان الأدوات الجديدة في نسخ 2007 و 2010 سيكون لها اوامر جديدة لا يمكن استخدامها في نسخ 2003

الأستاذ الفاضل / عبدالله المجرب في حالة مشاركتي بإعداد دروس الفيديو، فما هي الألية التي على اساسها سأقوم بإعداد الدرس؟ وهل هناك ملاحظات معينة يجب مراعتها عند الشرح؟

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

استاذ / يوسف شكراً على التاكيد ، واتمنى ان يكون الكون ذا فائدة لك استاذ / عبدالله المجرب شكراً على كلام الجميل وبالمناسبة انا لا استاذ ولا حاجة، كل ما في الموضوع لدي بعض المعلومات التي اقوم بمشاركتها معكم والتي ارجو ان تكون مفيدة لمن يطالعها شكراً لكم جميعاً على كلماتكم الجميلة

الأستاذ / محمد سعد الأستاذ / ابو علاء الأستاذ / هانكوك اشكركم على مروركم الكريم، وطبعاً الحمدلله على ان الموضوع كان ذا عون لكم بالتوفيق للجميع

الأستاذ / مجدي يونس سبب المشكلة انك تقوم بإدخال الرقم مباشرة للخلية وبالتالي سيقرأه الإكسل على انه قيمة رقمية وبالطبع الصفر في بدية القيم الرقمية ليس له قيمة وعليه يقوم الإكسل بحذف / إزالة هذا الصفر ويترتب على ذلك ان المعادلة ستكون نتيجتها غير صحيحة لذلك يجب عليك ضبط التنسيق أولاً للخلية لتكون Text وذلك من خلال الضغط على كنترول + 1 ليظهر مربع حوار تنسيق الخلية في تاب الأرقام Number نختار التصنيف Text ثم موافق الأن تستطيع كتابة الرقم وهو يبدأ بالصفر

بارك الله فيكم جميعاً وحمداً لله على سلامة استاذنا / عبدالله باقشيير

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

غفر الله لها واسكنها فسيح جناته

بسم الله الرحمن الرحيم الإخوة الأعزاء السلام عليكم ورحمة الله وبركاته اتمنى ان تكونوا بأفضل حال، وفي صحة جيدة بعد صدور قرار هيئة الإتصالات المصرية بتعديل بادئات ارقام المحمول لتصبح 11 رقماً بدلاً من 10 ارقام، قلت لما لا اقوم بتجربة تعديل الأرقام من خلال الإكسل فكانت النتيجة هذا الشيت ملحوظة : هذا العمل لا يساعد على تغيير الأرقام المخزنة على محمولك (في حالة انك من مصر) إنه فقط محاولة للتفكير في إيجاد حل لاحد الموضوعات المعاصرة ، ورغبة في تحسين مستواي في التعامل مع البرنامج ملحوظة 2 : إذا كان بالإمكان تعديل الكود المرفق بحيث يكون اقصر قليلا فأرجو المشاركة (تقصير الكود يعني استخدام اسلوب متقدم في التكويد وتحليل المشكلة بالتأكيد ) Function UMN(Mobile As Range) As String ' Update Mobile Number Dim Prefix As String Dim NPrefix As String Dim Suffix As String Select Case Len(Mobile) Case 10 Prefix = Left(Mobile, 3) Case 11 Prefix = Left(Mobile, 4) End Select Select Case Prefix Case "012": NPrefix = "0122" Case "017": NPrefix = "0127" Case "018": NPrefix = "0128" Case "010": NPrefix = "0100" Case "016": NPrefix = "0106" Case "019": NPrefix = "0109" Case "011": NPrefix = "0111" Case "014": NPrefix = "0114" Case "0150": NPrefix = "0120" Case "0151": NPrefix = "0101" Case "0152": NPrefix = "0112" End Select Suffix = Right(Mobile, 7) UMN = NPrefix & Suffix End Function Update Mobile Number.rar

جزاك الله خيراً استاذنا / نارت على هذا الملف الرائع

استاذنا / محمد طاهر لا استطيع التعليق على الملف لكن احبت ان اقول جزاك الله خيراً على كل المجهود المبذول في هذا الموقع، وجعله الله في ميزان حسناتك

الأستاذ / طاهر راجع المرفق لاحظ انني اقتصرت على التحقق من الشيتات الثلاثة الأولى DataValidation Custom.rar

الأستاذ / ابو احمد كود منظم ومفيد