ramez قام بنشر يونيو 17, 2005 قام بنشر يونيو 17, 2005 السلام عليكم .. ارغب بوضع عداد يبين عدد مرات فتح صفحة الاكسيل في كل مرة ( والافضل كل ورقة عمل من الصفحة ان امكن ) !
محمد حجازي قام بنشر يونيو 17, 2005 قام بنشر يونيو 17, 2005 السلام عليكم ... تفضل الكود : Private Sub Worksheet_Activate() Me.Range("A1").Value = Me.Range("A1").Value + 1 End Sub ضع الكود السابق في الورقة المطلوبة. تحياتي
samehsayed_73 قام بنشر يوليو 7, 2005 قام بنشر يوليو 7, 2005 السلام عليكم ... تفضل الكود : Private Sub Worksheet_Activate() Me.Range("A1").Value = Me.Range("A1").Value + 1 End Sub ضع الكود السابق في الورقة المطلوبة. تحياتي <{POST_SNAPBACK}> [/quote. اين يتم وضع هذا الكود انا وضعتة فى الورقة ولم يحدث اى تغيرفارجوا خطوات وضعة بالورقة منفضلك
محمد حجازي قام بنشر يوليو 7, 2005 قام بنشر يوليو 7, 2005 السلام عليكم ... Alt +F11 ليظهر محرر الفيجوال ، على اليسار وفي النافذة Project افتح الورقة المطلوب تطبيق الكود عليها و ألصق الكود .
ماجدجلال قام بنشر يوليو 17, 2005 قام بنشر يوليو 17, 2005 شكرا استاذ محمد علي هذا الكود الرائع ,, ولكن لدي سؤال بسيط وهو الكود موضوع في الصفحة الاولي وهي الصفحة الافتتاحية اي التي يفتح علي الاكسيل مباشرا , وعند فتح هذة الصفحة اول مرة لا يعمل الكود ولكن عند التنقل بين الصفحات يعمل , اي عندما اذهب الي الصفحة الثانية ثم اعود الي الصفحة الاولي يعمل الكود , كيف اجعل هذا الكود يحسب ايضا عدد مرة فتح الصفحة الاولي حتي ولو عند طريف فتح الاكسيل , وشكرا لك
محمد حجازي قام بنشر يوليو 17, 2005 قام بنشر يوليو 17, 2005 السلام عليكم ... ضع الكود التالي في الـ ThisWorkbook : Private Sub Workbook_Open() If ActiveSheet.Name = "Sheet1" Then Sheets("Sheet1").Range("A1").Value = Sheets("Sheet1").Range("A1").Value + 1 End Sub
ماجدجلال قام بنشر يوليو 18, 2005 قام بنشر يوليو 18, 2005 ممتاز استاذ محمد ناجح ناجح ,, الله يوفقك ويسدد خطاكم ,
الردود الموصى بها