هامور قام بنشر ديسمبر 8, 2014 مشاركة قام بنشر ديسمبر 8, 2014 السلام عليكم ورحمة الله وبركاته في المرفق ماكرو يقراء الايبي للجهاز ولكن المشكله يجب ان تنسخ المعادله ثم تقوم بلصقها في خليه اخرى لتتم القراءه هل نستطيع تعديله بحيث تتم القراءه مباشره عند فتح الملف ولكم جزيل الشكر حل مشكلة امان الماكرو.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 8, 2014 مشاركة قام بنشر ديسمبر 8, 2014 الملف المرفق ليس له علاقة بطلبك أخي هامور .. رابط هذا التعليق شارك More sharing options...
ابو تراب قام بنشر ديسمبر 8, 2014 مشاركة قام بنشر ديسمبر 8, 2014 الملف الذي ارفقت يعمل تغييرات في قيم سجل النظام. رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر ديسمبر 8, 2014 مشاركة قام بنشر ديسمبر 8, 2014 اخى الفاضل كما تفضل الأساتذة الكرام انت باعت Registry File ... فيه حاجات اسهل من كده .. لو عاوز ماكرو لمعرفة ال IP الخاص بجهازك تفضل الملف المرفق تحياتي ip.rar رابط هذا التعليق شارك More sharing options...
هامور قام بنشر ديسمبر 8, 2014 الكاتب مشاركة قام بنشر ديسمبر 8, 2014 اشكر الجميع على الردود والتفاعل واسف على الخطاء في رفع الملف راح اكتب موضوع جديد عن المشكله رابط هذا التعليق شارك More sharing options...
هامور قام بنشر ديسمبر 8, 2014 الكاتب مشاركة قام بنشر ديسمبر 8, 2014 احد الاخوه رفع ملف الايبي ويعمل مع فتح الجهاز ولكن المشكله يخرج في شكل صندوق اريد الايبي في خليه رابط هذا التعليق شارك More sharing options...
هامور قام بنشر ديسمبر 8, 2014 الكاتب مشاركة قام بنشر ديسمبر 8, 2014 اخى الفاضل كما تفضل الأساتذة الكرام انت باعت Registry File ... فيه حاجات اسهل من كده .. لو عاوز ماكرو لمعرفة ال IP الخاص بجهازك تفضل الملف المرفق تحياتي ملف ممتاز لكن هل استطيع جعل الايبي يخرج في خليه داخل الصفحه بدل الصندوق رابط هذا التعليق شارك More sharing options...
هامور قام بنشر ديسمبر 8, 2014 الكاتب مشاركة قام بنشر ديسمبر 8, 2014 هل من الممكن تعديل هذا الماكرو بحيث يخرج الايبي مع فتح الاكسل في خليه B1 بدل الصندوق Sub GetMyIP() Const strComputer As String = "." Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i Dim strIPAddress As String Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") For Each IPConfig In IPConfigSet IPAddress = IPConfig.IPAddress If Not IsNull(IPAddress) Then strIPAddress = strIPAddress & Join(IPAddress, ", ") End If Next GetIPAddress = strIPAddress MsgBox "Your IP Address is" & " " & GetIPAddress End Sub رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 8, 2014 مشاركة قام بنشر ديسمبر 8, 2014 تفضل أخي الحبيب الملف المرفق Get IP Function.rar 2 رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر ديسمبر 8, 2014 مشاركة قام بنشر ديسمبر 8, 2014 هل من الممكن تعديل هذا الماكرو بحيث يخرج الايبي مع فتح الاكسل في خليه B1 بدل الصندوق اخى الفاضل تفضل المرفق لربما به طلبك .. تحياتي ip.rar رابط هذا التعليق شارك More sharing options...
ibn_egypt قام بنشر ديسمبر 8, 2014 مشاركة قام بنشر ديسمبر 8, 2014 تفضل أخي الحبيب الملف المرفق حبيبي واستاذى الفاضل معذرة لم انتبه لمشاركتك .. اسف أ.ياسر تحياتي وتقديري رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر ديسمبر 8, 2014 مشاركة قام بنشر ديسمبر 8, 2014 أخي الحبيب ابن مصر (يبدو أننا نلتقي في نفس الطريق إلى روما دائماً ...) بارك الله فيك وجزاك الله خير الجزاء عما تقدمه من مساعدات جمة وعظيمة لإخوانك تقبل تحياتي وأشواقي بس من غير وردة عشان خايف الورد يخلص وميبقاش غير الشوك 1 رابط هذا التعليق شارك More sharing options...
هامور قام بنشر ديسمبر 9, 2014 الكاتب مشاركة قام بنشر ديسمبر 9, 2014 تفضل أخي الحبيب الملف المرفق جزاك الله خير على ما تقدمه من مجهود جبار في هذا المنتدى الكبير رابط هذا التعليق شارك More sharing options...
هامور قام بنشر ديسمبر 9, 2014 الكاتب مشاركة قام بنشر ديسمبر 9, 2014 هل من الممكن تعديل هذا الماكرو بحيث يخرج الايبي مع فتح الاكسل في خليه B1 بدل الصندوق اخى الفاضل تفضل المرفق لربما به طلبك .. تحياتي شكرا على الرد والمساعده اضافه جميله رابط هذا التعليق شارك 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.