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

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

الاخوة الكرام فى هذا الصرح العظيم بناء على طلب للاخ " المارد العراقى " على هذا الرابط http://www.officena.net/ib/topic/64162-موضوع-خاص-بالردود-والاستفسارات-واسئله-اختبارات-على-شروحات-الفورم-سلسلة-علمنى-كيف-اصطاد/?do=findComment&comment=418485 قمت بعمل طلبه وحبيت يكون فى موضوع مستقل حتى تعم الفائده ويكون سهل فى الوصول اليه من خلال البحث فيما بعد الطلب كان السلام عليكم أستاذ عندي 3 (textbox) الاول يحتوي على تاريخ اليوم والثاني يحتوي تاريخ الشهر والثالث تاريخ السنه بالميلادي و عندي تكست رابع اريد ان اجعل التاريخ في التكست الرابع يمثل تاريخ التكست الثلاثه السابقه ولكن بالهجري بأستخدام اليوزر فورم دون الرجوع او استخدام الخلايا في الاكسل على سبيل المثال التكست الاول يساوي 22 الي هو اليوم ولثاني يساوي 2 الي هو الشهر والثالث يساوي 2000 كيف اجعل التكست الرابع يساوي ( 18 / 11 /1420) الي هوه التاريخ الهجري لتلك السنه بواسطة vba فقط دون استخدام خلايا الاكسل ؟؟ مرفق ملف به ما تريد الملف الاول تحويل التاريخ من يوم وشهر وسنة تحويل التاريخ من ميلادى الى هجرى على الفورم.zip الملف الثانى تحويل التاريخ بنفس التكست تحويل التاريخ من ميلادى الى هجرى على الفورم - Copy.zip تقبلوا تحياتى

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

أساتذتي الأفاضل ، إخوتي الكرام : السلام عليكم ورحمة الله وبركاته، لدي مقترح تبادر إلى ذهني بسبب الانقطاعات المتكررة للإنترنت .ونظرا" لأننا نتابع دروسكم الهامة في مختلف الاهتمامات ضمن إطار قسم الإكسيل.يفقد العضو المتابع لها إمكانية المتابعة بشكل دقيق ..أو تحصل فجوة بين ما يعطيه اﻷستاذ الكريم اليوم وما أعطاه أثناء فترة انقطاع اﻹنترنت فلم نتابعه مثلا. ولذلك فإنني أعرض عليكم رأيي هذا فإن حصلت على استجابة فبها ونعمت وإن لم يحصل فقد طرحت رأيا. المقترح كما يلي: أن يقوم الأستاذ الكريم بكتابة الموضوع على ملف Word حيث المجال الأوسع للتنسيق ولإدراج الرسوم التوضيحية..إلخ. فإن تم الموضوع من كافة نواحيه يقوم بنسخه ولصقه ضمن المشاركات أما الأكواد فباﻹمكان نسخها من اﻹكسيل حيث الموضوع الذي يبحثه إلى زر الكود وحتى الارتباط التشعبي...يمكن استخدامه. الغاية: وضع الملف الدرس كمرفق مضغوط ضمن المشاركة يمكن للأعضاء الكرام تنزيله لديهم مع ملفات العمل ليسهل تناوله في حالة انقطاع اﻹنترنت ...ويمكنه جمع هذه الملفات لعرضها في مشاركة متكاملة بعيدا عن ملفات الإطراء أو الإعجاب ...وهذا برأيي به خير عميم لشريحة واسعة من الناس... مثلا ...دروس الفورم و الvba وغيرها التي تعتبر كنوزا لاستثمارها بنجاح باهر باستخدام هذه الطريقة... وأعتذر لانقطاع الأنترنت محليا wi fi إلا عن الهاتف...مما يقلل من متابعتي لإبداعاتكم... والسلام عليكم..

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

برنامح لتسجيل كشوف 12 د إلكترونيا ... كل عام وانم بخير كشوف 12 د.rar

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

السلام عليكم اطلع على المرفق حسب مافهمت من طرحك وزارات المحافظة_ البيانات الاضافية_11.rar

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

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

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

الاخ مارد راجع الرابط التالى تم تفيذ طلبك http://www.officena.net/ib/topic/64350-تحويل-التاريخ-من-ميلادى-الى-هجرى-على-الفورم/#comment-418586 تقبل تحياتى

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

ADO Connectionاستخدام الاكسيل كقاعدة بيانات عن طريق وسيلة الاتصال اعتقد ان هذا الموضوع سيعطيكم معلومة جديدة في كيفية التعامل مع الاكسل كقاعدة بيانات في البداية الطريقة تعتمد على وسيلة الاتصال Active Data Object ADO وهي وسيلة اتصال بين برنامج كتابة الاكواد و قاعدة البيانات مثلا VB.net and SQL Visual Basic and Access وهي حصرية لبرامج مايكروسوفت فقط ولكي يكون لدينا اتصال كامل يجب ان يكون لدينا Connection String وهو عنوان قاعدة البيانات التي سيتم الاتصال بها، والذي من خلاله سيكون التالي: * فتح اتصال* * جملة الاستعلام* * انهاء الاتصال* وهنا تكمن الميزة بهذه الطريقة، فجملة الاستعلام يجب كتابتها بطريقة SQL dataBase وهنا تنطبق معظم جمل SQL امثلة على الجمل select * from [data] Select Count(Customer) from [data] Select Sum(Customers) from [data] where city ='Ramallah' تعلم كتابة جمل جديدة وغيرها من الجمل التي يعرفها جيدا المبرمجون باستخدام قواعد البيانات SQL,MYSQL,Oracle اكبر فائدة لهذه الطريقة انه يمكن من خلالها تصميم واجهة برنامج على الاكسل او تصميم فورم على الاكسل وحفظ البيانات على ملف اكسل اخر بدون الحاجة الى فتحه ولاستخدام هذه الطريقة يجب تفعيل التالي Tools-References بالمرفق ملف اكسل يحتوي مثال على ما تم ذكره سابقا database.zip

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

كنترول شيت اعدادى 2016 مضاف الية اللغة الفرنسيه مرفق معة ملف ... تعليمات الاستخدام ... به كل الارقام السريه للبرنامج كنترول 2016

طيب ما تحط رقم الهاردين انظر المرفق ملف يعمل علي جهازين.rar

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

استاذ بحق وتملك خبرة رهيبة - ادامها الله عليك وزادك في العلم بسطة

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

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

مشكور أخي سليم على المداخلة جرب الكود بهذا التعديل Private Sub Worksheet_Change(ByVal Target As Range) Dim str As String If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A20")) Is Nothing Then Application.EnableEvents = False str = Format(Target.Value, "000000") Target.Value = Mid(str, 1, 2) & ":" & Mid(str, 3, 2) & ":" & Mid(str, 5, 2) Application.EnableEvents = True End If End Sub

عزيزي ابو جومانة السلام عليكم و رحمة الله و بركاته الدالة واضح و غير معقدة مثلا نريد جمع حقلين [Text1]+[Text2] نكتبه =nz([Text1],0)+nz([Text2],0) و هكذا

استاذى الحبيب المحترم الصقر دائما تسعدنى وتشرفنى بمرورك العطر تقبل تحياتى وتقديرى

أخي الكريم عاطف أهلا ومرحباً بك في المنتدى ونورت بين إخوانك نتمنى لك قضاء أمتع الأوقات في التعلم والاستفادة والإفادة لك ولغيرك جرب الكود التالي في حدث ورقة العمل (يمكنك تغيير النطاق في الكود) النطاق الذي ستجربه هو النطاق A1:A20 ويمكنك تغييره برجاء الاطلاع على رابط التوجيهات في الموضوعات المثبتة في المنتدى للضرورة (حتى يمكنك التعامل بكفاءة مع المنتدى) Private Sub Worksheet_Change(ByVal Target As Range) Dim str1 As String, str2 As String, str3 As String If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("A1:A20")) Is Nothing Then Application.EnableEvents = False str1 = Mid(Target, 1, 2) str2 = Mid(Target, 3, 2) str3 = Mid(Target, 5, 2) Target.Value = str1 & ":" & str2 & ":" & str3 Application.EnableEvents = True End If End Sub تقبل ترحيبي وتحياتي

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

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

يا غالى مجرد تكتب السنه وتضغط انتر هيكتب التاريخ بالهجرى فى التكست الاخضر جرب وعلمنى

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

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

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

هاي الفكرة مش متداولة بالمنتيدات واكثير مهمة انا اكثير اتعبت لحد ما اقدرت اشتغل عليها حاليا عندي برنامج (شاشة الادخال بملف اكسل) وموزع على خمس موظفين ، كل موظف اله ملف، والبينات مخزنة بملفات ثانية موجودة على جهاز سيرفر انا برنامجي اسمه lite وبدير 9 قواعد بيانات وبيقدر يشتغل عليها عدد لا نهائي من الموظفين

وعليكم السلام و رحمة الله و بركاته اخي الكريم استخدم دالة nz كما في المرفق ###.rar

بارك الله فيك الاخ شاهين وشكرا على الاجابة والسلام عليكم

اخي وهذا تعديل بسيط ليشمل كل المدي Report.rar

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

تفضل اخونا شريف تم اصلاح الملف كان الملف مهيأ للعمل على 64 بت Newd.rar

اخي الفاضل جرب المرفق ان شاء الله يضبط تحياتي اغلاق1 .rar

السلام عليكم ورحمة الله وبركاته أستاذ مصطفى شاهين شكراً على المعلومة القيمة تقبل تحياتي

السلام عليكم أخى العزيز الصقر .. بالنسبة لطرق ملء الكمبوبوكس عن طريق المصفوفات ، انت كنت كتبت الكود ده Private Sub UserForm_Initialize() Dim a As Variant a = Array("سند قبض", "سند صرف") For i = LBound(a) To UBound(a) ComboBox1.AddItem a(i) Next End Sub وملاحظتى اننا من الممكن ان نستغنى عن الدوائر التكرارية ونعملها فى خطوة واحدة وفى الحالة دى هنوفر وقت كتير لو كانت المصفوفة كبيرة Private Sub UserForm_Initialize() Dim a As Variant a = Array("سند قبض", "سند صرف") ComboBox1.List = a End Sub

اعتذر عن التاخر اخ عبيد لانشغالي قليلا ! والبركة في الاستاذ ابو محمد ! تحياتي

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

السلام عليكم جرب هذا الحل فهوه يوفر ما يقارب 2 كيكا بايت اضافية ملاحظه قم بعملية ربط الجداول قبل ادخال البيانات بالتوفيق imge_be.zip imge.zip

بعد اذن استاذي الفاضل رمهان المثال كان جاهز عندي في الارشيف ولاكن في مشكله في رفع علي الموقع ولاكن ارفقت رابط لتحميله من موقع اخر قوقل دريف https://drive.google.com/file/d/0B5oTVOnhU-rrMjNrSVNTZlV2ek0/view?usp=sharing

للفائدة وإضافة لما ذكره الاستاذ برقش يمكن لصق الصفحة المنسوخة باستخدام لصق خاص>> الاحتفاظ بالنص فقط

السلام عليكم فى إكسل نستخدم دالة roundup للتقريب للأعلى مهما كان الكسر و ذلك عند التقريب للرقم العشرى الثانى أمثلة 49.1111 تصبح 49.12 49.1199 تصبح 49.12 أيضا 49.0001 تصبح 49.01 فنلاحظ جبر الكسر مهما كان من 1 إلى 9 فى أكسيس توجد دالة round ونتائجها مختلفة 94.1111 تصبح 49.11 49.1199 تصبح 49.11 49.0001 تصبح 49 ولعلاج ذلك أضفت للرقم ".0045" فجاءت المعادلة كالتالى و لكنى غير مطمئن للنتائج رغم أنها كلها صحيحة وذلك لقلة عدد البيانات المعادلة فى الاستعلام حصة حكومة 15: Round([المرتب]*0.15+.0045;2) هل هذه الطريقة صحيحة؟ وشكرا

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

السلام عليكم اخي الكريم يبدو الخلل من اعدادات التطبيق ولكن يمكن ان تنفع هذه المحاولة اعتقد ان هذه الادوات موجودة ويجب عليك تنزيلها وتحديدها من التطبيق من قائمة tools اختار additional controls فتظهر لك قائمة بجميع ادوات الفورم وقم بتحديد ما تريده من ادوات فمثلا ستجد اداة الtextbox تحت مسمى microsoft forms 2.0 textbox وهكذا ... ارجو ان تجد ضالتك (هناك ما يقارب 100 اداة لكن ليس جميعها مختصة بالاكسل )

ياريت الإثنين مجرد طمع؟؟؟

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