كود لكتابة الاسم والوقت والتاريخ فى الخلية النشطة

[قنديل الصياد]

كود لكتابة الاسم والوقت والتاريخ فى الخلية النشطة

اهداء لاستاذى الحبيب / حمادة عمر

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

 

 

[حمادة عمر]

السلام عليكم

الاخ الحبيب / قنديل الصياد

بارك الله فيك

جزيل الشكر وعظيم الامتنان لك

هدية اكثر من راائعة وكود جميل

 

والاروع والاجمل من ذلك هو نشاطك الملحوظ وتميز المملموس

والاكثر من ذلك كله هو شخصكم الكريم الخلوق

وان شاء الله نراك من تقدم الي تقدم دائما

وكل عام وانتم بخير

جزاك الله خيرا

[قنديل الصياد]

شكرا لك استاذى الحبيب

وكل عام وحضرتك بخير

[على حسن]

بارك الله فيك

[قنديل الصياد]

شكرا اخى العزيز وبارك الله فيك وعليك

وكل عام وحضرتك بخير