Ինչպե՞ս սովորել ամեն օր նոր մեջբերում ՝ ձեր բառում ավելացնելով «Օրվա մեջբերում» հատկությունը

Այսօրվա գրառման մեջ մենք ուզում ենք բացատրել, թե ինչպես կարելի է Word-ում ավելացնել «Օրվա մեջբերում» գործառույթը՝ ամեն օր նոր մեջբերումներ սովորելու համար։

«Օրվա մեջբերում» գործառույթը Word-ը գործարկելիս ամեն անգամ ցույց է տալիս մեկ տարբեր մեջբերում։ Պարզապես մի քանի վայրկյան հատկացրեք իմաստուն մեջբերում կարդալուն, նախքան ձեզ ծանրաբեռնելը։ Սա ձեզ շատ օգուտ կբերի։

Հետևաբար, հետևեք մեր ցուցումներին՝ հիմա ձեր Word-ում նման հատկություն ավելացնելու համար:

Տեղադրեք մեջբերումներ Excel ֆայլում

1. Նախ, բացեք Excel-ը և նոր թերթը վերանվանեք որպես «Մեջբերումներ»:
2. Հաջորդը մուտքագրեք «Թիվ»՝ A1 բջիջում, «Մեջբերումներ»՝ B1 բջիջում և «Ժամանակներ»՝ C1 բջիջում:
3. Այնուհետև A սյունակը լրացրեք հերթական համարներով:
4. B սյունակի յուրաքանչյուր բջիջում ավելացրեք մեկ մեջբերում:
5. Եվ C սյունակում մուտքագրեք «0»:
6. Վերջապես, Excel ֆայլը անվանեք «Օրվա մեջբերում»: Եվ պահեք այն թղթապանակում: Մեր դեպքում, ֆայլը պահպանելուց հետո, նրա ամբողջական հասցեն կունենա հետևյալ տեսքը.

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

Համապատասխանաբար, դուք պետք է հիշեք ձերը:

Դուք կարող եք սեղմել այստեղ նմուշ ֆայլ ներբեռնելու համար:

Տեղադրեք մոդուլ VBA նախագծում

1. Սկսելու համար, Word-ում գործարկեք VBA խմբագրիչը՝ սեղմելով «Alt+ F11»:
2. Ձախ կողմում գտնվող «Նախագիծ» վահանակում կտտացրեք «Նորմալ»:
3. Դրանից հետո կտտացրեք «Տեղադրել» ներդիրին ցանկի տողի վրա:
4. Բացվող ընտրացանկում ընտրեք «Մոդուլ»:
5. Հաջորդ կրկնակի սեղմեք՝ նոր մոդուլը բացելու համար:
6. Այժմ այնտեղ տեղադրեք հետևյալ կոդերը.

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. Սեղմեք «Պահպանել» կոճակը:

Նշում:

Այս կոդի տողում.

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

Հիշեք, որ ուղու հասցեն փոխարինեք իրական հասցեով:

Տեղադրեք օգտվողի ձև

Հաջորդը մենք կստեղծենք օգտվողի ձև՝ մեջբերումը ցույց տալու համար:

1. Այնուամենայնիվ, VBA խմբագրիչում կրկին սեղմեք «Տեղադրել» ներդիրը:
2. Միայն այս անգամ եք ընտրում «UserForm»:
3. Այնուհետև դուք կունենաք օգտվողի ձև: Սեղմեք ձևի բռնակների վրա՝ այն չափափոխելու համար:
4. Հաջորդը սեղմեք «F4»՝ «Հատկություններ» պատուհանը բացելու համար: Այն կհայտնվի էկրանի ձախ ներքև անկյունում:
5. Անվանեք ձևը որպես «frmQuoteOfTheDay» և դրեք դրա վերնագիրը որպես «Օրվա մեջբերում»: Բացի այդ, ճիշտ սահմանեք տառատեսակը և ֆոնի գույնը: Եվ ընտրիր «Կեղծ» համար «ShowModal»:
6. Այնուհետև սեղմեք «Գործիքների տուփ» հրամանը մենյուի տողում, որպեսզի դուրս բերեք տուփը:
7. Օգտագործեք կառավարները՝ տեքստային տուփ, պիտակ և հրամանի կոճակ ստեղծելու համար: Դասավորեք դրանք հետևյալ հաջորդականությամբ.
8. Այնուհետև դուք պետք է սահմանեք հատկություններ այս հսկիչների համար:

• Նախ, սեղմեք պիտակի վրա: Վերնագրի տեքստը սահմանեք որպես «Օրվա մեջբերում»: Կիրառեք համապատասխան տառաչափը և սահմանեք ֆոնը որպես թափանցիկ:
• Երկրորդ, սեղմեք տեքստային տուփի վրա: Անվանեք այն որպես «txtQuoteOfTheDay»:
• Երրորդ, սեղմեք հրամանի կոճակը: Անվանեք այն որպես «btnClose» և դրեք վերնագիրը որպես «Փակել»: Այնուհետև կրկնակի սեղմեք «Փակել» կոճակը՝ կոդավորման տարածքը բացելու համար: Մուտքագրեք հետևյալ կոդերը.

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Ի վերջո, պահպանեք կոդերը:

Ամեն անգամ, երբ դուք գործարկում եք Word-ը, կտեսնեք օգտագործողի ձև, ինչպիսին է ստորև.

Ուղղել բառերի խնդիրները

Word-ում անխուսափելիորեն կարելի է հանդիպել այս կամ այն ​​խնդրի, որը կարող է հանգեցնել փաստաթղթի վնասման: Ամենակարևորը յուրաքանչյուր ճգնաժամը արագ և ճիշտ կարգավորելն է: Սակայն դա կպահանջի պրոֆեսիոնալ գործիք՝ վերականգնել docx.

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վնասված Excel- ը և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com