VBA는 키워드 J를 적용하여 여러 CAD 텍스트의 색상을 일괄 수정합니다.

vba를 사용하여 여러 CAD 텍스트 색상을 일괄 수정하고 각 CAD 텍스트에 대한 키워드를 검색합니다. J hh4232

하위 txtGSssssssssssss()

'오류 발생 시 다음 재개

Dim sSet As AcadSelectionSet, eV As AcadText, i

Dim tj1()은 정수로, tj2()는 Variant로

ReDim tj1(0), tj2(0): tj1(0) = 0: tj2(0) = "텍스트"

Set sSet = This Drawing.SelectionSets.Add("pl1")

sSet.Select acSelectionSetPrevious, , , tj1, tj2 '선택됨

'sSet.Select acSelectionSetAll, , , tj1, tj2 '모두 선택

각 eV In sSet에 대해 '선택 세트의 루프

InStr(eV.TextString, "J") > 0이면 eV.color = acRed

다음

sSet.Update

sSet.Delete

끝 서브

VBA 프로그래밍의 색상 변환

1 먼저 VBA 타이머 컨트롤을 온라인으로 다운로드하고 ".ocx" 파일을 C 드라이브-windows-system32 폴더에 넣은 다음 start-run-"regsvr32 VBAtimer.ocx"-OK(참고: 여기서는 다운로드한 OCX 파일의 이름은 "VBAtimer.ocx"입니다.

2. 그런 다음 Excel을 열고 필요에 따라 양식을 만든 다음 도구 모음에서 "추가 컨트롤"을 마우스 오른쪽 버튼으로 클릭하고 방금 설치한 VBAtimer 컨트롤을 찾아 양식의 아무 곳에나 타이머 컨트롤을 그립니다.

3. 그런 다음 새로 생성된 양식인 "코드 보기"를 마우스 오른쪽 버튼으로 클릭하고 다음 코드를 입력하세요.

비공개 하위 CommandButton1_Click()

UserForm1.Label1.Font.Bold = True

UserForm1.Label1.Font.Italic = True

Timer1.Interval = 500

Timer1.Enabled = True

끝 서브

보조 타이머1_timer()

a만큼 길게, b만큼 길게, c만큼 길게

무작위화

a = 정수(256 * Rnd)

b = 정수(256 * Rnd)

c = 정수(256 * Rnd )

UserForm1.Label1.ForeColor = RGB(a, b, c)

끝 서브

비공개 하위 CommandButton2_Click()

UserForm1.Label1.Font.Bold = False

UserForm1.Label1.Font.Italic = False

Timer1.Enabled = False

끝 서브

4. 마지막으로 프로젝트 관리 창에서 Thisworkbook을 더블클릭하고 팝업 코드 상자에 다음 코드를 입력하세요.

비공개 서브 통합문서_열기()

UserForm1.Show

끝 서브

5. 첨부: 2, 3, 4단계를 수행하는 방법을 모르면 첫 번째 단계를 수행하고 이메일을 남겨주세요.

위 내용은 VBA는 키워드 J를 적용하여 여러 CAD 텍스트의 색상을 일괄 수정합니다.의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!