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

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


ramez

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

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

تفضل الكود :

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

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

تحياتي :fff:

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

  • 3 weeks later...

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

تفضل الكود :

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

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

تحياتي :fff:

<{POST_SNAPBACK}>

[/quote.

:fff:

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

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

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

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

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

  • 2 weeks later...

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

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

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

وشكرا لك

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

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

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

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

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

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

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

Important Information