ثبت ساعت در یک سلول باماکرو طوری که دیگه تغییر نکنه

[shabani.eng]

سلام

من میخوام یک ماکرو بنویسم که هر موقع روی یک سلول دلخواه کلیک کردم و ماکرو رو اجرا کردم
ساعت سیستم در اون سلول ثبت بشه طوری که دیگه تغییر نکنه.
خودم این راه به ذهنم رسید؛ اما خطا میده
خط قرمز خطا میده

Sub Macro1()
'
' Macro1 Macro
'
Dim a As Range
ذخیره آدرس همون سلولی که الان انتخاب هست   a = Selection.Select
      رفتن به سلول ساعت  Range("K13").Select
کپی    Selection.Copy
      بازگشت به سلولی که داخلش بودیم  Range(a).Select
کپی کردن ساعت به روش اسپشال (فقط مقدار)    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _  
        :=False, Transpose:=False
    Application.CutCopyMode = False
ست کردن فرمت نمایش ساعت    Selection.NumberFormat = "h:mm"
End Sub

"سلول K13 هم حاوی ساعت سیستم هست"

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mokaram]

شما خط آخر ماکروت بگو که اکتیو سل برابر باشه با زمان

[shabani.eng]

یعنی چی؟!
متوجه نشدم

اگه اکتیو سل برابر باشه با زمان ، پس اون داستان آپدیت شدن در هر بار فراخوانی این ماکرو چی میشه؟!
با چه تابعی باید گفت برابر باشه با زمان؟! منظورتون همون NOW() هست؟

ممنون.

[khakzad]

سلام
بله همون now()
وقتی داخل کد باشه و ی باز اجرا بشه مقدار تابع رو نشون میده و خود فرمول رو نشون ننمیده. پس قابل تغییر هم نیست

[shabani.eng]

آقا ممنون، نکته تو همون اکتیو سل بود:

در نهایت این طوری شد:

Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+q
'


    ActiveCell.FormulaR1C1 = "=NOW()"
    Selection.NumberFormat = "h:mm"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

[ali.b]

اگه از توابع شمسی استفاده میکنی این کد رو در قسمت VB اون شیت ذخیره کن .همون کار رو برات انجام میده

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim c As Range
For Each c In Range("a3")
If c <> "" And c.Offset(0, 3) = "" Then
c.Offset(0, 3) = Time
c.Offset(0, 2) = J_TODAY()
Exit Sub
End If
Next
End Sub

[shabani.eng]

ممنونم از راهنماییهاتون.:D
ما میخوایم از این فایل در اداره و روی سیستم سایر همکارا استفاده کنیم .
اما وقتی این فایل رو روی سیستم های دیگه کپی می کنیم فایلش ماکرو نداره.
چطوری فایل رو با ماکروش کپی می کنن؟!

[mokaram]

شما موقع Save as کردن با پسوند های xlsm یا 97-2003 ، Save بفرمایید

[ali.b]

روی سیستم های دیگه با توضحی که دادنی یعنی افیس 2007 یا 2010 هست که باید قسمت ماکرو رو فعال کنید

[shabani.eng]

اوه اوه، ممنونم.
از فضای علم و دانش و بروبچ فنی که دور بیفتی همینه دیگه!
از سال 89 که فارغ التحصیل (مهندسی نرم افزار) شدم تا الان یه کله دنبال سربازی و کار بودم و مدتی هست که مشغولم
و الان میبینم که عقب افتادم.
من که دو سه ترم برنامه نویسی رو واسه بچه ها حل تمرین میذاشتم...
و یه جورایی مرجع آفیس بودیم واسه خودمون...
بگذریم...

ازتون بابت کمکتون ممنونم.