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

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

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

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

الله ينور حبيبي ابو يوسف مهو انت شغال اهو امال ايه بقي تكرار ومش عارف ايه انت طلعت معلم اهو يلا عاوزين نشوف باذن الله الملف بقي ومعاه مقطع صوتي مؤثر كدا تقبل تحياتي

اخي الغالي هذا ما اقصده

اخي الغالي ما اشرت اليه ما هو الا اقواس يتم وضعها في اغلب الاحيان لضم كلمة المرور داخلها مثلا الباسوورد كدا Password:="01097192367" دا الطبيعي في كتابة كلمة المرور في اغلب الاحيان يتم كتابتها بين قوسين والاضمن لعدم وجود اخطاء طيب لما نعرفها كمتغير لو كتبناها كدا زي ما عرفناها Dim strPassword As String strPassword = "01097192367" Password:="strPassword" كدا خطأ لانه هيتعامل كانه نص عادي يبقي لازم يخرج بره الاقواس زي كدا Password:="" & strPassword & "" وصلت حافظنا على تواجد الاقواس مع ادراج قيمة المتغير بينهم وللعلم تعمل احيانا هكذا ولكن لست اضمنها في معظم الحالات Password:=strPassword اما اذا كنت تريد تطبيق ما تريده يبقي هكذا Dim NAME As String NAME = Text5.Text YXL.Workbooks.Open App.Path & "/aseel.xlsx", UpdateLinks:=0, Password:="" & NAME & "" او هكذا YXL.Workbooks.Open App.Path & "/aseel.xlsx", UpdateLinks:=0, Password:=NAME ياريت المعلومة تكون وصلت او هكذا اذا كان هذا ما تقصد Dim NAME As String NAME = Text5.Text YXL.Workbooks.Open App.Path & "/" & NAME, UpdateLinks:=0, Password:="" & Text6.text & "" او هكذا YXL.Workbooks.Open App.Path & "/" & NAME , UpdateLinks:=0, Password:=Text6.text

بالشكل ده Private Sub TextBox1_Change() If Me.TextBox1.Text = "سبحان الله" Then Command1.Enabled = True End Sub

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

إخواني الأعزاء هذه فكرة سريعة وبعض النقاط الهامة عن برنامج الحسابات الذي كم ذكرت سابقاً يعتمد فكرة مراكز التكلفة ويبدأ من إنشاء دليل الحسابات وتعريف مراكز التكلفة والبيان المكرر في القيود ثم ترحيل القيود واستدعائها وتعديلها بعد الترحيل إذا لزم الأمر وبه إمكانية إصدار كشف حساب وميزان مراجعة ، وهذه بعض التلميحات الهامة للتعامل مع البرنامج : 1- لمسح قيود اليومية بالكامل ( وهي ممسوحة بالفعل بهذا الملف ) وإدخال مسلسل أول قيد وتاريخه من ورقة DATA استخدم أيقونة مسح البيانات والعملية محمية بكلمة سر هي 123 . 2- للانتقال من ورقة لأخرى استخدم الأسهم الزرقاء الموجودة بكل الأوراق واختر من القائمة الورقة التي تريد تفعيلها . 3- إقرأ بتركيز التعليقات / ال COMMENTS الموجودة بعناوين جدول إدخال معلومات القيد بورقة القيود ( JOURNAL VOUCHER ) ففيها تفصيل كل عمليات البحث وتسهيل عملية إدخال البيانات عند إعداد القيد . 4- من أيقونة إضافة حساب – م.تكلفة – بيان بورقة ( JOURNAL VOUCHER ) استخدم مفاتيح الاختيار / OPTIONAL BUTTONS لتحديد نوع الإضافة وعند تفعيلك مفتاح اختيار إضافة حساب ستظهر لك رسالة توضح لك أنه سيتم نقلك لفورم يسهل عليك تحديد الحساب الرئيسي للحساب المطلوب إضافته والرقم المقترح لهذا الحساب ويوجد توضيحات بالفورم ستساعدك على ذلك وعند إضافتك حساب جديد وبعد إكمال كل بياناته ستظهر لك رسالة بخصوص تحديث قائمة الحسابات الرئيسية وافق على التحديث في حالة واحدة فقط إذا كان الحساب الذي ستضيفه هو نفسه حساب رئيسي جديد غير موجود ضمن الحسابات الرئيسية الحالية . 5- تعديل القيد المرحل محمية بكلمة سر 123 من داخل الكود . 6- عند بحثك عن حساب في إعداد القيد وإذا اخترت بالخطأ حساب رئيسي فسيتم تنبيهك لذلك وإذا اخترت حساب من حسابات الميزانية فسيتم نقل المؤشر مباشرة لعمود المدين أم إذا اخترت حساب من حسابات النتيجة فسيتم نقلك لعمود رقم مركز التكلفة . 7- لايمكنك طباعة القيد قبل ترحيله ولا يمكنك ترحيل قيد غير متوازن ولايمكنك إعادة ترحيل قيد مرحل وكل هذا له رسائل تنبيه . 8- عند استدعائك لقيد مرحل من مفتاح استدعاء قيد أدخل رقم القيد بصندوق الإدخال الذي سيظهر لك ، ولا يمكنك تعديل القيد أو ترحيله وإنما فقط الهدف من الاستدعاء هو الاطلاع أو الطياعة من أيقونة طباعة قيد مرحل والتي تتولى إخفاء الصفوف الفارغة بنموذج القيد . 9- يمكنك تعديل قيد مرحل من مفتاح تعديل قيد وبعد استدعاء القيد من خلال تسجيلك لرقمه بصندوق الادخال الذي سيظهر لك بمجرد إدخال كلمة الحماية الصحيحة وضغط ENTER لا تنسى بعد التعديل إعادة ترحيل القيد وستظهر لك رسالة بهذا المعنى لدى استدعاء القيد للتعديل . 10- بكشف الحساب نقرة مزدوجة بالخلية C4 أسفل إسم الحساب ليظهر لك فورم البحث عن الحساب المراد الكشف عنه والبحث مثل كل أنوع البحث في الملف يتم بأب جزء من أي معلومة عن الحساب إسمه أو رقمه ولاختيار الحساب من فورم البحث نقرة مزدوجة على صف معلومات الحساب بقائمة نتيجة البحث بالفورم . 11- أيقونة تحديث كشف الحساب تحتاجها لتحديث كشف موجود قمت بتعديل قيود ضمن حركته أو عمل قيود تؤثر عليه بعد إظهاره بدل استدعائه من جديد . 12- أيقونة "قيد جديد لشهر جديد" في ورقة إعداد القيد تحتاجها إذا كنت تريد تمييز مسلسل القيود لكل شهر مثل أن يبدأ مسلسل القيد برقم الشهر ثم رقم القيد . هذا ما أسعفني به الوقت والذاكرة وطبعاً الموضوع مفتوح للحوار والاقتراحات والتحسينات . تقبلوا تحياتي أبو عبدالله ACCOUNT SOFTWARE W-COST CENTERS - V1.1.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 والاكسيل وانا علي ثقة تامة ان الاخوة المتابعين سيبدعوا في العمل انا حاولت اشرح بطريقة تقليدية بسيطة ولكن هلاقي منكم ابداع غير عادي باذن الله وهلاقي برامج تانية بتتعرض منكو باذن الله مع تحياتي ياسر العربي يتبع

برنامج شئون الموظفين يعمل بالتاريخين الهجرى والميلادى. امكانية البحث برقم الموظف . امكانية ربط الموظف بصورة الموظف من اى مكان من الحاسب (وليس وضع الصور بجانب الملف كما كان مسبقا). امكانية حذف موظف او تعديل بيانات الموظف . اصدار تقارير عن موظف واحد بطباعة بياناته فى صفحة مستقلة. امكانية تصدير التقارير لملف اكسيل جديد باسم جديد. البحث بين تاريخين . امكانية طباعة عدد من الموظفين سواء (اسم الموظف - الراتب - الاقامات - الادارة التابع لها - او اى بيانات مدخلة ). التحكم فى تغيير اسم الشركة . نافذة امان قبل الدخول للبرنامج بكلمة مرور يمكن اظهار النافذة او اغلقها. امكانية التحكم فى اعدادات المظهر (خلفية البرنامج - لون الخط ). للاطلاع عن المزيد من الصور والشرح للبرنامج من هنا او الاطلاع على دليل المستخدم من البرنامج شكر خاص للأستاذ/ عبد الله باقشير حيث استخدمت الكثير من اكواده الاكثر من رائعه وكذلك باقى الاعضاء الاخرين ملاحظة : باسورد نافذة الامان الافتراضى 12345 باسورد vba وقاعدة البيانات وفتح الملف 12345 لابد من تمكين الماكرو ليعمل الملف فى النهاية نسألكم الدعاء بظهر الغيب emp.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

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

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

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

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

السّلام عليكم و رحمة الله و بركاته أخي الغالي " ياسر العربي " .. قمت بإضافة الكاين و قمت بتغيير خاصيّة ال MIN و ال MAX .. إلى FALSE ..لكن لم يشتغل معي الأمر ..لاحظ الصّور لو سمحت ..

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

اخى ياسر ممكن توضيح بسيط Dim strPassword As String strPassword = "01097192367" YXL.Workbooks.Open App.Path & "/aseel.xlsx", UpdateLinks:=0, Password:="" & strPassword & "" PASSWORD:="" هل هنا يتم حزف الباسورد ام ماذا وايه الفرق بين الكود بتاعك والكود الاتى Dim NAME As String NAME = Text5.Text YXL.Workbooks.Open App.Path & "\" & NAME, Password:=Text6

تفضل اخي لعله المطلوب وضع صورة في البطاقة.rar

وجدت هذا الكود في احد المنتديات لعمل الرسالة بخط سميك bold أتمنى ان ينال اعجابكم Bold Message.rar

السلام عليكم ورحمة الله وبركاته اليوم أعرض علي حضراتكم كودى الجديد هذا الكود يساعدك على تحديد الخلايا التى تحتوى على حرف محدد و بناء عليه يمكن تنفيذ اجراءات أخرى على الخلايا المحددة كالنسخ أو الحذف أو .... أو .....الخ الكود وعليه الشرح : Option Explicit Sub SCCSCharacter() ' الكود التالى لتحديد الخلايا التى تحتوى حرف ' By Mokhtar 3/12/2015 ' المتغيرات Dim SelectRange, MyRng As Range, C As Range, MyString As String ' فى حالة حدوث خطأ تجاهله وانتقل للأمر التالى On Error Resume Next ' نطاق البحث Set MyRng = Sheet1.Range("C2", Range("C" & Rows.Count).End(xlUp)) ' النص الذى أبحث عنه MyString = Sheets("Sheet1").Range("C1").Text 'الغاء تحديث الشاشة Application.ScreenUpdating = False 'ازالة التنسيق عن نطاق البحث MyRng.Interior.Pattern = xlNone ' حلقة تكرارية على كل خلايا نطاق البحث For Each C In MyRng ' ' فحص اذا ما كانت الخلايا تحتوى النص الذى نبحث عنه أم لا If InStr(1, C.Value, MyString, vbTextCompare) > 0 Then ' If SelectRange Is Nothing Then ' شرط اذا لم يكن المتغير موجوداً Set SelectRange = C ' جواب الشرط : اعتبر أن المتغير يساوى قيمة الخلية Else 'اذا لم يتحقق الشرط Set SelectRange = Union(SelectRange, C) ' جواب الشرط : اعتبر أن المتغير يساوى اتحاد المتغير مع الخلية End If 'انهاء الشرط الاول End If ' انهاء الشرط الثانى Next ' الانتقال الى الخلية التالية If SelectRange Is Nothing Then ' اذا لم يكن المتغير موجودا MsgBox "الحرف :" & " " & "( " & MyString & " )" & " " & "لا يوجد فى الكلمات": Exit Sub ' رسالة للمستخدم بأن المتغير غير موجود بالنطاق وانهاء الاجراء Else ' اذا لم يتحقق الشرط ' CopyRange.Select SelectRange.Interior.ColorIndex = 38 ' قم بتلوين الخلية التى تحتوى المتغير باللون 38 End If ' انهاء الشرط Application.ScreenUpdating = True ' اعادة تفعيل تحديث الشاشة End Sub ' انهاء الاجراء المرفق لالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالالا يوجد طبق الكود كالتالى : الخلية C1 أدخل فيها الحرف الذى تبحث عنه ( يمكن عمل قائمة منسدلة فيها بالحروف ) النطاق من C2 الى C10 أدخل به مثلا مجموعة كلمات وجرب الكود أرجو أن أكون قد قدمت لكم شيئا جديدا و مفيدا هذا من وجهة نظرى على الأقل و الرأى لحضراتكم - بعد تجربة الكود - فى النهاية والسلام عليكم ورحمة الله وبركاته

تم التعديل بحث عن الاسم salim1.rar

اخى ياسر اخوانى الافاضل ده المشروع بتاعى وان شاء الله يتم تنفيذ الدرس الاخير ولكن بعد مشاهدته لاننى حتى الان لم استطع التطرق له بسبب مشاكل الانترنت تقبلوا تحياتى VBA.rar

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

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

جرب هذا الملف القائمة المنسدلة مطاطة ولا تذكر المكرر الا مرة واحدة تستجيب لاي تغيير في البيانات بحث عن الاسم salim.rar

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

عسى ان يكون المطلوب تصنيف سليم مكرر.rar

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

رابط الفيجوال بيسك 6 كامل من رفعي لمن يعانون من مشاكل التنصيب يرجى تشغيلة كمسئول يعمل علي ويندوز 8 64 و7 32 واكس بي بجميع اصدراتها هذا ما تم تجربته عليه http://www.mediafire.com/download/b7r034dv0vcba0h/VB6.0+Enterprise.rar

تم التعدبل حسب الرعبة ترتيب لكل صف salim 3.rar

أخي الكريم يرجى تغيير اسم الظهور للغة العربية جرب الكود بهذا الشكل لاختبار لون الخلية Sub Test() If Range("A1").Interior.Color = vbRed Then Range("A10").Value = "راسب" Else Range("A10").Value = "ناجح" End If End Sub أما إذا أردت معادلة فالأفضل أن تعتمد على قيمة الخلية وليس لونها تقبل تحياتي

شاشة البداية : لتغيير شاشة البداية الى صورة انت تختارها ، الصق الصورة بجانب قاعدة البيانات بشرطين : 1- امتداد الصورة يكون bmp 2- اسم الصورة يكون مثل اسم قاعدة البيانات بالضبط اما ايقونة المشروع : فلمستخدمي 2003 : ادوات / بدء التشغيل / رمز التطبيق وللاصدارات الاحدث اذهب الى ملف في الركن العلوي من الصفحة و ابحث في الخيارات

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

الطريقة بخطوتين : 1- حماية النماذج والتقارير عن الفتح المباشر بواسطة الكود 2- تحويل المشروع الى mde هذا ما يخص ملف الواجهات والذي يهم المبرمج اما البيانات وقاعدة الجداول فهو الذي يهم المستخدم فلها طرق عدة في الحماية وغالبها ضعيف 1- اخفاء الجداول 2- تشفير الجداول 3- تحويل قاعدة الجداول الى sql

جرب الطريقة الموجودة بالرابط التالي

حياك الله اخي رضا ! شفت كيف اهمية التحليل قبل التنفيذ ؟ ولكن هل تريدنا نواصل باضافة شرط : اذا بقي مادة فاكثر لا توافق الشرط احذف المواد فقط من جدول المواد وبدون حذف الطالب ! فقط يتم حذف الطالب عند عدم وجود مواد لاتوافق الشرط ! ام ان الفكرة كانت في الاصل حذف الطلاب ولم تعد مجديه بعد التنبيه ! بالتوفيق

أخي الكريم إليك الكود التالي لعملية الترحيل يتم الاعتماد على رقم الإذن بحيث يكون غير مكرر في ورقة الأرشيف ... لا يتم الترحيل إذا كانت البيانات غير مكتملة أرجو أن يفي بالغرض Sub TransferData() Dim WS As Worksheet, SH As Worksheet Dim LastRow As Long, LR As Long, I As Long Dim Arr, Found Set WS = Sheet1: Set SH = Sheet3 LastRow = WS.Cells(33, "F").End(xlUp).Row LR = SH.Cells(Rows.Count, "I").End(xlUp).Row + 1 Arr = Array("M5", "M2", "D6", "C10", "C12", "C16") With Application .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False End With For I = 0 To UBound(Arr) If IsEmpty(WS.Range(Arr(I))) Or LastRow < 20 Then MsgBox "البيانات غير مكتملة", vbCritical: Exit Sub Next I Set Found = SH.Columns(1).Find(What:=WS.Range("M5").Value, LookAt:=xlWhole) If Not Found Is Nothing Then MsgBox "تم ترحيل الإذن من قبل", 64: Exit Sub For I = 0 To UBound(Arr) SH.Cells(LR, I + 1) = WS.Range(Arr(I)) Next I WS.Range("P20:R" & LastRow).Copy SH.Range("G" & LR).PasteSpecial xlPasteValues With Application .CutCopyMode = False .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True End With MsgBox "تم ترحيل البيانات بنجاح", 64 End Sub تقبل تحياتي Transfer Data Using Arrays YasserKhalil.rar

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

السلام عليكم ورحمة الله وبركاته كل ما سيأتي الفترة القادمة هو كيفية التعامل مع الادوات والفورم مثال باذن الله عن كيفية عمل برنامج بسيط لتشغيل القرأن الكريم من موقع tvquran كالعادة نبدأ بالادوات عدد فورم واحد كومند للخروج واحد image اداة الويب الشرح كما موجود امامنا الفورم وعليه الادوات الصورة والزر وصفحة النت فقط لتعديل الفورم بهذا الشكل يتم عمل كما في الصورة الاتية بعد اخفاء الشريط نأتي للصورة خلصنا من الصورة ندخل علي اداة الويب بعد وضع كل الادوات بهذا الشكل نقوم بوضع اسهل كود وهو كالتالي اول كود في الكومند1 Private Sub Command1_Click() End End Sub ثاني كود وهو في حدث تنشيط الفورم وظيفة الكود فتح الموقع www.tvquran.com/add/index.htm Private Sub Form_Load() WebBrowser1.Navigate "www.tvquran.com/add/index.htm" End Sub دائما الملف بعد الانتهاء منه لا يظهر في الاسفل في taskbar نقوم بتعديل الفورم كالاتي ليظهر في التاسك بار عند تشغيله واالاختيار بأسفله center screen لوضع الفورم في منتصف الشاشة عند الفتح كان هذا المصحف هدية لاخي الغالي ابو يوسف منذ فترة والان تم وضع كيفية عمل الهدية نفسها علها تنفعنا وتنفعكم والسلام عليكم يتبع مرفق المصحف ملف تنفيذي والمشروع المصحف.rar

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

لو امكن معادله اكسل مبسطه للموضوع يعني (المرتب + الايضافي) - التامينات = كذا - 1000 معفاه = كذا لو الرقم في حدود ال 2500 اللي هي (30000/12) يبقي 10 % نكون شاكرين

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

السلام عليكم تفضل.. 45.rar

السلام عليكم قولك ليتم استعمالها من جديد هذا يعني إنك ستحذف جميع البيانات السابقة . فقط ماعليك القيام به بعد ذلك إلا أن تقوم بضغط قاعدة البيانات وإصلاحها فستجد الترقيم بدأ من الصفر تقبل تحياتي ،،،