하위 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
끝 서브
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 중국어 웹사이트의 기타 관련 기사를 참조하세요!