اذهب الي المحتوي
أوفيسنا

انشاء صفحة مراقبة


رشبد

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

هذا جميل جميل رائع بس اريد تعديل بسيط 

عند ادخال اي بيان جديد لااريد ان ينشط صفحة المراقبة

وفقك الله لما فيه الخير للامة الاسلامية

تم تعديل بواسطه رشبد
  • Like 1
رابط هذا التعليق
شارك

الاستاذ / أبوعيد

هل يمكن ان تتكرم فى ملف الادارة 3 وتحدد لي اسم الصفحة  التي يعمل عليها الكود

حيث اني حاولت ولم يوفقني الحظ ودائما يتم المراقبة الصفحة الاخيرة بصرف النظر عن الاسم

ولكم جميعا جزيل الشكر

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

أخي الكريم وليد عبد الغني

يرجى تغيير اسم الظهور للغة العربية

 

بعد إذن أخونا عيد قمت ببعض التعديلات الطفيفة على الكود ..

قم بالذهاب لمحرر الأكواد وفي نافذة المشروع انقر دبل كليك على الكائن ThisWorkbook وامسح الأكواد الموجودة وضع الكود التالي

Const sSheet As String = "Watch"

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim Ws      As Worksheet
    Dim LR      As Long
    
    If Sh.Name <> sSheet Then
        With Sheets(sSheet)
            LR = .Cells(Rows.Count, "A").End(xlUp).Row + 1

            If Target.Column < 10 And Target.Row > 1 Then
                .Cells(LR, 1) = ActiveSheet.Name
                .Cells(LR, 4) = Target.AddressLocal
                .Cells(LR, 7) = Target.Value
                .Cells(LR, 6) = .Cells(1, Columns.Count)
                .Cells(LR, 5) = Application.UserName
                .Cells(LR, 2) = Format(Date, "dd-mm-yyyy")
                .Cells(LR, 3) = Format(Now, "h:mm:ss")
            End If
        End With
    End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Sheets(sSheet).Cells(1, Columns.Count).Value = ActiveCell.Value
End Sub

يمكنك تغيير اسم ورقة العمل المراد عملها كورقة مراقبة من خلال تغيير الاسم الموجود في السطر الرابع Watch إلى اسم ورقة العمل المطلوبة ، ولا تنسى أن تضع عناوين للورقة في الصف الأول

أرجو أن يفي هذا بالغرض

تقبل تحياتي

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

الأخ وليد يبدو أنني نسيت أن هناك من الناس مازال متمسك بالأوفيس 2003 ..إلى الآن ..

عموماً يمكن استخدام أي عمود بعيد عن مجال البيانات ..أو الأفضل أن يكون الكود مرن ويتعامل مع أي نسخة للأوفيس

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

جرب الكود مرة أخرى من المشاركة السابقة ...

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

1 ساعه مضت, رشبد said:

اشكركم اخواني على مجهودكم ولو انني متأخر شيئا ما عن الرد ولكن ظروفي  هي سبب ذلك  عملكم رائع شكككككككككككككككككككرا

وفقك الله أخي الكريم

يبدو أن اسم الظهور باللغة العربية لم يكتب بشكل صحيح تماماً أو أن عيني أصبحت لا ترى جيداً

وفقك الله أخي رشيد ودمت بود

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

من فضلك سجل دخول لتتمكن من التعليق

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



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

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

Important Information