الرائد77 قام بنشر ديسمبر 2, 2019 مشاركة قام بنشر ديسمبر 2, 2019 كود رائع أعجبني . لكن اريد معرفة ما هي الطريقة لنسخ السيريال نمبر بعد اخراجه و لصقه في خلية ما. الملف مرفق Sub GGGG() Set fso = CreateObject("Scripting.FileSystemObject") Set driveObject = fso.GetDrive("C") MsgBox driveObject.serialnumber Set driveObject = Nothing Set fso = Nothing End Sub HARD DISK SERIAL NUMBER.xlsm 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسين مامون قام بنشر ديسمبر 2, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 2, 2019 ما عليك سوى تغيير سطر في الكود السطر من MsgBox driveObject.serialnumber الى Range("a1") = driveObject.serialnumber وسينسخ في الخليةA1 1 1 رابط هذا التعليق شارك More sharing options...
الرائد77 قام بنشر ديسمبر 2, 2019 الكاتب مشاركة قام بنشر ديسمبر 2, 2019 بارك الله فيكم رابط هذا التعليق شارك 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.