عمل متصفح انترنت على الاكسلvba

[Yasser Fathi Albanna]

 

[عبد العزيز البسكري]

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

يسعدني أن أكون أوّل المهنّئين أستاذي القدير " ياسر فتحي البنّا " على الاضافات المميّزة لجامعة أوفيسنا

بارك الله فيك .. جزاك الله خيرًا و زادها بميزان حسناتك

فائق إحتراماتي و إعجاباتي

[Yasser Fathi Albanna]

حبيبى الغالى أ / عبد العزيز

أنا إللى يسعدنى ويشرفنى مرورك الدائم والعطر على موضوعاتى

بارك الله فيك وجزاك الله خيرا على دعائك الطيب

تقبل خالص تحياتى وتقديرى

 

[طلعت محمد حسن]

بارك الله فيك اخي ياسر وجعلة في ميزان حسناتك

[مختار حسين محمود]

حبيبى الغالى المهندس / ياسر

بارك الله فيك .. و جزاك الله خيرًا و زادها بميزان حسناتك 

تقبل خالص تحياتى وتقديرى

[Yasser Fathi Albanna]

5 ساعات مضت, طلعت محمد حسن said:

بارك الله فيك اخي ياسر وجعلة في ميزان حسناتك

أخى الحبيب / طلعت

شرفتنى بمرورك وشكرا لدعائك الطيب وجزيت بمثل ما دعوت

تقبل خالص تحياتى وتقديرى

5 ساعات مضت, مختار حسين محمود said:

حبيبى الغالى المهندس / ياسر

بارك الله فيك .. و جزاك الله خيرًا و زادها بميزان حسناتك 

تقبل خالص تحياتى وتقديرى

حبيبى وأستاذى ومعلمى القدير / مختار

يسعدنى ويشرفنى دائما مرورك الكريم على موضوعاتى البسيطة

أشكرا على دعائك الطيب ولك بمثل ما دعوت

تقبل خالص تحياتى وتقديرى

[صلاح الدين المصلح]

بارك الله فيك أستاذ ياسر البنا.

[Yasser Fathi Albanna]

أخى الفاضل / صلاح الدين المصلح

شرفنى مرورك

تقبل تحياتى

[خالد حدادة]

 

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

 

ارجو من الأستاذ الكبير بأسمه المهندس ياسر فتحى ان يكتب لنا الكودات حتى تعم الفائدة ولكم جزيل الشكر 

 

 

 

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

موضوع رائع ومتميز .. ولكن أخي ياسر يبدو أنني أفضل الشرح بشكل يدوي ..

قم بشرح الخطوات مكتوبة لتعم الفائدة ..

تقبل تحياتي

[Yasser Fathi Albanna]

بناء على طلب الأخ الحبيب أستاذى الفاضل / ياسر خليل

بشرح الخطوات مكتوبة

الخطوات كالتالى

أولا : فتح شيت إكسيل جديد

ثانيا : تحويل الشيت إلى إمتداد XLSM كما بالصورة الأتية :

ثم الضغط على Save

ثالثا : ندخل على شاشة Developer

وإن كانت غير موجودة يتم إظهارها كما بالصورة الأتية :

ندخل على File ثم على Options ثم على Customize Ribbon ثم نعلم على علامة صح التى بجوار Developer كما بالصورة الأتية :

رابعا : فى شاشة  Developer ندخل على Insert  ثم على More Controls كما موضح بالصورة الأتية :

خامسا : نختار من الإختيارت التى ستظهر Microsoft Web Browser كما بالصورة الأتية ونقوم بتحديد مكانة داخل صفحة الإكسيل

سادسا : فى شاشة  Developer ندخل على Insert  ثم على command Button مرتين بجوار بعض كما بالفيديو والطريقة كما موضح بالصورة الأتية :

 

تابع

[Yasser Fathi Albanna]

سابعا تسمية command Button الأول Search والثانى  Back و كتابة إسم موقع فى الخلية D2 كما بالصورة الأتية

ثامنا /الضغط دبل كليك على command Button وكتابة الكود الأتى

Private Sub CommandButton1_Click()
link_name = Sheets("sheet1").Range("d2")
Call Sheets("sheet1").WebBrowser1.Navigate(link_name)
End Sub

 

أرجوا أن أكون وفقت فى الشرح

معلشى بقى أخى الحبيب / ياسر خليل

شرحى على قدى

[ياسر العربى]

مشكور اخي الغالي ياسر علي مجهودك واعادة شرحك للموضوع

ولاثراء الموضوع تفضل هذا مثال كنت قد وضعته منذ فترة في المنتدى لعله ينفع احدكم

http://www.officena.net/ib/topic/64199-تصفح-الانترنت-من-داخل-برنامجك-على-الاكسيل/

ولكم كل الشكر والتقدير

تم تعديل نوفمبر 22, 2015 بواسطه ياسر العربى

[محمد حسن المحمد]

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

أخي الحبيب م /ياسر جزاكم الله خيراً على رفد المنتدى الكريم بما يفيد أعضاءه الكرام 

والسلام عليكم.

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

جزيت خير الجزاء أخي الحبيب ياسر فتحي على المجهود المبذول في الموضوع

وشرح رائع ..ومتميز

بارك الله فيك

وننتظر المزيد من موضوعاتك الشيقة والممتعة .. بس بلاش كروتة واشرح بالتفصيل زي المشاركة اللي فاتت (رغم إنك كروت فيها بردو زر التعامل مع Back بس هنعديها لك المرة دي)

[Yasser Fathi Albanna]

حبيبى الغالى أستاذى ومعلمى القدير / ياسر خليل

أنا بتعلم من حضرتك وكل مرة الشرح هايبقى أحسن من إللى قبلة

واحدة واحدة وإنتظر حضرتك إللى جاى

شرفت بمرورك وتشجيعك الدائم لى الذى يعطينى دافعة قوية لتقديم المزيد من الموضوعات القيمة

تقبل خالص تحياتى وتقديرى