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

تفضل Private Sub Worksheet_Change(ByVal Target As Range) Dim myRange As Range Dim x As Long Set myRange = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row + 1) If Target.CountLarge > 1 Then Exit Sub If Intersect(Target, myRange) Is Nothing Then Exit Sub If InStr(2, Target, " ") > 0 Then Target.WrapText = True Else Target.WrapText = False Target.ShrinkToFit = True End If Target.EntireRow.AutoFit End Sub

السلام عليكم الملف النهائي . ان شاء الله والحمد لله في المرفق اللهم اجعل هذا العمل خالصا لوجهك الكريم gdarat_ofcina.xlsb

كود لعمل ترقيم متسلسل للسجلات في النموذج المستمر أو المفرد في حقل غير منظم شرح الكود: يوضع في موديول منفصل .. ثم في حقل المسلسل في النموذج ويكون حقل غير منظم يكتب في مصدر بياناته هكذ : =RowNum([Form]) الكود: Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Form]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function طريقة الاستدعاء (الاستخدام): =RowNum([Form])

وعليكم السلام ورحمة الله وبركاته تفضل Sub test() Dim x As Long For x = 1 To Cells(Rows.Count, "A").End(xlUp).Row If InStr(2, Range("A" & x), " ") > 0 Then Range("A" & x).WrapText = True Else Range("A" & x).WrapText = False Range("A" & x).ShrinkToFit = True End If Range("A" & x).EntireRow.AutoFit Next End Sub

جرب معادلة IF المصنف1.xlsx

وعليكم السلام استبدل المعادلة =IF(C3="";"";(B3+C3)-1)

وعليكم السلام تفضل معادلة فرق النسبة.xlsx

الرقم القومي يجب ان يكون نوع الحقل نصي فائدة : اي ارقام لا يتم اجراء عمليات حسابية عليها مثل الرقم القومي او ارقام العناوين او الهاتف الافضل يكون نوع الحقل نصي

تم الانتهاء من الفحص ومرفق الملف الأخير. ايام عمل_07.xlsm

السلام عليكم ورحمة الله وبركاته إخوتي الكرام: أحببت أن أشارككم موضوعاً يتعلق بتحديد تاريخ بداية كل أسبوع ونهايته، وذلك بعد أن احتجت لذلك عدة مرات توصلت إلى هذا الحل أحببت مشاركتكم به ومن كان لديه أية إضافة أو تعديل أرجو أن يتحفنا بها ...مرحباً وأهلاً.. قمت بتحديد تاريخ بداية الأسبوع ونهايته وفق المعادلتين التاليتين: تاريخ بداية الأسبوع: =MAX(DATE(YEAR(TODAY());1;1);DATE(YEAR(TODAY());1;1)-WEEKDAY(DATE(YEAR(TODAY());1;1);16)+(WEEKNUM(TODAY();16)-1)*7+1) تاريخ نهاية الأسبوع: =MIN(DATE(YEAR(TODAY())+1;1;0);DATE(YEAR(TODAY());1;1)-WEEKDAY(DATE(YEAR(TODAY());1;1);16)+WEEKNUM(TODAY();16)*7)-1 أو حسب يومي بداية الأسبوع ونهايته تقبلوا تحياتي العطرة والسلام عليكم تحديد يوم وتاريخ بداية كل أسبوع ونهايته حسب التاريخ الحالي.xlsx

السلام عليكم هدية بسيطة جدا لكم وهو رد جميل كل من ساعدني القاعده ربما تنيرك بفكرة ما وليس شرط استخدامه نواة القاعدة 64بت تم بناؤها بإصدار اوفيس 2016 اللغة الإداريه (العربية) البرنامج بسيط واكواده بسيطة ويعتبر من اوائل البرامج اللي صممتها وشغاله تمام بإذن الله واعدكم بتطويره في اقرب وقت واعادة رفعه وسأخذ ردودكم واقتراحاتكم بعين الاعتبار البرنامج يستهدف لمن لدية مكتب عقار ويريد تنظيم العقود إلكترونيا يمكنك من خلاله تسجيل عقود إيجار العملاء بكافة تفاصيله وكذلك تسجيل الدفعات برنامج إدارة الأملاك والعقارات برنامج لإدارة العقارات والملاك و عقود التأجير والتقسيط بشكل تفصيلي يمكنك طباعة البيانات الأساسية والدفعات لعرضها للعميل النسخة هي النسخة المختصرة بحيث يتم فيها تسجيل البيانات الأساسية للعقار وبيان الدفعات حيث النسخة التفصيلية نقوم بإنشائها الأن يمكنك البحث بشكل سريع عن أي رقم عقد ليعرض لك بيانات العقد والدفعات البرنامج يقوم بتنبيهك في حال انتهاء الايجار او باقي على انتهاء العقد خلال شهر او اربع شهور او عشر أيام ----- بعض الصور تأجير لمتابعة العقود والايجارات.rar

صممت دالة باسم myWorkDay شبيهة بدالة الاكسل WORKDAY لحساب آخر يوم في العمل وتحتاج إلى مدخلين أول يوم في العمل و عدد أيام عمل فعلي بدون العطل الاسبوعية. جربوها فربما تنفعكم. Option Explicit Function myWorkDay(FmDate As Date, NetDays1 As Integer) As Date 'WORKDAY شبيهة بدالة الاكسل 'FmDate أول يوم عمل Dim Weekends As Integer Dim ToDate As Date Dim NetDays2 As Integer Dim LoopRepeat As Integer Weekends = Int(NetDays1 / 2.5) ToDate = FmDate + NetDays1 + Weekends - 1 Weekends = CountWkDay(FmDate, ToDate, vbFriday) + _ CountWkDay(FmDate, ToDate, vbSaturday) NetDays2 = ToDate - FmDate - Weekends + 1 Do While NetDays1 <> NetDays2 LoopRepeat = LoopRepeat + 1 If LoopRepeat = 10 Then 'Debug.Print "Looprepeat", LoopRepeat Exit Do End If If NetDays1 > NetDays2 Then NetDays2 = NetDays2 + 1 Else NetDays2 = NetDays2 - 1 End If ToDate = FmDate + NetDays2 + Weekends - 1 Weekends = CountWkDay(FmDate, ToDate, vbFriday) + _ CountWkDay(FmDate, ToDate, vbSaturday) NetDays2 = ToDate - FmDate - Weekends + 1 Loop If Weekday(ToDate) >= vbFriday Then ToDate = ToDate - 1 If Weekday(ToDate) >= vbFriday Then ToDate = ToDate - 1 myWorkDay = ToDate End Function Function CountWkDay(ByVal Date1 As Date, _ ByVal Date2 As Date, _ WkDay As VbDayOfWeek) As Long 'WeekDay Counter Date1 = Date1 - 1 Date1 = Fix((Date1 + (7 - WkDay)) / 7) Date2 = Fix((Date2 + (7 - WkDay)) / 7) CountWkDay = Date2 - Date1 End Function يوجد مثال اكسل في هذه المشاركة:

وعليكم السلام 🙂 ومشاركة مع اخي موسى 🙂 وتجد اكثر من طريقة هنا

بما انك مستجد على اكسس فانصحك باتباع الطرق الصحيحة عند كتابة العناصر وكافة الكائنات بحروف انجليزية حتى لو ان المعنى عربي من اجل يسهل عليك قراءة وفهم الاكواد ايضا من الاشياء الجميلة تمييز كائنات قاعدة البيانات عن بعضها بحيث انك حين ترى الاسم داخل الأكواد تعرف انه جدول او استعلام او نموذج او تقرير بحيث نكتب بادئة الاسم على النحو التالي : tbl للجداول qry للاستعلامات frm للنماذج reb للتقارير تم التعديل وعمل اللازم لا حظ انك لن تتمكن من فتح والدخول الى نموذج المستخدمين الا اذا دخلت باسم Bassam تجريب2.rar

الحمد لله أن المشكلة اتحلت والشكر كل الشكر لله

نفس معادلة الأستاذ أحمد الفرق = & <> 😀

الله يعطيكم الصحة جميعا ممتاز الكود اخي أحمد حليم الف شكر لك والشكر واصل للأخ أبوأحـمـد

انا لله وانا اليه راجعون البقاء لله ونسأل الله أن يغفر له ويرحمه ويسكنه فسيح جناته ويلهم أهله وذويه الصبر والسلوان

انا لله وانا اليه راجعون البقاء لله ونسأل الله أن يغفر له ويرحمه ويسكنه فسيح جناته ويلهم أهله وذويه الصبر والسلوان

اضافة جميلة الى منتدى اوفيسنا تظهر اهمية هذه الدالة لمن يبحث عنها وقت حاجته اليها ويجدها هنا . كتب الله اجرك .

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

الدالة بعد الترقية: تحت التطوير والتنقيح والفحص من جديد دوال مساندة: Function CountWkDay(ByVal Date1 As Date, _ ByVal Date2 As Date, _ WkDay As VbDayOfWeek) As Long 'Weekend Days Counter Date1 = Date1 - 1 Date1 = Fix((Date1 + (7 - WkDay)) / 7) Date2 = Fix((Date2 + (7 - WkDay)) / 7) CountWkDay = Date2 - Date1 End Function Function myMod(ByVal Number As Double, ByVal Divisor As Double, _ Optional NoZero As Boolean = False) As Double Dim Result As Variant If Divisor <> 0 Then Result = Number - Divisor * Int(Number / Divisor) Else Result = Number End If myMod = IIf(Result = 0 And NoZero, Divisor, Result) End Function من عنده اكسل اصدار حديث فليجرب هذه الدالة ويقارنها مع دالة الاكسل. دالة الاكسل

Me.text31 = Nz(DSum("total", "conform_mdfo", "fatora=" & Me.fato)) sum2.rar

نعم استاذ موسى، هو التعديل الأخير بهذا الشأن وهي لا تحسبه كيوم عمل بل تحسبه من ضمن إجمالي المدة ولكن يبقى أيام العمل الفعلية صحيحة كالتالي: والتعديل كان بإضافة هذين السطرين: If Weekday(ToDate) >= vbFriday Then ToDate = ToDate - 1 If Weekday(ToDate) >= vbFriday Then ToDate = ToDate - 1 الآن إذا هذه الدالة مطلوبة فعلا للأكسس وليس لها بديل سأقوم بتطويرها لتشبه تماما دالة الاكسل للإصدارات الحديثة بإضافة خيارات آخر الأسبوع واعتماد تاريخ البداية هو اليوم السابق للمدة الجديدة. رأي الجميع مطلوب، وإلا تركناها كما هي. التعديلات سوف تكون لقسم الأكسس دون قسم الاكسل.

جزاك الله خير اخي الغالي

الكود هكذا افضل #If Win64 Then Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As LongPtr, ByVal Flag As Long) As LongPtr #Else Private Declare Function ActivateKeyboardLayout Lib "user32.dll" (ByVal HKL As Long, Flag As Long) As Long #End If Public Const AR = 1025 Public Const EN = 1033 Public Function changeToAr() Call ActivateKeyboardLayout(AR, True) End Function Public Function changeToEn() Call ActivateKeyboardLayout(EN, True) End Function تغييير اللغة.mdb

وعليكم السلام بعدد اذن @أبوأحـمـد ابدا ابحث عن هذه الدوال @mo7amed2221 دوال الأساسية لتعلم الإكسل دوال الإكسل هي عبارة عن مجموعة من الوظائف التي يمكنك استخدامها في برنامج Excel لتنفيذ مهام وحسابات مختلفة. يوجد العديد من الدوال المتاحة في Excel، ولكن هنا سنذكر بعض الدوال الأساسية التي يمكن أن تساعد في البدء في تعلم الإكسل. **1. SUM:** هذه الدالة تستخدم لحساب مجموع مجموعة من الأرقام. تأخذ الدالة مجموعة أرقام كمدخلات وتعيد قيمة المجموع. **2. AVERAGE:** تستخدم هذه الدالة لحساب المتوسط الحسابي لمجموعة من الأرقام. تأخذ الدالة مجموعة أرقام كمدخلات وتعيد قيمة المتوسط. **3. MAX:** تُستخدم هذه الدالة للعثور على القيمة الأكبر في مجموعة من الأرقام. تأخذ الدالة مجموعة أرقام كمدخلات وتعيد القيمة الأكبر. **4. MIN:** تستخدم هذه الدالة للعثور على القيمة الأصغر في مجموعة من الأرقام. تأخذ الدالة مجموعة أرقام كمدخلات وتعيد القيمة الأصغر. **5. COUNT:** تستخدم هذه الدالة لحساب عدد الخلايا المحتوية على بيانات في مجموعة معينة. تأخذ الدالة مجموعة خلايا كمدخلات وتعيد عدد الخلايا المحتوية على بيانات. **6. IF:** تستخدم هذه الدالة لتنفيذ شرط معين وإجراء عملية معينة اعتمادًا على الشرط. تأخذ الدالة قيمة شرط، وإجراء في حالة إرجاع الشرط صحيح، وإجراء آخر في حالة إرجاع الشرط غير صحيح. هذه هي بعض الدوال الأساسية المستخدمة في Excel. هناك مجموعة أكبر من الدوال المتاحة ويمكنك استكشافها لمزيد من الوظائف المتقدمة في Excel.

شكرا على اهتمامك بالموضوع والمراجعة والفحص تحياتى لك

إنا لله وإنا إليه راجعون أحسن الله عزاءكم وجبر مصابكم والهمكم ومحبيه الصبر والسلوان اللهم اغفر له وارحمه وعافه واعفو عنه واكرم نزله ووسع مدخله وأسكنه فسيح جناتك وجميع موتى المسلمي

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

تفضل البيض.xlsx

الطريقة السابقة ليس فيها اختيار مكان الحفظ .. بل يحفظ تلقائيا في المسار المحدد مسبقا في الكود المشار اليه برقم واحد ... اذهب للمسار وشاهد هل هنا ملف محفوظ ام لا

وعليكم السلام ورحمة الله وبركاته جميل أستاذنا محمد وهذه مشاركتي =D4-WEEKDAY(D4;16)+1 تحديد يوم وتاريخ بداية كل أسبوع ونهايته حسب التاريخ الحالي.xlsx

وعليكم السلام تفضل شيت مرتبات.xlsx

عملك صحيح فقط غير IIf(Len([Forms]![frm]![city] & ' ')=0;[id_city];[Forms]![frm]![city]) الى IIf(Len([Forms]![frm]![city] & "")=0;[id_city];[Forms]![frm]![city]) ومن رأي اخونا الفاضل شايب انك تغير اسم الكمبوبوكس في النموذج الملف مرفق Felter.accdb

غير الكود إلى Sub TR7el() Dim wk, wk2 As Worksheet Dim ro, ro4 As Long Set wk = Worksheets("رصد2") Set wk2 = Worksheets("شيت2") ro4 = wk2.Range("A" & Rows.Count).End(xlUp).Row If ro4 >= 10 Then wk2.Range("A10:CH" & ro4) = "" ro = wk.Range("B" & Rows.Count).End(xlUp).Row wk.Range("B8:D" & ro & ",G8:CK" & ro).Copy wk2.Range("A10").PasteSpecial Paste:=xlPasteValues End Sub وخبرني

تفضل كود نسخ البيانات.xlsm

حياك الله اخي الاستاذ حلبي 1. يعيد رقم السجل الحالي فعند فتح النموذج عرفت عدد السجلات وبالطبع اي رقم سجل اكبر من عدد السجلات القديم فهو سجل جديد 2. هذه خاصية للنموذج وهي عبارة عم مجموعة سجلات النموذج وهي من نوع الكائن recordset 3. تعيد عدد سجلات النموذج وهي خاصية للكائن recordsetclone فكاني اقول عدد سجلات النموذج

سلام تحياتي للجميع - بعد إذنكم جميعا أهلا خالد -أرجو أن يلبي المرفق احتياجك coooom.zip أتمنى للجميع التوفيق سلام القحم