뷰티풀 프로그래밍

반복문은 숫자만 반복할 수 있기 때문에 열(Column) 단위로 반복을 하려면 숫자를 알파벳으로 바꾸고 싶을 때가 있습니다. 결론부터 말하면 Chr() 함수를 쓰면 됩니다. 대문자 A는 chr(65) 소문자 a는 chr(97)입니다. B C D E F G H I ... 66 67 68 69 70 71 72 73 ... b c d e f g h i ... 98 99 100 101 102 103 104 105 위와 같이 각 숫자에 알파벳이 대응 됩니다. 아래 코드를 실행하면 Sub test_chr() For i = 1 To 200 Range("a" & i).Value = Chr(i) Next End Sub 아래와 같이 나옵니다. end.

Excel VBA 알파벳 aa to az까지 만들기 aa ~ az 까지 만들 일이 있어서 한번 만들어 봤다. 화면은 위와 같다 소스코드는 아래와 같다 Sub filedName() init = 1 unit = 26 min_row = 2 max_row = unit * unit For i = 0 To max_row alphabet_start = 97 remainder = i Mod unit code = alphabet_start + remainder Range("a" & i + 2).Value = Chr(alphabet_start + Application.WorksheetFunction.RoundDown(i / unit, 0)) Range("b" & i + 2).Value = Chr(alphabet_start..

VBA 별 찍기 예제 별 찍는 알고리즘은 실제 업무에서 쓸일이 없어보이긴 하지만 제어문을 배우는 괜찮은 방법중 하나인 것 같다. 위와 같은 별을 엑셀로 찍어볼 것이다. 소소코드는 매우 간단한다. Sub printStar() number_of_stars = 10 For i = 1 To number_of_stars For j = 1 To i Range("a" & i).Value = Range("a" & i).Value + "*" Next Next End Sub end.

Range를 이용하여 가로로 Loop 돌리기 Range("A" & i)를 이용하면 세로로 loop를 돌릴 수 있었다. 허나 가로로 하고자 하면 A B C D 이렇게 알파벳으로 나오고, 알파벳을 유니 코드와 대응을 해서 돌리는 방법도 있지만 조금만 열이 많아져도 AA, AB, AC, AXA, AXB 이런식으로 나오기 때문에 애로사항이 있었다. 그걸 해결한 코드이다. 잘 응용해서 사용해 보시기 바란다. Sub horizonLoop() For i = 1 To 20 Range(Cells(1, i), Cells(1, i)).Value = i Next End Sub Range에 2개의 parameter(매개변수)를 주면 앞에 주소부터 뒤에 주소까지 선택이 되는 것을 응용한 것이다. 앞에 셀과 현재 셀을 같게 주면 ..

11 엄마도 따라 할 수 있는 Excel VBA - VBA에서 날짜 사용하기 업무를 하다 보면 날짜를 이용 할 일이 많습니다. 오늘은 VBA에서 '날짜'를 다루는 법을 알아보겠습니다. 날짜를 다루려면 일단 오늘 날짜를 받아오는 법을 알아야 하고, 셀에서 날자를 추출하는 법을 알아야 하고, 추출한 날짜를 더하거나 빼거나 하는 법을 알아야 합니다. 아래 예제를 통해 감을 잡아보겠습니다. 예제) 아래와 같이 입고일 출고일이 있습니다. 출고일은 입고일보다 1주일(7일) 후 입니다. 오늘 날짜와 비교하여 오늘보다 입고일이 늦은 경우 입고일에 +7일 해서 출고일에 입력할 수 있도록 하고 싶습니다. ex)B2셀이 1월 31일데 2월 7일로 바꾸고 싶은 경우 위에 조건에 맞는 예제를 한번 따라해 보겠습니다. 아래와 같..

10 엄마도 따라 할 수 있는 Excel VBA - 셀 주소 알아내기 VBA는 '셀(Cell)' 을 가지고 많은 것을 처리 합니다. 특정 값이 들어있는 셀 주소를 가져오거나 특정 셀 주소의 값을 가져와서 IF문을 적용해서 특정 작업을 하도록 하는 것이 VBA의 흐름이라고 할 수 있습니다. 앞에서 셀 값을 가져오는 것을 해보았으니 이번에는 '셀 주소'를 가져오는 것을 해보겠습니다. 화면을 이렇게 띄우시고 아래 소스코드를 테스트 해봅시다. 소스코드 Sub 선택셀주소가져오기() Range("b2").Select Range("a10").Value = Selection.Address End Sub 결과 화면 A10셀을 확인해보시면 선택한 셀의 주소가 나오면 잘 하신 것입니다.

* Print이용하기 시트1부터 시트n까지 특정 범위 복사해서 출력하는 것을 해보자. 1월 14일 해외에서 근무하시는 분으로부터 아래와 같은 질문을 받았다. " 쉬트 1번, 2번에 데이터들을 쉬트 3번으로 차례로 불러와서 인쇄를 한장한장 하려고 하면 어덯게 해야할지 고민입니다. 예를 들어 쉬트 1번의 데이터가 1 강아지 2 멍멍이 3 고양이 4 야옹이 이고 쉬트 2번의 데이터가 1 철이 2 순이 3 영희 4 명희 이라면 쉬트3번에 "(쉬트1)"는 "(쉬트2)" 의 친구 입니다. 를 1번부터 차례대로 4장을 인쇄할수 있을까요 ? " 라고. 해결 방법을 알려 드렸다. " 방법은 아래와 같습니다. range를 이용해서 선택해서 복사 한 후 print 메소드를 이용해 출력하면 됩니다. 여러 시트를 하셔야 하므로..

09 엄마도 따라 할 수 있는 Excel VBA - IF문(조건문) 배우기 이번 시간에는 '조건문'에 대해 배워보겠습니다. 조건문은 프로그래밍에서 가장 많이 사용하는 제어문일거에요. 사원 '이름'을 검색해서 "김경록"이면 font를 red에 Bold로 "김경록"이 아니면 그냥 넘어가는 기능 입니다. 조건문(If문)은 특정 조건을 확인하여 그 조건이 true면 실행할 것, false면 실행 할 것을 나누어 명령을 내릴 수 있는 기능입니다. gogo! 백견이 불여일행, 백번 보는 것 보다 한번 해보는게 좋습니다. 일단 어떻게 움직이는지 한번 해보겠습니다. 아래와 같이 표와 코드를 입력해보세요. 소스코드는 아래와 같습니다. Sub if문배우기() 사원명 = Range("b2").Value 부서 = Range(..

08 엄마도 따라 할 수 있는 Excel VBA - 반복문 배우기(For문) 이번 시간에는 반복문을 배워볼게요. 지난번에 배웠던 '글자 연결하기 "&"'과 '변수'를 사용할 것이기 때문에 아래 예제를 따라 하다가 이해가 잘 안간다면 이전글 2013/01/09 - [Excel VBA/VBA 배우기] - 05 엄마도 따라 할 수 있는 Excel VBA - 글자 연결하기 & 2013/01/09 - [Excel VBA/VBA 배우기] - 06 엄마도 따라 할 수 있는 Excel VBA - 변수 선언하기 을 참고하기 바랍니다. 시작 아래 소스코드를 입력하고 실행해봅시다. Sub For문배우기() For 반복범위 = 1 To 10 Range("F" & 반복범위).Value = "반복" & 반복범위 Next End ..

07 엄마도 따라 할 수 있는 Excel VBA - 메세지 창 띄우기 많이 쓰는 기능인 '메세지창 띄우기'를 해볼게요이 기능은 Excel VBA를 하면서 특정 코드를 테스트 해보거나 특정 변수값이 잘 들어가는지 검사해볼때 유용하기 때문에 많이 쓰는 기능 중 하나에요. 위의 표를 넣고 B2셀에 있는 사원 이름을 메세지창에 출력해 볼게요. 아래 소스를 넣고 돌려보세요. Sub 메세지띄우기() 변수1 = "저는 변수1 입니다" '일반 메세지 띄우기 MsgBox ("안녕하세요?") '변수를 메세지로 띄우기 MsgBox (변수1) '셀 값 가져와서 띄우기 MsgBox (Range("B2").Value) End Sub 결과 완료. 관련 글2013/01/09 - [Excel VBA/VBA 배우기] - 05 엄마도 따..