نویسنده موضوع: استفاده از متغییر بجای ثانیه  (دفعات بازدید: 173 بار)

d349

  • کاربر فعال
  • ***
  • ارسال: 159
  • جمع امتیازها: +2/-0
با سلام
 در سلولی #  12:00:01#
متغییر     s=02 از این متغییر می خوام بجای ثانیه استفاده کنم  چگونه این متغییر را وارد کنم


Sub Button1_Click()
Dim s As String
s = Range("a1").Value 'فرمت سلول تکست است '
Range("c3") = Format(Now, "H:mm:ss")
DoEvents
Application.Wait (Now + #12:00:01 AM#) 'در اين کد مي خوام بجاي ثانيه از متغيير S استفاده کنم چگونه اين متغيير را وارد کنم'
Range("c3") = Format(DateAdd("s", 1, Range("c3")), "h:mm:ss")
End Sub


lamp

دانلود فهرست + فصل اول کتاب توابع و فرمول نویسی اکسل

خبر: کامل ترین کتاب توابع و فرمول نویسی در اکسل ترجمه تیم فرساران


majid_mx4

  • مدیران انجمن
  • *
  • ارسال: 1849
  • جمع امتیازها: +665/-7
پاسخ : استفاده از متغییر بجای ثانیه
« پاسخ #1 : 28 مهر 1398 - 01:45 »
سلام

دستور زیر رو استفاده کن ببین با این کار میکنه


Sub Button1_Click()
Dim s As String
s = Range("a1").Value
Range("c3") = Format(Now, "H:mm:ss")
DoEvents
Application.Wait (Now + TimeValue("0:00:" & s))
End Sub

موفق باشید