اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تعديل على برنامجى


إذهب إلى أفضل إجابة Solved by عبدالفتاح في بي اكسيل,

الردود الموصى بها

السلام عليكم اساتذتى الكرام

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

أريد ان يظهر تاريخ اليوم الحالى لدفع العميل ولا يتغير بتاريخ اليوم التالي يبقي ثابتا واذا قمت بسداد شهر اخر في تاريخ كختلف يظهر تاريخ اليوم الاخر 

بمعنى ان العمل كان عليه قسطين وسدد يوم 12/8/2020   يظهر امامه هذا التارريخ ولا يتبدل عند اليوم التالي ويكون 13/8/2020 واذا سدد يوم 14/8/2020 مثلا القسط الثانى يظهر في نفس التاريخ 14/8/2020

حسابات.xlsb

رابط هذا التعليق
شارك

  • أفضل إجابة

على حسب معطياتك  اعتقد  هذا  المطلوب  بالكود  لا يظهر التاريخ  الا في  حالة سداد قسط  معين  بناء على  تاريخ  اليوم  ولن  يتغير في  الايام  القادمة 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    If Target.Row > 6 Then
        If Target.Column = 5 Or Target.Column = 8 Or Target.Column = 11 Then
            If Target.Value = "سدد" Then
                Target.Offset(0, 1) = Date
                Else
                Target.Offset(0, 1) = ""
            End If
        End If
    End If

End Sub

 

حسابات (1).xlsb

  • Like 3
رابط هذا التعليق
شارك

بعد اذن الاخوة الافاضل ... دا شرجح مبسط لبعض اسطر الكود

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    If Target.Row > 6 Then
    ' الرقم 6 هو رقم الصف الذى به سطر العنوان للجدول
        If Target.Column = 5 Or Target.Column = 8 Or Target.Column = 11 Then
        ' الارقم 5 / 8 / 11 هي ارقم الاعمدة التى به حالة السداد ليختار منها سد د او لم يسدد
            If Target.Value = "سدد" Then
                Target.Offset(0, 1) = Date
                Else
                Target.Offset(0, 1) = ""
            End If
        End If
    End If

End Sub

 

تم تعديل بواسطه قنديل الصياد
رابط هذا التعليق
شارك

سماح الهياتمى

فين الضغط على الإعــجـــاب على هذه الإجابة الممتازة طالما هى المطلوبة وكما نبهنا كثيراً ان هذا هو اقل ما يقدم لصاحب الفضل عليكى بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!💙:clapping:

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information