4 Langkah Membuat Rumus Stratified Sampling Otomatis untuk Sample Survei

oleh | 7 Jun 2025 | Statistika, VBA Macro | 0 Komentar

Rumus Stratified Sampling Otomatis – Dalam dunia survei dan penelitian, teknik stratified sampling atau pengambilan sampel berstrata sangat penting untuk memastikan representasi yang proporsional dari setiap kelompok dalam populasi. Terutama ketika populasi dibagi berdasarkan kategori seperti wilayah, usia, jenis kelamin, atau dalam contoh kita — alamat tinggal. Artikel ini akan membimbing Anda secara lengkap tentang cara membuat Rumus Stratified Sampling Otomatis menggunakan Microsoft Excel dan VBA.

Apa Itu Stratified Sampling?

Menurut Sugiyono (2022), stratified sampling adalah teknik pengambilan sampel di mana populasi dibagi terlebih dahulu ke dalam strata-strata tertentu, lalu diambil sampel secara acak dari setiap strata. Hal ini penting agar setiap kelompok dalam populasi memiliki keterwakilan yang seimbang dalam survei.

Dalam Excel, kita dapat mengotomatisasi proses ini dengan Rumus Stratified Sampling Otomatis berbasis makro (VBA) untuk efisiensi dan akurasi.

Studi Kasus: Survei Berdasarkan Alamat

Lihat contoh tabel “Data” pada lembar kerja Excel, di mana data peserta survei dicantumkan dengan kolom seperti No. Urut, Nama Lengkap, Usia, dan Alamat. Di sampingnya, terdapat tabel “Jumlah Sampel” yang menunjukkan berapa banyak sampel yang harus diambil dari setiap blok (alamat).

Misalnya:

  • Blok Minggu: 6 responden
  • Blok Senin: 3 responden
  • Blok Rabu: 6 responden, dan seterusnya

Tujuan kita adalah mengambil jumlah sampel sesuai ketentuan dari masing-masing blok secara acak dengan Rumus Stratified Sampling Otomatis.

Langkah-Langkah Praktis

1. Siapkan Data Anda

Buat dua tabel di Excel:

  • Tabel utama berisi data populasi (nama, usia, alamat)
  • Tabel pendukung berisi stratum dan jumlah sampel yang diinginkan
Baca Juga  Cara Membuat Buku Besar Otomatis di Excel Berdasarkan Data dari Jurnal Umum

Pastikan data berada di sheet bernama Data seperti contoh berikut:

data populasi untuk Rumus Stratified Sampling Otomatis

Dan untuk menampung hasilnya (output) buat di sheet berbeda dan beri nama “Stratified” dengan format isi sebagai berikut:

2. Gunakan Rumus Stratified Sampling Otomatis dengan VBA

Buka Editor VBA (tekan Alt + F11) – insert >> modul, kemudian masukkan kode Rumus Stratified Sampling Otomatis berikut:

Sub StratifiedSamplingByAlamat()

    Dim wsData As Worksheet
    Dim wsOutput As Worksheet
    Dim lastRow As Long
    Dim dict As Object
    Dim i As Long
    Dim alamat As Variant

    Set wsData = ThisWorkbook.Sheets("Data")
    Set wsOutput = ThisWorkbook.Sheets("Stratified")

    Set dict = CreateObject("Scripting.Dictionary")
    lastRow = wsData.Cells(wsData.Rows.Count, "B").End(xlUp).Row

    For i = 2 To lastRow
        alamat = Trim(wsData.Cells(i, "E").Value)
        If alamat <> "" Then
            If Not dict.exists(alamat) Then
                dict.Add alamat, New Collection
            End If
            dict(alamat).Add i
        End If
    Next i

    Dim outputRow As Long: outputRow = 3
    Dim col As Collection
    Dim usedIndexes As Object
    Dim randIndex As Long
    Dim sampleSize As Long
    Randomize

    wsOutput.Range("B3:E" & wsOutput.Rows.Count).ClearContents

    For Each alamat In dict.Keys
        Set col = dict(alamat)
        sampleSize = GetSampleSizeFromRange(alamat, wsData.Range("G3:H8"))

        If sampleSize > 0 Then
            Set usedIndexes = CreateObject("Scripting.Dictionary")

            For i = 1 To Application.Min(sampleSize, col.Count)
tryAgain:
                randIndex = Int(Rnd() * col.Count) + 1
                If Not usedIndexes.exists(randIndex) Then
                    usedIndexes.Add randIndex, True
                    Dim rowNum As Long
                    rowNum = col(randIndex)

                    wsOutput.Cells(outputRow, "B").Value = wsData.Cells(rowNum, "B").Value
                    wsOutput.Cells(outputRow, "C").Value = wsData.Cells(rowNum, "C").Value
                    wsOutput.Cells(outputRow, "D").Value = wsData.Cells(rowNum, "D").Value
                    wsOutput.Cells(outputRow, "E").Value = wsData.Cells(rowNum, "E").Value
                    outputRow = outputRow + 1
                Else
                    GoTo tryAgain
                End If
            Next i
        End If
    Next alamat

    MsgBox "Stratified sampling berdasarkan alamat selesai!", vbInformation

End Sub

Function GetSampleSizeFromRange(ByVal alamat As String, ByVal rng As Range) As Long
    Dim i As Long
    For i = 1 To rng.Rows.Count
        If Trim(rng.Cells(i, 1).Value) = alamat Then
            GetSampleSizeFromRange = rng.Cells(i, 2).Value
            Exit Function
        End If
    Next i
    GetSampleSizeFromRange = 0
End Function

Berikut penampakannya dalam modul:

Rumus Stratified Sampling Otomatis

3. Jalankan Makro

Setelah menyalin Rumus Stratified Sampling Otomatis tersebut ke editor VBA, kembali ke Excel, tekan Alt + F8, pilih StratifiedSamplingByAlamat, lalu klik Run.

Baca Juga  Cara Menggabung Kata di Banyak Kolom di Excel Menggunakan VBA Macro

Data hasil sampling akan otomatis muncul di sheet Stratified, sesuai proporsi yang ditentukan pada tabel jumlah sampel. Berikut hasilnya:

hasil dari Rumus Stratified Sampling Otomatis

4. Analisis Hasil

Setelah menjalankan Rumus Stratified Sampling Otomatis, Anda akan mendapatkan daftar responden terpilih secara acak namun tetap terdistribusi secara proporsional berdasarkan stratum alamat. Ini merupakan teknik yang sangat berguna dalam survei sosial, pemasaran, maupun akademik.

Cara Menghitung Jumlah Sampel Proporsional per Alamat (Strata)

Sebelum kita membuat Rumus Stratified Sampling Otomatis, kita harus menghitung jumlah total populasi dan jumlah total sampel yang ingin diambil. Lalu, kita hitung proporsi setiap strata dan kalikan dengan total sampel.

Rumus Proporsional Stratified Sampling

Misalnya kita ingin mengambil 30 sampel dari total populasi 100 orang yang tersebar di berbagai alamat (untuk jumlah sampel yang valid dengan rumus bisa baca di SINI). Maka rumus untuk tiap alamat (strata):

=ROUND((Jumlah Populasi Strata / Total Populasi) * Total Sampel; 0)

Contoh Praktis di Excel:

Misalkan Anda memiliki tabel jumlah populasi per alamat seperti berikut:

Dan total populasi = 100 orang. total sampel = 30 orang.

Untuk menghitung jumlah sampel dari masing-masing alamat:

=ROUND(K3 / 100 * 30; 0)

Uraian untuk K3:

  • K3 berisi jumlah populasi pada “Blok Minggu”
  • 100 adalah total populasi
  • 30 adalah jumlah total sampel yang diinginkan
menghitung proporsi populasi

Lakukan ini untuk semua baris alamat, maka Anda akan dapat jumlah sampel per alamat yang proporsional.

Jika Total Populasi Berubah Dinamis

Agar lebih otomatis, ganti nilai 100 dengan SUM($B$2:$B$6) dan total sampel (30) dengan sel yang menyimpannya, misal sel D1:

=ROUND(K3 / SUM($K$3:$K$8) * 30; 0)

Letakkan rumus tersebut di kolom Jumlah Sampel, dan drag ke bawah.

Integrasi ke Dalam Sistem Sampling Otomatis

Anda bisa menambahkan kolom ini di samping data alamat pada sheet Excel, lalu referensikan kolom ini di makro VBA untuk Jumlah Sampel, seperti pada kode sebelumnya:

sampleSize = GetSampleSizeFromRange(alamat, wsData.Range("G3:H8"))

Bagian H8 bisa Anda ganti sesuai panjang data alamat dan kolom jumlah sampel otomatis.

Baca Juga  2 Contoh Rumus Excel untuk Skoring Kuesioner Penilaian Perilaku Secara Otomatis

Pentingnya Stratifikasi dalam Survei

Dalam jurnal penelitian terbitan Journal of Statistical Planning and Inference (2023), Lee dan Brown menyatakan bahwa “Stratified random sampling not only improves precision but also helps reduce variance when compared to simple random sampling, especially in heterogeneous populations.” (Lee & Brown, 2023).

Demikian pula, dalam buku Modern Survey Sampling oleh Kim dan Zhao (2022), disebutkan bahwa pengambilan sampel berlapis sangat penting untuk memastikan bahwa analisis inferensial dapat merefleksikan kondisi nyata populasi dengan lebih akurat (Kim & Zhao 45).

Kelebihan Rumus Stratified Sampling Otomatis

Berikut manfaat penggunaan rumus ini:

  1. Efisiensi Waktu – Menghindari penghitungan manual untuk setiap strata.
  2. Keakuratan – Menghindari bias pemilihan sampel.
  3. Replikasi Mudah – Dapat digunakan berulang dengan data berbeda.
  4. Transparan dan Terbuka – Proses dapat ditelusuri ulang.

Penutup

Pembuatan Rumus Stratified Sampling Otomatis dalam Excel membantu para peneliti dan praktisi untuk menyeleksi sampel dengan cepat dan akurat. Dengan teknik ini, Anda tidak hanya menghemat waktu, tetapi juga meningkatkan kualitas data yang dikumpulkan.

Dengan menambahkan perhitungan jumlah sampel otomatis berdasarkan total populasi dan proporsi strata, proses stratified sampling jadi semakin akurat dan dinamis. Anda tak perlu lagi menghitung manual tiap kali data berubah.

Sebagai peneliti, penting bagi Anda untuk memahami bahwa sampel yang baik bukan hanya acak, tetapi juga representatif. Gunakanlah pendekatan ini untuk berbagai jenis survei di masa mendatang.

Download Template Gratis

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

download file Excel

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!

Daftar Pustaka

  • Kim, Sunghee, dan Xia Zhao. Modern Survey Sampling. Springer, 2022.
  • Lee, Charles, dan Trevor Brown. “Improving Survey Estimations with Stratified Random Sampling Techniques.” Journal of Statistical Planning and Inference, vol. 195, 2023, pp. 87–101.
  • Sugiyono. Metode Penelitian Kuantitatif, Kualitatif, dan R\&D. Alfabeta, 2022.

0 Komentar

Kirim Komentar

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

Join Our Newsletter