|
|
|
|
|
|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
Dim r As Long
Dim c As Long
Dim rngAll As Range '전체영역(C1:G7) 넣을 변수
Dim rngC As Range '전체영역 각셀을 넣을 변수
For r = 1 To ActiveSheet.Range("E3")
For c = 1 To 1
Cells(r, c).value = Int(Rnd * 1000000) + 1
Next c
Next r
With Application
.ScreenUpdating = False '화면 업데이트 (일시)정지
Set rngAll = Range(Cells(1, 3), Cells(Rows.Count, "C").End(3)) '전체영역 설정
Cells(1, 2) = .WorksheetFunction.Max(rngAll) 'A1셀에 전체영역의 최댓값을 넣음
'Cells(1, 2) = .WorksheetFunction.Min(rngAll) 'A3셀에 전체영역의 최소값을 넣음
End With
For Each rngC In rngAll '전체영역의 각셀을 순환
Select Case rngC '만일 각 셀값이
Case Is > Cells(1, 1) '지정한 셀보다 클 경우
If Cells(1, 2) > rngC Then '만일 B1셀이 각 셀값보다 클경우
Cells(1, 2) = rngC 'B1셀에 셀값을 넣음
End If
' Case Is < Cells(1, 1) '지정한 셀보다 작을 경우
' If Cells(1, 2) < rngC Then '만일 B1셀이 각 셀값보다 작을경우
' Cells(1, 2) = rngC 'B1셀에 셀값을 넣음
' End If
End Select
Next rngC
Set rngAll = Nothing '개체변수 초기화(메모리 비우기)
지금까지 작성한 부분이고
그아랫부분인 최소값을 찾는 부분에서
선택한 셀밖에 확인을 못하는데
a1셀 a2셀 계속 비교를 할 수 있는 방법을 찾다가 도저히 답이안나와..이렇게 올려봅니다. |
|
[불량 게시물 신고] |
|
|
|
작성일 : 2018-05-26(05:13)
최종수정일 : 2018-05-26(05:13) |
|
|
|