아래 쏘지님 엑셀 문의건    글쓴이:꿀돌대디 , Hit : 1043

- Link #1 : view.php?id=free&page=1&no=437087&ct=20200408_467870000 - File #1 : 쏘지님.xlsx(9.8 KB), Download : 28

안녕하세요. 쏘지님의 엑셀 문의에 대해 파일을 첨부합니다. 도움이 될런지 모르겠네요.   추천:쏘지님이 게시물을 좋아합니다. 추천:제이제이님이 게시물을 좋아합니다.

꿀돌대디 회원님의 소개글이 없습니다. 정보력:3340 친절도:27621

꿀돌대디 정보력:3340 친절도:27621   04-08 12:25 이것도 안 맞을수 있겠네요. 순차가 아닌 랜덤이란걸 고려하지 않았네요.

쏘지 정보력:1300 친절도:1436   04-08 12:31 쏘지님이 이 게시물을 좋아합니다.

몽쉘 정보력:21270 친절도:10898   04-08 13:14 소스가 되는 값을 정렬한 상태에서 목표값에서 목표값보다 작은 가장 큰 수를 빼고 나머지값에서 또 나머지값보다 작은 가장 큰수를 빼는 걸 반복하면 대략 유사한 결과가 나오지 않을까요? 추천:쏘지

제이제이 정보력:28910 친절도:27391   04-08 14:17 제이제이님이 이 게시물을 좋아합니다.

스머프 정보력:250 친절도:53   04-08 14:26 모바일- 10,000회 반복해서 랜덤으로 합계 더해서 목표값에 가까운 조합 찾도록 하는 메크로 vba 입니다. 꿀돌대디님이 올리신 "쏘지님.xlsx" 파일의 자료위치기준이며 결과는 g칼럼에 나타납니다. ------------아래--------- Sub 렌덤으로_목표값찾기() Dim 데이터(1000) Dim 시뮬_합계(10000) '반복10000회,자료1000개 Dim 시뮬_데이터(10000, 1000) '반복10000회, 합계에 사용된 자료만 Dim 반복횟수, i, j As Integer '********************** '*데이터 읽기 '********************** 원하는값 = Range("D19").Value i = 1 Range("d5").Select Do 데이터(i) = ActiveCell.Offset(i - 1, 0).Value i = i + 1 Loop Until ActiveCell.Offset(i - 1, 0).Value = "" 데이터갯수 = i - 1 '********************** '*렌덤으로 합계내기 '********************** Randomize For 반복횟수 = 1 To 10000 tempsum = 0 For j = 1 To 데이터갯수 If Round(Rnd(), 0) = 1 Then tempsum = tempsum + 데이터(j) 시뮬_데이터(반복횟수, j) = 데이터(j) End If Next j 시뮬_합계(반복횟수) = tempsum 값차이 = Abs(원하는값 - 시뮬_합계(반복횟수)) If 반복횟수 = 1 Then 값차이최소 = 값차이 Else 값차이최소 = WorksheetFunction.Min(값차이, 값차이최소) End If If 값차이 = 값차이최소 Then 반복위치 = 반복횟수 Next 반복횟수 MsgBox "목표값과 최소차이 : " & Trim(값차이최소) Range("G5:G100").Select Selection.ClearContents Range("G5").Select For i = 1 To 데이터갯수 ActiveCell.Offset(i - 1, 0).Value = 시뮬_데이터(반복위치, i) Next i End Sub 추천:몽쉘 추천:쏘지

스머프 정보력:250 친절도:53   04-08 18:22 모바일- 300개 데이터라서 오차가 커지면 반복횟수를 수정해 보시죠.vba 코딩에서 10000 부분을 10만 또는 50만으로 수정 보세요. 3곳 고치시면 되겠네요. 배열변수 2곳과 for 문장 1곳. 랜덤으로 난수발생하기에 반복횟수 늘리면 오차 줄어듭니다. 대신 결과 나올때까지 시간이 더 걸리겠지요.

stonefly 정보력:0 친절도:   04-08 19:26 VBA로 거의 해결이 다 되죠.... 문제는 일반인이 VBA 쓰는게 힘들어서 문제지... 제가 사용하는 일지를 VBA가 굳이 필요 없는데도 VBA를 이용해서 쓰는 부분이 많은데 그게 함수가 아주 간단해 지는 겁니다. 괄호안에 괄호가 많이 들어가면 아주 그냥 피곤하죠... 그냥 여러 함수 쓰는걸 하나의 VBA 함수로 만들어 쓰면 되니 그래서 문제점을 VBA 소스 차원에서 수정하니 아주 편하죠.... 처음에 만든 함수가 차츰차츰 더해져서 프린트 버튼 한번이면 세금계산서와 편지 봉투 이 두가지를 한번에 찍어주니 그냥 세금 계산서 반 잘라서 봉투에 넣고 우표에 넣고 우체통에 넣으면 끝! 제가 손글씨가 말도 못하게 더러워요... 가끔 내가 쓴 글씨도 못알아 본다는...