أكاديمية الصقر للتدريب

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
رمضان بكري Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil تجميعة أكواد VBA بشكل حصري ومجاناً لمنتدى أكاديمية الصقر اكسيل اسئله واجابات



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





داله لمعرفة رقم الماذربورد

الاخوه العزاء اعضاء المنتدى كل عام و انتم بخير هل يوجد داله فى اكسس لمعرفة رقم المازربورد الخاصه بالكمبيوتر ؟ افيدونا ..



03-06-2018 12:20 صباحا
ابو عبد الرحمن
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 29-09-2017
رقم العضوية : 744
المشاركات : 1
الجنس : ذكر
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
الاعجاب : 0
 offline 
الاخوه العزاء اعضاء المنتدى 
كل عام و انتم بخير 
هل يوجد داله فى اكسس لمعرفة رقم المازربورد الخاصه بالكمبيوتر ؟ 
افيدونا فى ذلك و جزاكم الله خيرا




03-06-2018 10:13 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5586
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 362
قوة السمعة : 15694
الاعجاب : 5898
 offline 
look/images/icons/i1.gif داله لمعرفة رقم الماذربورد
السلام عليكم أخي الكريم
في الحقيقة أنا مشتغلتش على الأكسس لكن أعتقد الدالة التالية والتي تعمل في الإكسيل ممكن تشتغل معاك أو يمكن التعديل عليها بما يتناسب مع الأكسس
Sub Test_MBSerialNumber_UDF()
    MsgBox MBSerialNumber
End Sub

Function MBSerialNumber(Optional strComputer As String = ".") As String
    Dim v           As Variant
    Dim vName       As Variant
    Dim vUUID       As Variant

    With GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        For Each v In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", , 48)
            vName = v.Name
            vUUID = v.UUID
        Next v
    End With

    MBSerialNumber = vName & ", " & vUUID
End Function






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الدالة المعرفة FindInfo Eslam Abdullah
7 50 Eslam Abdullah
الدالة المعرفة Lookup_concat لدمج عدة خلايا فى خلية واحدة بشرط ali mohamed ali
9 198 ali mohamed ali
الدالة المعرفة DateDif30 Eslam Abdullah
35 825 starta
الدالة المعرفة AlsaqrExitList Eslam Abdullah
29 2057 خالد تبن ابورتاج
الطريقة السرية لمعرفة عمر حاسوبك باليوم والشهر والسنة stenour
18 811 أ.سامر الشربينى

الكلمات الدلالية
داله ، لمعرفة ، الماذربورد ،


 







الساعة الآن 02:58 صباحا

أعلن هنا
أعلن هنا
أعلن هنا