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

اسطوانة تحفيظ القران الكريم لكم ولاولادكم واحفادكم الجذء الثلاثون بصوت الشيخ محمد صديق المنشاوى وبصوت طفل يردد وراءه ويمكن تكرار الاية للحفظ وفيديو دعاء ختم القران من الحرم على الرابط التالىhttp://yonis.arab.st/t26-topic#29ملحوظة : سجل بالمنتدى لتحميل الاسطوانة وهى على 4 روابط مضغوطة يتم تحميلها فى فولدر ثم فك الضغط بعد اكتمال تحميل 4 أجزاء الاسطوانة هدية للمنتدى نتمنى الدعاء لنا بالخير الجزء 29 تبارك فى تكملة الموضوع الجزء 28 قد سمع الجزء 27 قال فما خطبكم هدية اخرى للسادة الزملاء اسطوانة برامج بها اوفيس 2003 و 2010 عربى لحين رفع باقى اجزاء تحفيظ القران الكريم الجزء 26 الجزء 25 مسابقة دينية

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

السلام عليكم ورحمة الله اولا / الشكر الجزيل للاخ الفاضل الاستاذ سليم حاصبيا --------------------------------------------------------------------------- ثانيا / بعد إذن الاستاذ سليم المشكله في اصطياد السمكة يا استاذ ياسر ليس شرح الكود لانه حتى لو شرح الكود ينقصه من ان الكود مبني علي خطوات مسبقه إليكم الخطوات المسبقة محاوله مني: اولا / نقوم بتعريف المدى اللي بالكود والمسمى Prot_Range نذهب إلي الشيت المسمى Sheet1 ثم من شريط الادوات نذهب إلي صيًغ ثم إدارة الاسماء ثم جديد ونضع الاسم Prot_Range ونشير للخلايا أي نحدد الخلايا حسب رغبتنا في تطبيق العمل عليها وهنا في عمل الاستاذ سليم اشار للخلايا من A1 إلي Z255 ثم موافق خلاص إنتهينا من تسمية النطاق او المدى.والآن يأتي دور الاكواد نذهب لمحرر الاكواد الخاص بالصفحة Sheet1 عام أي في ال General ونضع هذا الإجراء : 'xxهنا نقوم بتسمية إجراء ونسميه اي إسم اي حرف وهنا إسمه Sub xx() ' salim يقوم بإلغاء الحماية من علي الصفحة النشطه والتي كلمة المرور الخاصة بها هي ActiveSheet.Unprotect "salim" إذاً' Prot_Rang إذا لم يتقاطع الإختيار بمدى النطاق المسمى If Not Intersect(Selection, Range("Prot_Range")) Is Nothing Then ' هنا الإشارة للمجال المختار وهو مدى النطاق في الصفحة النشطة بالخاصية With With ActiveSheet.Range("Prot_Range") ' تنشيط إقفال الخلايا .Cells.Locked = True 'عدم إقفال الخلايا الفارغة التي لايوجد بها بيانات .Cells.SpecialCells(xlCellTypeBlanks).Locked = False ' إغلاق الخاصية With End With ' يقوم بحماية الصفحة وعمل كلمة المرور salim ActiveSheet.Protect "salim" End If ActiveSheet.Protect "salim" End Sub ثم نضع الكود التالي في حدث تغيير الصفحة Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) ' إذا لم يتقاطع الهدف بالمدى وان نتائج الهدف يساوي واحد ‘ذاً If Not Intersect(Target, Range("Prot_Range")) Is Nothing And Target.Count = 1 Then ' عدم تمكين تطبيق الاحداث Application.EnableEvents = False 'هنا بعد إدخال اي بيانات تأتي رسالة تفيد حسب الموضح في الرسالة mess = MsgBox(" بعد ادخال البيانات سوف يتم اقفال هذه الخلية" & vbNewLine & _ "لا يمكن تغييرها الا من خلال كلمة السر في حال الموافقة اضغط نعم", vbYesNo, "تنبيه") ' عند الموافقة If mess = vbYes Then 'xxهنا يتم إستدعاء الإجراء والمسمى xx ' عند عدم الموافقة Else ' تراجع عن التطبيق Application.Undo End If End If ' تمكين تطبيق الاحداث Application.EnableEvents = True End Sub

بسم الله الرحمن الرحيم الحمد لله أحمده وأستعينه وأستهديه وأستغفره وأتوب إليه، وأومن به وأتوكل عليه، وأشهد أن لا إله إلا الله وحده لا شريك له، إله الأولين والآخرين، وأشهد أن محمدا عبده ورسوله بعثه الله رحمة للعالمين، اللهم صلِّ وسلم وبارك على عبدك ورسولك نبينا محمد وعلى آله وصحبه، ومن دعا بدعوته، واهتدى بهديه إلى يوم الدين اما بعد اليوم استكمالا للموضوع السابق وسنقوم بعرض ملفات بصيغ اخرى وطرق اخرى منها ملفات PDF وملفات الصور JPG & BMP طربقة عمل مستعرض لملفات الPDF نفس مشروعنا السابق التعديل هو نقوم باضافة هذه الاداة الموضحة بالصورة بدلا من الميديا بلير بعد وضع الاداة نستبدل ما بالحدث دبل كليك علي FileList Box ونخليها كليك فقط عادي وليس دبل كليل كما هو موضح بالكود التالي Private Sub File1_Click() AcroPDF1.LoadFile (Dir1.Path & "\" & File1.FileName) End Sub الكود يعمل علي تحميل الملف المحدد داخل الفايل ليست وعرضة داخل الاداة ادوب اكروبات كما هو موضح وطبعا مننساش موضوع تحديد امتداد الملفات المراد تشغيلها داخل برنامجنا وهي الان PDF الكواد كالتالي في تحميل الفورم Private Sub Form_Load() File1.Pattern = "*.pdf" End Sub وتسطيع عمل ازرار للكنترول ببرنامجك مثل ما بالصورة الاتية وبكدا نكون انتهينا من نقطة ربط الدريفات بالمجلدات بالملفات وصولا لمستعرض PDF ونخش كمان في مثال تاني وهو عمل مستعرض للصور وطبعا نفس الادوات هي هي في كل الامثلة الا شئ واحد وهو مستعرض الملفات المراد العمل عليها وهنا يتم وضع image بدلا من اداة الادوب او الميديا كما موضح وطبعا الاكواد المستبدلة كالعادة هي كالتالي Private Sub File1_Click() Image1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName) End Sub Private Sub Form_Load() File1.Pattern = "*.jpg;*.bmp;*.gif" End Sub ليصبح في النهاية هكذا وبكدا نكون صنعنا مشغل وسائط الصوت والفيديو مستعرض ملفات PDF مستعرض الصور ونستطيع ان نصنع ما نريد بهذه الطريقة من برامج متعددة نستعملها بصفة مستمرة ومنتظر منكم الابداع لن اكتفى بمثال مثل ما قمت بعمله لا اريد التألق والابداع مثلا ربط الثلاثة امثلة في مثال واحد وتطبيق ما نريده مثلا عن طريق تفعيل CheckBox مثلا عند وضع علامة صح امام تشغيل الوسائط يعمل الصوت والفيديو وان وضعت علامة صح امام تشغيل مستعرض pdf يعمل وهكذا او تطبيق الامثلة على اشياء اخرى لم تذكر يعني فكرة جديدة منتظركم واعذروني لتأخري في وضع المواضيع قليلا لانشغالي مع تحياتي ياسر العربي يتبع وطبعا قبل ما انسى الملف المرفق اهو وفيه الثلاثة امثلة دا للجماعة الكسلانين طبعا all.rar

أخي الكريم صلاح تم تجربة الملف المرفق من قبلك ويعمل بشكل جيد .. الكود يقوم بإزالة المسافات الزائدة في بداية أو نهاية النص فقط ولكن لإزالة المسافات في وسط النصوص يتم التعديل بإضافة كلمة Application ثم يتبعها نقطة ثم اسم الدالة ليصبح الكود بهذا الشكل Sub RangeVariable() Dim R1 As Range For Each R1 In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) R1.Value = Application.Trim(R1.Value) Next R1 End Sub تقبل تحياتي

حياك الله اخي الكريم وجدت هذا الكود في احد المواقع الأجنبية ... قمت بتغيير نص الرسالة الى العربية .. فقط Private Sub CheckFileSize(strMyFile) Dim objFileSys As Scripting.FileSystemObject Dim objMyFile As File Set objFileSys = CreateObject("Scripting.FileSystemObject") Set objMyFile = objFileSys.GetFile(strMyFile) If objMyFile.Size > 6000000 Then MsgBox "حجم المرفق اكبر من المسموح به ", vbOKOnly Else MsgBox "حجم المرفق مناسب ", vbOKOnly End If Set objFileSys = Nothing Set objMyFile = Nothing End Sub اتمنى يفيدك بالتوفيق

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

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

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

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

السلام عليكم ورحمة الله وبركاته في الملف المرفق معادلة تقوم بعكس الارقام الموجودة في خلية , مثلا الارقام (123456) تعكس الى(654321) و المعادلة تعمل بصرف النظر عن عدد الارقام في الخلية. وضعت المعادلة في هذا الموضوع بسبب اني استفدت واخذت الفكرة الاساسية للمعادلة من المعادلات الموجودة في ملف اخي الفاضل الاستاذ بن علية تحياتي معادلة عكس الارقام.rar

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

برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) office 2010 اليوم وبعد مرور ستة شهور من طرح برنامجى السابق على الرابط التالى http://www.officena....opic=41247&st=0 اقدم لكم برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) برنامج يحتوى على الاتى 1- شاشه ادخال الفواتير بكافه انواعها وفى هذه الصفحه ايضا يكمنك البحث عن اى فاتورة وتعديلها او الغائها او طباعتها كما يوجد اختصار لاخرالفواتير المدخله التى يمكن استدعائها بضغطة زر واحده و العديد من التفاصيل اكتشفها بنفسك 2- شاشه لادخال العملاء و التعديل عليها بها جميع تقاصيل العميل 3- شاشه ادخال الموردين و التعديل عليها بها جميع تقاصيل المورد 4-شاشه ادخال الاصناف و التعديل عليها بها جميع تقاصيل الصنف 5-شاشه ادخال المناديب و التعديل عليها 6- شاشه ادخال مستخدمين بصلاحيات مختلفه 7- شاشات التقرير وتشمل الكثير و الكثير من التقارير كتقارير المبيعات و المشتريات وتقرير على حسب المناديب او المستخدمين و الكثير من التقارير التى يمكن اكتشافها بنفسك 8- شاشه تقرير حسب العميل يوضح مشتراياته ومدفوعاته بالتواريخ وايضا يبين المديونيه المستحقه 9- كما توجد العديد والعديد من الشاشات كادخال السندات و الخصومات و المصاريف وطباعتها 10- الكثير من المزايا الاخرى كحركه صنف وتقرير المخزون وتقرير الموازنه والربح و الخساره... اكتشف المزيد ملاحظات هامه 1- تم عمل البرنامج على اوفيس 2010 و البرنامج لن يعمل بشكل جيد الا على هذا الاصدار لذلك ارجون من يقوم بتجربته ان يكون على هذا الاصدار 2- تم وضع الكثير من الاختصارات التى توصلك لبعض التقارير وتم الشرح داخل البرنامج 3- لاى استفسار خاص بالبرنامج يكون عن طريق هذا الصرح العظيم او عن طريق مراسلتى بالايميل التالى amroomo@gmail.com 4- اتمنى ان يكون هذا البرنامج اضافه لهذا المنتدى العظيم 5- شكر واجب لكل مشرفى و اعضاء منتدى اوفيسنا الذى اصبح مناره الاوفيس فى الوطن العربى 6- الرقم السرى للدخول 123 7- الرقم السرى لمحرر الاكواد هو 85211 8- للبدء باستخدام البرنامج وتجربته قم بادخال الاصناف او حتى صنف واحد وكذلك مع العملاء و الموردين قم بادخال بيان واحد لكل منهما وبعد ذلك قم بعمل الفواتير و السندات بعد ذلك يمكنك استدعاء التقارير المختلفه الخاصه بالبرنامج كما انه لابد من ادخال المناديب او حتى مندوب واحد لكى تستطيع حفظ الفاتوره صورة البرنامج اخيرا ارجو من الجميع عدم التردد فى اى استفسار او ملاحظات تم رفع البرنامج على موقع الميديا فاير حيث ان مساحه البرنامج 1.9 ميجابايت ============================= تم إضافة الملف الى المشاركة بدل الرابط الخارجي الإشراف ============================= البرنامج هو تحديث للبرنامج السابق على الرابط التالى http://www.officena....opic=41247&st=0 برنامج المخزون و الفواتير 2013.rar

ما أروعك...... ياسر

أخي الكريم سليم بارك الله فيك وهذه دالة معرفة أبسط تقوم بالمهمة Public Function strReverse(ByVal cell As Range) As String strReverse = VBA.strReverse(cell.Value) End Function

بعد اذن اخواني في المنتدى هذا الكود البسيط الذي يعكس كل شيء (ارقام ونصوص) معادلة عكس الارقام salim.rar Function RevText(s As String) If Len(s) = 1 Then RevText = s Else RevText = RevText(Mid(s, 2, 99)) & Left(s, 1) End If End Function

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

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

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

نسيت انت الحته دي قلت لازم تحوله لتنفيذي ويتحط الملف التنيفيذي في نفس المجلد لسهولة الوصول له

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

أخي الكريم السيفاني نعم المدى أو النطاق يتم تعيين متغير له .. وهذا هو الأصل لأنه في كثير من الأحيان يتم التعامل مع نطاقات مجهولة بالنسبة إلينا .. فمثلاً لنفترض انك ستقوم بالتعامل مع الخلايا في العمود الأول من الصف الأول إلى آخر صف به بيانات ..فيمكن استخدام حلقة تكرارية لكل خلية (والخلية تعتبر نطاق في حد ذاتها) ..وذلك لتنفيذ شيء معين على الخلايا أو النطاقات .. لذا يمكن استخدام المتغير باسم R1 ليعبر عن كل خلية أو نطاق داخل العمود ...بهذا الشكل Dim R1 As Range ثم لعمل حلقة تكرارية لكل كائن أو خلية أو نطاق داخل النطاق الأكبر في العمود الأول يمكن استخدام السطر التالي الذي سيتعامل مع النطاق بدءاً من الخلية A1 وحتى آخر خلية بها بيانات في العمود الأول .. For Each R1 In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) Next R1 وما بين جزئي الحلقة التكرارية يتم تنفيذ أسطر الكود لكل خلية أو كائن أو نطاق على حدا .. لنفترض أن هناك مسافات زائدة في بداية النص أو نهايته .. جرب السطر التالي ليتم التعامل مع الكائن بأن يعطي أمر بإزالة المسافات باستخدام الدالة TRIM .. ليصبح السطر بهذا الشكل R1.Value = Trim(R1.Value) وأخيراً يصبح الشكل الكامل للكود بهذا الشكل Sub RangeVariable() Dim R1 As Range For Each R1 In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) R1.Value = Trim(R1.Value) Next R1 End Sub أرجو أن تكون الصورة قد اتضحت

السلام عليكم ورحمة الله تفضل عدنا للسابق وعدلنا حسب طلبك الاخير إن شاء الله المطلوب ولاتتردد في السؤال مره عشر مائة الآن خارج لما اعود بمشيئة الله KHMB اضافة واستعلام.rar إعتمد الاخير مع مسح التكسات لإظهار البيانات الجديدة KHMB اضافة واستعلام.rar

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

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

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

صباح التفاؤل صباح الخير صباح البركة صباح الرضا صباح الحمد لله

تفضل اخي انشاء الله يكون المطلوب ادخال نسبة الحافز.rar

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

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

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

أخي الكريم عاشق الإكسيل كنت أتمنى أن تقوم بإضافة كود ولو بشكل مبدئي وليس كامل لتستطيع أن تقوم بالأمر بنفسك عموماً جرب الكود التالي وشوف هل يؤدي الغرض أم أن هناك مشاكل به Sub EditAfterRecall() Dim WS As Worksheet, SH As Worksheet Dim TargetRow As Long, LR As Long, RowsToInsert As Long Dim LastRow As Long, I As Long, Arr Set WS = Sheet1: Set SH = Sheet3 If IsError(Application.Match(WS.[M5].Value, SH.[A1:A2000], 0)) Then MsgBox "رقم الإذن غير موجود في ورقة الأرشيف", 64: Exit Sub Else With Application .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False End With TargetRow = Application.Match(WS.[M5].Value, SH.[A1:A2000], 0) LR = IIf(SH.Range("A" & TargetRow).End(xlDown).Row >= Rows.Count, SH.Range("I" & Rows.Count).End(xlUp).Row + 1, SH.Range("A" & TargetRow).End(xlDown).Row) SH.Rows(TargetRow & ":" & LR - 1).Delete Shift:=xlUp RowsToInsert = Application.WorksheetFunction.CountA(WS.Range("F20:F33")) SH.Rows(TargetRow).Resize(RowsToInsert).Insert Shift:=xlDown With SH.Rows(TargetRow).Resize(RowsToInsert) .Interior.Color = xlNone .Font.ColorIndex = xlAutomatic .Font.Size = 13 End With 'ترحيل البيانات LastRow = WS.Cells(33, "F").End(xlUp).Row Arr = Array("M5", "M2", "D6", "C10", "C12", "C16") For I = 0 To UBound(Arr) If IsEmpty(WS.Range(Arr(I))) Or LastRow < 20 Then MsgBox "البيانات غير مكتملة", vbCritical: Exit Sub Next I For I = 0 To UBound(Arr) SH.Cells(TargetRow, I + 1) = WS.Range(Arr(I)) Next I WS.Range("P20:R" & LastRow).Copy SH.Range("G" & TargetRow).PasteSpecial xlPasteValues MsgBox "تم تعديل البيانات بنجاح", 64 With Application .CutCopyMode = False .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True End With End If End Sub تقبل تحياتي

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

السلام عليكم ورحمة الله تفضل عندك بالمعادلات لاخونا الفاضل الاستاذ سليم حاصبيا او بالكود بالملف المرفق KHMB اضافة اخر سجل في الخلية الصفراء.rar

وعليكم السلام أخي وحبيبي في الله سعيد بيرم أدام الله المحبة بيننا في الله جرب الكود التالي حسب ما فهمت ..للأسف أنا لا أجيد الفهم في كثير من الأحيان .. ولكن حسب ما فهمت جرب الكود التالي وقد تم التعديل على بعض أجزاء الكود .. Sub Print_All() Dim Sh As Worksheet, LR As Long Dim Stx1 As String, Stx2 As String, St1 As String, St2 As String Dim Texte1 As String, Texte2 As String Set Sh = Sheets("فاتورة") LR = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row Stx1 = "جنيها ": Stx2 = "قرشا ": St1 = "و ": St2 = "لاغير" Texte1 = NoToTxt2(Cells(LR, "J")) Texte2 = NoToTxt2(Cells(LR, "I")) Range("del_range").NumberFormat = ";;;" ActiveSheet.PrintOut Copies:=1 With Cells(LR + 1, "B") .Value = "إجمالى الفاتورة : " .HorizontalAlignment = xlLeft If Cells(LR, "I") = 0 Then .Offset(, 1).Value = "فقط " & Texte1 & Stx1 & St2 Else .Offset(, 1) = "فقط " & Texte1 & Stx1 & St1 & Texte2 & Stx2 & St2 .HorizontalAlignment = xlRight End With Range("del_range").NumberFormat = "00" ActiveSheet.PrintOut Copies:=2 Range(Cells(LR + 1, "B"), Cells(LR + 1, "C")) = "" End Sub تقبل تحياتي

السلام عليكم ورحمة الله وبركاته وجزاكم الله خيراً على الإيضاح...تقبل تحياتي العطرة (حسام خطاب) الصقر الصقر عضو خبير 1,000 1,659 مشاركات Interests:لا تعطنى سمكه ولكن علمنى كيف اصطاد الحمد لله الذي بنعمته تتم الصالحات

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

أخي الكريم مرسال يرجى تغيير اسم الظهور للغة العربية .. قمت بتغيير شكل الملف قليلاً لسهولة التعرف على كيفية التعامل مع البيانات بشكل صحيح .. لأن الملف المرفق من قبلك غير معبر بعض الشيء عموماً يمكنك التعديل بسهولة على الملف وعلى الكود يوضع الكود في حدث ورقة العمل المسماة Sheet1 .. كليك يمين على اسم ورقة العمل Sheet1 ثم اختر الأمر View Code ثم الصق الكود التالي ..ثم انقر دبل كليك في عمود الاسم ليتم إعداد التقرير للاسم الذي قمت بالنقر عليه دبل كليك وإذا كانت الخلية فارغة يتم مسح محتويات التقرير Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 3 And Target.Row > 3 Then Application.ScreenUpdating = False Application.EnableEvents = False Cancel = True Dim Sh As Worksheet, lRow As Long Set Sh = Sheets("التقرير") lRow = Target.Row With Sh .Range("D5,D7,H8,H11,D11").Value = "" If Not IsEmpty(Target) Then .Range("D5").Value = Date .Range("D7").Value = Cells(lRow, "C").Value .Range("H8").Value = Cells(lRow, "D").Value .Range("H11").Value = Cells(lRow, "E").Value .Range("D11").Value = Cells(lRow, "F").Value MsgBox "تم إعداد تقرير للموظف " & Cells(lRow, "C").Value & " في ورقة التقرير", 64 End If End With Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub تقبل تحياتي Single Report For Each Name Worksheet Double Click YasserKhalil.rar

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

الأخ الفاضل أحمد جرب المرفق عله يكون المطلوب كود او معادلة.rar

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

السلام عليكم تم إضافة المرفق الى المشاركة لسهولة التحميل ================= عمل موفق وجهد جبار تم الاطلاع على اكواد الملف وارجو بعد إذنك ان تضع كلمة سر المحرر او ان تسمح لي بوضعها او رفعه مفتوح المصدر لان المنتدى هدفه الاول هو التعليم وليس الاحتكار 85

السلام عليكم ورحمة الله إخواني الكرام، بعض التعديلات على الملف (التنسيقات، تغييرات على المعادلات وتغيير طفيف جدا على الكود)... أرجو أن تعجبكم هذه التغييرات... في انتظار تغييرات أخرى من إخواننا الكرام ذوي الخبرات الجمة... أخوكم بن علية ترتيب التلاميذ 3.rar

السلام عليكم ورحمة الله أخي الكريم وهذا عمل آخر مختلف تماما عما سبق، قمت بتحضير نوع خط جديد سميته Inversed.ttf يقوم بقلب أي حرف أو رقم أو علامة بعد تطبيق هذا النوع عليها وتجد اسم الخط في قائمة الخطوط مقلوبا هو أيضا... في الملف المرفق تجد ملفين أحدهما هو نوع الخط يجب تنصيبه مع خطوط ويندوز والملف الثاني هو مثال تطبيقي على قلب الأرقام وقد استعملت معه دوال تقوم بكتابة الأرقام بالعكس (من اليمين إلى اليسار) (والحد الأعلى لأرقام العدد الذي تريد قلبه هو 6 أرقام)... أخوك بن علية قلب الأرقام بالخط.rar