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

السلام عليكم ورحمة الله إخواني الكرام، أشارككم الموضوع بهاتين المعادلتين: =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 وطرق اضافتها والعمل عليها عيب يامعلم ابراهيم احنا مش بنبيع الفانكوش احنا بنصنعه البرنامج شغال وتمام التمام ولكن ارد ان يكون بموافقة الجميع ولو مستعجل هات ملف تنفيذي وارجعه ليك ملف اكسيل وشوف شرح الفيديو

السلام عليكم أخي عمر في الواقع اخي شوقي قد اعطاك الجواب ، وانا جمعته مع بعض هذه النتيجة: . هنا انا استعملت استعلام لأقوم بالحسابات المطلوبة ، واستخدمت هذا الاستعلام كمصدر للتقرير. وستلاحظ اني حولت السنة/الشهر/اليوم الى تاريخ من (1) ، وتاريخ الى (2) ، ثم ارسلت هذين التاريخين الى الوحدة النمطية التي تخص المطلوب (يعني وحدة نمطية للسنين ، واخرى للاشهر وثالثة للايام ، والتي ارفقها الاخي شوقي في مشاركته في الموضوع). وهذا هو الكود: Option Compare Database Function CalcAge(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcAge = vYears & " ÓäÉ, " & vMonths & " ÔåÑ, " & vDays & " íæã" End Function Function CalcYears(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcYears = vYears End Function Function CalcMonths(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcMonths = vMonths End Function Function CalcDays(vDate1 As Date, vdate2 As Date) Dim vYears As Integer, vMonths As Integer, vDays As Integer vMonths = DateDiff("m", vDate1, vdate2) vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) If vDays < 0 Then vMonths = vMonths - 1 vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2) End If vYears = vMonths \ 12 vMonths = vMonths Mod 12 CalcDays = vDays End Function جعفر 310.N1.mdb.zip

اول 10 اشخاص دا بيقولك السر ان خرج بين الاتنين ميبقاش سر 10 اشخاص ويبقي كتمان

اللي عليه فولس يبعتها يا شباب .. عايز النسبة بتاعتي إنت عارف أي برنامج بيكون مجاني لأول 10 أفراد (هدية يعني .. فمتحسبنيش من اللي عليه فلوس !!! أخوك مزنووووووووق) تقبل وافر حبي وتقديري

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

وعليكم السلام نعم تستطيع بكود مشابه: Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then 'English ctl.ReadingOrder = 1 ctl.KeyboardLanguage = 11 'Arabic ctl.ReadingOrder = 2 ctl.KeyboardLanguage = 3 ElseIf ctl.ControlType = acComboBox Then 'English ctl.KeyboardLanguage = 11 'Arabic ctl.KeyboardLanguage = 3 End If Next جعفر

الخزان هو متوازي المستطيلات وحجمه = الطول*العرض*الارتفاع الناتج عندك بالمتر .من قانون الكثافة الحجمية الكثافة= الكتلة / الحجم يؤدي الى حجم = كتلة *الكثافة . انتهت المعادلة الكثافة = 1

واشتغلت والحمد لله اشتغلت ...................... شويه اسكنات بقى من عندى هديه ليكو Skins.rar

انت عارفيني كويس ياعم الحاج ابو البراء سيبك من وخليك في القفشات ياعم ابراهيم قول ان المثال شغال تمام ومفيش مشاكل وارفق لينا شغلك

السلام عليكم ارجو من الله ان يكون الغياب خير

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

الاستعجال وحش معلش عندي دي تفضل االاداة مرفقة مع المشروع مشروع لمسه جمالية.rar

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

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

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

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

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

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

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

يجب ان يوضع الكود بهذه الصيغة Sub set_active_sheet() Dim sa As Worksheet If ActiveSheet.Name = "sheet1" Then Set sa = Sheets("sheet1") Else Set sa = Sheets("sheet2") End If sa.Activate lr = ActiveSheet.Cells(Rows.Count, 1).End(3).Row End Sub

السلام عليكم ورحمة الله وبركاته أحبائى فى الله تقبلوا جميعا تحياتى أقدم لكم اليوم كود لعله يفيد Delete All Pivot Tables with Excel VBA Sub RemPiv() 'Excel VBA to Delete all pivot tables in a worksheet. Dim Pt As PivotTable For Each Pt In ActiveSheet.PivotTables Pt.TableRange2.Clear Next Pt End Sub

المفاتيح الوظيفية المفتاح الوصف F1 عرض جزء المهام تعليمات Microsoft Office Excel . يستخدم CTRL+F1 لعرض الشريط أو إخفائه، وهو مكوّن في واجهة مستخدم Microsoft Office Fluent. ينشىء ALT+F1 مخطط للبيانات الموجودة في النطاق الحالي. يدرج ALT+SHIFT+F1 ورقة عمل جديدة. F2 تحرير الخلية النشطة ووضع نقطة الإدراج في نهاية محتويات الخلية. ونقل نقطة الإدراج إلى "شريط الصيغة" في حالة إيقاف تشغيل التحرير في إحدى الخلايا. يضيف SHIFT+F2 تعليق إلى خلية أو يحرره. يعرض CTRL+F2 إطار المعاينة قبل الطباعة. F3 عرض مربع الحوار اسم اللصق. يعرض SHIFT+F3 مربع الحوار إدراج دالة. F4 تكرار الأمر أو الإجراء الأخير إذا كان ممكناً. عند تحديد مرجع خلية أو نطاق في صيغة، يؤدي الضغط على F4 إلى التنقل عبر المجموعات المختلفة من المراجع المطلقة والنسبية. يغلق CTRL+F4 إطار المصنف المحدد. F5 عرض مربع الحوار الانتقال إلى. يستعيد CTRL+F5 حجم إطار المصنف المحدد. F6 يستخدم للتبديل بين ورقة العمل والشريط وجزء المهام وعناصر تحكم التكبير والتصغير. ففي ورقة العمل التي تم تقسيمها (القائمة عرض، الأمر إدارة هذا الإطار وتجميد الأجزاء وتقسيم الإطار)، يتضمن F6 الأجزاء المقسمة عند التبديل بين الأجزاء وناحية الشريط. يستخدم SHIFT+F6 للتبديل بين ورقة العمل وعناصر تحكم التكبير والتصغير وجزء المهام والشريط. يستخدم CTRL+F6 للتبديل إلى إطار المصنف التالي عند فتح أكثر من إطار مصنف. F7 عرض مربع الحوار تدقيق إملائي لإجراء تدقيق إملائي في ورقة العمل النشطة أو النطاق المحدد. ينفذ CTRL+F7 الأمر نقل ضمن إطار المصنف عندما يكون غير مكبر. يمكن استخدام مفاتيح الأسهم لنقل الإطار وعند الانتهاء، اضغط ENTER أو ESC لإلغاء الأمر. F8 تشغيل وضع التوسيع أو إيقاف تشغيله. في وضع التوسيع، يظهر تحديد موسع في سطر المعلومات وتوسع مفاتيح الأسهم التحديد. تمكنك SHIFT+F8 من إضافة خلية أو نطاق غير متجاور إلى تحديد من الخلايا باستخدام مفاتيح الأسهم. ينفذ CTRL+F8 الأمر حجم (الموجود في القائمة تحكم الخاصة بإطار المصنف) عندما يكون أي مصنف غير مكبر. تعرض ALT+F8 مربع الحوار ماكرو لإنشاء ماكرو أو تشغيله أو تحريره أو حذفه. F9 حساب كافة أوراق العمل الموجودة في كافة المصنفات المفتوحة. تحسب SHIFT+F9 ورقة العمل النشطة. تحسب CTRL+ALT+F9 كافة أوراق العمل الموجودة في كافة المصنفات المفتوحة، بغض النظر عما إذا كان تم تغييرها منذ آخر عملية حساب. يعيد CTRL+ALT+SHIFT+F9 فحص الصيغ المعتمدة ثم يحسب كافة الخلايا الموجودة في كافة المصنفات المفتوحة، بما في ذلك الخلايا التي لم يتم تحديدها لحاجتها للحساب. يستخدم CTRL+F9 لتصغير إطار المصنف إلى رمز. F10 تشغيل تلميحات المفاتيح أو إيقاف تشغيلها. يعرض SHIFT+F10 القائمة المختصرة للعنصر المحدد. يعرض ALT+SHIFT+F10 القائمة أو الرسالة للعلامة الذكية. إذا كان هناك أكثر من علامة ذكية، يستخدم للتبديل إلى العلامة الذكية التالية ويعرض القائمة أو الرسالة. يكبر CTRL+F10 إطار المصنف المحدد أو يقوم باستعادته. F11 إنشاء مخطط للبيانات الموجودة في النطاق الحالي. يدرج SHIFT+F11 ورقة عمل جديدة. يفتح ALT+F11 محرر Microsoft Visual Basic الذي يمكن إنشاء ماكرو به باستخدام Visual Basic for Applications (VBA) . F12 عرض مربع الحوار حفظ باسم.

هل تريد تحويل عملها عن طريق كود ؟؟ هذا الذي فهمته ام تريد لصق قيمة المعادلة عن طريق الكود يعني يقوم بتنفيذ المعادلة ثم يبقي قيمتها فقط ؟؟

الحمد والشكر لله الذي رزقنا بالعلامة الكبير عبد الله يعني الواحد لازم يعرف آلية عمل كل معادلة ... اقتباس من حقك اخي العلامة

الجزء الثاني و هو الفورم و خصائصه و صندوق الادوات و خصائص بعض الادوات

الأخ العزيز / 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 مع عدد نفس خلايا النطاق المختار وهذا ما يبرر أنه يعمل على أي نطاق يبدأ من أي خلية نشطة بما يتناسب مع النطاق المختار من حيث عدد الخلايا . أرجو أن تكون وضحت الفكرة , تقبل تحياتي

الأخ هاني إزي سعادتك!! بص اضغط على زر الأوفيس اضغط Excel Options Advanced Display options for workbook حتلاقي مربع اختيار show sheets tab شيل علامة الصح وعيش يا معلم أخوك أبو البراء

يلا شباب بدي ردود سأضع بين أيديكم أكثر من 3000 برنامج بس بدي تشجيعكم BackUpWithCompact2k.zip

السلام عليكم ورحمة الله وبركاته :- الطريقة التقليدية لعرض بيانات عميل مثلا ان نكتب في الاستعلام تحت رقم العميل بين قوسين اكتب رقم العميل ثم نربطه بالتقرير وعند فتح التقرير تظهر لنا رسالة ادخال قيمة معلمة ثم نضع رقم العميل وتظهر لنا البيانات ولكن لا نستطيع تغيير شكل هذه الرساله فما رأيك لو انك عملت نموذج (FORM) ووضعت فيه مربع فارغ وغيرت الوانه بنفسك وخصائصه ثم عند فتح التقرير يخرج لك هذا النموذج الصغير مكتوب فيه اكتب رقم العميل المراد البحث عنه فتتكتب رقم العميل ثم تظغط على OK ليفتح لك التقرير الا تبدو هذه الطريه اجمل اريد ان اشرح موضوعي بإستخدام المثال التالي :- لدي قاعدة بيانات بها معلومات عن العملاء احمد رقمه 1 محمد رقمه 2 سالم رقمه 3 واريد عرض بيانات محمد فقط فإن علي القيام بالآتي :- اولا : انشاء نموذج وليكن اسمه (تحديد بيانات عميل) ثانيا :- إنشاء استعلام ثالثاا : اشاء تقرير رابعا:انشاء وحدة نمطية في النموذج نضع تسمية ( لإعطاء بيانات عن العميل اكتب الرقم ) نضع مربع نص ونسميه رقم العميل افتح خصائص النموذج وفي تبويب "غير ذلك" امام خاصية منبثق حرر الى نعم نضع زر امر ونسميه (عرض ) ونفتح خصائص زر الامر وفي التبويب حدث امام الخاصية عند النقر انقر على انشاء حدث ثم اكتب بين السطرين Me.Visible = False اعمل زر آخر وسمه(الغاء) وفي خصائصه في حدث عند النقر اكتب الامر DOCMD.CLOSE وفي خصائص النموذج تحت التبويب حدث ننقر انشاء حدث عند الفتح ونكتب بين السطرين Me.Caption = Me.OpenArgs نتجه الآن الى الإستعلام ةفي عرض التصميم نكتب تحت رقم العميل عبارة SQL هذه [forms]![تحديد بيانات عميل]![رقم العميل] نتجه الآن الى التقرير افتح خصائص التقرير وفي التبويب حدث انقر امام اجراء حدث ستفتح لك الآن نافذة فيجوال بيسك اكتب بين السطرين : Private Sub Report_Open(Cancel As Integer END SUB الكود التالي : DoCmd.OpenForm "تحديد بيانات عميل", , , , , acDialog, "تحديد بيانات عميل" If Not IsLoaded("تحديد بيانات عميل") Then Cancel = True End If ملاحظة تبدو كتابة الكود معكوسة لذا ارجو نسخها ومن ثم لصقها في نافذة الكود في الاكسس وسوف تظهر انشاء الله بالشكل الطبيعي) اتجه الآن الى الوحدة النمطية وقم بنسخ ثم لصق الكود التالي:- Option Compare Database Option Explicit Function IsLoaded(ByVal strFormName As String) As Integer ' Returns True if the specified form is open in Form view or Datasheet view. Const conObjStateClosed = 0 Const conDesignView = 0 If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then If Forms(strFormName).CurrentView <> conDesignView Then IsLoaded = True End If End If End Function وعند طلبك الإستفسار عن عميل وهو غير مسجل لديك يتم عرض رسالة تقول بانه لا توجد بيانات لهذا العميل لعمل ذلك اتبع الآتي : افتح خصائص التقرير : في التبويب حدث وامام خاصية عند عدم وجود بيانات انقر انشاء حدث في نافذة الكود بين السطرين :- Private Sub Report_NoData(Cancel As Integer) End Sub انسخ ثم الصق الامر التالي MsgBox "لا توجد بيانات للعميل المراد البحث عنه تأكد من صحة كتابة الرقم " Cancel = True اعذروني على هذه الإطالة وكنت اريد ان ارفق مثال يوضح ما سبق ولكن لم اجد خاصية ارفاق ملف . إذا اعجبكم هذا الموضوع سوف نتابع انشاء الله كيفية عرض البيانات خلال فترة زمنية يعني مثلا عرض تفاصيل فاتورة العميل من الفترة حتى الفترة . وشكرا لكم .