Cara Belajar Kutipan Baru Setiap Hari dengan Menambahkan Ciri “Petikan Hari” di Firman Anda

Dalam catatan hari ini, kami ingin menerangkan cara menambah ciri “Petikan Hari Ini” dalam Word anda untuk mempelajari petikan baharu setiap hari.

Ciri "Petikan Hari Ini" menunjukkan satu petikan berbeza setiap kali anda memulakan Word. Luangkan masa beberapa saat untuk membaca petikan kebijaksanaan sebelum anda membebankan diri dengan banyak kerja. Ini akan banyak memberi manfaat kepada anda.

Oleh itu, ikuti petunjuk kami untuk menambahkan ciri sedemikian di Word anda sekarang.

Masukkan Petikan dalam Fail Excel

1. Pertama sekali, buka Excel dan namakan semula lembaran baru sebagai "Petikan".
2. Input seterusnya "Nombor" di sel A1, "Petikan" di sel B1, dan "Kali" di sel C1.
3. Kemudian isi ruangan A dengan nombor siri.
4. Tambahkan satu petikan di setiap sel di lajur B.
5. Dan masukkan nombor "0" di lajur C.
6. Terakhir, namakan fail Excel sebagai "Quote of the Day". Dan simpan dalam folder. Dalam kes kami, setelah kami menyimpan fail, alamat penuhnya akan kelihatan seperti di bawah:

C:\Users\Public\Documents\Sample\Quote of the Day.xlsx

Oleh itu, anda harus mengingati milik anda.

Anda boleh klik di sini untuk memuat turun fail contoh.

Masukkan Modul dalam Projek VBA

1. Sebagai permulaan, cetuskan editor VBA di Word dengan menekan "Alt + F11".
2. Pada panel "Projek" di sebelah kiri, klik "Normal".
3. Kemudian klik tab "Masukkan" pada bar menu.
4. Dan pilih "Module" pada menu drop-down.
5. Klik dua kali seterusnya untuk membuka modul baru.
6. Sekarang tampal kod 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

7. Klik butang "Simpan".

Nota:

Dalam baris kod ini:

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

Ingatlah untuk mengganti alamat jalan dengan yang sebenarnya.

Masukkan Borang Pengguna

Seterusnya kami akan membuat borang pengguna untuk menunjukkan petikan.

1. Namun, dalam editor VBA, klik tab "Masukkan" sekali lagi.
2. Hanya kali ini, anda memilih "UserForm".
3. Maka anda akan mempunyai borang pengguna. Klik pada pemegang borang untuk mengubah saiznya.
4. Seterusnya tekan "F4" untuk membuka tetingkap "Properties". Ia akan muncul di sudut kiri bawah skrin.
5. Namakan borang sebagai "frmQuoteOfTheDay" dan tetapkan kapsyennya sebagai "Quote of the Day". Selain itu, tetapkan fon dan warna latar belakang dengan betul. Dan pilih "Salah" bagi "ShowModal".
6. Kemudian klik perintah “Toolbox” pada bar menu untuk mengeluarkan kotak tersebut.
7. Gunakan kawalan untuk membuat kotak teks, label, dan butang arahan. Susun mengikut urutan berikut:
8. Seterusnya anda harus menetapkan sifat untuk kawalan ini.

• Pertama, klik pada label. Tetapkan teks kapsyen sebagai "Quote of the Day". Terapkan ukuran fon yang betul dan tetapkan latar belakang menjadi telus
• Kedua, klik pada kotak teks. Namakannya sebagai "txtQuoteOfTheDay".
• Ketiga, klik pada butang arahan. Namakan sebagai "btnClose" dan tetapkan kapsyen sebagai "Tutup". Kemudian klik dua kali pada butang "Tutup" untuk membuka kawasan pengekodan. Masukkan kod berikut:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Akhirnya, simpan kod.

Setiap kali anda memulakan Word, anda akan melihat borang pengguna seperti di bawah:

Selesaikan Masalah Perkataan

Tidak dapat dielakkan untuk menghadapi isu ini atau itu dalam Word yang mungkin menyebabkan dokumen rosak. Perkara yang paling penting adalah untuk menangani setiap krisis dengan cepat dan betul. Walau bagaimanapun, ini memerlukan alat profesional untuk pulihkan docx.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Excel rosak dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com