Jump to content
أوفيسنا

كيف اجلب عدد نتائج البحث بجوجل الى اكسل؟


Go to solution Solved by عبدالله المجرب,

Recommended Posts

تحية طيبة للجميع

نفترض ان الخلية A1 تحتوي على كلمة = العولمة
والخلية B1 تحتوي على كلمة = التطور

الخلية C1 هي النتيجية والمفترض ان تكون = 408 (الرقم هذا هو عدد النتائج خلال محرك بحث قوقل)

https://www.google.com.sa/search?hl=ar&as_q=&as_epq=&as_oq=%D8%A7%D9%84%D8%B9%D9%88%D9%84%D9%85%D8%A9+%D8%A7%D9%84%D8%AA%D8%B7%D9%88%D8%B1&as_eq=&as_nlo=&as_nhi=&lr=&cr=&as_qdr=w&as_sitesearch=http%3A%2F%2Fwww.alriyadh.com%2F&as_occt=any&safe=images&as_filetype=&as_rights=

المطلوب:

اذا كتبت كلمة في A1 وكلمة في B1 يتم البحث في قوقول كالتالي (بحث متقدم):
1- البحث عن اي من الكلمات المكتوبة في A1 او B1
2- البحث عن الصفحات التي تم تحديثها خلال الفترة الزمنية (اسبوع)
3- البحث فقط بموقع http://www.alriyadh.com/


ياليت احد يساعدني بكتابة كود VBA

منتظر مساعدتكم

تحياتي لكم

Link to post
Share on other sites

السلام عليكم

اخي الفاضل

اليك هذا الرابط

http://www.officena....topic=37603&hl=

وقد قمت بعمل تعديل بسيط في الكود ليتناسب وطلبك

شاهد المرفق

فورم بحث في جريدة الرياض.rar

Link to post
Share on other sites

استاذ عبدالله

تحية طيبة ...

للاسف .... حينما افتح البرنامج تطلع لي رسالة تقول ادخل كلمة البحث ...

انا اريد ان اكون مخول لكتابة كلمتين في خلية A1 وخلية B1 ومن ثم احصل على فقط على عدد النتائج في الخلية C1

لا اريد فتح المتصفح ...ولا اريد ان انظر الى النتائج ... مايهمني هو فقط عدد النتائج

تحياتي لك

Link to post
Share on other sites

استاذ عبدالله

تحية طيبة ...

بحثت بالانترنت ووجدت الكود المطلوب لكن يجتاج الى تطوير ....

التطوير المطلوب :

1- الكود لا يبحث الا بالكلمات الانجليزية ... وانا سوف استخدمه بالكلمات العربية والارقام

2- الكود يبحث بجميع موقع الانترنت وانا اريده ان يبحث بموقع واحد فقط

3- الكود يتجاهل تاريخ اخر تحديث للموضوع وانا اريد فقط المواضيع المطروحة اخر اسبوع.

4- النتيجة المعطاه بخلية B1 على سبيل المثال هي = About 4,510,000,000 results وانا اريد النتيجة تظهر بدون كلمة About وكلمة results اريد فقط الرقم لاستطيع استخدمه بمسائل حسابية

5- عندما استخدم الكود لـ 200 كلمة تظهر رسالة خطا بمعنى اخر (اذا كتبت كلمات من الخلية A1 الى الخلية A200 ثم شغلت الكود) يعطي رسالة خطا واحيانا يهنق

هل بالامكان مساعدتي بتطوير الكود المرفق؟

ولكم مني جزيل الشكر والامتنان ....

اخوكم محمد

test.zip

Link to post
Share on other sites
  • Solution

1- الكود لا يبحث الا بالكلمات الانجليزية ... وانا سوف استخدمه بالكلمات العربية والارقام

تم عمل اللازم

2- الكود يبحث بجميع موقع الانترنت وانا اريده ان يبحث بموقع واحد فقط

تم عمل اللازم

3- الكود يتجاهل تاريخ اخر تحديث للموضوع وانا اريد فقط المواضيع المطروحة اخر اسبوع.

هذي علمها عند الله جرب وشوف

4- النتيجة المعطاه بخلية B1 على سبيل المثال هي = About 4,510,000,000 results وانا اريد النتيجة تظهر بدون كلمة About وكلمة results اريد فقط الرقم لاستطيع استخدمه بمسائل حسابية

تم اضافة دالة معرفة (منقولة للامانه) لفصل الرقم عن الحروف

5- عندما استخدم الكود لـ 200 كلمة تظهر رسالة خطا بمعنى اخر (اذا كتبت كلمات من الخلية A1 الى الخلية A200 ثم شغلت الكود) يعطي رسالة خطا واحيانا يهنق

اكيد راح يهنق بسبب العدد الكبير في الكلمات وحاجة الكود لعمل عدة اجراءات للكلمة الواحدة

فاستعمل عدد محدود في كل مرة

هل بالامكان مساعدتي بتطوير الكود المرفق؟

شاهد ما تم عمله في الكود وبانتظار رايك

test.zip

Link to post
Share on other sites

استاذ عبدالله ....

تعجز الكلمات عن شكرك ...

هذا هو الذي ابحث عنه ....

شكرا لك على كل ما تقدمه لهذا المنتدى المعطى

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

اخوك

محمد

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Similar Content

    • By أحمد عبد المنعم
      اذا أردت البحث في جملة طويلة فشاهد هذا الدرس من الحلقات البسيطة الممتعة ---------------------------------------------------------------------------------------- اذا عجبك الفيديو اضغط اعجاب واترك تعليق واشترك في القناة وشارك مع أصحابك لأفادة الجميع ------------------------------------------------------------------------------------------------ اذا كان لديك استفسار أو فكرة ولو بسيطة شاركنا بها لنحولها الي واقع في فيديو + مرفق ------------------------------------------------------------------------------------------------ "اللهم علمنا ما ينفعنا وانفعنا بما علمتنا" "اللهم اغفر لأبي وارحمه كما رباني صغيرا"
       
    • By m7amd mahmood
      لو سمحتوا انا عايز اعمل دالة بحث  في الصف الاول من الشيت دا بحيث اني لما اكتب اسم العميل هوا بس اللي يظهر لي تحت بكل بياناته وباقي العملاء يختفو
      ان لم يكن هناك ملف بالمشاركة ... عذرا سوف تحذف المشاركة بناءا على قوانين وقواعد المنتدى فلا يمكن لأحد اضاعة الوقت فى تصميم الملف لك
    • By شامل2
      السلام عليكم
      مثال يحتوي نموذج فرعي ورئيسي 
      يوجد في النموذج الرئيسي قائمة منسدلة للبحث عن أسماء الاشخاص
      المشكلة اذا تكرر نفس الاسم البحث يكون للاسم الأول فقط واغلب الأسماء لا تكتب كاملة
      كيف يمكن معالجة هذه الحالة؟
      او هل هناك طريقة للبحث افضل؟
       
       
       
      Example.accdb
    • By أ / محمد صالح
      لكل عشاق الحديث في برمجة الأوفيس المتقدمة VBA يسعدني أن أقدم لكم شرح كود ترجمة جوجل 2019 في فيجوال بيسك للتطبيقات vba الموجودة ضمن حزمة ميكروسوفت أوفيس وسيكون الشرح على الأكسس microsoft access 2019 ومعالجة خطأ عدم ظهور الترجمة التعرف على أكواد لغات العالم world languages codes الموجودة في ترجمة جوجل وعددها 105 لغة التعرف على أسماء لغات العالم بالإنجليزية وباللغة العربية وباللغة المحلية لكل لغة دالة معرفة لإيقاف تنفيذ الكود فترة من الثواني wait مثل application.wait الموجودة في إكسل كتابة سطرين كود في سطر واحد نطق النصوص من خلال vba بجميع لغات العالم text to speech ترجمة سجلات الجداول أو الاستعلامات من خلال ADO وغيرها الكثيييييير اكتشفها بنفسك         رابط القناة لمن لم يشترك معنا حتى الآن   https://www.youtube.com/user/ostazmas2   #ostazmas   ************   فتابعونا وقوموا بتفعيل زر الجرس للتنبيه وقت صدور الفيديو وعلق ولو بحرف لكي تدعمنا للاستمرار من أجلكم   ********************* وفي هذه المرة لن أضع لكم الملف المستخدم في الشرح
      ولكن سأطلب ممن فهم الشرح أن يقوم بتطبيقه ويرفع لنا هنا ما تعلمه فعلا كنتيجة الفيديو /////////////////
      وتذكر معي الحكمة القائلة: لا تعطني سمكة ولكن علمني كيف أصطاد
    • By essam rabea
      أرفق اليكم نموذج بحث متعدد النتائج .. به وحدة نمطية بسيطة لتوحديد الأحرف المتشابهة وإزالة المسافات وتجاهل الهمزات والتشكيل ..عسى يجد من ينتفع به.وتجدر الإشارة أن أغلبه من أفكار رواد هذا المنتدى العزيز.
      أعزكم الله .. تحياتى
      Officna.rar
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...

Important Information