ابو هاله النبلسي

السلام عليكم 

يوجد جدول من ثلاث حقول رقم الصفحة وتسلسل والاسم مكون من 100 اسم 

الملف على خاصية معاينة فواصل  الصفحات لكل صفحة 43 اسم فاحتاج في الحقل الاول ان نظع رقم 1 عند الذهاب للصفحة الثانية في نفس الشيت تبدي من رقم 44 وتنتهي 86 نكتب بالحقل الاول رقم  2 لكل اسم 

لكن بصورة اوتماتيكية تكراريه 

fs.xls

35 دقائق مضت, Emad Sabry said:

استخدم المعادلة دى 

=AND(C3=G3,G3=K3)

احسنت هو المطلوب 

لدي جدول فيه حقول خليه دمج خليتين باسم دمج 1 ودمج 2 ودمج 3 في حالة تطابقه خلايا الدمج تظهر في حقل المطابقة true 

New Microsoft Excel Worksheet (2).xlsx

الان, ابوخليل said:

الكود الذي كتبته يشتمل على خطأ

الافضل انك توضح ما تريد بكلمات عربية معلومة مثلا :

اذاكانت قيمة الحقل الفلاني كذا تكون النتيجة كذا ,,

واذا الحقل العلاني كذا تكون النتيجة كذا ... وهكذا

احسنت ان شاء الله القادم افضل شكراً لحضرتك

2 دقائق مضت, محمد احمد لطفى said:

كده الموضوع اختلف

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

51 دقائق مضت, ابو هاله النبلسي said:

استاذي في حالة الارقام يكتب كتابة مثلا 1 اولى 2 ثانية حسب الحقل

Database22.accdb 500 kB · 0 downloads

@محمد احمد لطفى

استاذي في حالة الارقام يكتب كتابة مثلا 1 اولى 2 ثانية حسب الجقل

Database22.accdb

7 دقائق مضت, محمد احمد لطفى said:

تفضل هل هذا ما تريدDatabase22.accdb

388 kB · 1 download

هل يتم دمج الحقلين في الاستعلام الذ قمت حضرتك بانشائهم في حقل واحد stage +step

If IsNull(Me.stage5) Then
MsgBox "empty"
End If
If IsNull(Me.step) Then

Me.step = 1

Database22.accdb

شكرا لك استاذي ورمضان كريم اعاده الله عليكم باليمن والبركة

استاذنا الغالي هل يتم اختيار التاريخين من فورم 

هل يمكن شرح خاصية البرنامج في حالة كانت الحالة bitween تاريخيين

احسنت بارك الله فيك استاذي 

3 ساعات مضت, ابو هاله النبلسي said:

السلام عليكم ورحمة الله وبركاته 

كيف يتم جلب قيمة بعد تطابق تاريخ ضمن نطاق تاريخيين 

br.accdb 548 kB · 2 downloads

 استاذي في حاله التاريخ في الفورم يكون بين تاريخين على اعتبار 5-8-2023 سيكون بين f1 و f2  بين 23/07/2023 و 22/08/2023 اذا كان التاريخ مطابق لما بين التاريخين يجلب القيمة

السلام عليكم ورحمة الله وبركاته 

كيف يتم جلب قيمة بعد تطابق تاريخ ضمن نطاق تاريخيين 

br.accdb

كلمات المدح في محضر الاكابر مخالف للادب لكن لا يسعني الا اني ادعو من عبد فقير بان يجعلك باعلى المراتب ويحفظك مع اهل بيتك من كل شر 

الله يوفقكم يارب ويعطيكم من خير شهر رمضان تحياتي لكم انا شاكر لكم 

@Ahmed_J لقد كان لك تجربه في نفس الموضوع 

5 ساعات مضت, AbuuAhmed said:

مقارنة

Data360_01.xlsm 23.67 kB · 2 downloads

مثلما قالها ابو خليل لا يفتي بالمدينة وفيها مالك احسنت وبارك الله فيك هل يتم حل المشكلة بان يكون 360 يوم عن طريق التحايل وحسب الكود عن طريق استخدام round لكي نهمل الكسور وبعد التحايل يصبح 30 يوم لشهر شباط سواء في الحقل الاول او الثاني

12 دقائق مضت, AbuuAhmed said:

كما أرجو ملاحظة أن السائل عدل المشاركة التي فيها "الموافقة" على شرطي دون أي ملاحظات منه.

استاذي العزيز هل يمكن التعديل عل الكود الخاص بك من فضلك 

على سبيل المثال ان التاريخ الاول على افتراض01-03-2023 والتاريخ الثاني 28-2-2023  اريد ان يكون حاصر الفرق بينهم 3 ايام او مثال ثاني ان التاريخ الاول 01-3-2023 والتاريخ الثاني 6-2-2023  اريد ان يكون حاصل الفرق يكون 25 

14 دقائق مضت, Eng.Qassim said:

تفضل

data360.rar 41.64 kB · 3 downloads

1 دقيقه مضت, AbuuAhmed said:

ولكنك لم توفي بوعدك (قبولك لشرطي) ، هذه أول ليلة في رمضان ضاعت سدى.
صورة مع التحية لـ @ابوخليل

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

شكرا لكم من اعماق قلبي بارك الله بالجهود المبذولة

41 دقائق مضت, ابو هاله النبلسي said:

ياسلام عليك يا غالي 

هل يمكن اكثر من سنة يا غالي 

26 دقائق مضت, AbuuAhmed said:

جرب هذا الكود:
 

Option Compare Database
Option Explicit

Function GetDays360(DateFm As Date, DateTo As Date) As Double
    Dim Part1 As Double, Part2 As Double, Part3 As Double
    Dim mmDays As Byte, FullMonths As Integer
    Dim Date1 As Date, Date2 As Date
    
    If DateTo - DateFm < 0 Then Exit Function
    
    Date1 = DateSerial(Year(DateFm), Month(DateFm) + 1, 1)
    Date2 = DateSerial(Year(DateTo), Month(DateTo) + 0, 0)
    FullMonths = DateDiff("m", Date1 - 1, Date2)
    
    mmDays = Day(DateSerial(Year(DateFm), Month(DateFm) + 1, 0))
    If FullMonths < 0 Then
        Part1 = (DateTo - DateFm + 1) / mmDays * 30
    Else
        Part1 = (Date1 - DateFm + 0) / mmDays * 30
        Part2 = FullMonths * 30
        
        mmDays = Day(DateSerial(Year(DateTo), Month(DateTo) + 1, 0))
        Part3 = (DateTo - Date2 + 0) / mmDays * 30
    End If
        
    GetDays360 = Part1 + Part2 + Part3
End Function


Sub Test()
    Dim Date1 As Date, Date2 As Date
    
    Date1 = DateSerial(2023, 1, 1)
    Date2 = DateSerial(2023, 12, 31)
    
    MsgBox GetDays360(Date1, Date2)
End Sub

 

على راسي @ابوخليل

من فضلك ممكن اضافته بالملف 

33 دقائق مضت, Eng.Qassim said:

مشاركة مع اساتذتي الكرام

لكني عملتها على السنة الواحدة

data360.rar 35.14 kB · 2 downloads

ياسلام عليك يا غالي