Membuat daftar pilihan bertingkat dan ToDo List merupakan hal yang sering dibutuhkan dalam penggunaan Microsoft Excel. Berikut adalah langkah-langkah dan tutorial untuk membuat daftar pilihan bertingkat dan ToDo List di Excel.
Cara Membuat Daftar Pilihan Bertingkat di Excel
Daftar pilihan bertingkat di Excel merupakan suatu cara untuk memberikan pilihan kepada pengguna dan untuk mengatur nilai-nilai yang dapat dimasukkan dalam suatu tabel atau database. Dalam tutorial ini kita akan menggunakan data contoh harga produk untuk membuat daftar pilihan bertingkat.
Berikut langkah-langkah untuk membuat daftar pilihan bertingkat di Excel:
- Buka Microsoft Excel dan buat lembar kerja baru.
- Buat tabel dengan judul Price List, dengan 4 kolom yaitu Category, Subcategory, Item, dan Price.
- Isi tabel dengan data contoh harga produk. (Lihat gambar diatas)
- Pada kolom Category, pilih cell pada baris pertama dan klik Data Validation pada menu Data pada bagian atas lembar kerja.
- Pada jendela Data Validation, pilih List pada Allow dan ketik =Category pada Source. Klik OK untuk menyelesaikan.
- Pada kolom Subcategory, pilih cell pada baris pertama dan klik Data Validation pada menu Data pada bagian atas lembar kerja.
- Pada jendela Data Validation, pilih List pada Allow dan ketik =INDIRECT(“‘”&Category&”‘!$A$2:$A$”&COUNTA(INDIRECT(“‘”&Category&”‘!$A:$A”))+1) pada Source. Klik OK untuk menyelesaikan.
- Pada kolom Item, pilih cell pada baris pertama dan klik Data Validation pada menu Data pada bagian atas lembar kerja.
- Pada jendela Data Validation, pilih List pada Allow dan ketik =INDIRECT(“‘”&Category&”‘!$B$”&MATCH(Subcategory,INDIRECT(“‘”&Category&”‘!$A:$A”),0)+1&”:$B$”&MATCH(Subcategory,INDIRECT(“‘”&Category&”‘!$A:$A”),0)+COUNTIF(INDIRECT(“‘”&Category&”‘!$B:$B”),Subcategory)) pada Source. Klik OK untuk menyelesaikan.
- Pada kolom Price, pilih cell pada baris pertama dan klik Data Validation pada menu Data pada bagian atas lembar kerja.
- Pada jendela Data Validation, pilih Decimal pada Allow dan ketik =INDEX(INDIRECT(“‘”&Category&”‘!$D$2:$D$”&COUNTA(INDIRECT(“‘”&Category&”‘!$D:$D”))+1),MATCH(Item,INDIRECT(“‘”&Category&”‘!$C:$C”),0)) pada Source. Klik OK untuk menyelesaikan.
Cara Membuat ToDo List di Excel + Progress Bar
ToDo List merupakan suatu daftar tugas yang harus dilakukan dalam suatu waktu tertentu. Dalam tutorial ini kita akan menggunakan salah satu aplikasi ToDo List di Microsoft Excel yang sudah dilengkapi dengan Progress Bar.
Berikut langkah-langkah untuk membuat ToDo List di Excel:
- Buka Microsoft Excel dan buat lembar kerja baru.
- Buat tabel dengan judul ToDo List, dengan 3 kolom yaitu Task Name, Task Description, dan Task Progress.
- Buat sebuah tombol dengan cara mengklik Developer pada menu dan pilih Insert pada bagian atas. Kemudian pilih Button pada Form Controls.
- Pada jendela Assign Macro, pilih New pada bagian bawah. Kemudian ketik Sub Button1_Click() untuk membuat sebuah subrutin untuk tombol tersebut. Klik OK untuk menyelesaikan.
- Salin kode VBA berikut dan tempelkan ke dalam Sub Button1_Click().
- Tambahkan sebuah tombol untuk menghapus tugas dengan mengikuti langkah-langkah yang sama seperti tombol sebelumnya. Kemudian salin kode VBA berikut dan tempelkan ke dalam Sub Button2_Click().
- Tambahkan sebuah tombol untuk menyelesaikan tugas dengan mengikuti langkah-langkah yang sama seperti tombol sebelumnya. Kemudian salin kode VBA berikut dan tempelkan ke dalam Sub Button3_Click().
- Tambahkan sebuah progress bar dengan cara mengikuti langkah-langkah ini: klik Insert pada menu dan pilih Shapes pada bagian atas. Kemudian pilih Rectangle pada Shape. Gambar sebuah persegi panjang pada lembar kerja.
- Pilih kotak persegi panjang tersebut dan klik kanan. Pilih Format Shape pada menu yang muncul.
- Pada jendela Format Shape, pilih Fill pada bagian kiri dan pilih No Fill.
- Pilih Line Color pada bagian kiri dan pilih No Line.
- Pilih Bar pada bagian kiri dan pilih Solid.
- Pilih Background pada bagian kiri dan pilih White.
- Pilih Percent pada bagian kiri dan pilih "=Sheet1!C2".
- Kemudian salin formula "=Sheet1!C2" ke seluruh kotak tersebut.
Private Sub Button1_Click() 'add new task Dim RowCount As Integer RowCount = Worksheets("Sheet1").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count Worksheets("Sheet1").Range("A" & RowCount + 1).Value = InputBox("Enter the task name:") Worksheets("Sheet1").Range("B" & RowCount + 1).Value = InputBox("Enter the task description:") Worksheets("Sheet1").Range("C" & RowCount + 1).Value = 0 End Sub
Private Sub Button2_Click() 'delete task Worksheets("Sheet1").Range(ActiveCell.Address).EntireRow.Delete End Sub
Private Sub Button3_Click() 'complete task Dim OriginalValue As Double Dim NewValue As Double OriginalValue = ActiveCell.Value If OriginalValue < 100 Then NewValue = InputBox("Enter the new progress value:") If NewValue > 100 Then NewValue = 100 If NewValue < OriginalValue Then NewValue = OriginalValue ActiveCell.Value = NewValue End If End Sub
FAQ
Apa fungsi dari daftar pilihan bertingkat di Excel?
Daftar pilihan bertingkat di Excel merupakan suatu cara untuk memberikan pilihan kepada pengguna dan untuk mengatur nilai-nilai yang dapat dimasukkan dalam suatu tabel atau database. Fungsi dari daftar pilihan bertingkat adalah untuk memudahkan pengguna dalam memasukkan data dengan memperlihatkan pilihan yang tersedia, serta mengurangi risiko kesalahan karena pengguna harus memilih dari pilihan yang tersedia.
Apa faedah dari membuat ToDo List di Excel?
Faedah dari membuat ToDo List di Excel adalah untuk membantu pengguna dalam mengatur tugas-tugas yang harus dilakukan dengan lebih efektif dan efisien. ToDo List dapat membantu pengguna dalam memprioritaskan tugas, mengingat deadline, serta memudahkan pengguna dalam melacak kemajuan tugas yang sedang dikerjakan. Membuat ToDo List juga dapat membantu pengguna dalam mengurangi stress karena tugas-tugas yang harus dilakukan terlihat lebih teratur dan terencana.