반응형

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

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을 다른 문자로 바꿀 수도 있겠죠.ㅎ

반응형
로그 이미지

우주의빛

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

,
반응형

오류메시지

갑자기 매크로 설정 된 엑셀파일을 여니까 위의 메시지가 뜬다..

해결방법.

1. 메뉴 > Excel 옵션 버튼 클릭.

메뉴클릭했을 때

2. 보안 센터 > 보안 센터 설정 클릭.

Excel 옵션창

3. 매크로 설정 > 모든 매크로 포함(위험성 있는 코드가 실행될 수 있으므로 권장하지 않음)을 선택해주시고, VBA 프로젝트 개체 모델에 안전하게 액세스할 수 있음을 체크 해주시고 확인 눌러주시면 됩니다.

보안 센터 창

이렇게 모든 창을 확인 눌러주신 다음에 엑셀을 저장 하시고 엑셀 창을 닫고 다시 여시면 정상적으로 실행 됩니다.

TIP. 요즘에 엑셀 매크로로 해킹을 하는 경우도 있다고 하니 다른 사람이 주는 매크로 엑셀 파일을 열기 전에 매크로 설정에서 다시 모든 매크로 포함은 사용하지 않는것이 좋을 수 있습니다!!!


반응형
로그 이미지

우주의빛

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

,
반응형

정말 너무 간단....

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)


반응형
로그 이미지

우주의빛

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

,