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

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

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

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

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

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

السلام عليكم و رحمة الله و بركاته ألا تحترموننا بعمل استفتاء حول تغيير شكل المنتدى من عدمه قبل أن تفرضوا علينا هذا الشكل المقزّز ..من عادتي أستعمل النظارة أمام الكمبيوتر و بهذا الشكل سأستعمل 10 نظارات و يا رب تضبط معي تحياتي / عبد العزيز البسكري

السلام عليكم و رحمة الله و بركاته اخواني و اساتذتي رواد منتدانا الغالي كل عام و انتم و الامه الاسلاميه بخير و صحة و عافيه و عيدكم مبارك هديتي متواضعه كعلمي و ارجو من الله ان يكون بها فائدة لاخواني المبتدئين على وجه الخصوص برنامج المعاملات : يقوم بحفظ بيانات المعاملات و من ثم يتم تصنيف المعاملات الى 6 فئات 1: منجزة تحت الاجراء : لم تتجاوز الثلاثة ايام و ينطبق على الفئة الرابعة 2: منجزة متأخرة : ما بين 4 الى 10 ايام و ينطبق على الفئة الخامسة 3: منجزة متأخرة جداً : اكثر من 10 ايام و ينطيق على الفئة السادسة 4: غير منجزة تحت الاجراء : 5: غير منجزة متأخرة 6: غير منجزة متأخرة جداً - تدوين كامل بيانات المعاملة واضافة اكثر من مرفق للمعاملة الواحدة و تصفح المرفقات ( يتم فك الضغط عن الملف بالدرايف C و حفظ جميع صور المعاملات المراد استعراضها من البرنامج بالملف Photos و يمكن تغيير المسار بالدخول على الكود ) علماً بأن الصور فقط بالامتداد JPEG - هناك عملية متابعه يتم من خلالها عرض المعاملات الغير منجزة و عرض تقرير بها - تقرير يشتمل على رسوم بيانيه للاحصاء و المقارنة يوضح النسبة المئويه لعدد المعاملات المنجزة لجهة او اربعة جهات كحد اقصى كما يوجد احصاء لجميع المعاملات المنجزة و الغير منجزة ( تقريرين حسب نوع المقارنة ) - ارسال بريد الكتروني لجميع المعاملات التي لم تنجز في اكثر من 3 ايام و تدوين تاريخ و وقت ارسال الايميل تلقائي - التحكم في نص الرسالة و و عنوانها و الجهة المراد ارسال نسخة من البريد اليها - صلاحيات للمستخدمين تتكون من مستويين : 1: كامل الصلاحيات : و بتحديدها يتم الدخول على كامل البرنامج 2: صلاحية محدودة : وفيها فقط يتم استعراض السجلات و عمل الاحصائيات و المقارنات 3: تحديد كامل الصلاحية او الصلاحية المحدودة يتم من خلال مربع اختيار CheckBox 4: شاشة لمتابعة دخول و خروج المستخدمين ليتابعها المسئول مع ملاحظة بأن سجلات هذا الجدول ستكون في ازدياد بعدد مرات الدخول الى البرنامج و ينصح بشدة التخلص منها و حذفها في حالة عدم الحاجة اليها . البرنامج مفتوح و بدون الشفت او اخفاء الاكسس ايضاً ليتمكن اخواني المبتدئين من الاستفادة من الاكواد الموجودة فيه اسأل الله عز و جل التوفيق للجميع اخوكم : يوسف Documentation.rar

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

بسم الله الرحمن الرحيم الحمد لله ولا اله الا الله والله اكبر ربنا لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك سبحانك لا علم لنا الا ما علمتنا سألت سؤال وهو ازاى اعرض كل التقارير من خلال نموذج رئيسى انا منمتش من امبارح لانى كنت محتاج جدا للموضوع ده وبفضل الله رب العالمين ربنا انعم وتفضل على بالوصول لنتيجة رائعه ونظرا لافضال اهلى المنتدى على ولاساتذتى الكرام لهم كل الشكر والتقدير اهدى عملى المتواضع هذا اليكم حتى تعم الفائده النموذج المرفق يحتوى على - صلاحيات مشتخدمين -صلاحيات استخدام العناصر لكل مستخدم على حده -البحث والفلترة والتظليل لنتائج البحث وظهورها بلون احمر ايا كان موقع الحروف والارقام والبحث متعدد ومتقدم -نموذج لعرض كل قاعدة البيانات من خلاله بكل سهوله وايضا من خلال هذا النموذج يمكن عمل تصدير لاى تقرير بجميع الصيغ كما يمكن معاية التقرير قبل الطباعه ثم طباعة التقرير اتمنى ان تجدوا ما يسركم وينفعكم ان شاء الله لعلم كل ما ورد فى المرفق حصرى لمنتادنا فقط لان تصميم القاعده بتلك الكيفية ومعالجة البيانات من بنات افكارى طبعا ادين بالفضل لكل استاذ جليل او اخ كريم تعلمت منه او على يديه سواء بطريق مباشر او غير مباشر المرفق عباره عن ملف تيكست به رابط تحميل من المدياي فاير File size: 2.73 MB =================================================================== READ IT.txt مثال شامل.rar

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

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

أتفق معك بشدة ولو كان معي حق الفيتو سأستعمله هنا في هذه اللحظة

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

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

ماذا جرى و لماذا هذا الشكل لمخيف في الصفحة

استخدم الكود التالى فى حدث التغير فى ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B:B")) Is Nothing Then Target.Offset(0, -1).Select End If End Sub واليك المرفق 11111.rar

السادة الأفاضل أضم صوتي لصوت الأعضاء الأفاضل الشكل الأول أفضل بكثير

صعوبة في إيجاد المرفقات صعوبة في البحث هل من الممكن إعادة المياه إلى مجاريها ؟

برنامج محاسبي

الله يحفظكم جزيت خيرا عمل ممتاز

أخي الكريم أبو لجين إليك التعديل ليناسب طلبك إن شاء المولى Function AnglesAverage(Rng As Range) Application.Volatile Dim Cell As Range, Counter As Long, Temp For Each Cell In Rng If Cell.Value < 180 And Not IsEmpty(Cell) Then Temp = Temp + Cell.Value + 360 Else Temp = Temp + Cell.Value End If If Not IsEmpty(Cell) Then Counter = Counter + 1 Next Cell AnglesAverage = Temp / Counter If AnglesAverage >= 360 Then AnglesAverage = AnglesAverage - 360 End Function قم بإدراج الكود مكان الكود القديم واذهب لورقة العمل وإذا وجدت النتائج لم تتغير يرجى الضغط على Ctrl + Shift + F9 لا تنسى أن تحدد أفضل إجابة ، ولو فيها رزالة مني متنساش تضغط على "أعجبني هذا"

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

ربما لم أفهم المطلوب بشكل جيد قمت بعمل دالة معرفة تتعامل مع كل زاوية .. إذا كانت الزاوية أقل من 180 يتم إضافة 360 لها وهكذا ثم يتم عد الزوايا وحساب المتوسط على حسب العدد أرجو أن يكون المطلوب .. Function AnglesAverage(Rng As Range) Dim Cell As Range, Counter As Long, Temp For Each Cell In Rng If Cell.Value < 180 And Not IsEmpty(Cell) Then Temp = Temp + Cell.Value + 360 Else Temp = Temp + Cell.Value End If If Not IsEmpty(Cell) Then Counter = Counter + 1 Next Cell AnglesAverage = Temp / Counter End Function تقبل تحياتي Angles Average UDF Function.rar

الأخ الفاضل طائع جرب الكود بهذا الشكل Sub Circles1() Dim C As Range Dim MyRng As Range, V As Shape Dim X As Integer, G As Integer, R As Integer, D As Integer '================================================ G = 2 ' عمود رقم الجلوس R = 11 ' صف الدرجات Set MyRng = Range("O12:CQ132") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For Each C In MyRng If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) Or C.Value = "غ" Or C.Value = "صفر") And Not IsEmpty(C.Value) Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 1, C.Top + 1, C.Width - 1, C.Height - 1) V.Fill.Visible = msoFalse 'لون الدائرة V.Line.ForeColor.SchemeColor = 10 'سمك خط الدائرة V.Line.Weight = 1.9 D = D + 1 End If Next ActiveWindow.Zoom = X Application.ScreenUpdating = True MsgBox "تم إضافة " & D & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub Sub RemoveCircles1() Dim shp As Shape, D As Integer For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.Delete: D = D + 1 Next shp MsgBox "تم حذف " & D & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub

الأخ الكريم ياسر كل عام وأنت بخير .. وتقبل الله منك صيامك وقيامك وسائر اعمالك سلمت يداك

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

أخي الكريم // الشيباني اولا :- بالنسبة لتطبيق اخي الاستاذ // عباد اتبع خطوات الشرح كما اوردها اخي أبونصار وقم بتطبيقها علي الملف المرفق بالمشاركة رقم 10 اواتبع خطوات الشرح المصور لنفس التطبيق بالمشاركة رقم 11 ثانيا:- عندك حل اخر لاضافة العناصر للكمبوبوكس بالمشاركة رقم 12

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هذه هي النسخة المعدلة من برنامج المخازن ولقد قمت بتجارب كثيرة عليه وانشا الله لا تحتوي على اية خطأ كما قمت بتعديل بسيط على القوائم واظهار واخفاء اشرطة الادوات ارجو ان تنال اعجابكم طريقة تشغيل البرنامج اولا فك االملف المضغوط باستخدام برنامج وين رار ثم شغل الملف المسمى المخازن اذا كانت بعض المراجع لديك غير معرفة سوف تظهر لك رسالة خطأ اضغط على زر debug ستفتح لك قائمة هي قائمة refrences والتي من خلالها يتم اضافة المراجع وهي على الشكل التالي اولا قم بازالة جميع المراجع الموجود عندك في الجهاز هناك بعض المراجع التي لايمكن ازالتها لانها قيد التشغيل ثم اضف المراجع كما هي بالصورة المرفقة اعلاه ملاحظة قد لا تحتاج الى كل المراجع الموضحة بالصورة ولكنني اضفت بعضها تحسبا ملاحظة اذا لم تفتح شاشة ال refrences تلقائيا يمكن فتحها عن طرق التالي اضغط alt +f11 يفتح مشروع فيجوال بيسك ثم من القائمة tools اختر refrences ثم قم باضافة المراجع حسب الشرح ملاحظة بالنسبةللطباعة اذا لم يكن لديك طابعة مثبة على الجهاز قد تظهر رسالة خطأ للحيلولة دون ظهورها عليك ان تثبت طابعة على الجهاز حتى لو لم يكن عندك طابعة تستطيع ذلك عن طريقة اضافة طابعة من لوحة التحكم بالنسبة لاستخدام البرنامج الافضل استخدام الارقام العربية وهي على الشكل التالي بالنسبة لارقام الاصناف يفضل استخدام الحروف الانجليزية مع الارقام العربية على الشكل ارجو ان ينال البرنامج اعجابكم واذا كان لديكم اية ملاحظات او استفسارات لا تترددو في طرحها هنا almakhazn.rar