Өдөр бүр "Өдрийн эшлэл" шинж чанарыг нэмж шинэ эшлэлийг хэрхэн сурах вэ?

Өнөөдрийн бичлэгт бид өдөр бүр шинэ ишлэл сурахын тулд Word дээр "Өдрийн ишлэл" функцийг хэрхэн нэмэх талаар тайлбарлахыг хүсч байна.

"Өдрийн ишлэл" функц нь Word програмыг эхлүүлэх бүрт нэг өөр ишлэлийг харуулдаг. Их ажилдаа дарагдахаасаа өмнө мэргэн ухааны ишлэлийг уншихад хэдхэн секунд зарцуулаарай. Энэ нь танд маш их ашиг тустай байх болно.

Тиймээс яг одоо Word дээрээ ийм функц нэмэхийн тулд бидний удирдамжийг дагаж мөрдөөрэй.

Excel файлд ишлэл оруулах

1. Юуны өмнө Excel програмыг нээж, шинэ хуудасны нэрийг "Ишлэл" гэж өөрчил.
2. Дараа нь A1 нүдэнд "Тоо", В1 нүдэнд "Ишлэл", C1 нүдэнд "Цаг"-ыг оруулна.
3. Дараа нь А баганыг серийн дугаараар бөглөнө үү.
4. В баганын нүд бүрт нэг ишлэл нэмнэ үү.
5. Мөн C баганад "0" тоог оруулна уу.
6. Эцэст нь Excel файлыг "Өдрийн ишлэл" гэж нэрлэнэ үү. Мөн хавтсанд хадгал. Манай тохиолдолд файлыг хадгалсны дараа түүний бүтэн хаяг дараах байдалтай байна.

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

Үүний дагуу та өөрийнхөө тухай санаж байх хэрэгтэй.

Та дарж болно энд жишээ файлыг татаж авах.

VBA төсөлд модуль оруулах

1. Эхлэхийн тулд "Alt + F11" товчийг дарж Word дээр VBA засварлагчийг ажиллуулна уу.
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 засварлагч дээр "Insert" табыг дахин дарна уу.
2. Зөвхөн энэ удаад та "UserForm"-ийг сонгоно уу.
3. Дараа нь та хэрэглэгчийн маягттай болно. Хэмжээг нь өөрчлөхийн тулд маягтын бариул дээр дарна уу.
4. Дараа нь "F4" товчийг дарж "Properties" цонхыг нээнэ үү. Энэ нь дэлгэцийн зүүн доод буланд гарч ирнэ.
5. Маягтыг "frmQuoteOfTheDay" гэж нэрлээд түүний тайлбарыг "Өдрийн ишлэл" гэж тохируулна уу. Үүнээс гадна фонт болон дэвсгэрийн өнгийг зөв тохируулна уу. Тэгээд сонгох “Худал” нь "ShowModal".
6. Дараа нь цэсийн талбар дээрх "Хэрэгслийн хайрцаг" командыг дарж хайрцгийг гаргаж ирнэ.
7. Текст хайрцаг, шошго, тушаалын товчлуур үүсгэхийн тулд удирдлагыг ашиглана уу. Тэдгээрийг дараах дарааллаар байрлуул.
8. Дараа нь та эдгээр хяналтын шинж чанаруудыг тохируулах хэрэгтэй.

• Эхлээд шошгон дээр дарна уу. Тайлбарын текстийг "Өдрийн ишлэл" гэж тохируулна уу. Зохих үсгийн хэмжээг хэрэглэж, дэвсгэрийг тунгалаг болгож тохируулна уу.
• Хоёрдугаарт, текст талбар дээр дарна уу. Үүнийг "txtQuoteOfTheDay" гэж нэрлэ.
• Гуравдугаарт, командын товчлуур дээр дарна уу. Үүнийг "btnClose" гэж нэрлээд тайлбарыг "Close" гэж тохируул. Дараа нь "Хаах" товчийг давхар товшоод кодчиллын хэсгийг нээнэ үү. Дараах кодуудыг оруулна уу:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. Эцэст нь кодыг хадгал.

Та Word-г эхлүүлэх бүртээ доорх шиг хэрэглэгчийн маягтыг харах болно:

Үгийн асуудлуудыг засах

Word дээр баримт бичиг эвдэрч болзошгүй энэ эсвэл тэр асуудалтай тулгарах нь гарцаагүй. Хамгийн чухал зүйл бол хямрал бүрийг хурдан бөгөөд зөв зохицуулах явдал юм. Гэсэн хэдий ч үүнд мэргэжлийн хэрэгсэл шаардлагатай болно. сэргээх docx.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. эвдэрсэн Excel болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com