أيمن الزعبي قام بنشر يناير 13, 2011 مشاركة قام بنشر يناير 13, 2011 السلام عليكم ... يوجد مجموعة من الموظفين يقومون بإدخال بيانات في هذا الجدول ... وأريد أن يظهر اسم مستخدم جهاز الكمبيوتر في خانة UserName وشكرا مقدم للجميع Book1.rar رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يناير 13, 2011 مشاركة قام بنشر يناير 13, 2011 السلام عليكم اخي الفاضل جرب المرفق و اخبرني النتيجة تحياتي Get.rar رابط هذا التعليق شارك More sharing options...
أيمن الزعبي قام بنشر يناير 13, 2011 الكاتب مشاركة قام بنشر يناير 13, 2011 أخي العزيز .. بوركت .. ما شاء الله عمل رائع وأنا متأكد أنه النتيجة مضمونة .. لكن حاولت انه أصنع نفس الشي في الكشف الأصلي .. فما نفع معايا.. طبعا لأنه خبرتي جدا جدا بسيطة في الإكسيل أرجو أن تشوف أخطائي في الكشف الأصلي المرفق... وتعديل عليها (الله لا يهينك). أقدم لك شكري وامتناني ID CARD.rar رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر يناير 13, 2011 مشاركة قام بنشر يناير 13, 2011 طريقة جميلة أخي عادل رابط هذا التعليق شارك More sharing options...
أيمن الزعبي قام بنشر يناير 16, 2011 الكاتب مشاركة قام بنشر يناير 16, 2011 للرفع رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يناير 16, 2011 مشاركة قام بنشر يناير 16, 2011 السلاام عليكم اخي ايمن الزغبي جرب المرفق تحياتي ID CARD1.rar رابط هذا التعليق شارك More sharing options...
ابو القبطان قام بنشر يناير 16, 2011 مشاركة قام بنشر يناير 16, 2011 استاذ : عادل ماشاء الله عمل اكثر من رائع ويفيد في مجالات رقابة مختلفة جزاك الله كل الخير رابط هذا التعليق شارك More sharing options...
ajore قام بنشر يناير 16, 2011 مشاركة قام بنشر يناير 16, 2011 ولكن ما هي الطريقة ؟؟؟ رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يناير 16, 2011 مشاركة قام بنشر يناير 16, 2011 السلام عليكم اخي حسن بارك الله فيك و اشكرك علي المرور اخي 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 تحياتي رابط هذا التعليق شارك More sharing options...
أيمن الزعبي قام بنشر يناير 17, 2011 الكاتب مشاركة قام بنشر يناير 17, 2011 بــوركــت يــمناك يا غالـــي عمـل راقي من إنسان راقــي ألــف شـــكر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.