როგორ ვისწავლოთ ახალი ციტატა ყოველდღე თქვენს სიტყვაში „დღის ციტატის“ ფუნქციის დამატებით

დღევანდელ პოსტში გვსურს ავხსნათ, თუ როგორ დაამატოთ „დღის ციტატის“ ფუნქცია თქვენს Word-ში, რათა ყოველდღიურად ისწავლოთ ახალი ციტატები.

ფუნქცია „დღის ციტატა“ Word-ის ყოველ ჯერზე განსხვავებულ ციტატას აჩვენებს. სანამ უამრავ საქმეს გააკეთებთ, უბრალოდ დაუთმეთ წამები სიბრძნის ციტატის წაკითხვას. ეს ძალიან გამოგადგებათ.

ამიტომ, მიჰყევით ჩვენს მითითებებს, რომ დაამატოთ ასეთი ფუნქცია თქვენს Word-ში ახლა.

განათავსეთ ციტატები Excel ფაილში

1. უპირველეს ყოვლისა, გახსენით Excel და დაარქვით ახალ ფურცელს "ციტატები".
2. შემდეგი შეიყვანეთ „Number“ უჯრედში A1, „Quotes“ უჯრედში B1 და „Times“ უჯრედში C1.
3. შემდეგ შეავსეთ A სვეტი სერიული ნომრებით.
4. B სვეტის თითოეულ უჯრედში დაამატეთ ერთი ციტატა.
5. და შეიყვანეთ ნომერი "0" სვეტში C.
6. და ბოლოს, დაასახელეთ Excel ფაილი, როგორც "დღის ციტატა". და შეინახეთ საქაღალდეში. ჩვენს შემთხვევაში, ფაილის შენახვის შემდეგ, მისი სრული მისამართი ასე გამოიყურება:

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

შესაბამისად, თქვენ უნდა გახსოვდეთ თქვენი.

შეგიძლიათ დააწკაპუნოთ აქ დაწკაპუნებით ფაილის ნიმუშის ჩამოსატვირთად.

მოდულის ჩასმა VBA პროექტში

1. დასაწყისისთვის, ჩართეთ VBA რედაქტორი Word-ში "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. შემდეგ დააწკაპუნეთ "Toolbox" ბრძანებაზე მენიუს ზოლზე, რათა გამოვიდეს ყუთი.
7. გამოიყენეთ კონტროლი ტექსტური ყუთის, ლეიბლისა და ბრძანების ღილაკის შესაქმნელად. დაალაგეთ ისინი შემდეგი თანმიმდევრობით:
8. შემდეგ თქვენ უნდა დააყენოთ თვისებები ამ კონტროლისთვის.

• პირველ რიგში, დააწკაპუნეთ ეტიკეტზე. დააყენეთ წარწერის ტექსტი, როგორც „დღის ციტატა“. გამოიყენეთ შრიფტის შესაბამისი ზომა და დააყენეთ ფონი გამჭვირვალედ.
• მეორე, დააჭირეთ ტექსტურ ყუთს. დაარქვით მას "txtQuoteOfTheDay".
• მესამე, დააჭირეთ ბრძანების ღილაკს. დაარქვით მას "btnClose" და დააყენეთ წარწერა როგორც "Close". შემდეგ ორჯერ დააჭირეთ ღილაკს "დახურვა" კოდირების ზონის გასახსნელად. შეიყვანეთ შემდეგი კოდები:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. და ბოლოს, შეინახეთ კოდები.

ყოველ ჯერზე, როდესაც Word-ს გაუშვებთ, დაინახავთ მომხმარებლის ფორმას, როგორიცაა ქვემოთ:

სიტყვასთან დაკავშირებული პრობლემების მოგვარება

Word-ში გარდაუვალია ამა თუ იმ პრობლემის წინაშე დგომა, რამაც შეიძლება დოკუმენტის დაზიანება გამოიწვიოს. ყველაზე მნიშვნელოვანია თითოეული კრიზისის სწრაფად და სწორად მოგვარება. თუმცა, ამისთვის პროფესიონალური ინსტრუმენტი იქნება საჭირო. აღადგინე docx.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული Excel მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად