3 Langkah Membuat Rumus Simple Random Sampling Otomatis untuk Survei

Dalam penelitian kuantitatif, pemilihan sampel yang representatif dari populasi sangat krusial untuk memastikan validitas hasil. Salah satu metode yang sering digunakan adalah simple random sampling, di mana setiap anggota populasi memiliki peluang yang sama untuk terpilih.

Microsoft Excel, dengan bantuan VBA (Visual Basic for Applications), memungkinkan otomatisasi proses ini, menghemat waktu dan meminimalkan kesalahan manual. Artikel ini akan membahas cara menerapkan rumus simple random sampling secara otomatis menggunakan VBA Macro.

Apa itu Simple Random Sampling?

Simple Random Sampling adalah metode pengambilan sampel di mana setiap anggota populasi memiliki peluang yang sama untuk dipilih menjadi bagian dari sampel. Teknik ini menjamin keadilan dan objektivitas dalam penelitian.

Menurut Setiawan dan Nugroho (2023), “Simple random sampling memberikan distribusi peluang yang seimbang bagi setiap anggota populasi untuk masuk ke dalam sampel, sehingga hasil analisis menjadi lebih dapat digeneralisasi.” (Setiawan & Nugroho, Journal of Quantitative Research, 2023).

Persiapan Data di Excel

Sebelum membuat macro untuk rumus simple random sampling, pastikan data Anda sudah tersusun rapi di Excel. Misalnya di sheet “Data” (Nama sheet jangan diubah dengan nama lain):

Dan format untuk menampung hasilnya di sheet “Random”. Nama sheet ini juga tidak boleh diubah, kecuali Anda mengubah juga kode vba-nya:

Membuat Macro Simple Random Sampling

Berikut adalah 3 langkah mudah membuat rumus Simple Random Sampling otomatis untuk survei:

Langkah 1: Buka Editor VBA

1. Tekan Alt + F11 untuk membuka Editor VBA.
2. Klik Insert > Module untuk menambahkan modul baru.

Langkah 2: Masukkan Kode VBA

Salin dan tempel kode rumus simple random sampling berikut ke dalam modul:

Sub RandomSamplingToB3()
    Dim wsSource As Worksheet
    Dim wsRandom As Worksheet
    Dim sampleSize As Integer
    Dim lastRow As Long
    Dim usedIndexes As Collection
    Dim randIndex As Long
    Dim i As Integer
    Dim outputRow As Integer
    Dim headers As Variant

    ' Tentukan sheet sumber (aktif saat ini)
    Set wsSource = ActiveSheet

    ' Tentukan sheet tujuan "Random"
    On Error Resume Next
    Set wsRandom = Worksheets("Random")
    On Error GoTo 0
    If wsRandom Is Nothing Then
        MsgBox "Sheet 'Random' tidak ditemukan!", vbExclamation
        Exit Sub
    End If

    ' Tentukan baris terakhir berdasarkan kolom E (Wilayah Asal)
    lastRow = wsSource.Cells(wsSource.Rows.Count, "E").End(xlUp).Row

    ' Cek apakah jumlah data valid
    If lastRow < 2 Then
        MsgBox "Tidak ada data untuk disampling.", vbExclamation
        Exit Sub
    End If

    ' Input ukuran sampel
    sampleSize = InputBox("Masukkan jumlah sampel yang diinginkan:")

    If sampleSize > (lastRow - 1) Then
        MsgBox "Jumlah sampel melebihi jumlah data!", vbExclamation
        Exit Sub
    End If

    ' Bersihkan sheet "Random"
    wsRandom.Range("B2:E10000").ClearContents

    ' Header
    headers = Array("Nomor Urut", "Nama Lengkap", "Usia", "Wilayah Asal")
    For i = 0 To UBound(headers)
        wsRandom.Cells(2, i + 2).Value = headers(i)
    Next i

    ' Sampling acak tanpa duplikasi
    Set usedIndexes = New Collection
    Randomize
    outputRow = 3

    For i = 1 To sampleSize
TryAgain:
        randIndex = Int((lastRow - 1) * Rnd + 2)
        On Error Resume Next
        usedIndexes.Add randIndex, CStr(randIndex)
        If Err.Number <> 0 Then
            Err.Clear
            GoTo TryAgain
        End If

        ' Salin data
        wsRandom.Cells(outputRow, 2).Value = wsSource.Cells(randIndex, "B").Value
        wsRandom.Cells(outputRow, 3).Value = wsSource.Cells(randIndex, "C").Value
        wsRandom.Cells(outputRow, 4).Value = wsSource.Cells(randIndex, "D").Value
        wsRandom.Cells(outputRow, 5).Value = wsSource.Cells(randIndex, "E").Value
        outputRow = outputRow + 1
    Next i

    MsgBox "Sampling acak selesai. Cek sheet 'Random' mulai dari B3.", vbInformation
End Sub

Berikut penampakan dari rumus simple random sampling ini di modul:

Langkah 3: Menjalankan VBA Macro di Excel

1. Siapkan Data: Buat data Anda di Excel dengan kolom seperti Nama, Usia, Wilayah.
2. Tambahkan Sheet Baru: Tambahkan sheet bernama “Random” untuk menampung hasil sampling.
3. Buka Editor VBA: Tekan Alt + F11, lalu pilih Insert > Module.
4. Paste Kode: Masukkan kode VBA di atas ke dalam jendela modul.
5. Jalankan Macro: Tekan F5 atau jalankan macro RandomSamplingToB3.
6. Masukkan Ukuran Sampel: Saat diminta, masukkan jumlah sampel yang ingin diambil.

Jika Anda memasukkan angka “15” saat diminta memasukkan jumlah sampel maka hasilnya adalah sebagai berikut:

Menghitung Ukuran Sampel dengan Rumus Simple Random Sampling

Sebelum menjalankan kode, Anda bisa menentukan ukuran sampel ideal dengan rumus:

Keterangan:

• n = ukuran sampel
• N = jumlah populasi
• e = tingkat kesalahan (misal 0,05 atau 5%)

Contoh: Jika populasi = 500 dan e = 0,05

Anda dapat menuliskan rumus simple random sampling tersebut di Excel sebagai:

=500/(1+500*(0,05^2))

Keunggulan Menggunakan VBA Macro

Melakukan rumus simple random sampling secara manual akan sangat melelahkan jika populasi besar. VBA memungkinkan Anda:

• Menghemat waktu
• Menghindari duplikasi data
• Meningkatkan akurasi proses sampling
• Otomatis menyimpan hasil ke sheet khusus

Sebagaimana dikatakan oleh Malik et al. dalam jurnal Computational Tools in Quantitative Research (2022): “Automated Excel macros streamline tedious sampling tasks, especially in repetitive data environments like surveys or population studies” (Malik et al. 2022).

Penutup

Menggunakan VBA Macro untuk menerapkan rumus simple random sampling di Excel adalah metode yang efisien dan akurat untuk pengambilan sampel dalam penelitian. Dengan langkah-langkah yang telah dijelaskan, Anda dapat dengan mudah mengotomatisasi proses ini dan memastikan bahwa sampel yang diambil representatif terhadap populasi.

Download Template Gratis

Bagi Anda yang ingin mencoba teknik ini secara langsung, kami telah menyiapkan template gratis yang dirancang khusus untuk membantu Anda mempraktikkan 3 Langkah Membuat Rumus Simple Random Sampling Otomatis untuk Survei ini. File Excel bisa didownload melalui tautan berikut:

Atau juga jika ingin mempelajari langkah demi langkah secara visual, bisa kunjungi Youtube Channel Depot Excel. Di sana teman-teman akan melihat bagaimana rumusnya bekerja. Semoga bermanfaat!

Referensi:

1. Ghojogh, Benyamin, et al. “Sampling Algorithms, from Survey Sampling to Monte Carlo Methods: Tutorial and Literature Review.” arXiv preprint arXiv:2011.00901, 2020.
2. Hatemi-J, Abdulnasser, and Alan Mustafa. “A Simulation Package in VBA to Support Finance Students for Constructing Optimal Portfolios.” arXiv preprint arXiv:2305.12826, 2023.
3. Setiawan, R., & Nugroho, D. “Evaluasi Teknik Sampling Acak dalam Penelitian Sosial Kuantitatif.” Journal of Quantitative Research, vol. 11, no. 1, 2023, pp. 15–27.
4. Malik, S., Taufik, R., & Hartono, B. “Computational Tools in Quantitative Research: Automation with Excel Macros.” Scientific Research Methods, vol. 5, no. 2, 2022, pp. 77–90.
5. Prasetyo, A. “Metode Statistika Terapan dengan Excel dan VBA.” Statistika & Komputasi Modern, Gramedia, 2024.