هل يمكن وضع عدّاد في خلية عند زيارة الصفحة كل مرة

[ramez]

السلام عليكم ..

ارغب بوضع عداد يبين عدد مرات فتح صفحة الاكسيل في كل مرة ( والافضل كل ورقة عمل من الصفحة ان امكن ) !

[محمد حجازي]

السلام عليكم ...

تفضل الكود :

Private Sub Worksheet_Activate()
   Me.Range("A1").Value = Me.Range("A1").Value + 1
End Sub

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

تحياتي

[ramez]

كل الشكر اخي محمد ..

[samehsayed_73]

السلام عليكم ...

تفضل الكود :

Private Sub Worksheet_Activate()
   Me.Range("A1").Value = Me.Range("A1").Value + 1
End Sub

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

تحياتي

<{POST_SNAPBACK}>

[/quote.

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

[محمد حجازي]

السلام عليكم ...

Alt +F11 ليظهر محرر الفيجوال ، على اليسار وفي النافذة Project افتح الورقة المطلوب تطبيق الكود عليها و ألصق الكود .

[ماجدجلال]

شكرا استاذ محمد علي هذا الكود الرائع ,,

ولكن لدي سؤال بسيط وهو الكود موضوع في الصفحة الاولي وهي الصفحة الافتتاحية اي التي يفتح علي الاكسيل مباشرا , وعند فتح هذة الصفحة اول مرة لا يعمل الكود ولكن عند التنقل بين الصفحات يعمل , اي عندما اذهب الي الصفحة الثانية ثم اعود الي الصفحة الاولي يعمل الكود ,

كيف اجعل هذا الكود يحسب ايضا عدد مرة فتح الصفحة الاولي حتي ولو عند طريف فتح الاكسيل ,

وشكرا لك

[محمد حجازي]

السلام عليكم ...

ضع الكود التالي في الـ ThisWorkbook :

Private Sub Workbook_Open()
    If ActiveSheet.Name = "Sheet1" Then Sheets("Sheet1").Range("A1").Value = Sheets("Sheet1").Range("A1").Value + 1
End Sub

[ماجدجلال]

ممتاز استاذ محمد

ناجح ناجح ,,

الله يوفقك ويسدد خطاكم ,