__للتحدي__((لأهل الخبره سؤال صعب جدا في((متغير الوقت)))------ عاجل

[ماجد ماجد]

السلام عليكم ورحمه الله 

اول مشاركه في هذاالمندى الرائع وهو صعب جداا!!والسؤال هو

 

((((A2))))لدينا خليه يتغير فيها الوقت كل ثانيه يعني مربوطه في الساعه وهي

((((B2))))ولدينا الكميه التي تتغير حسب الوقت بالثانيه

المطلوب:

كيف نجعل الخليه تتغير حسب ساعه الجهاز اوالوقت الحقيقي  اولا

ثانيا

كل مايتغير((الوقت ))بالثانيه نقوم بنسخ

 C2  ....الى(( B2))

مثال  مع القاعده

القاعده

في حاله ان     الوقت 14.33.52  في الخليه A2            ننسخ B2الى C2 

في حاله ان      الوقت14.33.53        في الخليه A2             ننسخ B2الى C3

في حاله ان     الوقت  14.33.54    في الخليه A2          ننسخ B2الى c4

في حاله ان     الوقت14.33.55       في الخليه A2          ننسخ B2الى c5

في حاله ان     الوقت14.33.56 في الخليه A2              ننسخ B2الى c6

في حاله ان     الوقت14.33.57 في الخليه A2              ننسخ B2الى c7

في حاله ان     الوقت14.33.58 في الخليه A2              ننسخ B2الىc8

في حاله ان     الوقت14.33.59 في الخليه A2              ننسخ B2الىc9

في حاله ان     الوقت14.34.00  في الخليه A2              ننسخ B2الى c10

 

وهكذ..........

 

 

(((لاننسى         ان الوقت متغير كل ثانيه))

(((لاننسى       اننا نريد نسخ الكميه كل ثانيه))

توضيح اكثر في الملف المرفق

 

ارجوكم لم اجد الحل  جزاكم الله عنا خير 

 

 

حساب خليه الوقت المتغير.rar

[ياسر خليل أبو البراء]

أخي الكريم ماجد ماجد

أهلاً بك في المنتدى ونورت بين إخوانك

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

لا داعي للعناوين البراقة (التحدي وخلافه) ، فكلنا هنا نسعى للتعلم بجد وليس من باب التحدي .. وإذا كان الباب هو التحدي فمن الأجدر أن يكون لديك حل للمسألة .. كأن تكتب في العنوان لغز أو خلافه ، أما التحدي في موضوع تطلب فيه مسألة معينة فغير مقبول (على الأقل بالنسبة لي)

عموماً حتى لا ندخل في نقاشات لا جدوى منها .. إليك الجزء الأول من طلبك

ضع الكود التالي في حدث المصنف ThisWorkbook

Private Sub Workbook_Open()
    Recalc
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    EndTime
End Sub

وضع الكود التالي في موديول جديد

Dim SchedRecalc As Date

Sub Recalc()
    Range("A1").Value = Format(Time, "hh:mm:ss AM/PM")
    Call StartTime
End Sub

Sub StartTime()
    SchedRecalc = Now + TimeValue("00:00:01")
    Application.OnTime SchedRecalc, "Recalc"
End Sub

Sub EndTime()
    On Error Resume Next
    Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
End Sub

إليك الملف المرفق فيه تطبيق الكود

 

** ملحوظة هامة : قمت بتنفيذ الجزء الأول مع عدم اقتناعي بفكر تحديث الوقت كل ثانية لأن ذلك سيكون إرهاق على الملف نظراً لأن التحديث سيكون كل ثانية ..

أعتقد يمكن تنفيذ الجزء الثاني بدون تحديث الوقت في الخلية A1 ... ولكن تم تنفيذ الجزء الأول من باب التحدي

تقبل تحياتي

 

Update Timer Every Second In Cell YasserKhalil.rar

***********************************

بعدما اطلعت على الجزء الثاني من طلبك فقد اتضح لي أنه يمكن التعديل على الكود السابق بسهولة ليؤدي الغرض ويقوم بعملية الترحيل كل ثانية كما طلبت

قم بتعديل الكود

Sub Recalc()
    Range("A2").Value = Format(Time, "hh:mm:ss AM/PM")
    Range("C" & Cells(Rows.Count, "C").End(xlUp).Row + 1).Value = Range("B2").Value
    Call StartTime
End Sub

وإليك الملف المرفق الثاني بعد التعديل

تقبل تحياتي

Update Timer Every Second In Cell YasserKhalil V2.rar

[الطـاهر]

ماشاء الله اخى ياسر

مبدع وفنان

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم سامح طاهر وجزيت خيراً على مرورك العطر بالموضوع

تقبل تحياتي

[ماجد ماجد]

أولا: السلام عليكم ورحمه الله

ثانيا :كل الشكر والتقدير أاولاحترام للاخ ابوالبراء وجميع من في المنتدى

ثالثا اقدم اعتذاري للمشرفين وللاخ ابو البراء جزاه الله خير على مابدر منى

في كتابه العنوان وجهلي في قوانين المنتدى واندفاعي نحو التحدي لصعوبه المسأله

 

واخيرا دعوه صادقه من القلب لكل اعضاء المنتدى وللمشرفين عامه وللاخ ياسر ابوالبراء

جزاكم الله خير الجزاء

[أبو محمد أشرف]

ما شاء الله يا أبا البراء رائع مبدع متألق

[كريم ناصف]

برنس 

ومطلع الشغل مبهر صراحة 

بس هو استفذك وطلع الوحش اللي جواك 

 

[محمد حسن المحمد]

أخي الحبيب ياسر أبو البراء :

السلام عليكم ورحمة الله وبركاته

بارك الله بك على هذا العمل الرائع

ما شاء الله لا قوّة إلا بالله 

 

[ياسر خليل أبو البراء]

الأخ الكريم ماجد ماجد

بارك الله فيك وجزيت خيراً على استجابتك لمطلبي لتغيير اسم الظهور للغة العربية ، ولا داعي للاعتذار فأنت لم ترتكب جرم والعياذ بالله ، وكلنا هنا أخوة في الله ، فقط أحببت أن أوضح لك كيف تسير الأمور في المنتدى .. والحمد لله أن تم المطلوب على خير .. وهذا بفضل الله عزوجل وحده

(وبعدين تعالى هنا قولي : إنت صاحب الموضوع ومعملتش إعجاب على المشاركة ، والناس الجيران اللي طلوا على الموضوع ومش موضوعهم عملوا إعجاب .. دا كلام بردو يا كابتن مااااااااجد .. دوس إعجاب وبلاش عتاب )

 

الأخ العزيز أبو محمد أشرف

مشكور على كلماتك الرقيقة ومرورك العطر بالموضوع ، بارك الله فيك

 

الأخ الفاضل كريم أبوهنى

أنا مش بحب الاستفزاز .. والموضوع لم يستفزني !! بالعكس ترددت في كتابة رد على الموضوع في البداية ، لكن أحببت أن يستفيد الجميع ، وبعدين الوحش اللي جوايا باين آثاره في المنتدى بحمد الله وفضله وتوفيقه .. ادخل على الفهرس الموجود في توقيعي ، ودا يعتبر الوحش الصغير ، غير المشاركات في الموضوعات المختلفة (وأما بنعمة ربك فحدث)

 

أخي الحبيب المتميز ابو يوسف

بارك الله لنا فيك وجعلك لنا ذخراً أمد الدهر ، وجزيت خيراً على كلماتك الرقيقة وعلى مرورك العطر

تقبلوا جميعاً فائق تحياتي