Google Form Automation Submit dengan Macro

Google Form merupakan salah satu produk dari banyaknya Produk google yang ditawarkan secara gratis. Google Form ini merupakan sebuah aplikasi untuk membuat Form berbasis web untuk mengumpulkan jawaban secara online. Sebagai Platform, Google Form ini bisa dimanfaatkan untuk berbagai kepentingan mengumpulkan data yang bisa disimpan ke dalam google Sheet. Misalkan untuk Kuesioner online, Form Order dan lain-lain

Hasil dari Form online ini bisa disimpan atau terhubung dengan Google Sheet. sehingga kita bisa dengan mudah mengolah data yang sudah disi oleh Audien kita. Namun prinsip dari hasil google Form ini adalah ketika ada data baru, Google Form melakukan penambahan baris dan baris yang ada sebelumnya akan bergeser ke bawah. sehingga hal ini menyulitkan kita untuk memasukan rumus kedalam hasil Google Form secara otomatis.

Untuk menambahkan Rumus ke dalam Hasil data yang di submit oleh Google Form secara otomatis, kita bisa menambakan sedikit Macro ke dalam Google Form kita.

Projects :

• Bahasa Pemprograman : Macro
• File Type : XLSX
• Environtment : Microsoft Exell
• Resource : https://github.com/whitecyber-faris/project-dev-1

Cara Menambah rumus secara otomatis pada hasil google Form

Tujuan dari penambahan macro dibawah ini adalah, ketika Audience men-Submit data pada Google Form, Hasil pada Google Sheet secara otomatis membuat rumus pada Kolom Terkahir dengan rumus yang telah kita tentukan.

Code :

.

Private Sub CommandButton1_Click()
Dim row
Dim x
Dim link

link = "https://docs.google.com/forms/d/e/1FAIpQLSfdk6Q1bep1HYbycXqKSF0QXf8Czv1dd2-OjGTDkjDysHCWxQ/formResponse?usp=pp_url&"


x = MsgBox("Submit to google form?", vbOKCancel, "Confirmation")

If x = 2 Then
    Exit Sub
End If

row = 17
Do While Cells(row, 2) <> ""
    Set http = CreateObject("MSXML2.ServerXMLHTTP")
    field_1 = "&entry.359068109=" & Cells(row, 2)
    field_2 = "&entry.941556145=" & Cells(row, 3)
    field_3 = "&entry.1439091021=" & Cells(row, 4)
    field_4 = "&entry.687679504=" & Cells(row, 5)
    field_5 = "&entry.611624975=" & Cells(row, 6)
    field_6 = "&entry.220502137=" & Cells(row, 7)
    field_7 = "&entry.2023824251=" & Cells(row, 8)
    field_8 = "&entry.1586220977=" & Cells(row, 9)
    field_9 = "&entry.1764130098=" & Cells(row, 10)
    field_10 = "&entry.94498585=" & Cells(row, 11)
    field_11 = "&entry.1664309346=" & Cells(row, 12)
    field_12 = "&entry.74874894=" & Cells(row, 13)
    field_13 = "&entry.1005694803=" & Cells(row, 14)
    field_14 = "&entry.1032777068=" & Cells(row, 15)
    field_15 = "&entry.2019209029=" & Cells(row, 16)
    field_16 = "&entry.918808168=" & Cells(row, 17) & "&submit=Submit"
    
    myURL = link & field_1 & field_2 & field_3 & field_4 & field_5 & field_6 & field_7 & field_8 & field_9 & field_10 & field_11 & field_12 & field_13 & field_14 & field_15 & field_16
    http.Open "GET", myURL, False
    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    http.send
    Range(Cells(row, 2), Cells(row, 17)) = ""
    row = row + 1
Loop

MsgBox "Data submitted to google form", vbInformation, "Submitted"
End Sub