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

السلام عليكم فورم ادخال و تعديل وبحث باستخدام اسم نطاق للقائمة المنسدلة هو تفس الفورم السابق ولكن تم تغيير طريقة ادخال القائمة المنسدلة لاي عمود في الفورم تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة وايضا تم تجاوز بعض الاخطاء في الفورم السابق شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في الورقة الواحدة او في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" المرفق 2003 [فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة.rar الاصدار الثالث: http://www.officena.net/ib/index.php?showtopic=51955

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

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

السلام عليكم ورحمة الله وبركاته دالة لاستخراج اسم واحد او عدة اسماء من اسم كامل kh_Names هي دالة مطورة من الدالة kh_Name والتي تستخرج اسم واحد حسب التعيين من اسم مركب تجدها في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=33289 اما هذه الدالة تستطيع من خلالها استخراج اكثر من اسم وباي ترتيب تريده (فكرة الدالة مستوحاه من مشاركة لاختي الفاضلة ام عبدالله حفظها الله حيث استخدمت الدالة السابقة kh_Name ثلات مرات لاستخراج الاسم الثلاثي ) كود الدالة: Option Explicit ' بسم الله الرحمن الرحيم " '======================================" ' دالة استخراج الاسماء من اسم مركب طويل ' iNdex1 بدلالة ترتيب الاسم '======================================" ' iNdex1 ' اختيار موقع الاسماء التي تريدها ' FullName حسب ترتبها في ' (اسم واحد او عدة اسماء) '======================================" ' وهي تقوم بإستخراج الاسماء المركبة ' للاسم الواجد ' تلقائياً حسب معايير معرفة لديها ' MyArray في متغير الجدول ' ويمكنك اضافة اي معيار آخر ' بجانب المعايير الموجودة ' مع مراعاة وجود فراغ بداية ' او نهاية المعيار '======================================" '----------------------------------------------------------------- Function kh_Names(FullName As String, ParamArray iNdex1()) As String Dim i As Integer Dim kh_Split, MyArray, Ar Dim Kh_String As String, Sn As String, Re As String On Error GoTo Err_Kh_Names '====================================== MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق") '====================================== Sn = Application.WorksheetFunction.Trim(FullName) For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next '====================================== kh_Split = Split(Sn, " ", , vbTextCompare) On Error Resume Next For i = 0 To UBound(iNdex1) Kh_String = Kh_String & " " & kh_Split(iNdex1(i) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") kh_Names = Kh_String Exit Function Err_Kh_Names: kh_Names = "" End Function المرفق 2003 استخراج عدة اسماء من اسم كامل.rar

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

منتجات شركه hp 2000 للكمبيوتر و البرمجيات برنامج حسابات اوراكل متكامل لأول مره نظام ويب ديزاين - أي كلا ود إمكانية الدخول علي البرنامج من أي مكان بالعالم بواسطة اسم مستخدم وكلمة سر. نعم سافر وتابع شركاتك من أي مكان بالعالم بدون تحميل -مجرد كلمة سر واسم مستخدم وتابع بيانات شركاتك من شركة هاي بوينت للبرمجيات رائع للشركات علي اقوي قواعد البيانات--- اوراكل المبيعات – العملاء - المقبوضات-المندوبين - العمولات للمبيعات والتحصيل بار كود للأصناف - وصور الأصناف وتخزينها مع الصنف-طباعة الاستيكرز المشتريات – الموردين – المدفوعات - الاعتمادات ألمستنديه ومتابعة الاعتماد مراقبة المخازن ( أذون صرف وأضافه – تحويلات مخازن - -مرتجعات ) الحسابات العامة وقيود اليومية وموازين المراجعة والحسابات الختامية تكاليف الإنتاج - ملف المنتج – التشغيلات – الطلبيات – التوريد - متابعة الطلبيات والخامات والمنتج النهائي - وربط الفروع مع إمكانية التعديل والتفصيل لبرامج جديدة حسب الطلب - والتدريب علي البرامج ودعم فني عن بعد . يصلح لمنشات شركات تجاريه مكاتب المحاسبة والمراجعة مصانــــــــــع سوبر ماركت شركات ســــياحة محلات ملابس محلات الموبيليات مطاعـــــــم محطات البنزين اوراكل :- لأول مره في مصر برنامج محاسبي كامل ويب ديزاين 5000$ للاستفسار الاتصال علي الأرقام التالية : 01222495193 – 01147801097 - 01280098013 *******************************************************

السلام عليكم ورحمة الله و بركاته قد حاولت القيام بعمل ملف يحتوي على فورم لادخال اصناف جديدة وفورم اخر لادخال يومية مبيعات لمحل احذية وعطوروات ولكن قمت بتصميم الفورم ولم اتمكن من اجراء باقي العمل والجاء اليكم لاستكمال عمل الفورم لما لكم من خبرات واسعة بالاكسيل المطلوب اولا بالنسبة للفورم الاول - فورم ادخال اصناف جديدة 1 - يتم تفعيل الازرار التي تم عملها وموضحة بالفورم بحيث يعمل الجديد على ادخال صنف جديد ويعمل التعديل على استدعاء احد الاصناف والتعديل عليها وترحيل الاصناف يقوم بتسجيل الاصاف وترحيلها للشيت بيان الاصناف كما هو موضح وللا سف لم اعلم اكيف ادرج صورة الفورم لاشرح عليه ياريت لو احد الاعضاء الكرام يوضح لي كيف يتم ذلك وله الشكر 2 - يتم الترقيم في رقم الصنف تلقائي 3- اما عن كود الصنف فسوف يتم كتابته يديويا طبقا لتصنيف الاصناف وتكويدها وكذلك اسم الصنف يتم كتابته يديويا ايضا ثانيا : فورم يومية المبيعات : 1- اليوم والتاريخ يتم كتابتهم يديويا اما عن رقم اليومية فيتم الترقيم التلقائي 2- اسفل كلمة مبيعات يوجد خانة اختيار يتم فيها عمل اخيتار واحد من ثلاثة ( نقدا - فيزا - مسحوبات ) 3- اسفل كلمة كود الصنف يتم كتابة كود الصنف الذي تم ادخالة سابقا فيظهر طبقا لذلك اسم الصنف وسعر البيع تلقائيا اسفل كل عمود خاص به 4 - يتم ادخال خانة العدد والخصم يديويا وتظهر خانة الاجمالي تلقائيا ايضا وعند ترحيل اليوميه يتم ترحيلها لشيت يومية المبيعات ثم يتم مسح جميع البيانات باليومية استعدادا ليومية جديدة وعند طلب تعديل يومية يتم استدعائها بناءا على رقم اليومية فيتم اظهار جميع البيانات التي سجلت بها من قبل فيتم التعديل عليها ثم يتم اعادة ترحيلها بعد التعديل ويتم حفظها بعد التعديل الذي تم عليها وخانة اجمالي اليومية يتم تجميع خانة الخصم بالكامل وخانة الاجمالي بالكامل 5- ثم الازارز الاخيرة فتتم تفعيل عملها كما هو مكتوب عليها كما تم ايضا بالفورم الاول الجديد لعمل يومية جديدة والترحيل لترحيل البيانات وهكذا ............. ولكم الف الف الف شكر مقدما Dailly Incom 1.rar

السلام عليكم جزاكم الله خيرا هذا كود يعمل على اي امتداد Option Explicit '====================================================== '====================================================== Sub RenameMe() Dim NewName As String, MyBook As String, MyPath As String, MyTyp As String, MyName As String '============================ On Error GoTo Err_kh_Name '============================ 1: NewName = InputBox("ادخل اسم الملف الجديد", "اسم الملف") If StrPtr(NewName) = 0 Then Exit Sub If Trim(NewName) = "" Then GoTo 1 '============================ With ThisWorkbook MyBook = .Name MyPath = .Path & Application.PathSeparator End With MyTyp = Mid$(MyBook, InStrRev(MyBook, ".")) MyName = Replace(MyBook, MyTyp, "") '============================ If NewName = MyName Then MsgBox "اسم الملف هذا هو نفس الاسم الحالي", vbOKOnly, "" GoTo 1 End If '============================ NewName = MyPath & NewName & MyTyp If Dir(NewName, vbDirectory) = vbNullString Then ThisWorkbook.SaveAs Filename:=NewName Kill MyPath & MyBook MsgBox "تم تعديل اسم الملف بنجاح", vbOKOnly, "الحمدلله" Else MsgBox "اسم الملف هذا موجود مسبقا", vbOKOnly, "" GoTo 1 End If '============================ Err_kh_Name: If Err Then MsgBox "Err.Number : " & Err.Number Err.Clear End If End Sub المرفق 2003 vvv.rar

الأستاذ /ahs959 السلام عليكم ورحمة الله وبركاته بالنسبة لتلوين الخلايا أمر بسيط جداً هو عبارة عن تنسيق شرطي تختار قيمة الخلية = 1 وتختار اللون الأخضر وهكذا بالنسبة لباقي الأعداد وتم التعديل على الملف كما تريد. 666.rar

تسلم استاذ ابو خليل

تم دمج الموضوعين

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

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

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

السلام عليكم شاهد هذا المرفق 2003 يعمل سيناريو تجميع عدة قيم للحصول على قيمة معينة سيناريو جدول1.rar

السلام عليكم بعد اذن اخي الحبيب ابو انصار وائراءا للموضوع شاهد المرفق 2003 اضافة خظ مائل الى ربع الدرجة.rar

السلام عليكم هذه محاولة بالكود المرفق 2003 بحث في اربعة اعمدة.rar

لا تتم الترقيه الا اذا كان اسم العضو باللغه العربيه

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