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

ما الفرق بين الفيجول بيسك و #C و ++C كلها لغات تابعة لمياكروسوفت و #C و ++C كذلك هذا الهجين المستحدث في عام 2000 م من قبل أندريس هيجلسبرج / آمل أن اكون قد كتبت اسمه صحيح كلها لغات برمجة قوية في مجالات محدد و ضغيفة في اخرى لكن ما يمييز الاستديو بأنه قادر على التعامل مع اغلب لغات البرمجة و هذه بحد ذاتها نقطة قوة لدى ما يكروسوفت هل الفيجول بسيك ضغيف ؟ لا هي فقط ضعيف في بعض مجالات الوسائط القي نظرة على بعض لغات البرمجة التي ستجدها داخل الاستديو كذلك هذي لقد دخلت تغيرات كبيرة و جذرية في الفيجوال بعد الاصدار السادس حيث كما ترى اعلاه ان كنت تريد التحدث عن القوة

اخي بلال هذا السؤال يتكرر كثير اذا الحل لابد ان تتعلم و تقدم يد المساعدة لنفسك هذا هو الإنجاز الحقيقي دعنا نبدء بالتعلم الآن في البداية و في محرر الأكواد يجب ان نقوم بإضافة مكتب الاكسل كما بالصورة ادناه ثم تقوم بالبحث عن المكتبة التالية و اضافتها بهذه الطريقة اليك اهم ثلاث متغيرات للاتصال بملف الاكسل Dim xlApp As Excel.Application Dim xlWb As Excel.Workbook Dim xlWs As Excel.Worksheet الآن و تحت المتغييرات سوف نضع الأوامر التالية Set xlApp = New Excel.Application xlApp.Visible = False ' عدم عرض ملف الاكسل اثناء الاستيراد او التصدير Set xlWb = xlApp.Workbooks.Open(" ضع هنا مسار ملف الأكسل ") Set xlWs = xlWb.Worksheets(1) ' رقم صفحة في ملف الاكسل الآن سوف نضغ متغيير رقمي لكي نقوم من خلاله بتحديد السطر سيبدء الاستيراد منه Dim intLine As Long الآن لكي يتم تحديد حقل داخل الاكسل لغرض الاستيراد او التصدير للبيانات نستخدم الأمر التالي تحديد الحقل من خلال رقم العمود و رقم الصف xlWs.Cells(Line_Number, Column_Number).Value بعدما عرفنا كيفية تحديد الخلية الآن لو فرضنا أننا نريد استيراد الخلايا الى مربعات النص داخل الاكسس من خلال حلقة تكرارية ستكون بهذه الكيفية intLine = 2 'بدء الاستيراد من رقم السطر Do TextBox1 = xlWs.Cells(intLine, 1).Value TextBox2 = xlWs.Cells(intLine, 2).Value TextBox3 = xlWs.Cells(intLine, 3).Value ' نقوم بعكس القيم في حال التصدير '============================================ xlWs.Cells(intLine, 1).Select ' وضع المحدد داخل اول خلية في ملف الاكسل بعد الانتهاء intLine = intLine + 1 ' تحديد سطر جديد للاستيراد او التصدير Loop Until IsEmpty(xlWs.Cells(intLine, 1)) و بعد الانتهاء من الاستيراد يجب حفظ و انهاء ملف الاكسل xlWb.SaveAs CurrentProject.Path & "\Excel-" & Format(Now, "hh-nn-ss") & ".xlsx" xlWb.Close False xlApp.Quit Set xlApp = Nothing Set xlWb = Nothing Set xlWs = Nothing و هذا ببساطة كل شيئ عن مبادئ استيراد او تصدير ملف الاكسل

اسعدني أنه أفادك 🌹

تفضل التعديل 19.zip

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

أعتقد حتى الآن لم يتم كسر حماية الإصدار 25 لذا يمكنك استعمال إصدار أقدم

26 - عرض رسالة مع ايقونه معلومات . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 26 Msgbox MsgInfo - INFORMATION Logo.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 27 - عرض رسالة مع ايقونه الحماية . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 27 Msgbox MsgInfo - SHIELD Logo.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 27 Msgbox MsgInfo - SHIELD Logo.accdb 28 - عرض رسالة مع ايقونه الاستفهام او السؤال. صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 28 Msgbox MsgInfo - QUESTION.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني . 29 - عرض رسالة بدون علامات. صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 29 Msgbox MsgInfo - No Icon.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

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

25 - عرض رسالة مع ايقونه خطأ . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 25 - Msgbox MsgInfo - Error Logo.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

24 - عرض رسالة مع ايقونه تنبية . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 24 - Msgbox MsgInfo - Warning Logo.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

23 - عرض رسالة تحت الحماية او زو صلاحيه . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 23 - Msgbox MsgInfo - security.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

22 - عرض رسالة خطأ او غير قابل للتنفيذ . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 22 - Msgbox MsgInfo - Error.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

21 - عرض رسالة تنبية قبل التنفيذ . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 21 - Msgbox MsgInfo - Warning.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

تفضل هذا المثال MyData.mdb

20 - عرض رسالة اتمام او انتهاء بنجاح . صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . 20 - Msgbox MsgInfo - Success.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

وعليكم السلام-- انتبه من فضلك فكان عليك استخدام خاصية البحث بالمنتدى قبل رفع مشاركتك فطلبك تكرر كثيراً -تفضل Kutools

وجزاكم مثله اخى الكريم

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

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

تم ... تفضل التعديل s.zip

شكرا لك على هذا الكلام الطيب اخي الكريم تفضل التعديل قائمة المجلدات قابلة للتعديل كل مره تضيف فيها مجلد جديد راح يتم انشائه بشكل تلقائي عند اضافة صورة المجلدات راح يتم اضافتها لكل رقم وظيفي s.zip

بسم الله الرحمن الرحيم اليوم اقدم لكم لعبة شيقة جدا من برمجتي بلغة برمجة المواقع أما هي فمعروفة كفكرة رياضية من زماان وأدعوكم للتفكير قليلا ومعرفة سر هذه اللعبة اللعبة عبارة عن ملف htm يتم فتحه بمستعرض الانترنت. باسوورد فك الضغط عن الملف mr-mas.com والآن مع اللعبة. وهذا رابط لمعاينة اللعبة قبل تحميلها. الرابط موجود في صفحتي في أوفيسنا. guess number.zip

وهذا الإصدار الأحدث من اللعبة في موقعي الشخصي https://www.mr-mas.com/p/guess-numbers-game.html وفقنا الله جميعا لكل خير

حسب فهمي للمطلوب أنك تريد التصفية على حرف الغياب غ ولكن بطريقة أفقية إن شاء الله يكون هذا هو مطلوبك بالتوفيق تصفية أفقية بالمعادلات.xlsx

يبدو أن سر ترتيب الأرقام بهذه الطريقة صعب للغاية بالعكس سهل جدا

يهمنا جميعا من يهتمون بالبرمجة بشكلها الحديث وإمكانياتها الهائلة الوقوف على مستوى الذكاء ومحاولة تطويره وزيادته وأثناء تصفحي الانترنت كنت قد وجدت هذا الموقع فأحببت أن أشاركه معكم في صورة منافسة شريفة الموقع عبارة عن اختبار ذكاء IQ أتمنى من الجميع المشاركة ووضع صورة من آخر شاشة في الاختبار والتي تحمل النتيجة قال تعالى:"وفي ذلك فليتنافس المتنافسون" http://www.iqtest.dk/main.swf نختار طبعا اللغة الإنجليزية ثم نبدأ على بركة الله

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

يمكنك استعمال حدث عند فقد التركيز on lost focus كما هو موضح بالمرفق وفي هذه الحالة سيتم تنفيذ التصفية مع الضغط على انتر أو تاب أو مجرد الخروج من مربع النص الخاص بالبحث mas-tst.rar

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

شكرا لكل من ساهم في الموضوع ولمجرد إثراء الموضوع يمكننا استعمال دالة sumifs والتي توجد في أوفيس 2007 و 2010 ولمجموع دائن للمؤسسة a نضع في الخلية f11 المعادلة التالية =SUMIFS(C5:C18,A5:A18,E11,B5:B18,F10) ولمجموع المدين لنفس المؤسسة نضع في الخلية g11 المعادلة التالية =SUMIFS(C5:C18,A5:A18,E11,B5:B18,G10) وأكرر لأوفيس 2007 أو 2010 فقط

شكرا لك أخي الكريم هشام ويمكننا كذلك عملها بدون أكواد فقط من خلال التنسيق الشرطي وهذا رابط لمشاركة تحتوي على الطريقة http://www.officena.net/ib/index.php?showtopic=31358&view=findpost&p=159011 وأعتقد أن الكود أبطأ من التنسيق الشرطي في التنفيذ

أخي الكريم nart lebzo الحل المؤقت لهذه المشكلة هو استعمال برنامج notebad أو notebad+ كوسيط يتم النسخ إليه ثم تنسخ منه إلى المتصفح ورجاء من أخيك لا تستعمل internet explorer والأفضل عالميا هو firefox وجرب متصفح آخر وأخبرني بالنتيجة

إسدال مربع التحرير والسرد .... combo box drop down في النموذج الخاص بادخال البيانات وعند الوصول لمربع التحرير والسرد نحتاج احيانا ان تنسدل محتويات المربع فورا دون الضغط على مؤشر المربع... !! لمحة جمالية واحترافية وملفتة لنظر المستخدم. استخدم الكود التالي : Private Sub cboName_GotFocus() Me!cboName.DropDown End Sub قضي الأمر ....... ...........

لايوجد حل هل عجزت الاعراب ان تجد حلا لمشكلتي