ياسر خليل أبو البراء

بارك الله فيك أخي الكريم كريم على جهودك المبذولة في خدمة إخوانك بالمنتدى تقبل وافر تقديري واحترامي

أخي الحبيب محمد علي الطيب بارك الله فيك وجزاك الله كل خير على إحياء التراث والكنوز المدفونة إنه حقاً ملف رائع وجميل هل أثني على الملف والموضوع وأكتفي ؟؟! بالتأكيد لن يرتاح قلبي أبداً طالما لم أدلي بدلوي (قول مأثور من العربي) دعنا نحلل الملف بحيث يستفيد منه إخواننا الكرام في المنتدى (سيكون التحليل في نقاط) --------------------------------------------------------------------------------------------------- ** يعجبني دائماً أن تكون الجملة التالية في بداية كل موديول .. Option Explicit والتي من شأنها تجبر المبرمج على الإعلان عن المتغيرات وهو أمر مستحب وأنا عن نفسي أفضله ** تم الإعلان عن الـ API في بداية كل فورم بهذا الشكل Private Declare Function sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Dim MYPATH وتكرر نفس الإعلان في الفورم الثاني السؤال : لما التكرار .. ؟؟!!! هل فكرنا للحظة أنه يمكن الاستفادة من الإعلان بشكل عااااااااااااااام Public؟ ماذا لو أردت أن أضيف فورم أخرى وأريد فيها نفس الإعلان ..هل سيتحتم علي أن أقوم بالإعلان في كل فورم على حدا ..إنه لأمر مرهق !! ألستم توافقونني الرأي في تلك النقطة الحل : أن نقوم بالإعلان مرة واحدة فقط ..كيف سيتم ذلك؟ يتم ذلك في بداية أي موديول ونستخدم كلمة Public بدلاً من Private لأنه سيصبح إعلان عااااااااااااااااام وليس خاااااااااص بالفورم فقط كما يتم الإعلان عن المتغيرات المستخدمة في الموديول باستخدام كلمة Public أيضاً ليصبح الإعلان بهذا الشكل (يوضع في بداية الموديول) Public Declare Function sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Public MYPATH ولكن مهلاً ..ماذا عن أصحاب النطام المنتشر 64 بت ...حتماً ستواجههم مشكلة في العمل على الملف .. لابد أن نراعي جميع الأطراف .. المهم للتعديل ليصبح الكود يعمل على كلا النظامين 32 بت و 64 بت سيتم التعديل على الإعلان .. وإضافة المتغيرات الأخرى التي ستسبب أخطاء في حالة عدم الإعلان عنها #If VBA7 Then Public Declare PtrSafe Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long #Else Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long #End If Public myPath As String Public SoundFile, Result أخيراً انتهينا من تلك النقطة إليكم الملف المرفق بعد عمل التعديلات .. ليتناسب مع مستخدمي الـ 32 بت والـ 64 بت .. تقبلوا تحياتي Add Sound To CommandButton On UserForm.rar

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

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

أخي الكريم يرجى تغيير اسم الظهور للغة العربية تفضل الملف المرفق التالي وقم بدراسته جيداً ..فيه أمثلة متعددة لاستخدامات الدالة VLOOKUP داخل الـ VBA .. كنت من فترة قد اطلعت على مقالة فيها هذه الأمثلة وقمت بتطبيقها على ملف مرفق ... إن شاء الله يفيدك الملف تقبل تحياتي VLOOKUP In VBA With Examples YasserKhalil.rar

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

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

أخي الحبيب نضال الشامي بارك الله فيك وجزاك الله كل خير على كل ما تقدمه وجعله الله في ميزان حسناتك يوم القيامة تقبل وافر تقديري واحترامي

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

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

أخي العزيز حماده سعد الله بارك الله فيك وجزيت خيراً على دعائك الطيب .. الحمد لله أن تم المطلوب على خير .. والحمد لله الذي بنعمته تتم الصالحات

بالطبع أخي الحبيب أحمد قد يكون للموضوع الواحد أكثر من كود .. وجزيت خيراً على اهتمامك بالأمر تقبل تحياتي

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

أخي الكريم كريم ما زال الطلب غير واضح يرجى إرفاق شكل النتائج المتوقعة ...ليساهم الأخوة الأعضاء في حل مشكلتك كفكرة يمكن استخدام الـ Pivot Tables لكني لست خبيراً باستخدامها .. تقبل تحياتي

بارك الله فيك أخي الغالي أحمد أعتقد أن الفهرس كأقسام شيء جميل ومنظم ولكنه سيكون محير في بعض الأحيان حيث سيكون هناك حيرة في وضع موضوع معين في أي قسم فقد يكون الموضوع يشمل أكثر من قسم لذا أفضل كموضوعات ليسهل البحث بشكل عام .. تقبل تحياتي

أخي الكريم كريم اطلع على النطاقات المسماة من خلال التبويب Formulas ثم Name Manager ... ستجد أن الصوة تم عمل تسمية لها في صندوق الاسم بنفس الاسم ..اطلع على المعادلة... شوف الـ Data Validation ثم List لتعرف مصدر القائمة المنسدلة تقبل تحياتي

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

جرب الكود التالي عله يفي بالغرض Sub HideEmptyRowsAndColumns() Dim X As Long, LR As Long With Application .ScreenUpdating = False Columns.Hidden = False: Columns.Hidden = True For X = 1 To Columns.Count If .WorksheetFunction.CountA(Columns(X)) > 0 Then Columns(X).Hidden = False Next X LR = Cells.SpecialCells(xlCellTypeLastCell).Row Rows(LR + 1 & ":" & Rows.Count).Hidden = True For X = 1 To LR If .WorksheetFunction.CountA(Rows(X)) = 0 Then Rows(X).Hidden = True Next X Application.Goto Range("A1"), True .ScreenUpdating = True End With End Sub

بارك الله فيكم إخواني .. والحمد لله أن تم المطلوب على خير كما أشكركم على حسن استجابتكم للتوجيهات تقبلوا وافر تقديري واحترامي

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

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

أخي الكريم محمد ماهر ضع التاريخ الذي سيتم احتساب تاريخ الميلاد على أساسه في أي خلية وليكن E1 وروح لصندوق الاسم اللي على شمال شريط المعادلات .. وسمي الخلية دي Start_Date واضغط إنتر من لوحة المفاتيح لتأكيد اسم الخلية ضع تاريخ ميلاد الطالب في الخلية A1 مثلاً ثم ضع المعادلة التالية في الخلية B1 لحساب الأيام =IF(A1="","",IF(DAY(Start_Date)<DAY(A1),DAY(Start_Date)+30-DAY(A1),DAY(Start_Date)-DAY(A1))) ثم ضع المعادلة التالية في الخلية C1 لحساب الشهور =IF(A1="","",IF(A1>1,DATEDIF(A1,Start_Date,"ym"),"")) ثم ضع المعادلة التالية في الخلية D1 لحساب السنوات =IF(A1="","",IF(A1>1,DATEDIF(A1,Start_Date,"y"),"")) إذا لم تعمل معك المعادلات استبدل الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

أخي الكريم أحمد العدوي الدالة MROUND تعمل عندي ..أكيد نسخة الأوفيس اللي عندك قديمة عموماً جرب المعادلة البديلة التالية لتؤدي نفس الغرض إن شاء المولى =ROUND(D2/5,0)*5 تقبل تحياتي

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

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