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

السلام عليكم تم تعديل على الأكواد مع تعديل معادلات العمود B في ورقة "العربي" حسب اختيار (العام أو العلمي) في الخلية N2... بن علية حاجي الترحيل.xlsm

@ابا حفص شوف المرفق وبالتوفيق salary.accdb

جرب هذا الملف salim_formula.xlsx

وحتى أنا لم أدرسها قط! لكن قبل (أوفيسينا) كنت أقرأ ملف التعليمات. لا فرق. فقط W أول حرف من Word!

مشاركة مكررة يجب حذفها من فضلك لا تقوم برفع مشاركة جديدة طالما المشاركة القديمة ما زالت مفتوحة -فقط يمكنك عرض المشكلة التى تواجهك على المشاركة الموجودة على هذا الرابط https://www.officena.net/ib/topic/89766-ارجو-المساعده-بكود-ترحيل/

مثال .. اخر .. اتمنى ان ينال اعجابكم .. ممكن الاستفادة منه .. نضع بيانات الطلبة في صفحة data .. ادخال الغياب اليومي في صفحة datastudent .. بعد الانتهاء من الادخال يتم حفظ البيانات عن طريق الزر الموجود في اعلى الصفحة اما ورقة datasave .. يتم من خلالها حفظ البيانات السابقة التي تم حفظها .. اما ورقة repstudent .. تقرير غياب واستئذان وتأخر الطالب .. تم وضع رزنامة خلال العام الدراسي .. يتم تظليل أيام الغياب .. من خلال زر تحديث .. بعد ادخال رقم الطالب لجلب بياناته .. اما ورقة datasearch .. ممكن من خلاله البحث حسب التاريخ من و الى .. مع احتساب الاجازات في الخلية m2 .. reapstudent.xlsm

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

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

أهلا @ابا حفص استخدم الوظائف المالية في أكسس وأرح نفسك (FV,PV,PTM) وغيرها.. وفي ملف التعليمات شرح كافي إن شاء الله لكلونك سوف ستخدم هذه الدوال للسنوات بدلا من الشهور فيجب أن يكون المعيار الشهري مضروبا في (1) وليس (12)

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

أهلا @Barna المنهج Quit له محددات يمكنك التعرف على المزيد عنها في ملف تعليمات Word VBA إذا أردت. إليك التعديل: Barna.zip

جرب هذا الماكرو Option Explicit Sub Give_Repport() Dim lr% Application.ScreenUpdating = False Sheets("Control_Me").Cells.Clear With Sheets("main") lr = .Range("A4").End(4).Row - 1 .Range("R5:R" & lr).Formula = "=sum(C5:Q5)" .Range("C" & lr + 1 & ":Q" & lr + 1).Formula = _ "=sum(C5 " & ":C" & lr & ")" .Range("R" & lr + 1).Formula = "=SUM(R5:R" & lr & ")" With .Range("A4:R" & lr + 1) .Value = .Value .Copy Sheets("Control_Me").Range("a4") End With End With Application.ScreenUpdating = True End Sub الملف مرفق Khasm_2.xlsm

ربما ينفع هذا الكود Option Explicit Sub Dive_Last_Row() If ActiveSheet.Name = "الايراد" Then Exit Sub Sheets("الايراد").Range("a3").End(4).Offset(1).Resize(, 3).Value = _ ActiveSheet.Range("a4").End(4).Resize(, 3).Value End Sub الملف مرفق Matrek.xlsm

لا استطيع فهم المطلوب بالنسبة لكود الجمع لا لزوم للحلقات التكرارية يكفي هذا الكود Sub Collection() Range("k2:K" & Range("A" & Rows.Count) _ .End(xlUp).Row).Formula = "=SUM(A2:F2)" End Sub

هذا الملف المرفق .. اعتقد اني وضعت فيه بعض الاجتهادات الشخصية والتي تعلمتها من هذا الموقع .. فلست استاذا وانما طالب علم ... وامل ان يفي بالغرض ... وبارك الله في الجميع ... OK_vsa.xlsm

السلام عليكم ورحمة الله صحيح أن عمل أخي الكريم "سليم" يخص CommandButton ولا يخص "مربع نص" (الذي نصه يتغير)... قمت بالتعديل على خصائص مربع النص باختيار خاصية "Do not Move or Dimension with cells" أي لا تحريك ولا تحجيم حسب الخلايا... راجع الملف المرفق... بن علية حاجي تجربة.xlsm

الف شكر اخى الكريم هذا هو المطلوب بس اذا ممكن طلب اخير الكود اللى انت عملته بدون متغيرات ليسهل التعويض فى ملف اخر والشكر موصل لك

محاولة مني ... في المرفق اثراء للموضوع ... والشكر موصول للعضو السابق عبدالرحيم OK_vsa.xlsm

اهلا بيك استاذي الجميل @رمهان نعم كلامك فى محلة استاذي وبالفعل واجهت هذه المشكلة بالحقل الرقمي ، وقمت بالاستعانه بوضوع ارقام عشرية جاهزة مثل ( 0.250 - 0.500 - 0.750 ) بدلا من وضع العلامة العشرية ( . ) والحل العملي من وجهة نظري .... هو استخدام وسيط ( نموذج للارقام ) ويتم ادخال القيمة المطلوبة من خلاله ومن ثم نقلها الى الحقل الرقمي كل المحبة والتقدير استاذي ،،،

السلام عليكم ورحمة الله إن كنت قد فهمت المطلوب جيدا، جرب الملف المرفق لعل فيه ما تريد. بن علية حاجي مثال (2).xlsx

بارك الله فيك استاذ سليم كود رائع ووافى وكافى للمطلوب جعله الله فى ميزان حسناتك

جرب هذا الماكرو Option Explicit Sub sorted_liste() Dim SL1 As Object Dim xItem Dim rg As Range, c As Range Dim i As Long Dim X As Long Dim arr() Dim y Range("c1").CurrentRegion.ClearContents Set SL1 = CreateObject("System.Collections.ArrayList") Set rg = Sheets("salim").Cells(1).CurrentRegion For Each c In rg y = SL1.Contains(c) X = Application.CountIf(rg, c) If X > 1 And y = False Then If Not SL1.Contains(c.Value) Then SL1.Add (c.Value) End If Next arr = SL1.ToArray Range("c1").Resize(UBound(arr) + 1) = Application.Transpose(arr) End Sub الملف مرفق فلترة.xlsm

كود الأستاذ / حمادة لا يتمشي مع هذا الملف لأن هذا الملف أصبح ضبط إعدادت الصفحة إلى نسبة 100% وبالتالي لا يقوم بتغيير نسبة إعدادات الصفحة لتغيير إعدادت الصفحة اضغط قائمة تخطيط الصفحة واختر على السهم الموجود لأيسر كلمة إعدادات الصفحة يظهر صندوق به 4 تبويبات اختر تبويب صفحة واضغط على اتجاه عمودي وعند تغيير الحجم اجعل الضبط 100% واجعل الملائمة 1 طول و 1 عرض وبعد ذلك قم بالذهاب إلى ورقة العمل وضبط عرض الأعمدة بما يتاسب معي بالنسبة لتعديل الماكرو جعلت الفلترة من العمود F حتى يتم إظهار الإجمالى في الفاتورة وأخيرًا تم تعديل الملف وتكبير حجم الخط دون الخروج عن الخلية والسؤال هل الضغط على لايك بعد تنفيذ المطلوب أمر صعب invoice2.zip

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

الأخ الكريم ابو حنين مشكور على التوضيح التام للمطلوب .. هكذا يكون التوضيح إليك الملف التالي (تم الاستعانة بعمود مساعد لجمع الشروط) العمود المساعد هو العمود H إليك الكود مع شرح الأسطر لتتمكن من التعديل عليه Sub MultipleCriteriaFilter() 'يقوم الكود بفلترة البيانات طبقاً لعدة شروط '[H5] لتسهيل العمل تم عمل معادلة في العمود الثامن '=IF(AND(E5>$D$1-1,E5<$D$2+1),C5&F5,"") 'المعادلة تتحقق من وقوع التاريخ بين تاريخي الشرط ، فإذا تحقق 'ليشمل الشروط الأخرى [F5] و [C5] يتم ربط النصوص في الخلايا '------------------------------------------------------------ 'تعيين المتغيرات Dim WS As Worksheet Set WS = Sheets("General") 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'بدء التعامل مع ورقة العمل With WS 'إزالة الفلترة إذا ما كانت موجودة مسبقاً .AutoFilterMode = False 'الفلترة بناءً على العمود الثامن أي العمود المساعد .Range("A4:H4").AutoFilter field:=8, Criteria1:=Range("H3").Value End With 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub ** لا تنسى أن تحدد أفضل إجابة من خلال الضغط على كلمة "تحديد كأفضل إجابة " ؛ ليظهر الموضوع مجاب ومنتهي. ** لا تنسى أن تضغط كلمة "أعجبني" (الأمر لن يستغرق منك ثواني) ---> (أمضيت من وقتي وقتاً ليس بالقليل .. فاضغط ولا تكن بخيل) تقبل تحياتي Filter Data By Multiple Criteria YK.rar