كود لكتابة الاسم والوقت والتاريخ فى الخلية النشطة
اهداء لاستاذى الحبيب / حمادة عمر
Sub nameandtime()
'
' NameAndTime Macro
'
'
' Keyboard Shortcut: Ctrl+Shift+N
'
ActiveCell.FormulaR1C1 = "اهداء لاستاذى الحبيب / حمادة عمر"
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=NOW()"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-1, 0).Range("A1:A2").Select
Selection.Font.Bold = True
With Selection.Font
.Name = "Arial"
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
End Sub
مرفق ملف به التطبيق
الاستاذ_حمادة عمر.rar