Belajar Bersama

1. Diproduksi di Russia.
   Serial Masha And The Bear diproduksi oleh sebuah studio bernama Animaccord Studio.
   
2. Serial Masha and the Bear sudah mencapai 52 episode (masih Berlanjut).
   52 episode pada 19/09/2015, dan masih terus berlanjut (ongoing), tapi di televisi lokal Indonesia belum menayangkan sampai sebanyak itu.
   
   
3. Masha adalah gadis kecil yang memiliki sifat hiperaktif dan suka mencari perhatian.
   Keseharian Masha adalah melakukan hal-hal yang sering membuat gemas. Sifatnya yang ceroboh, dan hiperaktif membuat beruang jadi kewalahan menghadapinya namun dia tetap sabar.
   
4. Masha memiliki stamina yang tak terbatas.
   Jika anda memperhatikan ketika Masha sedang berlari, anda mungkin akan takjub karena dia dapat berlari dengan cepat dan tidak mudah lelah, meskipun dalam salah satu adegan Masha tampak kelelahan karena seharian bermain dengan panda, sepupu beruang.
   
5. Masha selalu memakai pembalut kepala yang mirip dengan kerudung, rambut poninya terurai berwarna pirang.
   
6. Serial Masha and the Bear berdurasi sekitar 7 menit setiap episodenya.
   Meskipun durasinya pendek, tapi ceritanya tetap menarik dan tidak cepat bosan untuk ditonton kembali.
   
   
7. Teman-teman Masha berinteraksi lewat pantomim dan tanpa kata-kata.
   Mirip dengan serial animasi Tom and Jerry yang tokoh utamanya berkomunikasi tanpa kata-kata, animasi Masha and the Bear juga berkomunikasi secara pantomim dan hanya suara desahan saja, kecuali Masha sendiri.
   
8. Salah satu episode Masha and the Bear yang berjudul "Recipe For Disaster" sudah ditonton lebih dari 800 juta tayangan di YouTube.
   Episode tersebut menjadi salah satu video paling sering ditonton di YouTube dan menempati posisi ke-20, mengalahkan video Wreckling Ball-nya Miley Cyrus.
   
9. Masha paling senang mengucapkan "Come Play With Me (ayo bermain denganku), yang justru membuat semua teman hewannya melarikan diri.
   
10. Fakta tentang Beruang (Misha).
    Dulunya, beruang adalah seekor beruang sirkus yang bertalenta dan memiliki banyak piala. Beruang suka sekali dengan kebersihan, selalu mengkilap benda yang kotor. Dia juga suka memancing, bermain musik, dan memiliki keahlian yang berhubungan dengan pertukangan.
    
11. Masha bukanlah satu-satunya manusia yang terdapat di serial itu, ada juga seorang sinter-klas dan juga sepupu Masha yang bernama Dasha.
    Tapi episode tersebut belum pernah tayang di televisi Indonesia.
    
12. Pengisi Suara Masha adalah Alina Kukushkina yang sekarang sudah remaja berusia 13 tahun. Tapi suaranya masih imut.
    
13. Masha sangat menyukai makanan manis seperti permen, cokelat, dan lolipop.
14. Dasar cerita animasi Marsha And The Bear diadopsi dari cerita rakyat Rusia (baca cerita rakyatnya)
    
15. Masha takut dengan guntur dan hantu.
    
16. Selain di Indonesia, animasi Masha and the Bear juga terkenal di Italia

1. Jalankan Microsoft Excel.
2. Simpan workbook dalam format ekstensi Excel Macro Enabled (*xlsm).
3. Langsung saja buka Alt + F11 untuk menampilkan code editor VBA, atau klik perintah View Code di Menu Developer.
4. Buat sebuah UserForm dengan ketentuan form dibawah ini. Ubah nama UserForm-nya menjadi frmLogin.
   
   • 2 buah label dan ganti kedua caption-nya menjadi Nama User dan Kata Sandi.
   • 2 buah textbox dan ganti nama-nya (name) menjadi txtUser dan txtPass.
   • 1 Command Button dengan nama cmdLogin dan caption Masuk.
5. Susunlah label, textbox dan juga button seperti gambar dibawah ini:
   

   Anda dapat mendesainnya sesua anda

6. Klik kanan pada UserForm, pilih View Code, hapus semua baris kode yang ada dan gantikan dengan kode berikut: Private Sub cmdLogin_Click()
Dim strUser, strPass As String
strUser = "admin"
strPass = "admin"
If txtUser.Value = "" Then
    MsgBox "Silahkan Masukkan Nama User", _
    vbExclamation + vbOKOnly, "Nama User tidak boleh kosong"
    txtUser.SetFocus
    Exit Sub
ElseIf txtPass.Value = "" Then
    MsgBox "Silahkan Masukkan Kata Sandi", _
    vbExclamation + vbOKOnly, "Kata Sandi tidak boleh kosong"
    txtPass.SetFocus
    Exit Sub
ElseIf txtUser.Value <> strUser Then
    MsgBox "Nama User '" & txtUser & "' tidak terdaftar", _
    vbCritical + vbOKOnly, "Terjadi kesalahan"
    txtUser.SetFocus
    Exit Sub
ElseIf txtPass.Value <> strPass Then
    MsgBox "Kata sandi Salah, Silahkan ulangi lagi", _
    vbCritical + vbOKOnly, "Terjadi kesalahan"
    txtPass.SetFocus
    Exit Sub
End If
MsgBox "Selamat Anda berhasil Login", _
    vbInformation + vbOKOnly, "Login berhasil!"
Me.Hide
Sheets(1).Range("A1").Activate
End Sub

Private Sub UserForm_Terminate()
Application.Quit
End Sub
7. Agar UserForm muncul ketika workbook dibuka, tambahkan script berikut ke dalam kode Workbook anda (This Workbook).
   Private Sub Workbook_Open()
Sheets(1).Range("A1048576").Select
frmLogin.Show
End Sub
8. Jalankan form tersebut dengan menekan tombol F5 atau gunakan tombol Run Macro pada toolbar, kemudian lihat hasilnya.

Penjelasan kode VBA diatas:

Tutorial Mudah Berbentuk Video