Kuidas õppida iga päev uut tsitaati, lisades oma sõnale funktsiooni „Päeva tsitaat”.

Sõnalahendused September 28, 2025

Tänases lkost, tahame selgitada, kuidas lisada Wordi funktsioon „Päeva tsitaat”, et õppida iga päev uusi tsitaate.

Funktsioon "Päeva tsitaat" näitab iga kord ühte erinevat tsitaatitart Sõna. Võtke vaid mõni sekund aega, et lugeda mõni tarkuse tsitaat, enne kui hakkate end tonnide kaupa tööle matma. See toob sulle palju kasu.Funktsiooni "Päeva tsitaat" lisamine oma sõnasse

Seetõttu järgige meie juhiseid selle funktsiooni lisamiseks oma Wordi kohe.

Lisage hinnapakkumised Exceli faili

  1. Kõigepealt avage Excel ja nimetage uus leht ümber nimega "Jutumärgid".
  2. Järgmisena sisestage lahtrisse A1 “Number”, lahtrisse B1 “Quotes” ja lahtrisse C1 “Ajad”.
  3. Seejärel täitke veerg A seerianumbritega.
  4. Lisage veeru B igasse lahtrisse üks tsitaat.
  5. Ja sisestage veergu C number "0".Looge Exceli leht -> Nimeta leht ümber
  6. Lõpuks nimetage Exceli fail "Päeva tsitaadiks". Ja salvestage see kausta. Meie puhul näeb pärast faili salvestamist selle täielik aadress välja selline:
C:\Users\Public\Documents\Sample\Quote of the Day.xlsx

Seetõttu peaksite oma oma meeles pidama.

Võite klõpsata siin näidisfaili allalaadimiseks.

Sisestage moodul VBA projekti

  1. Alustuseks käivitage Wordis VBA redaktor, vajutades "Alt + F11".
  2. Klõpsake vasakpoolsel paneelil "Projekt" nuppu "Tavaline".
  3. Seejärel klõpsake menüüribal vahekaarti "Sisesta".
  4. Ja valige rippmenüüst "Moodul".Klõpsake "Tavaline" -> Klõpsake "Lisa" -> klõpsake "Moodul"
  5. Järgmisena topeltklõpsake uue mooduli avamiseks.
  6. Nüüd kleepige sinna järgmised koodid:
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. Klõpsake nuppu "Salvesta".Kleebi koodid -> klõpsake "Salvesta"

märkused:

Sellel koodireal:

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

Ärge unustage asendada tee aadress tegeliku aadressiga.

Sisestage kasutajavorm

Järgmisena loome hinnapakkumise kuvamiseks kasutajavormi.

  1. Sellegipoolest klõpsake VBA redaktoris uuesti vahekaarti "Lisa".
  2. Ainult seekord valite "Kasutajavorm".
  3. Siis on teil kasutajavorm. Selle suuruse muutmiseks klõpsake vormi käepidemetel.
  4. Järgmisena vajutage "Atribuutide" akna avamiseks "F4". See kuvatakse ekraani vasakus allnurgas.
  5. Nimetage vorm kui "frmQuoteOfTheDay" ja määrake selle pealkirjaks "Päeva tsitaat". Lisaks määrake font ja taustavärv õigesti. Ja vali "Vale" jaoks "ShowModal".Andke vormile nimi -> määrake pealdis
  6. Seejärel klõpsake kasti välja toomiseks menüüribal käsku "Tööriistakast".
  7. Kasutage juhtnuppe tekstikasti, sildi ja käsunupu loomiseks. Järjesta need järgmises järjekorras:Klõpsake "Tööriistakast" -> Sisesta silt, tekstikast ja käsunupp
  8. Järgmisena peaksite määrama nende juhtelementide omadused.
  • Kõigepealt klõpsake sildil. Määrake pealdise tekstiks "Päeva tsitaat". Kasutage õiget fondi suurust ja määrake taust läbipaistvaks.
  • Teiseks klõpsake tekstikasti. Nimetage see kui "txtQuoteOfTheDay".
  • Kolmandaks klõpsake käsunuppu. Nimetage see "btnClose" ja määrake pealdis "Close". Seejärel topeltklõpsake kodeerimisala avamiseks nuppu "Sule". Sisestage järgmised koodid:
Private Sub btnClose_Click()
  Unload Me
End Sub
  1. Lõpuks salvestage koodid.

Iga kord, kui start Wordis näete allolevat kasutajavormi:Kasutajavorm, mis näitab hinnapakkumist

Parandage sõnaprobleemid

Paratamatult tuleb Wordis kokku puutuda selle või teise probleemiga, mis võib viia rikutud dokumendini. Most oluline on iga kriisiga kiiresti ja korralikult toime tulla. Selleks on aga vaja professionaalset tööriista docx taastamine.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas kahjustatud Excel ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.