السلام عليكم ورحمة الله
هل من طريقة استطيع من خلالها الحصول على الوقت الحالي والتاريخ للجهاز لكن شريطة ان تصبح هذه القيمة ثابتة لا تتغير كلما تم تحديث الملف بصورة او بأخرى
مثال على هذا
مقهى انترنيت - الجهاز الرئيسي عليه ملف اكسل فيه اسماء الرواد + تاريخ الدخول + تاريخ الخروج
استطيع الحصول على التوقيت والتاريخ من خلال الدالة NOW() لكن هذا يعني ان قيمة الخلية ممكن تتغير مع اي تحديث وبهذا تصبح النتائج كارثية
هل هناك طريقة لتفادي هذا
جزاكم الله عني كل الخير الأمر جداً ضروري
(أمن دولة :P)
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
فكرت بشئ, لكن ليس دقيقا بالضبط
=if(cell="",cell=now(),cell=cell)
لكن لا ادري هل الصيغة خطأ ام الفكرة بالكامل خطأ
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
هل تحتاج للوقت و التاريخ بنفس الخلية ام في خليتين مختلفتين ؟
يمكنك كتابة التاريخ والوقت بالضغط على المفتاحين CTRL مع : و CTRL مع ;
CTRL + :
CTRL + ;
بالتوفيق
والله يا junkie
اقتباس=if(cell="",cell=now(),cell=cell)
انا فكرتلك بنفس الحل أمس ولكن عند التطبيق يعطي خطأ أن العلاقة دائرية
وفكرت أضع عمود flag بس ممشيش الحال برضه
بالتوفيق
التاريخ ينفع أخي محمد, لكن لم يظهر الوقت.
الأخ TopSec, يكفي شرف المحاولة ... كلنا نتعلم "وما بقي غير excel يعجزنا بقى يا شيخ :D"
حازم البارحة جزاه الله الخير قام بكتابة برنامج لهذا الغرض HazemSolutions (MyCyberLog)
بارك الله فيه وعاشت الـ .NET :)
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
اعزائي،، اهديكم هذا الحل الجميل،، والله كود بسيط جدا ،، ويؤدي المطلوب،، ولكننننننننننننننن
بالنسبة لوقت الخروج،، يجب تحديد ماهو الذي يجعل الاكسل يفهم ان فلان قد انهى.. وهذا ما لم اعمله،، لذا،، هل يكتب كلمة انتهى فيعطى التاريخ تلقائيا،، هل توضع اشارة على الخلية فقط.. ام ماذا..
الملف المرفق به حل لوقت الدخول،، وهو بمجرد تسجيل اسم جديد في خانة name او الرواد كما تريد،، يظهر تلقائيا الوقت في الخلية المقابلة،، باليوم والشهر والسنة والساعة والدقيقة والثانية،، والفترة،، اي صباحا او مساء.. وهذا يمكن التحكم به من تنسيق الرقم في الخلية،،
اطلع على الكود وشاهد كم هو رائع..
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Cells(Target.Row, 3) = Now() End If End Sub
همام
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 19 ديسمبر 2007 في 00:39
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
Junkie كتب:السلام عليكم ورحمة اللههل من طريقة استطيع من خلالها الحصول على الوقت الحالي والتاريخ للجهاز لكن شريطة ان تصبح هذه القيمة ثابتة لا تتغير كلما تم تحديث الملف بصورة او بأخرى
مثال على هذا
مقهى انترنيت - الجهاز الرئيسي عليه ملف اكسل فيه اسماء الرواد + تاريخ الدخول + تاريخ الخروج
استطيع الحصول على التوقيت والتاريخ من خلال الدالة NOW() لكن هذا يعني ان قيمة الخلية ممكن تتغير مع اي تحديث وبهذا تصبح النتائج كارثية
هل هناك طريقة لتفادي هذا
جزاكم الله عني كل الخير الأمر جداً ضروري
(أمن دولة :P)
ربما هذا الملف هو ما تبحث عنه، كنت استخدمه عندما كنت اعمل في مقهى انترنت.
لا أعلم مصدر الملف ولكنه يفي بالغرض.
من دواعي فلسفة السخط في الطبائع الخيرة أن يكون الإنسان مجبولا على الإحساس بالواجب والشعور باللياقة . ذلك أن الذي يجبل على هذا الخلق يرى الأشياء كما هي كائنة ثم يراها كما يجب أن تكون فلا يلبث أن يجد في كل شيء نقصا ولا يلبث أن يجد في كل شيء باعثا للأسى و الأسف وداعيا إلى النقد والمذمة . فيكون غضبه أكثر من رضاه وحزنه أعم من فرحه ، ويكون إلى التنفير والقول بالتشاؤم أميل منه إلى التبشير والقول بالتفاؤل - العقاد
اخي العزيز شكراجزيلا لك على المساعدة..
المثال باللغة الفرنسية وغير واضح كيف يستخدم،، لانه يعطي خطأ عند الظغط على زر Fin ولا اعرف السبب..
لهذا،،، ساحاول تطبيق مثالي مع مثالك .. لنرى..
مع الشكر الجزيل لك اخي على الفائدة
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
السلام عليكم
سوف أحاول هنا شرح استخدام الملف شرحا بسيطا،
الملف مكون من 25 ورقة عمل هي :
Accueil الصفحة الرئيسية من خلالها يمكننا التنقل إلى باقي الصفحات.
P1 إلى P20 صفحة لكل جهاز.
نأخذ مثال الصفحة P1 :
Tarif Normal التسعيرة العادية يأتي تحتها 1 Heure يعني 1 ساعة والمقدرة بـ 50 دينار (والتي يمكن تغيرها طبعا).
نضغط على DEBUT عند دخول الزبون واستعماله للجهاز لنسجل وقت دخوله.
نضغط على FIN عند انتهاء الجلسة. فيتم احتساب الوقت الذي قضاه الزبون في استخدام الجهاز ويوضع في الخانة Durée، وأيضا حساب الثمن ويوضع في الخانة VALEUR.
أما في الخانة E25 فيتم احتساب مجموع ايراد كل جهاز Total.
الورقة Divers :
يتم فيها وضع ثمن الخدمات الأخرى المقدمة كـ : بيع أقراص لينة أو سيديات أو أعمال طباعة.
الورقة Non Payé :
يتم فيها وضع القيم التي لم تسدد بعد - وهذا عندما يذهب الزبون بدون أن يسدد المبلغ المستحق عليه لسبب ما - حتى يتم طرحها من المجموع الكلي.
الورقة Depences :
يتم وضع في هذه الورقة المستلزمات التي تم شراؤها للقاعة حتى يتم طرحها هي كذلك من المجموع الكلي - كالأوراق والأقراص أو بعض أعمال الصيانة ...
الورقة Total des Postes :
هنا تجد خلاصة ما تم في ذلك اليوم.
وصافي مدخول القاعة تجده في الخانة C24 تحت العبارة LE NET.
المبلغ الصافي = ايرادات الأجهزة + ايرادات الخدمات الأخرى - المبالغ غير المسددة - مبالغ الزبائن المشتركين - خدمات الصيانة
LE NET = TOTAL DES POSTES + TOTAL DIVERS - TOTAL NON PAYER - TOTAL D'ABONNER - TOTAL DEPENCES
طبعا عليك حفظ الملف عند إجراء كل تغيير. - ربما يمكنك التعديل عليه ليتم حفظه تلقائيا كل بضع دقائق -
من دواعي فلسفة السخط في الطبائع الخيرة أن يكون الإنسان مجبولا على الإحساس بالواجب والشعور باللياقة . ذلك أن الذي يجبل على هذا الخلق يرى الأشياء كما هي كائنة ثم يراها كما يجب أن تكون فلا يلبث أن يجد في كل شيء نقصا ولا يلبث أن يجد في كل شيء باعثا للأسى و الأسف وداعيا إلى النقد والمذمة . فيكون غضبه أكثر من رضاه وحزنه أعم من فرحه ، ويكون إلى التنفير والقول بالتشاؤم أميل منه إلى التبشير والقول بالتفاؤل - العقاد
كل الشكر اخي العزيز على جهودكم والتوضيح.. شاكر لكم جدا،،
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
همام ابوعرقوب كتب:كل الشكر اخي العزيز على جهودكم والتوضيح.. شاكر لكم جدا،،
العفو، لا داعي للشكر.
من دواعي فلسفة السخط في الطبائع الخيرة أن يكون الإنسان مجبولا على الإحساس بالواجب والشعور باللياقة . ذلك أن الذي يجبل على هذا الخلق يرى الأشياء كما هي كائنة ثم يراها كما يجب أن تكون فلا يلبث أن يجد في كل شيء نقصا ولا يلبث أن يجد في كل شيء باعثا للأسى و الأسف وداعيا إلى النقد والمذمة . فيكون غضبه أكثر من رضاه وحزنه أعم من فرحه ، ويكون إلى التنفير والقول بالتشاؤم أميل منه إلى التبشير والقول بالتفاؤل - العقاد
بارك الله بك أخي الكريم في الواقع لم أنتبه إلى الموضوع إلا اليوم عندما كنت أبحث عن كلمة اكسل في القسم. الفكرة والتنفيذ رائع ;)
وفقك الله
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…