목록vba (68)
rand(life)
MS워드는 사용할 일이 거의 없는데, 다른 분이 MS워드로 만든 자료를 이용하려다보니 이런것도 공부하게 된다. 문서 안에 있는 모든 표의 크기를 "창의 크기에 자동으로 맞춤"으로 맞추는 일을 하는 VBA이다. 오피스튜터와 책을 참고해서 만들었다. Sub ExParagraph() Do Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:="" Selection.Find.ClearFormatting On Error GoTo errorhandler Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow) Selection.MoveDown Unit:=wdLine, Count:=2 Loop errorhan..
먼저, 이것도 제가 만든 것이 아니라는 것을 밝힙니다. 출처: http://kin.naver.com/detail/detail.php?d1id=1&dir_id=1050202&eid=5ARZk66HcEzE0Zn1M6DZk7j0g2hvr0h7 하지만 아주 기초적인 내용으로 봐서, 엑셀관련 자격증 수험서에 나오는 예제가 아닌가 합니다. 다름 아니라, 점수가 90점 이상이면 A, 80점이상이면 B, 70점 이상이면 C, 그 아래는 D로 등급을 매기고 싶을때가 있습니다. 지난 글에서 각 급수마다 점수를 부여하는 것을 HLOOKUP함수를 이용해 수식을 만든적이 있습니다. 하지만 반대로, 학생들의 점수에 따라 급수를 부여한다면 어떻게 해야할까요? 이번에도 HLOOKUP함수를 이용해서 만들어보았습니다. 100점을 받은 ..
먼저, 이 것은 제가 만든 것이 아닙니다. 출처를 아래에 밝힙니다. http://kin.naver.com/detail/detail.php?d1id=1&dir_id=1050202&eid=Cldup1sGgmV5wXb3Ktt4CKnryRloYMd0&qb=x9Gx2yC757/rwNogwaTAxyDH1Lz2&enc=euc-kr 사용자정의함수란, 엑셀에서 제공하고 있지 않은 기능을 가진 함수를 VBA를 이용하여 사용자가 직접 정의하여 만드는 함수입니다. 따라서 자기가 쓰고자하는 목적을 구현할 수 있기에 편리합니다만, VBA를 다룰 줄 알아야하기때문에 상당히 고급의 경지에 올라야합니다. 저도 VBA는 잘 모르기 때문에, 여기서는 위의 출처에 나온 내용만을 따라하도록 하겠습니다. 참고로, 한글,영어,숫자등이 섞여있는데..
한 셀의 내용을 그 다음 4칸에 복사하는 작업을 반복한다. 빈셀이 나타나면 중지한다. Sub Macro3() Do While ActiveCell.FormulaR1C1 "" '빈셀이 아닌동안 아래 열을 실행하고 빈셀이면 빠져나간다 Selection.Copy '현재셀을 복사 ActiveCell.Offset(1, 0).Range("A1").Select '한칸 아래로 이동 Range(Selection, Selection.End(xlDown)).Select '다음 내용이 있는 곳까지 선택 ActiveCell.Range("A1:A4").Select '4개의 칸을 선택 ActiveSheet.Paste '선택한 4개 칸에 복사해넣기 ActiveCell.Offset(4, 0).Range("A1").Select '다음 네..