Skip to content
컴퓨터잡담
2011.10.17 19:07

Excel VBA) 자주쓰는 함수모음

조회 수 21649 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

Excel VBA) 자주쓰는 함수모음

'현재 줄 내용 다음줄에 추가

'선택된 셀의 행 번호를 취득

thisRow = ActiveCell.Row

'복사하고 싶은 대상을 문자열로 편집

address1 = "A" + CStr(thisRow) + ":G" + CStr(thisRow)

'삽입될 범위

address3 = "A" + CStr(thisRow + 1) + ":G" + CStr(thisRow + 1)

Range(address1).Select


'현재 줄 내용 다음줄에 추가

Range("A1").Select

Selection.End(xlDown).Select

ActiveCell.Offset(1, 0).Select





'마지막 행수(비어있는 셀은 포함하지 않음) 예) LValue(B1)

Function LValue(aRange As Range)

     LValue = Range(aRange.Address).End(xlDown).Value

End Function


'값이 있는 마지막 셀의 위치

xlSheet.OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count"); 

xlSheet.OlePropertyGet("UsedRange").OlePropertyGet("Columns").OlePropertyGet("Count"); 

cntrow = WorkSheets(1).UsedRange.Rows.Count

cntcol = WorkSheets(1).UsedRange.Columns.Count


'다음은 특정 행이나 열의 마지막 셀의 위치값을 반환한다.

'두번째 열의 마지막 행 까지의 셀개수를 가져온다

cntRow2 = WorkSheets(1).Cells(Rows.Count, 2).End(xlUp).Row

'두번째 행의 마지막 열 까지의 셀개수를 가져온다.

cntCol2 = WorkSheets(1).Cells(2, Columns.Count).End(xlToRight).Column




'MySheet라는 시트에 셀 2,1(즉, B1)에 값을 입력할 수 있다. 시트 비활성화 상태에서도 가능

Worksheets("MySheet").Cells(2, 1).Value = "VBA Programming"


' 선택된 주소의 인접된 주소값 (기본값 예:$A$1:$B$10), 만약 $를 생략하고 싶을경우

' Selection.Address(0,0)을 입력하면 된다.

Range("A1").CurrentRegion.Select

Selection.Address


' 선택된 범위의 내용지우기

Selection.ClearContents


' 해당 셀에 .Value 값 입력하기

With Range("A1,A3,A5,A7,A9,B2,B4,B6,B8,B10")

    .Select

    .Value = "엑셀 VBA"

End With


로그인 후 댓글쓰기가 가능합니다.

?

List of Articles
번호 분류 제목 날짜 조회 수
597 컴퓨터잡담 Excel VBA) 원하는 범위 지정한 뒤 복사하여 붙여넣기 2 2011.10.14 29378
596 컴퓨터잡담 Excel VBA) 엑셀 데이터 범위 찾아내기 1 2011.10.14 15265
» 컴퓨터잡담 Excel VBA) 자주쓰는 함수모음 3 2011.10.17 21649
594 컴퓨터잡담 eXCEL VBA)엑셀파일 열지않고 내용 불러오기 3 2011.10.23 30512
593 컴퓨터잡담 Excel VBA)OpenDatabase 방법 [Excel 2003의 VBA 언어 참조] 3 2011.10.23 13884
592 컴퓨터잡담 Excel VBA) Delete Column Excel VBA - 칼럼 지우기 2011.10.23 16349
591 컴퓨터잡담 Excel VBA) DAO를 이용하여 엑셀문서 열지않고 데이타 가져오기 3 8 2011.10.23 18239
590 컴퓨터잡담 Excel VBA (1): 셀 선택 및 변수 및 비활성시트 컨트롤하기 3 2011.10.24 24995
589 컴퓨터잡담 Excel VBA) 선택값에 따라 결과값 전달하기 CASE문 1 4 2011.10.25 14747
588 컴퓨터잡담 엑셀 VBA) Shell로 외부프로그램 호출 2011.11.07 12676
587 컴퓨터잡담 XyView DVR 공유기 설정방법 2011.11.17 5907
586 컴퓨터잡담 컴퓨터 각종 드라이버 2011.11.24 4112
585 컴퓨터잡담 엑셀 파일 편집기 - 리눅스, 윈도우용(Gnumeric Spreadsheet) 3 2011.11.24 7056
584 컴퓨터잡담 Excel VBA) 파일 이름에 따라 이미지 출력 4 2011.11.25 16207
583 프로세스 Spoo1sv.exe 바이러스 치료하기 1 12 2011.11.28 19153
582 AutoHotKey autohotkey) 웹페이지의 프레임 내용보기 & 클릭하기 2011.11.29 15123
581 컴퓨터잡담 윈도우 시스템 파일 콘솔복원 2 2011.11.30 5166
580 컴퓨터잡담 공유기에서 여러명이 mstsc 원격제어 사용하는 방법 2 2011.12.07 7013
579 컴퓨터잡담 네트워크 연결 방법 / 네트워크 무선네트워크 탭이 없어졌습니다? 1 2011.12.12 7820
578 컴퓨터잡담 변종 맥중복 바이러스 증상과 대처방법 2 2011.12.14 8507
Board Pagination Prev 1 ... 15 16 17 18 19 ... 46 Next
/ 46

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소