طارق زكريا حسين جاه الرسول قام بنشر يناير 29, 2017 مشاركة قام بنشر يناير 29, 2017 بسم الله الرحمن الرحيم بعد التحية ادارة حساب كل جهاز لكم جزيل الشكرااستوب وتش1.rar رابط هذا التعليق شارك More sharing options...
طارق زكريا حسين جاه الرسول قام بنشر يناير 29, 2017 الكاتب مشاركة قام بنشر يناير 29, 2017 UPUP UP رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر فبراير 1, 2017 مشاركة قام بنشر فبراير 1, 2017 أخى الكريم إليك محاولة منى ضع هذا الكود فى موديول واربط زر التشغيل بـ START وزر الايقاف بـ STOP ولكنه سيعمل على خلية واحده B4 Dim NextTick As Date, t As Date Sub StartClock() t = Time Call TickTock End Sub Private Sub TickTock() Range("B4").Value = Format(Time - t, "hh:mm:ss") NextTick = Now + TimeValue("00:00:01") Application.OnTime NextTick, "TickTock" End Sub Sub StopClock() Application.OnTime earliesttime:=NextTick, procedure:="TickTock", schedule:=False End Sub 1 رابط هذا التعليق شارك More sharing options...
طارق زكريا حسين جاه الرسول قام بنشر فبراير 1, 2017 الكاتب مشاركة قام بنشر فبراير 1, 2017 الاستاذ الكبير محمد الشريف لك الف شكر وتقدير رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر فبراير 1, 2017 مشاركة قام بنشر فبراير 1, 2017 أخى الكريم جزيتم عنى خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.