تعديل ماكرو اخراج الايبي للجهاز

[هامور]

السلام عليكم ورحمة الله وبركاته

 

في المرفق ماكرو يقراء الايبي للجهاز ولكن المشكله يجب ان تنسخ المعادله ثم تقوم بلصقها في خليه اخرى لتتم القراءه هل نستطيع تعديله بحيث تتم القراءه مباشره عند فتح الملف

 

ولكم جزيل الشكر

حل مشكلة امان الماكرو.rar

[ياسر خليل أبو البراء]

الملف المرفق ليس له علاقة بطلبك أخي هامور ..

[ابو تراب]

الملف الذي ارفقت يعمل تغييرات في قيم سجل النظام.

[ibn_egypt]

اخى الفاضل

 

كما تفضل الأساتذة الكرام انت باعت Registry File ... فيه حاجات اسهل من كده .. لو عاوز ماكرو لمعرفة ال IP الخاص بجهازك

 

تفضل الملف المرفق

 

تحياتي  

ip.rar

[هامور]

اشكر الجميع على الردود والتفاعل واسف على الخطاء في رفع الملف راح اكتب موضوع جديد عن المشكله

[هامور]

احد الاخوه رفع ملف الايبي ويعمل مع فتح الجهاز ولكن المشكله يخرج في شكل صندوق اريد الايبي في خليه 

[هامور]

اخى الفاضل

 

كما تفضل الأساتذة الكرام انت باعت Registry File ... فيه حاجات اسهل من كده .. لو عاوز ماكرو لمعرفة ال IP الخاص بجهازك

 

تفضل الملف المرفق

 

تحياتي  

ملف ممتاز لكن هل استطيع جعل الايبي يخرج في خليه داخل الصفحه بدل الصندوق

[هامور]

هل من الممكن تعديل هذا الماكرو بحيث يخرج الايبي مع فتح الاكسل في خليه 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

 

[ياسر خليل أبو البراء]

تفضل أخي الحبيب الملف المرفق

 

Get IP Function.rar

[ibn_egypt]

 

هل من الممكن تعديل هذا الماكرو بحيث يخرج الايبي مع فتح الاكسل في خليه B1 بدل الصندوق

 

 

اخى الفاضل

 

تفضل المرفق لربما به طلبك .. 

 

تحياتي  

ip.rar

[ibn_egypt]

 

تفضل أخي الحبيب الملف المرفق

 

 

حبيبي واستاذى الفاضل

 

معذرة لم انتبه لمشاركتك .. اسف أ.ياسر

 

تحياتي وتقديري  

[ياسر خليل أبو البراء]

أخي الحبيب ابن مصر (يبدو أننا نلتقي في نفس الطريق إلى روما دائماً ...)

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

تقبل تحياتي وأشواقي بس من غير وردة عشان خايف الورد يخلص وميبقاش غير الشوك

[هامور]

 

تفضل أخي الحبيب الملف المرفق

 

جزاك الله خير على ما تقدمه من مجهود جبار في هذا المنتدى الكبير

[هامور]

 

 

هل من الممكن تعديل هذا الماكرو بحيث يخرج الايبي مع فتح الاكسل في خليه B1 بدل الصندوق

 

 

اخى الفاضل

 

تفضل المرفق لربما به طلبك .. 

 

تحياتي  

 

شكرا على الرد والمساعده اضافه جميله