วิธีเรียนรู้คำพูดใหม่ทุกวันโดยการเพิ่มคุณสมบัติ "ใบเสนอราคาประจำวัน" ใน Word ของคุณ

ในบทความวันนี้ เราจะมาอธิบายวิธีการเพิ่มฟีเจอร์ “คำคมประจำวัน” ในโปรแกรม Word เพื่อให้คุณได้เรียนรู้คำคมใหม่ๆ ทุกวัน

ฟีเจอร์ “คำคมประจำวัน” จะแสดงคำคมที่แตกต่างกันหนึ่งคำคมทุกครั้งที่คุณเริ่มใช้งาน Word ใช้เวลาเพียงไม่กี่วินาทีในการอ่านคำคมดีๆ ก่อนที่คุณจะจมอยู่กับงานมากมาย วิธีนี้จะช่วยคุณได้มาก

ดังนั้นทำตามลูกค้าเป้าหมายของเราเพื่อเพิ่มคุณลักษณะดังกล่าวใน Word ของคุณตอนนี้

ใส่คำพูดในไฟล์ Excel

1. ก่อนอื่นให้เปิด Excel และเปลี่ยนชื่อแผ่นงานใหม่เป็น "Quotes"
2. ถัดไปป้อน“ Number” ในเซลล์ A1“ เครื่องหมายคำพูด” ในเซลล์ B1 และ“ ครั้ง” ในเซลล์ C1
3. จากนั้นกรอกคอลัมน์ A ด้วยหมายเลขซีเรียล
4. เพิ่มหนึ่งใบเสนอราคาในแต่ละเซลล์ในคอลัมน์ B
5. และใส่หมายเลข“ 0” ในคอลัมน์ C
6. สุดท้ายตั้งชื่อไฟล์ Excel ว่า“ Quote of the Day” และบันทึกไว้ในโฟลเดอร์ ในกรณีของเราหลังจากที่เราบันทึกไฟล์แล้วที่อยู่เต็มจะมีลักษณะดังนี้:

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

ดังนั้นคุณควรจำของคุณ

คุณสามารถคลิก Good Farm Animal Welfare Awards เพื่อดาวน์โหลดไฟล์ตัวอย่าง

แทรกโมดูลในโครงการ 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” เพื่อเปิดหน้าต่าง“ Properties” จะปรากฏที่มุมซ้ายลงของหน้าจอ
5. ตั้งชื่อแบบฟอร์มเป็น“ frmQuoteOfTheDay” และตั้งคำบรรยายภาพเป็น“ Quote of the Day” นอกจากนี้ตั้งค่าแบบอักษรและสีพื้นหลังให้เหมาะสม และเลือก “ เท็จ” สำหรับ “ ShowModal”
6. จากนั้นคลิกคำสั่ง“ กล่องเครื่องมือ” บนแถบเมนูเพื่อเปิดกล่อง
7. ใช้ตัวควบคุมเพื่อสร้างกล่องข้อความป้ายชื่อและปุ่มคำสั่ง จัดเรียงตามลำดับต่อไปนี้:
8. ถัดไปคุณควรตั้งค่าคุณสมบัติสำหรับการควบคุมเหล่านี้

• ขั้นแรกให้คลิกที่ป้ายกำกับ ตั้งค่าข้อความคำอธิบายภาพเป็น“ ใบเสนอราคาประจำวัน” ใช้ขนาดตัวอักษรที่เหมาะสมและตั้งค่าพื้นหลังเป็นแบบโปร่งใส
• ประการที่สองคลิกที่กล่องข้อความ ตั้งชื่อเป็น "txtQuoteOfTheDay"
• ประการที่สามคลิกที่ปุ่มคำสั่ง ตั้งชื่อเป็น "btnClose" และตั้งคำบรรยายเป็น "ปิด" จากนั้นดับเบิลคลิกที่ปุ่ม“ ปิด” เพื่อเปิดพื้นที่การเข้ารหัส ป้อนรหัสต่อไปนี้:

Private Sub btnClose_Click()
  Unload Me
End Sub

9. สุดท้ายบันทึกรหัส

ทุกครั้งที่คุณเปิดโปรแกรม Word คุณจะเห็นแบบฟอร์มผู้ใช้ดังภาพด้านล่าง:

แก้ไขปัญหา Word

เป็นเรื่องที่หลีกเลี่ยงไม่ได้ที่จะพบเจอปัญหาต่างๆ ใน ​​Word ซึ่งอาจนำไปสู่เอกสารเสียหาย สิ่งสำคัญที่สุดคือการจัดการกับปัญหาแต่ละครั้งอย่างรวดเร็วและถูกต้อง อย่างไรก็ตาม การทำเช่นนั้นจำเป็นต้องใช้เครื่องมือระดับมืออาชีพ กู้คืน docx.

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ Excel เสียหาย และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.