نجوم المشاركات

السلام عليكم ورحمة الله إخواني الكرام، أشارككم الموضوع بهاتين المعادلتين: =OFFSET($A$1;ROW()-1;ROW()-1) و =INDIRECT(ADDRESS(ROW();ROW())) بن علية

السلام عليكم ورحمة الله وبركاته قررت ان اضع البرنامج في ايدي بعض الاخوة القائمين على المنتدى الكريم الذين يهمهم الصالح العام ويكون فوق اي رغبات اخرى من شأنها الاضرار بأعمال الغير (مش معنى اني قلت بعض الاخوة اللي يهمه الصالح العام يبقي الباقي وحش لا ابدا ولكن هو مجرد اختيار وهذا لا ينقص من جميع الاخوه الافاضل شئ ) وليس فانكوش ولا حاجه بل هو فعلا كما قلت ورغبة من الذين تم طرح البرنامج عليهم في وضعه بحدود وارى انا هذا هو الحل الافضل وارجو من الاخوة الذين لديهم البرنامج ان يعرفوا هذه الشروط وانا علي ثقة تامة بهم ولو اتسرب معروفين اجيبهم من$###$$ ونرجوا من الاخوة الكرام تفهم هذا الوضع ومن لديه ملف تنفيذي يريد استخراج ملف الاكسيل منه يعرضه في موضوع مستقل ونرى الملف هل لنا الحق في فكه او لا والله المستعان

بسم الله الرحمن الرحيم 1- المكتبات والادوات DLL & OCX 2- كيفية تسجيل المكتبات والأدوات Dll & OCX في النظام 3- كيفية إضافة المكتبات وأدوات خارجية للفيجوال والعمل عليها ما هي فوائد استخدام ملفات ال DLL او لماذا نستخدم ملفات DLL: ماذا تعني DLL: هي اختصار لمجموعة الكلمات التالية Dynamic link libraries لمحة سريعة عن DLL: هي عبارة عن ملفات مترجمة(Compiled files) شبيهة الى حد بعيد جدا بالملفات التنفيذية و التي تحمل اللاحقةExe, ملفات ال DLL يمكن ان تحتوي على Codes او يمكن ان تحتوي على مصادر resources او ممكن ان تحتوي على بيانات Data و قد تجد DLL يحتوي على كل ما سبق ذكره, و لكن الفرق الجوهري بين DLL و Exe هو أنّ ملفات DLL لا يمكن تنفيذها بشكل مباشر و انما يتم استثمارها من قبل تطبيقات اخرى اي ان ملفات DLL ليست مستقلة بحد ذاتها و تحتاج الى تطبيق دائماً للاستفادة منها مع انها تحتوي على اكواد تنفيذية مثلها مثل exe و لكن لا يمكنها ان تعمل بمفردها و يمكنك تخيل ان ملفات DLL هي ملفات مساعدة للتطبيق للقيام بعمله. الهدف الرئيسي من وجود ملفات DLL هو مشاركة الاكود بين العديد من التطبيقات اي استخدام نفس ال DLL من اكثر من تطبيق سواء بوقت واحد او بشكل منفصل. والادوات ocx تشبه نفس وظائف dll بصورة كبيرة كيفية تسجيل الأدوات نفترض ان لدينا ملف dll او ocx نريد اضافة للنظام للعمل عليه من داخل الفيجوال بطريقة سليمة الطرق كثيرة ولكن نختصر ونضع الخلاصة نفترض انا لدينا اداة اسمها actskin4.ocx نقوم بنسخها لملفات النظام اذا كان 32 لملف c:\windows\system32\actskin4.ocx اما اذا كان النظام 64 bit فلا بأس من نسخ الملف مرتين في المسارات الاتيه c:\windows\system32\actskin4.ocx C:\Windows\SysWOW64\actskin4.ocx ونقوم بعمل نوت باد اذا كان النظام 32 نضع هذا السطر regsvr32 c:\windows\system32\actskin4.ocx ونحفظه بامتداد bat وليكن اسم الملف reg.bat اما نظام ال64 نضع الاسطر التالية regsvr32 c:\windows\system32\actskin4.ocx regsvr32 c:\windows\SysWOW64\actskin4.ocx وتعمل لكلا النظامين ويتم الحفظ ايضا بامتداد bat واسم الملف ليكن هكذا reg.bat وغالبا يتم فتح الملف بعد ذلك كمسئول كليك يمين وRun admin لتظهر نافذة تقول انه تم التسجيل بنجاح ولقد وضعت برنامج في المرفقات للتسهيل علي البعض في تسجيل الاداوت كيفية إضافة المكتبات وأدوات خارجية للفيجوال بعد ان قمنا بنقل الادوات الى ملفات النظام سواء 32bit or 64bit وتم تسجيلها كما بالشرح السابق نقوم بفتح مشروع جديد وبكدا نكون تعلمنا طريقة وضع الادوات علي الفورم ناتي لكيفية التعامل معها برمجيا وكمثال هنعمل علي نفس الاداة المدرجة في اعلاه وهي actskin4.ocx ما فائدة هذه الاداة : تقوم بتغيير المظهر العام لوجهه الفورم والازرار الى واجهات skinمعدة للتعامل مع هذه الاداة وهي من اللمسات الجمالية للبرنامج بتاعنا عيب الاداة : ان الليبل الاصلي لا يظهر عند تشغيل البرنامج ولا اداة image ويأتي مع الأداة ليبل بديل لليبل الاصلي يظهر مع الاداة وتستبدل الimage بال picture نأتي لكيفية التعامل معها برمجيا اولا نقوم بانشاء مشروع جديد واضافة الاداة كما سبق ويتم وضع الكود الخاص بالاداة في حدث تحميل الفورم وممكن وضعه باي حدث نشاء كزر مثلا لتغيير الskin كود التشغيل يجب اولا ان يكون لديك ملفات skin ليتم التطبيق عليها عن طريق الاداة قمت بارفاق بعض ال skin للتطبيق عليها ووضعتها داخل مجلد داخل البرنامج بتاعنا وسميته كمثال skin الكود البرمجي Private Sub Form_Load() ' سطر استدعاء وتحميل ملف الskin من مسار البرنامج داخل المجلد skin اسمه Yasser.skn Skin1.LoadSkin (App.Path & "/skin/yasser.skn") 'سطر تطبق ما تم استدعائه Skin1.ApplySkin Me.hWnd End Sub واحفظ مشروعك وقم بتشغيله لترى هذا شوف الفرق اي استفسارات توضع ف موضوع الردود والاستفسارات الى اللقاء والسلام عليكم مع تحياتي ياسر العربي يتبع مرفق برنامج تسجيل الاداوت والمشروع المنفذ ف الشرح RegOCX.rar مشروع لمسه جمالية.rar

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

بسم الله الرحمن الرحيم ارجو عدم التعليق داخل الموضوع لسهولة الوصول للدروس تباعا والتعليق يكون داخل الموضوع في الرابط التالي http://www.officena.net/ib/topic/65630-الردود-والاستفسارات-عن-دروس-الفيجوال-بيسك6-والاكسيل-ياسر-العربي/ أما ألان دعونا نغوص في بحور الفيجوال قليلا وترك الإكسيل مؤقتا لحين الإلمام بمبادئ الفيجوال وبداياته ثم نتحول للربط بينهم فيما بعد أولا قمت بإرفاق نسخة محمولة من برنامج الفيجوال بيسك6 موجودة هنا صغير الحجم وتفي بالغرض ألان http://up.top4top.net/downloadf-top4top_20111f0b9a1-rar.html نقوم بتفعيل البرنامج من VbPortable6.reg ثم نقوم بتشغيل البرنامج منvb6 وان واجهتم اي مشكلة في التشغيل يرجى تشغل البرنامج كمسئول كما بالصورة تظهر لنا الشاشة الآتية 1- فتح مشروع جديد 2- فتح مشروع موجود مسبقا 3- اخر مشروعات تم فتحها 4- وهو المشروع الافتراضي الذي سنعمل عليه دائما نقوم بفتح standard.exe جديد سيظهر لنا بالشكل التالي 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا وبكدا نكون عرفنا شكل الواجهه للبرنامج نخش في مقارنة سريعه قبل البدأ في العمل علي المشروع بين هذه النافذه ونافذه محرر الاكواد داخل الاكسيل وهذه صورة لنافذة محرر الاكواد داخل الاكسيل 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا ايه دا تخيلو ان احنا بنتعامل مع نفس محرر الاكواد كله كان مصعبها علي نفسه ويقول برمجة ومش عارف ايه اهو هو هو محرر الاكواد بس التوسع في مجال اخراج البرامج انما الواجهه وطريقة العمل هي بعينها طيب وبعدين ياعم الحاج كمل اقول لكم حاجه حلوة كمان ومقارنة سريعه تانية نفس الادوات واسمائهم بس مش عارف بيرخموا ليه وبيزودو كلمة بوكس وبوتن يعني لما نكتب مثلا تكست بوكس 1 بتساوي تكست بوكس 2 نعملها كدا اكسيل TextBox1.Text = TextBox2.Text فيجوال بيسك6 Text1.Text = Text2.Text دا الطبيعي العادي وممكن نسميهم مثلا اسيل1واسيل2وتمشي مع المحررين Aseel1.text = aseel2.text اظن كدا الصورة وضحت لمعظم الموجودين والمتابعين يلا بينا نعمل برنامجنا الاول مع بعض وقبل المشروع الاول نبدأ بمشروع بسم الله الرحمن الرحيم نضع عدد واحد تكست وكومند1 نضغط علي الكومند مرتين ليظهر محرر الاكواد نضع به التالي ثم نضغط run او F5 ثم نضغط علي الزر ليظهر لنا بسم الله نبدأ من جديد طيب لحفظ المشروع علي هذا الوضع نقوم بالذهاب الى قائمة File ومنها save project as ونحدد له مكان ونحفظ يتم حفظ المشروع وعدد الفرومات الموجودة معه طيب عاوزين نحول البرنامج بتاعنا لتنفيذي بقي عشان نشغله علي أي جهاز ونفرج الناس علي ابداعنا في الفيجوال بردو من قائمة file نختارmake project ونضعه في المكان اللي احنا عاوزينه وهذا شكل البرنامج ناخد مشروع تاني علي السريع صغير ايضا عبارة عن أله حاسبة بسيطة المكونات تلاته تكست تلاته ليبل اربعه كومند كما بالصورة ونضع بداخل الفورم الاكواد التالية ونحفظ المشروع ونحوله لملف تنفيذي كما تعلمنا سابقا وزي الشطار كدا كل واحد يرفق المثال اللي عمله في موضوع الردود والاستفسارات عن درس الفيجوال بيسك6 والاكسيل وانا علي ثقة تامة ان الاخوة المتابعين سيبدعوا في العمل انا حاولت اشرح بطريقة تقليدية بسيطة ولكن هلاقي منكم ابداع غير عادي باذن الله وهلاقي برامج تانية بتتعرض منكو باذن الله مع تحياتي ياسر العربي يتبع

السلام عليكم ورحمة الله وبركاته للمهتمين بعلوم واسرار الاكسيل ( زكاة العلم نشره شارك معى الجميع) معظمنا سمع عن الدالة المخفية DATEDIF ولكن هل سمعت عن الدالة EVALUATE انها ايضا دالة مخفية او سرية موجوده فى الاصدار Excel v4.0 macro function الصادر عام 1994 . وهذا شرح مبسط لكيفية عمل هذا الدالة . EV.zip

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

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

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

السلام عليكم ورحمة الله تفضل اخي ابو حمادة إليك ماطلبت ظهور الفورم بدون زر امر "نعم" وبعد خمسة ثواني يظهر. اخوكم في الله / ابو الحسن والحسين KHMB OnTime ظهور زر امر بعد خمسة ثواني.rar

أخي الحبيب إبراهيم أبو ليلة جرب الكود التالي عله يكون المطلوب Dim Str1 As String, Str2 As String Sub CreateWorkbook() Dim WB As Workbook Set WB = Workbooks.Add Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value Application.ScreenUpdating = False Application.DisplayAlerts = False WB.SaveAs Filename:=ThisWorkbook.Path & "\" & Str1 & Str2 & ".xlsx" WB.Close True Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Sub OpenWorkbook() Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Str1 & Str2 & ".xlsx" End Sub

زمن العزه

السلام عليكم ورحمة الله وبركاته كل عام وحضراتكم بخير وضعت هذا السؤال لمشاركة الجميع فى الحل وحتى تعم الفائده على الجميع

استاذى الحبيب / محمد الريفى يشرفنى اكون اول المشاركين طبعا انت عايز تشغل مخنا شويه تقبل منى هذا الحل المتواضع بالمعادلات ضع هذه المعادله بالخليه O1 واسحبها نزولا لاسفل =INDEX($A$1:$N$14;ROW();ROW()) يوجد حلول اخرى بالمعادلات والاكواد ولكن اترك الفرصه لغيرى للمشاركه وتنوع الافكار واكيد انت عندك الحل المفاجأه اللى هيقش الكل تقبل تحياتى

الله ينور ابو يوسف الهدايا الحلوة دي حبيبي ابو البراء حمدا لله علي السلامة ياغالي اتفضل ياغالي نوسعلك مكان وبخصوص الاداة نشوف طريقة نطبقها علي ال64 تقبلو تحياتي

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

فين الفنكوش يا عربي ؟ ولا هو فاشوش .. شوقتنا لرؤية القنبلة الموقوته

وعليكم السلام 1. غير الاعدادات حسب السهم الى نعم 2. ضع الكود في حدث النقر المزدوج للحقل كود الصنف: Private Sub كود_الصنف_DblClick(Cancel As Integer) Me.Parent.n1 = Me.كود_الصنف End Sub جعفر

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

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

تعددت الطرق والغرض واحد يعني كله بيلف يلف ويحقق نفس الغرض الاساسي وارجو منك ارفاق بعض الامثلة التنفيذية لكسرها ايا كانت مع العلم ان فيه احتمالية طرق لتحويل الملفات لتنفيذية متشتغلشي معايا فقد تكون تعمل باليه غير المتبعه في اغلب الملفات التنفيذية ولكن لها الحل ايضا باذن الله اما موضوع ملفات Dll او المكتبات الديناميكية Dynamic link libraries هي عبارة عن ملفات مترجمة(Compiled files) شبيهة الى حد بعيد جدا بالملفات التنفيذية و التي تحمل اللاحقةExe, ملفات ال DLL يمكن ان تحتوي على Codes او يمكن ان تحتوي على مصادر resources او ممكن ان تحتوي على بيانات Data و قد تجد DLL يحتوي على كل ما سبق ذكره, و لكن الفرق الجوهري بين DLL و Exe هو أنّ ملفات DLL لا يمكن تنفيذها بشكل مباشر و انما يتم استثمارها من قبل تطبيقات اخرى زي معظم لغات البرمجة المفروض دا الموضوع اللي كنت هشرحه في الفيجوال dll وطرق اضافتها والعمل عليها عيب يامعلم ابراهيم احنا مش بنبيع الفانكوش احنا بنصنعه البرنامج شغال وتمام التمام ولكن ارد ان يكون بموافقة الجميع ولو مستعجل هات ملف تنفيذي وارجعه ليك ملف اكسيل وشوف شرح الفيديو

السلام عليكم ورحمة الله وبركاته في احد البرامج التي اشتغلت عليها ، كان المطلوب احد الاشياء التالية مثلا: مدة الخدمة ، من تاريخ التوظيف الى اليوم ، إضافة خدمة (سنوات/اشهر/ايام) الى تاريخ التوظيف ، خصم مدة (سنوات/اشهر/ايام) من تاريخ التوظيف ، فبدل الحساب اليدوي ، عملت نموذج لآلة حاسبة ، للتواريخ النموذج frm_Date_Diff : حساب الفرق بين تاريخين: 1. ادخل التاريخ الاكبر في الحقل 1 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، 2. ادخل التاريخ الاصغر في الحقل 2 ، وعند تغيير التاريخ سنرى الفرق بين التاريخين في الحقول سنة/شهر/يوم ، وعند النقر المزدوج على 1 او 2 ، فان القيم سيتم حفظها في الحقول 11 و 22 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير التواريخ ، بينما تحتفظ بأصل التواريخ في 11 و 22 ، إضافة / طرح (سنوات / اشهر / ايام) من تاريخ: 1. احذف التاريخ من الحقل 2 ، 2. ادخل سنة/شهر/يوم الى الخانات 3 و4 و5 ، 3. حسب الحاجة ، اختر 6 لإضافة السنة/شهر/يوم الى التاريخ الاول ، وسترى النتيجة في الحقل 2 ، 4. حسب الحاجة ، اختر 7 لطرح السنة/شهر/يوم من التاريخ الاول ، وسترى النتيجة في الحقل 2 ، وعند النقر المزدوج على 3 او 4 او 5 ، فان القيم سيتم حفظها في الحقول 543 مؤقتا ، بحيث تستطيع ان تقوم بعمليات اخرى وتغيير السنوات/الاشهر/الايام ، بينما تحتفظ بالاصل في 3 و4 و5 وهنا مثال متحرك: جعفر 301.Dates_Calculations.mdb.zip

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

في اي نموذج؟

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

من غير ما اشوف المشروع كفيت ووفيت اخي عبد العزيز انا سايب رجالة ورايا قد المسئولية بارك الله فيك اخي الغالي وفي كل ا لاخوة الموجودين لكم مني كل الشكر والتقدير

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

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

هذه المعلومة غير صحيحة انظر في اعدادات الكومبوبوكس: . اذا كانت قيمة "الالتزام بالقائمة" = لا ، فتستطيع ان تُدخل بيانات جديدة في الكمبوبوكس ، واذا كانت قيمة "الالتزام بالقائمة" = نعم ، فلا تستطيع ان تُدخل بيانات جديدة في الكمبوبوكس ، وانما تستطيع ان تختار فقط (معظم برامجي تقوم على هذا الاختيار). جعفر 0.Combobox_Limit_to_List.bmp

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

بارك الله فيك أبي الغالي أبو يوسف موضوع جميل و في غاية الروعة والبساطة فاصل بلا فواصل .. فإخوانك في انتظار المزيد والممتع والمفيد

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

تفضل اخى الكريم شاهد المرفق هل هو طلبك تقبل تحياتى New Microsoft Excel Worksheet.zip

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

أخي الكريم ميمو يرجى تغيير اسم الظهور للغة العربية قم بالإطلاع على المرفق التالي عله يفيدك في طلبك (مشابه لطلبك) CansSum UDF Function.rar

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

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

السلام عليكم ورحمة الله وبركاته الحمد لله على السلامة عوداً حميداً بمشيئة الله أخي الحبيب ياسر أبو البراء تقبل تحياتي العطرة

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

اخي الفاضل سلمان الشهراني شغيل موجه الاوامر (كمسؤول) ادخل الكود هكذا regsvr32 msinet.ocx

اخى ابراهيم ابوليله قلت لك اعمالككلها جميله ومبهره جزاك الله خيرا الله عليك يكفيك انك ارسلت البرنامج مفتوح المصدر البرنامج متعوب عليه جزاك الله خير الجزاء وجعله فى ميزان حسناتك وفقكم الله

اخي بسام ... كما قال الاستاذ جعفر ... استخدم * مثلا مين*تيك او ميناء*لوجستيك نفس النتيجة New Bitmap Image.bmp

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

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

https://www.youtube.com/watch?v=VwAUjdHGp7M ادعوا

الاخوه الكرام وجدت فى احد المنتديات هذه المعادله التى تقوم بتفقيط المبالغ فاردت ان تعم الفائده على الجميع تفقيط.rar

الاخوة الافاضل ابو احمد وابو عبد الله وكيماس شكرا على التشجيع و خاصة الاستاذ كيماس الذي كان سباقا الى هذا العمل فنرجوا ان لا يحرمنا من صوته اما الاخ الكريم علي فشكرا على الاطراء الفرق هو ان الكود الذي تضعه في sheet1 sheet2.... فانه ينفذ على هذه الاوراق حصريا اما الكود الذي نضعه في this workbook فانه ينفذ على المصنف المفتوح و النشط باكمله

الأخ العزيز / mom101 أشكرك على سؤالك فهو سؤال هام صادر عن شخص مهتم ولماح ، وإليك الرد عليه : في الكود الأول والذي لم نفعل فيه خيار Relative References ظهر ضمن مواصفات لون التعبئة ( ThemeColor = xlThemeColorAccent6 ) وهذا لأننا اخترناه من مجموعة " ThemeColor "وهو عنوان الجزء الأعلى في نافذة اختيار ألوان التعبئة وهي مجموعة الألوان التي تحتوي على 10 ألون أساسية ب 6 درجات مختلفة لكل لون ، أما xlThemeColorAccent6 فهي تعبر عن اللون الذي اخترناه من هذه المجموعة ، وهذا بخلاف اللون المختار في الكود الثاني والذي فعلنا فيه خيار ال Relative References فلم تظهر هذه الصفة بالكود لأننا اخترنا اللون الأصفر والموجود في المجموعة الثانية والأخيرة في نافذة اختيار الألوان وعنوان هذه المجموعة "Standard Colors" أي أنها ألوان أساسية وليس لها درجات في نافذة اختيار الألوان لذا تلاحظ أنها عبرة عن صف واحد يحتوي 10 ألوان وليس لهد درجات أخرى بالنافذة لذا وضع بالكود رقم اللون مباشرة وهو "Color = 65535" . أما بخصوص الجزء الثاني من سؤالك فلاحظ أن الكود في حالة تفعيل Relative References يبدأ ب Activecell ثم Range("A1:A5") o على الرغم من أننا نفذنا هذا الكود على نطاق آخر تماماً ولكنه ينسب النطاق المختار في عدد خلاياه لخلايا تبدأ ب A1 وتنتهي ب A مع عدد نفس خلايا النطاق المختار وهذا ما يبرر أنه يعمل على أي نطاق يبدأ من أي خلية نشطة بما يتناسب مع النطاق المختار من حيث عدد الخلايا . أرجو أن تكون وضحت الفكرة , تقبل تحياتي

السلام عليكم اخواني أقدم لكم مجموعة من الأمثلة كنت قد حملتها من مواقع عربية و أجنبية لعلها تفيد من له اهتمام بها و المقصود بالمثال هنا ليس برنامج كامل و انما حل برمجي لجزئية معينة من جزئيات المسائل المطلوب حلها . . مع المعذرة عن ذكر اسم الموقع أو اسم المصمم للمثال حيث الأمثلة موجودة عندي من فترة و لم أعد أذكر معلومات عنها و سأقوم ان شا الله بتحميل الأمثلة أولا بأول و أرجو من الأخوة الكرام عدم ادارج أي تعليق هنا حتى يتسع المجال لتحميل أكبر عدد من الأمثلة بأقل عدد من المشاركات , و من أحب التعليق أو الاستفسار فليفتح موضوعا جديدا بهذا الأمر فهرس الأمثلة : تغيير لون خلفية الأكسس مثال على دوال التجميع مثال لفتح النموذج بعدة طرق انسيابية مثال رائع على استخدام خاصية المؤقت في النموذج Timer مثال يجعل النموذج ينتقل تلقائيا من سجل للسجل الذي يليه مثال لعمل جدول يبين جميع البيانات التي تم تعديلها مثال لعمل نسخ احتياطي مجدول زمنيا مثال لعمل ترقيم تلقائي برمجيا نموذج الآلة الحاسبة مثال لفتح نموذج التقويم مثال لكيفية تصفية مربع تحرير و سرد بناء على قيمة مقابلة من مربع تحرير و سرد آخر مثال للتحكم بلون خلفية النموذج و تغييرها من نفس النموذج مثال على كيفية اختيار اسم التقرير المطلوب من لائحة ListBox مثال لكيفية النسخ و اللصق من و الى الحافظة مثال لكيفية تلوين السجل الحالي في النموذج المستمر بلون مختلف مثال لكيفية انشاء شريط قوائم بالكود و اضفة أزرار اليها أو حذفها مثال لمقارنة الاختلافات بين سجلات جدولين مثال على التنسيق الشرطي بعدة طرق مختلفة للنماذج مثال على صنع تقرير مبني على استعلام جدولي محوري CrossTab_Query مثال للتحكم بخصائص مربعات النص من خلال أزرار الاختيار في النموذج مثال للتنقل بين حقول الصفحات Tab Pages من خلال زر أمر مثال مهم جدا يعرض لك حجم المكونات الفعلية للبيانات مثال مفيد جدا لمن يحتاج المساعدة في بناء الاستعلامات بسهولة كبيرة مثال يبين كيفية توظيف الدوال لاستخراج نتائج بيانات النموذج الفرعي من خلال النموذج الرئيسي مثال لتغيير لون زر الأمر بمجرد مرور الفأرة عليه مثال لتفقيط الأرقام - عربي انكليزي مثال على نقل عدة بيانات من نموذج الى نموذج آخر مثال على كيفية التحكم بترتيب عناصر لائحة ListBox من خلال زر أمر مثال لتشغيل استعلام حذف سجلات بناء على قيمة معينة مختارة في النموذج مثال على استخدام شريط التقدم الأزرق Progress Bar مثال على كيفية ارسال بيانات الى ملف وورد , و فتح ذلك الملف بعد انشائه مثال على البحث مع تجاهل التشابه في الحروف مثل الألف و الهمزة مثال على البحث المتقدم في أكثر من حقل مثال على استخدام المؤثرات البصرية في جعل الكائنات تتحرك باشكال هندسية مثال لكيفية تغيير تنسيقات الحقول : تاريخ - نصوص - أحرف مثال على نموذج يحوي نماذج فرعية بثلاثة مستويات