|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2016
* 아래줄에 질문을 작성하세요 >>
AD3, AE3 셀의 값으로 RandBetween 함수를 이용하여 H3 셀에 결과를 출력하고자 합니다. 그런데 스택 공간이 부족하다는 에러가 나온 후 엑셀이 꺼져버리는데
어떻게 해결 가능한지 알려주세요.
Private Sub Worksheet_Change(ByVal Target As Range)
'변수 선언
Dim Weapon_Min_Option As Single '장착 무기 최소 옵션 수
Dim Weapon_Max_Option As Single '장착 무기 최대 옵션 수
Dim Weapon_Option_Result As Single '장착 무기 옵션 결과
'변수로 값 받아오기
Weapon_Min_Option = [AD3]
Weapon_Max_Option = [AE3]
With Target
If WorksheetFunction.CountA(Range("AD3:AE3")) = 1 Then
[H3] = WorksheetFunction.Application.RandBetween([AD3], [AE3])
End If
End With
'결과 값 넣기
[H3] = Weapon_Option_Result
End Sub |
|