Kaip išmokti naują citatą kiekvieną dieną, savo žodyje pridedant funkciją „Dienos citata“.

Šiandienos įraše norime paaiškinti, kaip į „Word“ programą įtraukti funkciją „Dienos citata“, kad kiekvieną dieną sužinotumėte naują citatą.

Funkcija „Dienos citata“ kiekvieną kartą paleidus „Word“ rodo vieną skirtingą citatą. Tiesiog skirkite kelias sekundes išminties citatai perskaityti, prieš pasinerdami į daugybę darbų. Tai jums labai padės.

Todėl vadovaukitės mūsų nurodymais, kad įtrauktumėte tokią funkciją į savo „Word“ dabar.

Įdėkite citatas į „Excel“ failą

1. Pirmiausia atidarykite „Excel“ ir pervardykite naują lapą į „Citatos“.
2. Toliau įveskite „Skaičius“ langelyje A1, „Cutos“ langelyje B1 ir „Laikai“ langelyje C1.
3. Tada užpildykite A stulpelį serijos numeriais.
4. Kiekviename B stulpelio langelyje pridėkite po vieną citatą.
5. Ir C stulpelyje įveskite skaičių „0“.
6. Galiausiai pavadinkite „Excel“ failą „Dienos citata“. Ir išsaugokite jį aplanke. Mūsų atveju, kai išsaugojome failą, visas jo adresas atrodys taip:

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

Atitinkamai, turėtumėte atsiminti savo.

Galite spustelėti čia norėdami atsisiųsti pavyzdinį failą.

Įdėkite modulį į VBA projektą

1. Norėdami pradėti, suaktyvinkite VBA redaktorių „Word“ paspausdami „Alt + F11“.
2. Kairėje esančiame skydelyje „Projektas“ spustelėkite „Įprastas“.
3. Tada meniu juostoje spustelėkite skirtuką „Įterpti“.
4. Ir išskleidžiamajame meniu pasirinkite „Modulis“.
5. Tada dukart spustelėkite, kad atidarytumėte naują modulį.
6. Dabar įklijuokite šiuos kodus:

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. Spustelėkite mygtuką „Išsaugoti“.

pastabos:

Šioje kodo eilutėje:

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

Nepamirškite pakeisti kelio adreso tikruoju.

Įdėkite vartotojo formą

Tada sukursime vartotojo formą, kad parodytume citatą.

1. Vis dėlto VBA redaktoriuje dar kartą spustelėkite skirtuką „Įterpti“.
2. Tik šį kartą pasirenkate „Vartotojo forma“.
3. Tada turėsite vartotojo formą. Spustelėkite formos rankenas, kad pakeistumėte jos dydį.
4. Tada paspauskite „F4“, kad atidarytumėte langą „Ypatybės“. Jis bus rodomas kairiajame apatiniame ekrano kampe.
5. Pavadinkite formą „frmQuoteOfTheDay“ ir nustatykite jos antraštę kaip „Dienos citata“. Be to, tinkamai nustatykite šriftą ir fono spalvą. Ir pasirinkti „Netikras“ prie „ShowModal“.
6. Tada meniu juostoje spustelėkite komandą „Toolbox“, kad ištrauktumėte langelį.
7. Naudodami valdiklius sukurkite teksto laukelį, etiketę ir komandos mygtuką. Išdėstykite juos tokia tvarka:
8. Tada turėtumėte nustatyti šių valdiklių ypatybes.

• Pirmiausia spustelėkite etiketę. Antraštės tekstą nustatykite kaip „Dienos citata“. Taikykite tinkamą šrifto dydį ir nustatykite foną kaip skaidrų.
• Antra, spustelėkite teksto laukelį. Pavadinkite jį kaip „txtQuoteOfTheDay“.
• Trečia, spustelėkite komandų mygtuką. Pavadinkite jį kaip „btnClose“ ir nustatykite antraštę kaip „Uždaryti“. Tada dukart spustelėkite mygtuką „Uždaryti“, kad atidarytumėte kodavimo sritį. Įveskite šiuos kodus:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Galiausiai išsaugokite kodus.

Kiekvieną kartą paleidus „Word“, pamatysite vartotojo formą, tokią kaip žemiau:

Išspręskite „Word“ problemas

Neišvengiamai susiduriama su viena ar kita „Word“ problema, dėl kurios gali būti sugadintas dokumentas. Svarbiausia – greitai ir tinkamai spręsti kiekvieną krizę. Tačiau tam reikės profesionalios priemonės. atkurti docx.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant sugadintas Excel bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com