[땡큐엑셀vba & 엑셀매크로] 특정단어 색 바꾸는방법
엑셀vba예제2020. 7. 1. 00:00
'특정 단어만 색을 바꾸는법 없을까요?
'제가 모두 바꾸기로 특정 단어 색을 바꿔봤는데?그렇게 하면 셀 안에 있는 모든 단어의 색이 바뀌어 안되더군요.
'작성자:땡큐엑셀vba & 엑셀매크로
'
Sub 컬러입히기()
Set 검색범위 = Selection
찾을값 = Cells(1, "G")
'범위의 모든 셀을 순환하면서 값을 찾아서 색을 입힌다.
For Each R In 검색범위
'inStr함수로 찾을값 검색. 검색이 되면 시작위치를 반환합니다.
pos = InStr(1, R, 찾을값)
If pos > 0 Then
k = k + 1
'찾은 글자에 색을 입힌다.
With R.Characters(Start:=pos, Length:=Len(찾을값)).Font
.Color = -16776961 '빨간색
End With
End If
Next
MsgBox k & "건 완료 하였습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
End Sub
'엑셀vba예제' 카테고리의 다른 글
| [땡큐엑셀vba & 엑셀매크로] 해당 조건에 따른 창고분류 (if,instr) (0) | 2020.07.06 |
|---|---|
| [땡큐엑셀vba & 엑셀매크로] 알파벳에 해당되는 시간표를 만들고 싶은데요 (0) | 2020.07.05 |
| [땡큐엑셀vba & 엑셀매크로] 엑셀 매크로 실행시 빈셀에 대해서는 실행하지 않도록 하는 방법 문의드립니다. (0) | 2020.07.04 |
| [땡큐엑셀vba & 엑셀매크로] Q열에서 NG나 LIMIT이 포함되있는 행을 추출해서 다른시트로 붙여넣기 (0) | 2020.07.03 |
| [땡큐엑셀vba & 엑셀매크로] A1셀에서 지정 타이틀을 선택했을 때 DATA 시트의 반 이름 명단출력 (0) | 2020.07.02 |
[땡큐엑셀vba & 엑셀매크로] 셀 밑줄 (언더라인)
엑셀vba & 엑셀매크로2020. 7. 1. 00:00
'작성자 : 땡큐엑셀vba & 엑셀매크로
'목 적
'1) 셀의 글자에 밑줄을 쳐봅니다.
'2) 셀의 글자에 이중 밑줄을 쳐봅니다.
Sub 셀밑줄()
'C10셀 선택
Cells(10, "C").Select
'활성셀(여기서는 C10)에 값입력
ActiveCell = "땡큐엑셀입니다."
MsgBox "HY견고딕으로 글꼴을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
'활성셀(여기서는 C10)의 글꼴을 HY견고딕으로
ActiveCell.Font.Name = "HY견고딕"
MsgBox "글자크기를 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
'활성셀(여기서는 C10)의 글자크기를 20으로
ActiveCell.Font.Size = 20
MsgBox "글자색을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
'활성셀(여기서는 C10)의 글자색을 빨간색(vbRed)으로
ActiveCell.Font.Color = vbRed
MsgBox "밑줄을 칩니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
'활성셀(여기서는 C10)의 글자에 밑줄을
ActiveCell.Font.Underline = xlUnderlineStyleSingle
MsgBox "이중 밑줄을 칩니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
'활성셀(여기서는 C10)의 글자에 이중밑줄을
ActiveCell.Font.Underline = xlUnderlineStyleDouble
MsgBox "바탕색을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
''활성셀(여기서는 C10)의 바탕색을 검정색(vbBlack)으로
ActiveCell.Interior.Color = vbBlack
MsgBox "작업을 완료하였습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
End Sub
Sub 셀밑줄2()
Cells(10, "C").Select
ActiveCell = "땡큐엑셀입니다."
MsgBox "글꼴,글자크기,글자색,밑줄,바탕색을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
'selection.font.name="돋움"
'selection.font.size=30
'selection.font.color=vbRed
'selection.font.underline=xlUnderlineStyleSingle
'을 아래와 같이 with문으로 축약하여 표현할수 있습니다.
With Selection.Font
.Name = "돋움"
.Size = 30
.Color = vbRed
.Underline = xlUnderlineStyleSingle '밑줄
End With
Selection.Interior.Color = vbBlack
MsgBox "글꼴,글자크기,글자색,이중밑줄,바탕색을 변경합니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
'selection.font.name="맑은고딕"
'selection.font.size=10
'selection.font.color=vbBlue
'selection.font.underline=xlUnderlineStyleDouble
'을 아래와 같이 with문으로 축약하여 표현할수 있습니다.
With Selection.Font
.Name = "맑은고딕"
.Size = 10
.Color = vbBlue
.Underline = xlUnderlineStyleDouble '이중밑줄
End With
Selection.Interior.Color = vbRed
MsgBox "작업을 완료하였습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"
End Sub
'엑셀vba & 엑셀매크로' 카테고리의 다른 글
| [땡큐엑셀vba & 엑셀매크로] 셀 글자 굵게 (0) | 2020.07.02 |
|---|---|
| [땡큐엑셀vba & 엑셀매크로] 셀 바탕색 바꾸기 (0) | 2020.06.30 |
| [땡큐엑셀vba & 엑셀매크로] 셀의 글자크기 바꾸기 (0) | 2020.06.29 |
| [땡큐엑셀vba & 엑셀매크로] 셀의 글꼴 변경 (0) | 2020.06.28 |
| [땡큐엑셀vba & 엑셀매크로] 셀삽입과 삭제 (0) | 2020.06.27 |
