Bagaimana Mempelajari Kutipan Baru Setiap Hari dengan Menambahkan Fitur "Kutipan Hari Ini" di Word Anda

Solusi Kata September 28, 2025
Bagikan sekarang:

Pada postingan hari ini, kami ingin menjelaskan cara menambahkan fitur "Kutipan Hari Ini" di Word Anda untuk mempelajari kutipan baru setiap hari.

Fitur “Kutipan Hari Ini” menampilkan satu kutipan berbeda setiap kali Anda memulai Word. Luangkan beberapa detik untuk membaca kutipan bijak sebelum Anda tenggelam dalam tumpukan pekerjaan. Ini akan sangat bermanfaat bagi Anda.Menambahkan Fitur "Kutipan Hari Ini" di Word Anda

Oleh karena itu, ikuti petunjuk kami untuk menambahkan fitur seperti itu di Word Anda sekarang.

Masukkan Kutipan dalam File Excel

  1. Pertama-tama, buka Excel dan ganti nama lembar baru menjadi "Kutipan".
  2. Selanjutnya masukan “Number” di sel A1, “Quotes” di sel B1, dan “Times” di sel C1.
  3. Kemudian isi kolom A dengan nomor urut.
  4. Tambahkan satu kutipan di setiap sel di kolom B.
  5. Dan masukan angka “0” pada kolom C.Buat Lembar Excel-> Ubah Nama Lembar
  6. Terakhir, beri nama file Excel sebagai "Kutipan Hari Ini". Dan simpan di folder. Dalam kasus kami, setelah kami menyimpan file, alamat lengkapnya akan terlihat seperti di bawah ini:
C:\Users\Public\Documents\Sample\Quote of the Day.xlsx

Karenanya, Anda harus mengingat milik Anda.

Anda bisa klik di sini untuk mendownload file contoh.

Masukkan Modul di Proyek VBA

  1. Untuk memulai, picu editor VBA di Word dengan menekan "Alt + F11".
  2. Pada panel "Proyek" di sebelah kiri, klik "Normal".
  3. Kemudian klik tab "Sisipkan" pada bilah menu.
  4. Dan pilih "Modul" pada menu drop-down.Klik "Normal" -> Klik "Sisipkan" -> Klik "Modul"
  5. Selanjutnya klik dua kali untuk membuka modul baru.
  6. Sekarang tempel kode berikut di sana:
Sub AutoExec()
  Dim objExcel As Excel.Application
  Dim objWorkbook As Excel.Workbook
  Dim objWorksheet As Excel.Worksheet
  Dim nRowIndex As Integer
  Dim nMinValue As Integer
  Dim nMinRowIndex As Integer
 
  Set objExcel = CreateObject("Excel.Application")
  Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Public\Documents\Sample\Quote of the Day.xlsx")
  Set objWorksheet = objWorkbook.Sheets("Quotes")
 
  ' Initialization
  nMinValue = 0
  nMinRowIndex = -1
 
  For nRowIndex = 2 To objWorksheet.UsedRange.Rows.Count
    If (nMinRowIndex = -1) Then
      nMinValue = objWorksheet.Cells(nRowIndex, 3).Value
      nMinRowIndex = nRowIndex
    Else
      If (objWorksheet.Cells(nRowIndex, 3).Value < nMinValue) Then
        nMinValue = objWorksheet.Cells(nRowIndex, 3).Value
        nMinRowIndex = nRowIndex
      End If
    End If
  Next nRowIndex
 
  frmQuoteOfTheDay.txtQuoteOfTheDay.text = objWorksheet.Cells(nMinRowIndex, 2).Value
  frmQuoteOfTheDay.Show Modal
 
  objWorksheet.Cells(nMinRowIndex, 3).Value = objWorksheet.Cells(nMinRowIndex, 3).Value + 1
 
  objWorkbook.Close SaveChanges:=True
  ' Close Excel using Quit method on the Application object.
  objExcel.Application.Quit
  '  Release the object variable.
  Set objExcel = Nothing
End Sub
  1. Klik tombol "Simpan".Tempel Kode-> Klik "Simpan"

Note:

Di baris kode ini:

Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Public\Documents\Sample\Quote of the Day.xlsx")

Ingatlah untuk mengganti alamat jalur dengan yang sebenarnya.

Sisipkan Formulir Pengguna

Selanjutnya kita akan membuat formulir pengguna untuk menunjukkan kutipan.

  1. Namun, di editor VBA, klik tab "Sisipkan" lagi.
  2. Hanya kali ini, Anda memilih "UserForm".
  3. Kemudian Anda akan memiliki formulir pengguna. Klik pada pegangan formulir untuk mengubah ukurannya.
  4. Selanjutnya tekan "F4" untuk membuka jendela "Properties". Ini akan muncul di pojok kiri bawah layar.
  5. Beri nama formulir sebagai "frmQuoteOfTheDay" dan tetapkan judulnya sebagai "Kutipan Hari Ini". Selain itu, atur font dan warna background dengan benar. Dan pilih "Salah" untuk "ShowModal".Beri nama Formulir-> Setel Caption
  6. Kemudian klik perintah "Kotak Alat" pada bilah menu untuk menampilkan kotak tersebut.
  7. Gunakan kontrol untuk membuat kotak teks, label, dan tombol perintah. Atur mereka dalam urutan berikut:Klik "Kotak Alat" -> Sisipkan Label, Kotak Teks, dan Tombol Perintah
  8. Selanjutnya Anda harus mengatur properti untuk kontrol ini.
  • Pertama, klik label. Tetapkan teks keterangan sebagai "Kutipan Hari Ini". Terapkan ukuran font yang tepat dan atur latar belakang transparan.
  • Kedua, klik kotak teks. Beri nama sebagai "txtQuoteOfTheDay".
  • Ketiga, klik tombol perintah. Beri nama sebagai "btnClose" dan setel teks sebagai "Tutup". Kemudian klik dua kali pada tombol "Tutup" untuk membuka area pengkodean. Masukkan kode berikut:
Private Sub btnClose_Click()
  Unload Me
End Sub
  1. Terakhir, simpan kode.

Setiap kali Anda memulai Word, Anda akan melihat formulir pengguna seperti di bawah ini:Formulir Pengguna yang Menunjukkan Penawaran

Perbaiki Masalah Kata

Tak pelak lagi kita akan menemui berbagai masalah di Word yang dapat menyebabkan dokumen rusak. Yang terpenting adalah menangani setiap krisis dengan cepat dan tepat. Namun, hal ini membutuhkan alat profesional. memulihkan docx.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Excel rusak ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com

Bagikan sekarang:

Komentar ditutup.