Cara Membuat Aplikasi Surat Keterangan Dengan Excel

Cara Membuat Aplikasi Surat Menyurat Dengan Excel – Kreatifitas Terkini

Apa itu Aplikasi Surat Menyurat?

Aplikasi Surat Menyurat adalah sebuah aplikasi yang digunakan untuk mempermudah pembuatan dan pengecekan surat yang harus dikirim atau diterima dalam perusahaan atau organisasi. Dalam aplikasi tersebut, pengguna bisa membuat template surat, mengisi data penerima dan pengirim, serta melihat histori surat yang sudah terkirim atau sudah diterima.

Cara Membuat Aplikasi Surat Keterangan Dengan Excel

Bagaimana Cara Membuat Aplikasi Surat Menyurat Dengan Excel?

Berikut adalah langkah-langkah untuk membuat aplikasi surat menyurat dengan Excel:

  1. Buka Microsoft Excel dan buat lembar kerja baru
  2. Buat tabel seperti di bawah ini:
ID Surat Jenis Surat Tanggal Surat Pengirim Penerima Perihal Isi Surat
1 Surat Keputusan 01/01/2022 Budi Agus Penunjukan Kepala Cabang Baru Lorem ipsum dolor sit amet, consectetur adipiscing elit.

3. Pada lembar kerja yang baru, buat form seperti di bawah ini:
















4. Setelah itu, buatlah tombol untuk menghubungkan form dan tabel yang sudah dibuat. Klik tombol Developer pada menu utama Excel, kemudian pilih Insert dan pilih Button.

tombol submit aplikasi surat menyurat

5. Lihatlah pada Properties, setelah tombol dicopy dan ditempel pada lembar kerja. Pada bagian Caption, ubah nama tombol menjadi “Kirim Surat”.

6. Klik tombol kanan pada tombol Kirim Surat, kemudian pilih View Code.

Baca Juga :  CARA MEMBUAT CHECK BOX PADA EXCEL 2010

7. Copy dan paste kode bahasa pemrograman Visual Basic berikut ini:

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.id.Value
ws.Cells(iRow, 2).Value = Me.jenis.Value
ws.Cells(iRow, 3).Value = Me.tanggal.Value
ws.Cells(iRow, 4).Value = Me.pengirim.Value
ws.Cells(iRow, 5).Value = Me.penerima.Value
ws.Cells(iRow, 6).Value = Me.perihal.Value
ws.Cells(iRow, 7).Value = Me.isi.Value
'clear the data
Me.id.Value = ""
Me.jenis.Value = ""
Me.tanggal.Value = ""
Me.pengirim.Value = ""
Me.penerima.Value = ""
Me.perihal.Value = ""
Me.isi.Value = ""
End Sub

8. Kembali ke formulir. Saat ini, saat mengklik tombol Kirim, data yang dimasukkan akan disimpan di tabel yang telah dibuat.

9. Terakhir, customlayout template surat agar mudah dalam menulis surat antara satu dengan lainnya.

Video Tutorial Membuat Aplikasi Surat Menyurat Dengan Excel

Berikut adalah video tutorial yang dapat membantu anda dalam membuat aplikasi surat menyurat dengan Excel:

Frequently Asked Questions (FAQ)

1. Apakah aplikasi surat menyurat dapat digunakan di perusahaan atau organisasi yang lebih besar?

Ya, aplikasi surat menyurat dapat digunakan di perusahaan atau organisasi yang lebih besar. Dalam perusahaan besar, aplikasi surat menyurat akan sangat membantu dalam mengorganisir surat masuk dan surat keluar yang bersifat resmi.

2. Apa manfaat dari membuat aplikasi surat menyurat dengan Excel?

Manfaat dari membuat aplikasi surat menyurat dengan Excel adalah:

  • Mempermudah pengguna dalam membuat dan mengecek surat
  • Mengurangi waktu pengguna dalam menyusun surat
  • Memperlancar alur surat dalam perusahaan atau organisasi

Jadi, dengan aplikasi surat menyurat yang dibuat, pengguna tidak perlu lagi membuat surat dari awal setiap kali diperlukan, karena aplikasi tersebut sudah melakukan sebagian besar pekerjaan.