단어에 "오늘의 견적"기능을 추가하여 매일 새로운 견적을 배우는 방법

워드 솔루션 2025 년 9 월 28 일
지금 공유 :

오늘의 post, 매일 새로운 인용문을 배우기 위해 Word에 "오늘의 인용문" 기능을 추가하는 방법을 설명하고자 합니다.

"오늘의 인용구" 기능은 당신이 할 때마다 하나의 다른 인용구를 보여줍니다.tarㄴ 단어. 수많은 일에 몰두하기 전에 잠시 시간을 내어 지혜의 인용문을 읽어보세요. 이것은 당신에게 많은 도움이 될 것입니다.단어에 "오늘의 명언" 기능 추가하기

따라서 우리의 리드를 따라 지금 귀하의 말씀에 그러한 기능을 추가하십시오.

Excel 파일에 따옴표 넣기

  1. 먼저 Excel을 열고 새 시트의 이름을 "Quotes"로 바꿉니다.
  2. 다음으로 A1 셀에 "Number", B1 셀에 "Quotes", C1 셀에 "Times"를 입력합니다.
  3. 그런 다음 A 열을 일련 번호로 채웁니다.
  4. 열 B의 각 셀에 하나의 따옴표를 추가합니다.
  5. 그리고 C 열에 숫자 "0"을 입력합니다.Excel 시트 만들기->시트 이름 바꾸기
  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
  1. “저장”버튼을 클릭합니다.코드 붙여 넣기-> "저장"클릭

주의 사항:

이 코드 라인에서:

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

경로 주소를 실제 주소로 바꾸는 것을 잊지 마십시오.

사용자 양식 삽입

다음으로 견적을 표시할 사용자 양식을 만듭니다.

  1. 그래도 VBA 편집기에서 "삽입" 탭을 다시 클릭하십시오.
  2. 이번에는 "UserForm"을 선택합니다.
  3. 그러면 사용자 양식이 생깁니다. 양식 핸들을 클릭하여 크기를 조정하십시오.
  4. 그런 다음 "F4"를 눌러 "속성" 창을 엽니다. 화면의 왼쪽 아래 모서리에 나타납니다.
  5. 양식 이름을 "frmQuoteOfTheDay"로 지정하고 캡션을 "오늘의 인용문"으로 설정합니다. 게다가 글꼴과 배경색을 적절하게 설정하십시오. 그리고 선택 "그릇된" 위한 "쇼모달".양식 이름 지정->캡션 설정
  6. 그런 다음 메뉴 표시줄에서 "도구 상자" 명령을 클릭하여 상자를 불러옵니다.
  7. 컨트롤을 사용하여 텍스트 상자, 레이블 및 명령 단추를 만듭니다. 다음 순서로 정렬하십시오."도구 상자"->레이블, 텍스트 상자 및 명령 단추 삽입을 클릭합니다.
  8. 다음으로 이러한 컨트롤에 대한 속성을 설정해야 합니다.
  • 먼저 라벨을 클릭합니다. 캡션 텍스트를 "오늘의 명언"으로 설정합니다. 적절한 글꼴 크기를 적용하고 배경을 투명하게 설정합니다.
  • 둘째, 텍스트 상자를 클릭합니다. 이름을 "txtQuoteOfTheDay"로 지정합니다.
  • 셋째, 명령 버튼을 클릭합니다. 이름을 "btnClose"로 지정하고 캡션을 "Close"로 설정합니다. 그런 다음 "닫기" 버튼을 두 번 클릭하여 코딩 영역을 엽니다. 다음 코드를 입력하십시오.
Private Sub btnClose_Click()
  Unload Me
End Sub
  1. 마지막으로 코드를 저장하십시오.

당신이 때마다tart Word에서 아래와 같은 사용자 양식을 볼 수 있습니다.인용문을 보여주는 사용자 양식

단어 문제 해결

필연적으로 문서가 손상될 수 있는 Word에서 이러한 문제 또는 해당 문제가 발생합니다. 그들을ost 중요한 것은 각 위기를 신속하고 적절하게 처리하는 것입니다. 그러나 이를 위해서는 전문적인 도구가 필요합니다. docx 복구.

저자 소개 :

Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 손상된 Excel pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM

지금 공유 :

댓글이 닫혀있다.