اظهار اسم من ادخل البيانات في الملف

[أيمن الزعبي]

السلام عليكم ... يوجد مجموعة من الموظفين يقومون بإدخال بيانات في هذا الجدول ... وأريد أن يظهر اسم مستخدم جهاز الكمبيوتر في خانة UserName

وشكرا مقدم للجميع

Book1.rar

[عادل حنفي]

السلام عليكم

اخي الفاضل

جرب المرفق و اخبرني النتيجة

تحياتي

Get.rar

[أيمن الزعبي]

أخي العزيز .. بوركت .. ما شاء الله عمل رائع

وأنا متأكد أنه النتيجة مضمونة .. لكن حاولت انه أصنع نفس الشي في الكشف الأصلي .. فما نفع معايا.. طبعا لأنه خبرتي جدا جدا بسيطة في الإكسيل

أرجو أن تشوف أخطائي في الكشف الأصلي المرفق... وتعديل عليها (الله لا يهينك).

أقدم لك شكري وامتناني

ID CARD.rar

[الجزيرة]

طريقة جميلة أخي عادل

[أيمن الزعبي]

للرفع

[عادل حنفي]

السلاام عليكم

اخي ايمن الزغبي

جرب المرفق

تحياتي

ID CARD1.rar

[ابو القبطان]

استاذ : عادل

ماشاء الله عمل اكثر من رائع ويفيد في مجالات رقابة مختلفة

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

[ajore]

ولكن ما هي الطريقة ؟؟؟

[عادل حنفي]

السلام عليكم

اخي حسن

بارك الله فيك و اشكرك علي المرور

اخي ajore

يتم وضع الكود التالي في حدث التغيير للشيت المقصود

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Or Target.Column = 3 Or Target.Column = 4 Then

Cells(Target.Row, 5).Formula = CurrentUser

End If

كما يتم وضع الكود التالي في مديول منفصل

Option Explicit

Private Declare Function GetUserName Lib "advapi32.dll" _

Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function CurrentUser() As String

    Dim strBuff As String * 255

    Dim X As Long

    CurrentUser = ""

    X = GetUserName(strBuff, Len(strBuff) - 1)

    If X > 0 Then

        X = InStr(strBuff, vbNullChar)

        If X > 0 Then

            CurrentUser = UCase(Left$(strBuff, X - 1)) 'UCase is optional ;)

        Else

            CurrentUser = UCase(Left$(strBuff, X))

        End If

    End If

End Function

تحياتي

[أيمن الزعبي]

بــوركــت يــمناك يا غالـــي

عمـل راقي من إنسان راقــي

ألــف شـــكر