Google Üzerinde Arama Yapma
03 Ocak 2020
28 Şubat 2021
1373
Bu kod ile Google Üzerinde Arama Yapma işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
Sub SearchWindow32()
Dim chromePath As String
Dim search_string As String
Dim query As String
query = InputBox("Aramak istediğiniz kelimeyi yazın", "Google Arama")
search_string = query
search_string = Replace(search_string, " ", "+")
'Uncomment the following line for Windows 64 versions and comment out Windows 32 versions'
'chromePath = "C:Program FilesGoogleChromeApplicationchrome.exe"
'Uncomment the following line for Windows 32 versions and comment out Windows 64 versions
chromePath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
Shell (chromePath & " -url https://www.google.com/search?q=" & search_string)
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Üstteki kod 32 bit için geçerli yola göre eklenmiştir.
64 bit kullanıyorsanız, chromePath kısmındaki yolu tanımlamanız yeterli olacaktır.
Kodu çalıştırdığınız bir InputBox nesnesi açılacak ve yazacağınız arama Google Chrome tarayıcısı ile Google üzerinden yapılacaktır.
Bilgisayarınızda Chrome yüklü değilse kod hata verir, hemen "kod hatalı" diye yorum yazmayın :)
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| İşlem Yapılmış En Üst Hücreye Gitme | Ctrl Home |
| Hücreyi Araya Çoğaltarak Yerleştirme | Ctrl Shift Sürükle |
| Veri Aralığının En Altına Gitme | Ctrl ↓ |
| VB Penceresini Açmak | Alt F11 |
| Satırın Başına Gitme | Home |