كيف تبحث في جوجل باستخدام vba؟

هناك العديد من الأشياء المهمة التي نقوم بها جميعًا بجانب استخدام برنامج Excel. هل انا على حق؟

أحد هذه الأشياء هو استخدام Google للبحث عن شيء ما. في قائمة رموز الماكرو المفيدة، لدي رمز يمكنك استخدامه لإجراء استعلام بحث على Google باستخدام Chrome.

واليوم سأشارككم هذا الكود. يمكنك إضافة هذا الرمز إلى مصنف الماكرو الشخصي الخاص بك واستخدامه في أي وقت تحتاج فيه إلى Google لشيء ما.

رمز VBA لفتح Google Chrome للبحث

إليك الكود أدناه الذي يمكنك استخدامه للبحث في Google باستخدام Chrome.

نسخة ويندوز 32

 Sub Google_Search_32() Dim chromePath As String Dim search_string As String Dim query As String query = InputBox("Enter here your search here", "Google Search") search_string = query search_string = Replace(search_string, " ", "+") chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe""" Shell (chromePath & " -url http://google.com/search?q=" & search_string) End Sub

نسخة ويندوز 64

 Sub Google_Search_64() Dim chromePath As String Dim search_string As String Dim query As String query = InputBox("Enter here your search here", "Google Search") search_string = Replace(query, " ", "+") chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe""" Shell (chromePath & " -url http://google.com/search?q=" & search_string) End Sub