[طلب]تعديل كود ادخال الوقت والتاريخ فى خلية ليتم ادخال اسم الجهاز معها فى خلية اخرى

[عاشق الاكسيل]

السلام عليكم ورحمة الله وبركاته

اثناء بحثى وجدت هذا الكود لادخال الوقت والتاريخ فى حالة ادخال قيمة فى الخلية

اريد من الاخوة الكرام التعديل عليه بحيث يتم ادخال اسم الجهاز المستخدم فى عمود اخر

مع امكانية تقعيل هذا الكود على صفحة معينة او على كافة صفحات العمل

وشكرا

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
	    If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
	    VBA.Calendar = vbCalHijri ' اذا كنت تريد التاريخ هجري
	    'VBA.Calendar = vbCalGreg ' إذا كنت تريد التاريخ ميلادي
		    With Target(1, 4) ' العمود الاول والعمود المراد كتابة التاريخ والوقت فيه
			    '.NumberFormat = "[$-1010000]yyyy/mm/dd;@" ' إذا كنت تريد التاريخ ميلادي
			    .NumberFormat = "[$-2060000]B2yyyy/mm/dd;@" ' اذا كنت تريد التاريخ هجري
			    .Value = Date & " _ " & Time  ' يظهر التاريخ مع الوقت
			    .EntireColumn.AutoFit ' توسيع العمود بقدر كبر التاريخ والوقت
		    End With
	    End If
End Sub

[ياسر خليل أبو البراء]

أخي الكريم الباحث العربي

جرب التعديل البسيط

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
        VBA.Calendar = vbCalHijri ' اذا كنت تريد التاريخ هجري
        'VBA.Calendar = vbCalGreg ' إذا كنت تريد التاريخ ميلادي
            With Target(1, 4) ' العمود الاول والعمود المراد كتابة التاريخ والوقت فيه
                '.NumberFormat = "[$-1010000]yyyy/mm/dd;@" ' إذا كنت تريد التاريخ ميلادي
                .NumberFormat = "[$-2060000]B2yyyy/mm/dd;@" ' اذا كنت تريد التاريخ هجري
                .Value = Date & " _ " & Time  ' يظهر التاريخ مع الوقت
                .EntireColumn.AutoFit ' توسيع العمود بقدر كبر التاريخ والوقت
            End With
            With Target(1, 5)
                .Value = Environ$("computername")
            End With
        End If
End Sub

[ياسر خليل أبو البراء]

أخي الفاضل لم أنتبه لبقية كلامك ..

إذا أردت تفعيل الكود على كافة أوراق العمل قم بوضع هذا الكود بهذا الشكل في حدث المصنف Workbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
        If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
        VBA.Calendar = vbCalHijri ' اذا كنت تريد التاريخ هجري
        'VBA.Calendar = vbCalGreg ' إذا كنت تريد التاريخ ميلادي
            With Target(1, 4) ' العمود الاول والعمود المراد كتابة التاريخ والوقت فيه
                '.NumberFormat = "[$-1010000]yyyy/mm/dd;@" ' إذا كنت تريد التاريخ ميلادي
                .NumberFormat = "[$-2060000]B2yyyy/mm/dd;@" ' اذا كنت تريد التاريخ هجري
                .Value = Date & " _ " & Time  ' يظهر التاريخ مع الوقت
                .EntireColumn.AutoFit ' توسيع العمود بقدر كبر التاريخ والوقت
            End With
            With Target(1, 5)
                .Value = Environ$("computername")
            End With
        End If
End Sub

[ياسر خليل أبو البراء]

أخي الكريم ..إتماماً للأمر

إليك الملف المرفق ..

Date-Time-Computer Name Automatically.rar

[عاشق الاكسيل]

اخى الكريم / ياسر خليل

هذه هى المرة الثانية التى تقوم بمساعدتى فيها - وليست الاخيرة -

كلمة الشكر لا تفى ما اريد ان اعبر به فانت لا تعلم مدى استفادتى من هذه المساعدات

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

اخيرا اتمنى ان تتابع المواضيع الخاص بى لان اعمل على مشروع سوف يساعدنى كثيرا فى عملى باذن الله

فارجو الا تمل من طلباتى وشكرا على مساعدتك جعلها الله فى ميزان حسناتك باذن الله

[ياسر خليل أبو البراء]

أخي الفاضل الباحث العربي ...

مشكور على ردك الجميل أخي العربي

رداً على قولك ألا اأمل من طلباتك ..أؤكد لك أنه لن يحدث بإذن الله ..

بس إوعى إنت تمل من متابعة المنتدى ...

إخوانك سيكونون في انتظارك .. فلا تطول عليهم الانتظار

تقبل تحياتي

[عاشق الاكسيل]

يعلم الله انى لا اقوم بغلق المنتدى الا فى اوقات تواجدى بالعمل فقط

فمن وقت استيقاظى قبل صلاة الفجر لحين ذهابى الى عملى ومنذ عودتى حتى نومى لا اغلق المنتدى ابدا

وفعلا نعم الاخوة

ويمكنك ان تنادينى (ابو ملك) كما ناديتنى فى اول موضوع ^^

تم تعديل مارس 16, 2015 بواسطه الباحث العربى

[ياسر خليل أبو البراء]

بارك الله لك في ملك يا أبا ملك .. وجعل الملك صحبتك في الدنيا والآخرة ..

تقبل تحياتي