|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2010
* 아래줄에 질문을 작성하세요 >>
안녕하세요 아래 글은 답변자분 때문에 잘 해결했습니다.
이제 이걸 응용해서 여러셀들을 임의로 선택하고(예를들어 A1, B3, C2, D5...), 버튼을 눌렀을때 메시지박스에 최대값과 최소값을 찍어주는 것을 해보려고 하는데 도통 감이 안잡히네요..
인풋박스로 셀 범위들을 컨트롤클릭하고 계산해도 가장 마지막에 선택된 셀이 최소값 최대값으로 찍히구요
제가 아는대로 하면 답이 안나올것같아서 질문 드립니다.ㅠㅠ
제가 짰던 코드 올려봅니다.
Dim returnSel As Range
Dim sumData As Long
Dim maxData As Integer
Dim minData As Integer
Dim avgData As Integer
Application.DisplayAlerts = True
Set returnSel = Application.InputBox("원하는 영역에 값적용", "범위선택", Type:=8)
For Each selData In returnSel
If IsNumeric(selData) Then
sumData = sumData + selData.Value
maxData = WorksheetFunction.Max(returnSel.Value)
minData = WorksheetFunction.Min(returnSel.Value)
avgData = WorksheetFunction.Average(returnSel.Value)
End If
Next
MsgBox "합계: " & sumData & vbCrLf & "최대값: " & maxData & vbCrLf & "최소값: " & minData & vbCrLf & "평균값: " & avgData
Application.DisplayAlerts = True |
|