Sözünüzə “Günün Sitatı” funksiyasını əlavə etməklə hər gün yeni sitatı necə öyrənmək olar

Bugünkü yazıda hər gün yeni sitat öyrənmək üçün Word-də "Günün Sitatası" funksiyasını necə əlavə etməyin yolunu izah etmək istəyirik.

"Günün Sitatası" funksiyası hər dəfə Word proqramını işə saldığınız zaman bir fərqli sitat göstərir. Çoxlu işə başlamazdan əvvəl bir neçə saniyə ayırıb müdriklik sitatını oxuyun. Bu, sizə çox fayda verəcək.

Buna görə də, indi Word-ünüzə belə bir xüsusiyyət əlavə etmək üçün rəhbərlərimizi izləyin.

Sitatları Excel faylına qoyun

1. Əvvəlcə Excel-i açın və yeni vərəqin adını “Sitatlar” olaraq dəyişdirin.
2. Sonra A1 xanasına “Nömrə”, B1 xanasına “Sitatlar” və C1 xanasına “Vaxt” daxil edin.
3. Sonra A sütununu seriya nömrələri ilə doldurun.
4. B sütununun hər xanasına bir sitat əlavə edin.
5. Və C sütununa “0” nömrəsini daxil edin.
6. Nəhayət, Excel faylını “Günün Sitatı” adlandırın. Və onu bir qovluqda saxlayın. Bizim vəziyyətimizdə, faylı saxladıqdan sonra onun tam ünvanı aşağıdakı kimi görünəcəkdir:

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

Müvafiq olaraq, özünüzü xatırlamalısınız.

Kliklə bilərsiniz burada nümunə faylı yükləmək üçün.

VBA Layihəsinə Modul daxil edin

1. Başlamaq üçün “Alt+ F11” düymələrini basaraq Word-də VBA redaktorunu işə salın.
2. Soldakı "Layihə" panelində "Normal" düyməsini basın.
3. Sonra menyu çubuğunda "Daxil et" sekmesini vurun.
4. Və açılan menyuda "Modul" seçin.
5. Sonra yeni modulu açmaq üçün iki dəfə klikləyin.
6. İndi aşağıdakı kodları ora yapışdırın:

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. "Saxla" düyməsini basın.

Qeyd:

Bu kod xəttində:

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

Yol ünvanını faktiki ilə əvəz etməyi unutmayın.

İstifadəçi Formasını daxil edin

Sonra sitatı göstərmək üçün istifadəçi forması yaradacağıq.

1. Yenə də VBA redaktorunda yenidən “Daxil et” sekmesini klikləyin.
2. Yalnız bu dəfə “UserForm” seçirsiniz.
3. Sonra istifadəçi formasına sahib olacaqsınız. Formanın ölçüsünü dəyişmək üçün forma tutacaqlarına klikləyin.
4. Sonra "Xüsusiyyətlər" pəncərəsini açmaq üçün "F4" düyməsini basın. Ekranın sol aşağı küncündə görünəcək.
5. Formanı “frmQuoteOfTheDay” adlandırın və başlığını “Günün Sitatı” olaraq təyin edin. Bundan əlavə, şrift və fon rəngini düzgün təyin edin. Və seçin "Yalan" üçün "ShowModal".
6. Sonra qutunu çıxarmaq üçün menyu çubuğunda "Alətlər qutusu" əmrini vurun.
7. Mətn qutusu, etiket və əmr düyməsi yaratmaq üçün idarəetmə elementlərindən istifadə edin. Onları aşağıdakı ardıcıllıqla düzün:
8. Sonra bu nəzarətlər üçün xassələri təyin etməlisiniz.

• Əvvəlcə etiketə klikləyin. Başlıq mətnini “Günün Sitatı” olaraq təyin edin. Düzgün şrift ölçüsünü tətbiq edin və fonu şəffaf olaraq təyin edin.
• İkincisi, mətn qutusuna klikləyin. Onu “txtQuoteOfTheDay” adlandırın.
• Üçüncüsü, əmr düyməsini basın. Onu “btnClose” adlandırın və başlığı “Bağlamaq” olaraq təyin edin. Sonra kodlaşdırma sahəsini açmaq üçün “Bağla” düyməsini iki dəfə klikləyin. Aşağıdakı kodları daxil edin:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Nəhayət, kodları yadda saxlayın.

Word-i hər dəfə işə saldığınız zaman aşağıdakı kimi bir istifadəçi forması görəcəksiniz:

Söz problemlərini həll edin

Word-də sənədin pozulmasına səbəb ola biləcək bu və ya digər problemlə qarşılaşmaq qaçılmazdır. Ən əsası hər bir böhranı tez və düzgün şəkildə həll etməkdir. Lakin bunun üçün peşəkar bir vasitə tələb olunacaq. docx bərpa edin.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc zədələnmiş Excel və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com