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

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

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

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

يتيح لك البرنامج وظيفة طباعة الكتيبات تتم طباعة البيانات على كلا وجهي الورقة. ويضمن لك البرنامج إمكانية ترتيب الصفحات بصورة صحيحة، بترتيب أرقام الصفحات عندما تكون الأوراق المطبوعة مطوية ومُدبسة من المنتصف. بطريقة سهلة و للغتين العربية و الإنجليزية يعنى لو لديك ثمانية صفحات وورد يتم طباعتها فى ورقتان مثل الشكل التالى و المثال فى الصورة عن مستند إنجليزى و البرنامج يتيح أيضا الترتيب وفق النظام العربى صور البرنامج أنا جاهز للرد على أى تساؤل مصرح بالنقل مع ذكر المصدر البرنامج مجانى تماما حجم البرنامج خفيف جدا 3.8 ميجا بايت رابط التحميل https://www.mediafire.com/?ykp0hykqp8t39s5 فى أمان الله

هذه الملفات مصدرها صفحة زميلنا م/ طارق حنيدق علي الفيسبوك إسم صاحب الملف موجود بالملفات م/محمود الشاذلى رابط التحميل http://www.gulfup.com/?3SZpyj ملفات اكسل مهمه لادارة مشروعات.rar

يحتوى برنامج الفيزيو 2010 على خاصية اضافة الملاحظات و علامات المراجعة Mark up و لكن للاسف لا يحوي امكانيات متقدمة مثل برنامج الوورد للتحكم فى طباعتها و لكن يوجد حل بديل عن طريق الماكرو حيث يتم انشاء مربع نص و نسخ قائمة بالتعديلات اليه و ذلك بجوار الرسم المصدر http://support.microsoft.com/kb/898514/en-us و هذا هو الكود Public Sub GetComments() Dim pagMarkup As Visio.Page Dim pag As Visio.Page Dim shp As Visio.Shape Dim sText As String Dim iRow As Integer Set pag = Visio.ActivePage sText = "Reviewer" & vbTab & "Date" & vbTab & "Comment" If pag.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then For iRow = 0 To pag.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If For Each pagMarkup In pag.Document.Pages If pagMarkup.Type = visTypeMarkup Then If pagMarkup.OriginalPage = pag Then If pagMarkup.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then sText = sText & vbCrLf sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.ReviewerID - 1, Visio.visReviewerName).ResultStr("") For iRow = 0 To pagMarkup.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If End If End If Next pagMarkup Dim iAutoSize as Integer 'new iAutoSize = pag.AutoSize 'new pag.AutoSize = 0 'new Set shp = pag.DrawRectangle(-pag.PageSheet.Cells("PageWidth").ResultIU, 0, 0, pag.PageSheet.Cells("PageHeight").ResultIU) pag.AutoSize = iAutoSize 'new shp.AddSection visSectionUser 'new shp.AddNamedRow visSectionUser, "msvNoAutoSize", visTagDefault 'new shp.CellsU("User.msvNoAutoSize").FormulaU = 1 'new shp.Cells("Para.HorzAlign").Formula = "0" shp.Cells("VerticalAlign").Formula = "0" shp.Name = "Reviewers Comments" shp.Text = sText End Sub

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

http://www.youtube.com/watch?v=FvGy3lxDT8w#t=167

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

السلام عليكم ورحمة الله وبركاته ،،، لدي مشكلة في النسبة المئوية واتمنى منكم المساعدة ( تم شرح كل شيء داخل قاعدة البانات المرفقه ) باختصار :: عند كتابة اي رقم في خانة النسبة المئوية يتحول صفر تلقائيا واريد ادخل النسبة الشهرية كل شهر وهي : النسبة الحالية للمشروع : النسبه السابقة للمشروع : النسبة حسب البرنامج الزمني ... وعند اختيار اسم المشروع تظهر جميع النسب المدخلة سابقا منذ بداية المشروع . ولكم جزيل الشكر project.rar

السلام عليكم ورحمة الله وبركاته.. يا إخوان بداية أشكركم من اعماق قلبي على هذا المنتدى الرائع، وقد استفدت منه الكثير في تأدية عملي وتطوير مهاراتي في الاكسل. موضوعي بخصوص إكسل شيت للمستودع وفيه مجموعة أصناف ومحتاج الآتي: 1- الأصناف تعبت ادخلها يدوي وكافة تفاصيلها وأسعارها والتعبئه، كيف الطريقه حيث لمن أدخل صنف تطلع لي كافة تفاصيله كقائمه منسدله ويكون عندي شيت منفصل احدث فيه بيانات الصنف إذا طرأ أي تغيير في الأسعار وغيره, 2- تجميع الأصناف المتفرقه في الشيت حيث يكون بإمكاني معرفة المخزون المتوفر عندي أولاً بأول، حيث أن الصناف متفرقه في الشيت كذلك أن لكل صنف أكثر من وحده مثال( كرتون،حبه) هذا يشمل طبعً المنصرف والمستلم طبعاً من الأصناف.. مرفق الشيت للإطلاع وللتوضيح أكثر.. NORTHERNWH. MAY transaction report.rar أرجوا الإهتمام لأنه يأخذ من وقتي كثير ويضيع قبل ما أنجز الكثير.. لكم مني كل الود والتقدير...

(اذا اردت ان تحمي خلية (عدة خلايا خاصةً اذا كانت تحتوي على معادلات 1- حدد النطاق اللازم 2- اذهب الى Data validation 3- اختر Custom 4- ضع المعادلة (156)char= 5-OK (انقر اعجبني)

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

عليك بالمرفق أخى العزيز Book120.rar

السلام عليكم بعد اذن أخى الفاضل / زمزم ولاثراء الموضوع تفضل أخى تعديل فاتورة.rar

السلام عليكم اليك الملف المطلوب اضغط اعجبني جمع تراكمي.rar

اليك ما طلبت /عسى ان ينال اعجابك اضغط اعجبني جمع تراكمي.rar

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

جزاك الله خيرا الاستاذ القدير الاستاذ // عبد الله باقشير بحق ملك الاكواد.. ولاثراء الموضوع وتنوع الحلول هذا كود للعملاق الاستاذ الحبيب // رجب جاويش Private Sub Worksheet_Change(ByVal Target As Range) Static x If Target.Address = [A1].Address Then Application.EnableEvents = False x = x + Target.Value Target = x Application.EnableEvents = True End If End Sub والتنفيذ سبكون في a1

السلام عليكم ضع هذا الكود في موديل الورقة المعنية بالعملية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("F7").Address Then Range("G7").Value = Val(Range("G7")) + Val(Target) End If End Sub تحياتي

استاذ فؤاد اليك هذا الكود انه يخفي كل الصفحات ما عدا الرئيسية انا اعتبرت ان الرئيسية هي الصفحة 1 (يمكنك التغيير من داخل الكود) يخفي و ليس يحذف ممكن ان التسمية للملف مغلوطة حذف كل الصفحات ما عدا الرئيسية.rar

الاخ العزير ممكن اضافه خانه جديده بسم مباع _غير مباع بتنسيق (نعم/لا) وفى حاله البيع ضع علامه اى تنشيط مفتاح نعم - وفى الاستعلام البحث ضع شرط لا - سوف يظهر لك الغير مباع -- لو كان الملف ب اكسيس 2003 كنت راح اقوم بالعديل - الله الموافق

التهنئة بترقية الاخ محمد أبو البراء الى عضو محترف

نسيت أن أخبركم بعد الإنتهاء من طباعه أوجه الصفحات خذ الأوراق الناتجة بنفس إتجاهها (لا تغير أى شيى فى الترتيب و لا تقلبها) ثم ضعها مرة أخرى فى صينية الورق ثم إطبع ظهر الأوراق بإختصار لو كانت صينية الورق بالأسفل و الورق يخرج من الأعلى فكل ما عليك هو نقل الورق من أعلى لأسفل ( كما هو ) دون أى تغيير أو قلب للإتجاه ملحوظه : لا تغير إعدادات الصفحة أو إعدادات الطابعة لديك الطباعة ستكون على النظام الإفتراضى (الطولى) سيفيدك هذا البرنامج فى 1- توفير الورق حيث يلزمك ربع عدد الصفحات فقط للطباعة فكل 100 صفحة تطبع فى 25 ورقة 2 - الحصول على أوراق يمكن تدبيسها من الوسط فيكون الناتج مثل المجلة 3- لو كان الورق A3 فستحصل على مجلات بمعنى الكلمة

السلام عليكم ورحمة الله وبركاته الأستاذ الفاضل/ إبراهيم ابوليله الأستاذ الفاضل/ الجزيرة جزاكم الله كل خير - تقبلوا تحياتي

الدرس الثاني سوف نتعرف فيه علي 1- ادراج TextBox 2- ادراج ComboBox 3- ادراج OptionButton 4- ادراج CheckBox 5- مسح الفورم من البيانات المدخلة لادخال بيانات جديدة 6- اضافة عناصر للكمبوبوكس (وسوف نتعرف تباعا علي اكثر من طريقة لاضافة عناصر للكمبوبوكس) ثانيا :- سوف نقوم باضافة الكود الخاص بمسح الفورم يوجد لدينا في الفورم اربع عناصر ( TextBox1-ComboBox1-OptionButton1- CheckBox1) نقوم باضافة زر امرCommandButton ونسميه مثلا (مسح الفورم) ونكتب داخله في حدث كليك Private Sub CommandButton2_Click() TextBox1.Value = "" ComboBox1.Value = "" CheckBox1.Value = False OptionButton1.Value = False End Sub ثالثا اضافة عناصر للكمبوبوكس مثال : - اريد اضافة شهور السنة لتظهر كقائمة اختار منها سوف استخدم الكود التالي في حدث انطلاق الفورم (( UserForm_Initialize)) كالتالي Private Sub UserForm_Initialize() For n = 1 To 12 ComboBox1.AddItem Format(DateSerial(2013, n, 1), "mmmm") Next n End Sub يتبـع >>> التطبيق بالمرفقات مثال 2.rar

أخي العزيز تحية طيبة وبعد ،،،،،،،،،،،،،، 1. بإمكانك تحويل الملف الى أكسس 2003 وبعدها بإمكانك عمل الصلاحيات ثم تحويل البرنامج الى أكسس 2007 بالتجربة قمت بتحويل برنامج له صلاحيات من أكسس 2003 الى أكسس 2007 وهو يعمل بشكل ممتاز ولا توجد مشاكل. 2. بإمكانك تقسيم قاعدة البيانات الى قاعدة أولى تحتوي على الجداول وقاعدة أخرى تحتوي على باقي الكائنات ويتم وضع القاعدة الاولى على السيرفر ووضع القاعدة الثانية على عدة اجهزة ويتم عمل ربط بين القاعدتين. ===== بالتوفيق =====

اخي العزيز فضلت ان ادعم شرحي بالصور التوضيحية لازالة اي التباس اثناء الشرح وساقوم بالشرح على قاعدة Northwind 2003 وساحاول ان ابين المشاكل التي قد تواجهها وكيف تتخطاها وذلك يعني ان اي مشكلة ساوضحها ليس بالضرورة ان تواجهك وبسم الله نبدأ. 1- في البداية افتح قاعدة البيانات المراد تحويلها ومن شريط القوائم افتح ادوات -->ادوات مساعدة لقواعد البيانات--->انشاء ملف MDE ملاحظة هنا قد تظهر لك(قد تظهر..) رسالة الخطأ الموضحة بالصورة وذلك يعني ان قاعدة البيانات لا تتوافق مع اصدار اوفيس شكل الرسالة ولتوضيح المعنى لاحظ تنسيق القاعدة 2000 ونحن نعمل في اكسس 2003 ولمعالجة الامر قم بالتالي من قائمة ادوات--->خيارات سيفتح لك مربع حوار يحتوي على علامات تبويب من التبويب (خيارات متقدمة) ومن قائمة (تنسيق الملف الافتراضي) اختار Access 2002-2003 (قد يكون هذا الخيار محدد من سابق) ولكن لابأس من التوضيح وبهذا نكون قد جعلنا اي قاعدة يتم انشاءها من الان ستكون بتنسيق 2002-2003 نقوم الان بانشاء قاعدة بيانات جديدة من قائمة ملف --->جديد ستظهر قائمة خيارات في احد جانبي الشاشة قم باختيار (قاعدة بيانات فارغة) سيفتح مربع حوار انشاء ملف اكسس جديد سمه اي اسم تريد وانقر على (انشاء) فنكون قد انشانا قاعدة جديدة بالتنسيق الجديد افتح القاعدة الجديدة وفي اي مكان فاضي انقر بالايمن ستظهر لك قائمة مختصرة اختار منها (استيراد) ليظهر مربع حوار لتحدبد القاعدة التي ستستورد منها الكائنات (القاعدة التي بتنسيق 2000) بعد تحديد المصدر سيظهر لك مربع حوار لتحديد الكائنات المراد استيرادها وفي هذه الحالة قم بالنقر على (تحديد الكل) في جميع القوائم (الجداول-الاستعلامات...الخ) بعض البرامج قد تحتوي شريط قوائم او شريط ادوات مخصص لذا يمكن استيرادها بالنقر على زر (خيارات) وتحديد الخيار (قوائم واشرطة ادوات) كما بالصورة 2- بعد عملية الاستيراد قم بتكرار اول خطوة فتظهر لك نافذة التحويل كما بالشكل قم بتسميتها اي اسم تريده وانقر زر حفظ ملاحظة عند النقر على زر حفظ قد تظهر لك هذه الرسالة والمعنى ان هناك خطأ في البرنامج ويحل كالتالي افتح نافذة محرر فيجوال بيزيك ومن قائمة (Debug) اختر (Compile db1) "طبعا db1 هو اسم القاعدة في المثال ويمكن ان يتغير بتغير اسم القاعدة" فتظهر لك رسالة عند كل خطأ يوجد وستجد مكان الخطأ قد تم تظليله وللتوضيح فان الاخطاء متعددة قد تكون اخطاء في الكتابة او في اجراء غير مكتمل او مرجع ناقص ولكن هذا ليس مايهمنا هنا المهم انه يجب تصحيح الخطأ وتكرار امر(Debug-->Compile db1) الى ان يتم الغاء تفعيل الامر في القائمة كما بالصورة بعد التصحيح نعيد تكرار الخطوة 2 لتظهر لك نافذة التحويل كما بالشكل قم بتسمية الملف الجديد كما تشاء وفي المثال قمت بتسمية الملف NorthwindMDE وانقر زر حفظ لتحصل في الاخير على برنامج بامتداد MDE وعندي ظهرت النتيجة بهذا الشكل ارجو ان اكون قد وضحت العملية كما يجب والمعذرة عن اي اخطاء او تقصير. تحياتي,,,