분류별 최대금액을 구하고 그에 따른 판매수량과 상품명을 가져와야하는데
엑셀에서의 Offset 함수로는 왠지 잘 안 돼서
사용자정의 함수를 만들어보았다.
Function fnMax(rngMax As Range, intCode As Integer) 'Max값이 나온 범위와 offset값을 받음
Dim intMax As Range 'Max값이 존재하는 셀
With rngMax
Set intMax = .Find(WorksheetFunction.Max(.Cells), LookAt:=xlWhole) 'Max값이 있는 주소를 검색
End With
fnMax = intMax.Offset(, -intCode) 'fnMax 함수 정의
End Function
TEST.xlsm'VB(A)' 카테고리의 다른 글
| 대량의 텍스트파일을 1열로 불러오기 (0) | 2015.02.16 |
|---|---|
| 시간대별 근무인원 구하기 (0) | 2015.02.10 |
| 일정 간격으로 내용 복사 (0) | 2015.02.03 |
| Private Sub Worksheet_Change(ByVal Target As Range) (0) | 2015.01.30 |
| Select Case 를 활용한 다중 조건 처리 (0) | 2015.01.28 |