EXCEL 텍스트 서식을 제어하는 ​​방법을 구현하는 VB 코드

EXCEL에 텍스트를 입력할 때 VB 코드를 사용하여 텍스트 형식을 제어하는 ​​방법

VB로 EXCEL에 액세스하려면 먼저 프로젝트에서 Microsoft Excel 형식 라이브러리를 참조해야 합니다.

"프로젝트" 메뉴에서 "참조" 열을 선택하고 Microsoft Excel 11.0 개체 라이브러리(EXCEL2003)를 선택한 다음 "확인"을 선택합니다. 프로젝트에서 EXCEL 형식 라이브러리를 참조해야 함을 나타냅니다.

그런 다음 글꼴에 액세스하고 설정하는 코드는 다음과 같습니다.

Dim xlApp을 Excel.Application으로

Dim xlBook을 Excel.WorkBook으로

Dim xlSheet를 Excel.Worksheet로

Dim 파일 이름, 시트 이름을 문자열로

FileName = "d:data.xls" '엑셀 통합문서 경로 및 이름

SheetName = "sheet1" '설정해야 할 워크시트 이름

Set xlApp = CreateObject("Excel.Application") 'EXCEL 객체 생성

Set xlBook = xlApp.Workbooks.Open(FileName) '기존 EXCEL 워크북 파일 열기

xlApp.Visible = True 'EXCEL 객체가 보이도록(또는 보이지 않게) 설정

Set xlSheet = xlBook.Worksheets(SheetName) '활성 워크시트 설정

With xlSheet.Range(＂C13:D19＂).Font '설정된 영역을 선택하세요.

.Name = "official script" '이러한 특정 할당은 필요에 따라 설정할 수 있습니다.

.FontStyle = "굵게"

.크기 = 16

.취소선 = False

.위첨자 = 거짓

.아래첨자 = False

.OutlineFont = False

.Shadow = 거짓

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

끝

xlBook.Close (True) '워크북 닫기

xlApp.Quit 'EXCEL 개체 종료

Set xlApp = 없음 'xlApp 개체 릴리스

VB 문제는 텍스트 상자를 10자로 제한하고 두 글자마다 자동으로 입력됩니다.

비공개 서브 text1_onchange()

if len(text1.text)>14 '10자 + 별표 4개 then text1.text=left(text1.text,14)

netstring=replace(text1.text,"*","") '추가된 별표 제거

while len(netstring)>2 then

display=display & "*" & 왼쪽(netstring,2)

netstring = mid(netstring,3)

웬드

display = 디스플레이 & "*" & 왼쪽(netstring,2)

text1.text=디스플레이

끝 서브

위 내용은 EXCEL 텍스트 서식을 제어하는 ​​방법을 구현하는 VB 코드의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!