[حل شده] درج یک عبارت یا فرمول در یک سلول پس از save کردن فایل اکسل بوسیله ماکرو

[sazar]

من می خواهم بوسیله ماکرو پس از save کردن فایل اکسل یک عبارت یا فرمول یا تاریخ در یک سلول مثلا a1 ثبت گردد بدین صورت که در ماکرو بنویسم اگر فایلsave شد عبارت یا فرمول یا تاریخ امروز را در یک سلول مثلا a1 درج کن.

[Ali Parsaei]

سلام،بايد کد زير را براي THISWORKBOOK بنويسيد: (SHEET1 در کد را به نام شيت دلخواه خود تغيير دهيد)

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Sheets("SHEET1").Range("A1") = "=TODAY()"    
Range("A1").Select    
Selection.Copy    
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        
:=False, Transpose:=False    
Application.CutCopyMode = False
End Sub 

اگر مفهوم نيست بفرماييد بيشتر توضيح دهم.

[امين اسماعيلي]

شاید اینم کمک کنه

[COLOR=#333333][FONT=Verdana]With Range("A1")[/FONT][/COLOR]
[COLOR=#333333][FONT=Verdana].Value = Date[/FONT][/COLOR]
[COLOR=#333333][FONT=Verdana].NumberFormat = "mm/dd/yy"[/FONT][/COLOR]
[COLOR=#333333][FONT=Verdana]End With[/FONT][/COLOR]

[sazar]

باسلام و عرض ارادت
خیلی تشکر می کنم امیدوارم در همه امور موفق باشید