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

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

السلام عليكم مثال قديم للأستاذ أبو هاجر لاستخدام الماسح ( السكانر ) عن طريق الأكسس قمت على تحديثه وزيادة السيطرة واستبعاد تخزين مسار الصور حيث لا داعي لها . مرفق ملف مكتبة dll يجب نسخه في مجلد Windows\System . لا تنسونا من دعاكم . تحياتي . الملفات المرفقة Scanner.rar ( 471.28ك ) عدد مرات التنزيل: 38

السلام عليكم الفكرة الاساسية لهذا الموضوع موجودة علي المواقع الاجنية و لكن هذه تحتوي علي فكرة جديدة و هي المرونة , بحيث تستطيع زيادة البيانات بدون الحاجة الي استخدام تسمية النطاقات . جرب المرفق لتتضح الصورة . تحياتي 2 BY1 datavalidation+.rar

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

السلام عليكم جرب هذا الكود Public Sub Ali_nr() Dim c As Long Dim x As Long c = 11 For Each Rn In Array("j", "k", "l", "m", "n", "o") x = Evaluate("=SUMPRODUCT((raball!AQ$6:AQ$60000=B17)*(raball!AS$6:AS$60000=C2)*(raball!" & Rn & "$6:" & Rn & "$60000)*(date>=F$2)*(date<=G$2))") Cells(17, c) = x c = c + 1 Next End Sub

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

إخوتي الفضلاء نحتاج أحياناً للتعرف على أنواع الخطوط الموجودة على جهاز كل منا ، للحصول على قائمة بأسماء الخطوط المتاحة على جهازك برمجيا مع مثال نصي لنوع الخط ضمن جدول في مستند يتم إنشاؤه حديثا ، نقدم اليوم هذا الحلّ البرمجي. كيفية الاستخدام: فتح مستند Word. اضغط على Alt + F11 لفتح VBE. إدراج وحدة نمطية. (Insert -> module) لصق الكود التالي هناك في يمين الإطار Option Explicit Sub ListAllFonts() Dim oDoc As Word.Document Dim oTable As Word.Table Dim iCnt As Long If MsgBox("Do you wish to build a list?" & vbCr & _ "Building a list on older systems this may take a while" & vbCr & _ vbCr & "Screen may appear frozen" & vbCr & _ "Please wait for the list to complete", _ vbQuestion + vbYesNo, "Built Font list") = vbYes Then Application.ScreenUpdating = False 'Create new doc to list font's Set oDoc = Application.Documents.Add 'Create table of 2 columns and as many rows as there are fontnames Set oTable = oDoc.Tables.Add(Range:=Selection.Range, _ NumRows:=Application.FontNames.Count + 1, _ NumColumns:=2) With oTable 'Create table header With .Cell(1, 1).Range .Font.Name = "Arial" .Font.Bold = True .InsertAfter "Font Name" End With With .Cell(1, 2).Range .Font.Name = "Arial" .Font.Bold = True .InsertAfter "Font Example" End With 'Loop through Fontnames For iCnt = 1 To Application.FontNames.Count 'Add Fontname to cell With .Cell(iCnt + 1, 1).Range .Font.Name = "Arial" .Font.Size = 10 .InsertAfter Application.FontNames(iCnt) End With 'Set Font in Cell to Fontname and insert example text With .Cell(iCnt + 1, 2).Range .Font.Name = Application.FontNames(iCnt) .Font.Size = 10 .InsertAfter "ABCDEFG 1234567890 hijklmnop" End With Next iCnt 'No borders and sort table Ascending .Borders.Enable = False .Sort SortOrder:=wdSortOrderAscending End With End If End Sub إغلاق VBE Alt+ Q أو اضغط على X في الزاوية اليمنى العليا حفظ الملف. اختبار التعليمات البرمجية: من Word، اضغط Alt + F8 لفتح مربع حوار الماكرو. حدد ListAllFonts انقر فوق تشغيل. والمرفق لتوضيح التطبيق والله من وراء القصد وهو حسبي .......... NA_ListInstalledFonts.zip

السلام عليكم وجدة كود خاص بالترجمة الفورية للكلمات في احد المواقع الاحنبية واردة نشره في المنتدى لتعم الفائدة على الجميع لاكن الكود به خلل او نقص ما وحاولة جاهدا لكتشافه ومع الاسف لم اصل لحل هدا المرفق به االاكواد الخاصة بهته الدالة اول شى لازم تفعيل Microsoft HTML Object Library Microsoft Internet Controls من Qutils Références-VBAProject لان الكود يعمل بالنت عند كتابة تساوي (=) في اي خلية ثم الحرف t تضهر لكم الدالة باسم traduction ارجو من اعضاء المنتدى خاصتا عباقرة الاكواد التوصل الى حل ما نضرا لجمال الفكرة وشكرا traduire cette valeur.rar

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

السلام عليكم الاخ الفاضل / حيدر جزائري اليك اخي رابط موضوع به حل مشكلتك وبعض اذن الاساتذة حل للقائد الاعلي لمنتدي اوفيسنا مهندس / محمد طاهر اضعه للاطلاع عليه والاستفادة منه باذن الله جزاكم الله خيرا شاهد الرابط بعنوان ( فجأة توقف الزر الأيمن للماوس عن العمل فى اكسيل فقط ) وهو الحل النهائي للمشكلة ( باذن الله ) http://www.officena.net/ib/index.php?showtopic=45037&hl=%D8%A7%D9%84%D8%A7%D9%8A%D9%85%D9%86

أتوقع أخي الحبيب انه يتوجب عليك تحميل هذا الملف إلى مسار ملف الاكسيل في داريف سي ( c )

أخى الفاضل / محمد ابو عبدو مرحبا بك عضوا جديدا بين إخوانك أرفق ملف ليتم العمل عليه حتى يتمكن أساتذة المنتدى من عمل اللازم قم أولا بضغط الملف ببرنامج ضغط مثل Winrar ثم ارفعه

أستاذى ومعلمى الرائع الجميل ( رجب جاويش ) ماشاء الله عليك معادلات أكواد شئ رائع بجد بارك الله فيك ولأثراء الموضوع هذا حل أخر وإن كان يوجد العديد من الطرق الذى ليس لها نهاية لتحقيق طلب أخى السائل ترحيل بيانات3.rar ترحيل بيانات4.rar

بعد الاستئذان من جميع اساتذتنا بالمنتدى ارفق حول الموضوع هذه المشاركة أرجو ان تفيد وأي تصحيح عليها نستفيد منه جميعا وحسب ما جربتها أدت لي الغرض الذي يطلبه صاحب الموضوع المرفق: حساب العمر آليا بالـ س-ش-ي.rar

نسأل الله أن ينصركم ويزلزل الأرض من تحت أقدام بشار وحاشيته

السلام عليكم هذه صيغة المعادلة =SUMPRODUCT(N(MONTH($A$3:$A$100)=D3);$B$3:$B$100) وهذه طريقة =SUMPRODUCT((MONTH($A$3:$A$100)=D3)*$B$3:$B$100) وهذه اخرى =SUMPRODUCT(--(MONTH($A$3:$A$100)=D3);$B$3:$B$100) شاهد المرفق 2003 SUMPRODUCT.rar

بسم الله الرحمن الرحيم اساتذة فى هذا المثال اريد عند ضغط على الزر Delete فى النموذج تضهر رسالة ( هل تريد حذف هذا السجل ) و عند الضغط على الزر Save تضهر رسالة بانه ( تم حفظ البيانات ) Sample.rar

أنظر أخى المرفق معادلة حساب السن.rar

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