'비쥬얼베이직'에 해당되는 글 2건

해당 열의 특정 문자 없애거나 변경할 경우

Lecture/VBA 2018. 12. 28. 09:17
반응형

일단 제가 사용한 풀소스입니다.

​

lastRow = Sheet8.Cells(Rows.Count, 2).End(xlUp).Row

​

For c = 3 To lastRow

If Sheet8.Range("D" & c).Value = "N" Then

Sheet8.Range("D" & c).Value = ""

End If

Next

​

lastRow는 저번에 한번 설명한거라서 간단하게 설명드리겠습니다. 해당 시트(Sheet8) B열에서

마지막 글자가 찍힌 번호를 가져오는거입니다.

​

예를들어 lastRow가 1000이라면

3부터 1000까지 for문을 돌면서..

만약 D3의 값이 N이라면 D3값을 지워라... 라는 거겠죠.

for문을 돌면서 D3 부터 D1000까지 돌면서 N값을 찾아서 삭제할 겁니다.

변형을 하자면 N을 다른 문자로 바꿀 수도 있겠죠.ㅎ

반응형
저작자표시
로그 이미지

우주의빛

자료를 공유하고 좋은자료 추천 하는 곳입니다.

,

영역잡고 테두리 소스

Lecture/VBA 2018. 12. 28. 09:08
반응형

정말 너무 간단....

Set rngAll = Range("A1:G12")

With rngAll.Borders

.LineStyle = 1

.ColorIndex = 1

.Weight = xlThin '// xlThin : 가는 실선, xlThick : 굵은 실선

End With

rngAll.BorderAround LineStyle:=xlContinuous, Weight:=xlThin, ColorIndex:=1

1. 일단 첫번째 줄의 Range("")는 A1~G12까지의 영역을 잡는 것을 의미합니다.

(* A1에 클릭하고 G12까지 드래그한 거랑 같은 의미이죠)

2. With에서 부터 설명 드리자면

- .Borders는 구간범위의 선(Borders) 그리기위한 부분입니다.

- .LineStyle = 1은 실선을 그리라는 이야기입니다.

- .ColorIndex = 1은 검은색이라는 거구요.

* 더 자세한 정보는 구글에서 Excel ColorIndex로 검색해주세요.^^

- .Weight = xlThin는 가는실선이라는 뜻입니다.

rngAll.BorderAround LineStyle:=xlContinuous, Weight:=xlThin, ColorIndex:=1

위의 부분이 적용시키는 거구요.

* 옵션 정보

LineStyle정보(https://docs.microsoft.com/ko-kr/dotnet/api/microsoft.office.interop.excel.xllinestyle?view=excel-pia)

Weight정보(https://docs.microsoft.com/ko-kr/dotnet/api/microsoft.office.interop.excel.xlborderweight?view=excel-pia#Microsoft_Office_Interop_Excel_XlBorderWeight_xlThin)


반응형
저작자표시
로그 이미지

우주의빛

자료를 공유하고 좋은자료 추천 하는 곳입니다.

,
반응형

글 보관함

달력

«   2024/04   »
일 월 화 수 목 금 토
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30

티스토리툴바