Cara Mengetahui Shio dan Elemen Seseorang dari Tanggal Lahir dengan Excel

Mengetahui karakter seseorang sering kali dikaitkan dengan astrologi, termasuk zodiak Tionghoa atau yang lebih dikenal sebagai shio. Dalam kepercayaan Tionghoa, setiap orang lahir di bawah naungan satu dari 12 shio dan salah satu dari lima elemen: Kayu, Api, Tanah, Logam, dan Air. Kombinasi keduanya dianggap mencerminkan kepribadian, kecocokan hubungan, hingga nasib seseorang.

Menariknya, kita bisa mengetahui shio dan elemen seseorang secara otomatis hanya dengan menggunakan Microsoft Excel. Dengan sedikit bantuan kode VBA, Excel dapat menjadi alat prediktif yang praktis dan efisien. Artikel ini akan membahas langkah-langkahnya secara detail, termasuk contoh skrip, cara menyimpannya, dan aplikasinya dalam tabel seperti yang terlihat pada gambar.

Apa Itu Shio dan Elemen?

Jika kita di artikel sebelumnya membahas tentang cara mengetahui zodiak seseorang dari tanggal lahirnya, maka sekarang kita akan membahas cara mengetahui shio dan elemen seseorang dari tanggal lahirnya. Tapi sebelum membahas teknisnya, mari kita pahami sedikit konsep dasarnya:

• Shio terdiri dari 12 hewan yang berputar setiap tahun: Tikus, Kerbau, Macan, Kelinci, Naga, Ular, Kuda, Kambing, Monyet, Ayam, Anjing, dan Babi.
• Elemen terdiri dari lima jenis yang berulang dua kali dalam satu siklus 10 tahunan: Kayu, Api, Tanah, Logam, dan Air.

Jadi, setiap orang memiliki kombinasi unik berdasarkan tahun lahirnya, misalnya: Ular Logam atau Naga Kayu.

Cara Mengetahui Shio dan Elemen Seseorang di Excel

Misalnya kita memiliki tabel seperti berikut dan kita ingin mengetahui shio dan elemennya:

Untuk mengetahui shio dan elemen seseorang dari tanggal lahir di Excel pada contoh tabel di atas, kita perlu membuat fungsi khusus dengan menggunakan fitur VBA (Visual Basic for Applications). Di bawah ini adalah contoh skrip UDF (User Defined Function) yang bisa digunakan:

Function ShioElemen(InputLahir As Variant) As String
    Dim Tahun As Integer
    Dim shioArr As Variant
    Dim elemenArr As Variant

    ' Cek apakah input adalah tanggal atau tahun
    If IsDate(InputLahir) Then
        Tahun = Year(InputLahir)
    ElseIf IsNumeric(InputLahir) Then
        Tahun = InputLahir
    Else
        ShioElemen = "Input tidak valid"
        Exit Function
    End If

    ' Array Shio dan Elemen
    shioArr = Array("Tikus", "Kerbau", "Macan", "Kelinci", "Naga", "Ular", _
                    "Kuda", "Kambing", "Monyet", "Ayam", "Anjing", "Babi")
    elemenArr = Array("Kayu", "Kayu", "Api", "Api", "Tanah", "Tanah", _
                      "Logam", "Logam", "Air", "Air")

    Dim shioIndex As Integer
    Dim elemenIndex As Integer

    shioIndex = (Tahun - 4) Mod 12
    If shioIndex < 0 Then shioIndex = shioIndex + 12

    elemenIndex = (Tahun - 4) Mod 10
    If elemenIndex < 0 Then elemenIndex = elemenIndex + 10

    ShioElemen = shioArr(shioIndex) & " " & elemenArr(elemenIndex)
End Function

Penjelasan Singkat Script UDF

Skrip di atas bekerja dengan cara:

• Mengambil tahun dari input tanggal lahir.
• Menentukan urutan shio dengan rumus (tahun - 4) Mod 12.
• Menentukan urutan elemen dengan rumus (tahun - 4) Mod 10.
• Menggabungkan hasilnya menjadi satu string, misalnya: "Macan Kayu".

Jika input tidak valid, maka fungsi akan mengembalikan teks “Input tidak valid”.

Cara Menyimpan dan Menggunakan Script di Excel

Untuk mengaktifkan fungsi ini di Excel, ikuti langkah-langkah berikut:

1. Tekan ALT + F11 untuk membuka Visual Basic Editor.
2. Klik kanan pada VBAProject (NamaFile.xlsx), pilih Insert > Module.
3. Salin dan tempel skrip di atas ke dalam modul yang terbuka.
4. Tutup jendela editor.
5. Di Excel, gunakan rumus seperti ini di sel:

   =ShioElemen(D3)

(Misalnya D3 berisi tanggal lahir).

Excel kini akan secara otomatis mengetahui shio dan elemen seseorang berdasarkan tanggal lahir yang dimasukkan. Berikut hasilnya:

Kesimpulan

Mengetahui shio dan elemen seseorang kini tak perlu lagi dilakukan secara manual. Dengan memanfaatkan Excel dan skrip VBA, kita bisa memperoleh informasi ini secara otomatis, akurat, dan cepat. Metode ini sangat berguna untuk guru, praktisi HR, astrolog, hingga peminat metafisika yang ingin membuat analisis berdasarkan tanggal lahir.

Dengan memahami dan memanfaatkan UDF seperti ShioElemen, kita bukan hanya menghemat waktu, tapi juga dapat memvisualisasikan data dengan lebih rapi dan terstruktur.

Download Template Gratis

Bagi Anda yang ingin mencoba teknik ini secara langsung, kami telah menyiapkan template gratis yang dirancang khusus untuk membantu Anda mempraktikkan Cara Mengetahui Shio dan Elemen Seseorang dari Tanggal Lahir dengan Excel 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!