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

جرب الكود التالي عله يفي بالغرض Sub Test() Dim a As Variant Dim b As Variant Dim i As Long Dim x As Long a = Range("H12:H16").Value ReDim b(1 To UBound(a, 1) * 2, 1 To UBound(a, 2)) For i = LBound(b, 1) To UBound(b, 1) Step 2 x = x + 1 b(i, 1) = a(x, 1) Next i Range("N12").Resize(UBound(b, 1), UBound(b, 2)).Value = b End Sub أو كود أسهل من السابق Sub Demo() Dim a As Variant a = Split(Join(Application.Transpose(Range("H12:H16")), ",,"), ",") Range("N12").Resize(UBound(a) + 1).Value = Application.Transpose(a) End Sub

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

لك ما تريد اخي الحبيب ياسر Scroll_Area.rar

اخونا عبد الحميد تم فصل استفساراتك كمواضيع مستقلة بالنسبة لشرح الجمل البرمجية أعلاه. بصورة عامة : يتم البحث في مجموعة السجلات عن القيمة x في الحقل id وعندما يجدها يتوقف ويظهر النتيجة Dim x } } اكس هذه تمثل قيمة عامة تم الاعلان عنها بـــ Dim ليعرفها اكسس {x = SearchList.Column(0)}هنا اعطينا اكس قيمة وهي = قيمة اول حقل سجل بالقائمة حيث الرقم صفر المحصور بين القوسين يدل على ترتيب العمود داخل القائمة If Not IsNull(x) Then} } إذا اكس يحمل قيمة {Me.RecordsetClone.FindFirst "[id] = " & x} معلوم ان الحدث تم عند النقر على الحقل أي ان التركيز كان على حقل معين في سجل ضمن مجموع السجلات فالسطر اعلاه يعني : ابحث واستنسخ كامل السجل بشرط id = x {Me.Bookmark = Me.RecordsetClone.Bookmark) اظهار نتيجة البحث

ممكن هذا الكود يقوم بهذا العمل تقوم بتعبئة التكست و عند الخروج منه يتم التنسيق Private Sub TextBox1_LostFocus() Application.ScreenUpdating = False TextBox1 = Format(TextBox1, Application.Rept(0, 10)) Application.ScreenUpdating = True End Sub

نعم أخي الأكواد المقدمة تقوم بذلك .. هل جربت الأكواد؟

السلام عليكم أخي الفاضل eng.osama.kh ما الذي ترغب بعمله؟ هل هو ترحيل بيانات أم نسخ ولصق فقط أم ماذا حدد المطلوب ووضحه جيداً حتى يتم الإجابة على سؤالك.

وعليكم السلام جرب الكود التالي عله يفي بالغرض Sub Test() With Range("C2", Range("C" & Rows.Count).End(xlUp)) .NumberFormat = "@" .Value = Evaluate("index(text(" & .Address & ",""0000000000""),)") End With End Sub

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

جرب التالي لربما يفي بالغرض TextBox1=Format(TextBox1,"00")

السلام عليكم ورحمة الله أخي وحبيبي أبو حنين، تم حل المسألة بمعادلات صفيف حسب حالتين (تكرار القيم ودون تكرار القيم)... أخوك بن علية حاجي اعلى 5 قيم.rar

السلام عليكم لو فرضنا أن هذه القيم موجودة في العمود A فإن المعادلات (حل من الحلول الكثيرة) في أي خلية كانت في غير العمود A تكون كما يلي: للأعداد الموجبة: =SUMIF(A:A;">0";A:A) للأعداد السالبة: =SUMIF(A:A;"<0";A:A) بن علية حاجي

استخدم ھذا الكود للتاريخ الميلادي وهو بيشتغل تمام =DCount("*";"المراجعين";"[اسماء الموظفين]= 'سالم' AND [التاريخ] between #16/07/2017# AND #17/07/2017#") لكن لا اعرف لماذا لا يعطي نتائج الصحيحة مع تاريخ الهجري

بعد اذن الاستاذ ياسر .. توجد طريقة اخرى بدون دالة IF بفرض العمودين A و B نكتب في العمود C الاتي =--(B1=A1)

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

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

شرح ولااروع لمن اراد فهم معادله الاندكس مع ماتش التعامل مع الدالتين index , match لايجاد نتيجة في جدول بدلالة صف و عمود فيه انسخ ماسبق وضعه في محرك البحث جوجل ============================= وذلك لاستجلاب بيانات الشهادات

السلام عليكم ورحمة الله أخي الكريم، بتطويع الملف الذي وضعه أخي الكريم ريان تم التعديل على الأكواد وعلى تنسيقات الورقة بالشكل الموجود في الملف المرفق... أرجو أن يكون فيه بعض المطلوب حسب فهمي له... أخوك بن علية الملف المرفق : عملية قرعة لـ16 فريق.rar

اخى العزيز اليك رابط التحميل بدون اى مشاكل ورابط سريع http://www.gulfup.com/?hhook4

السلام عليكم ===== هنا سيتم شرح مواضيع الدوال

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

حياك الله اخي نور والشكر لصاحب الملف

السلام عليكم كل الشكر لصاحب الملف وللفائدة من امكانيات الملف اعيد رفعه اليكم بعد إزالة الحماية عنه لحساب السن اليوم والتاريخ الهجري المقابل وسن التقاعد للمعاش.rar

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