엑셀 VBA 문제점좀 찾아주세요..ㅜ11
- 85년생
- 등록일 2020-01-05 21:01
- 조회수 890
|
||
파워링크 
등록안내
|
 0
 0
85년생
쩝..ㅜ
2020-01-07
|
|
|
0
0
 옵티머스브라임
A = "AU44" 이렇게 하면 A에 AU44라는 문자가 들어가서 If문에서 무조건 elseif A > 12 then 탑니다.
이렇게 해보세요 A = Range("AU44").Value
2020-01-07
|
|
|
0
0
옵티머스브라임
Rnd값에 빈셀을 선택하는 문제는 If not oDicA.exists(v) 하면 v가 null값이라도 oDicA에 없기 때문에 추가하게 됩니다. 그래서 아래와 같이 고쳐 보세요 If not oDicA.exists(v) and v <> "" then
무한 Loop가 도는 문제는 표본이 6개 미만일때 생길 것 같네요 이미 표본 전체 갯수만큼 추가되어 있는데 없는 값을 계속 추가하려니 생기는 문제 입니다. 이부분에 대한 예외 조치가 필요합니다. 그전에 명확히 해야될것이 표본이 1개일때는 몇개를 샘플링 하는지 필요합니다. 표본이 1개일 때 동일한 값을 6개 샘플링 하는건지요
2020-01-07
|
|
0
0
85년생
와.. 공백을 잡는게 저런 수식어를 추가하면 되는거였네요.. 아직 구동원리는 이해는 안되지만 정말로 감사드립니다.
표본이 6개 이하는 모두 샘플링조건입니다. 1 = 샘플링 2 = 샘플링 3 = 샘플링 4 = 샘플링 5 = 샘플링 6 = 샘플링 7 ~ 12 = 6개 랜덤샘플링
방식이 어렵다면 구현이 어렵다면 이제 공백을 잡았기 때문에 elseif A=1 then 이런식으로 6까지 만들어서 추가해서 적용시켜보도록하겠습니다.
도움주셔서 감사합니다.,
2020-01-07
|
|
|
0
0
85년생
아래 코드로 해결했습니다.
공백 잡아주신거 정말 무한하게 감사드립니다!!
-----------------------------
Sub test()
Range("AT45:AT60").ClearContents
A = Range("AU44")
If A = 1 Then
Dim A1 As Range: Set A1 = [P45:P60]
Dim B1 As Long: B1 = A1.Cells.Count
Dim C1 As Object: Set C1 = CreateObject("scripting.Dictionary")
Do
i = Int(Rnd * B1 + 1)
v = A1.Cells(i).Value
If Not C1.exists(v) And v <> "" Then C1.Add v, ""
Loop While C1.Count < 1
Dim D1 As Range: Set D1 = [AT45]
For Each E1 In C1.keys
D1.Value = E1: Set D1 = D1.Offset(1)
Next
'===================================
'===================================
'===================================
ElseIf A = 2 Then
Dim A2 As Range: Set A2 = [P45:P60]
Dim B2 As Long: B2 = A2.Cells.Count
Dim C2 As Object: Set C2 = CreateObject("scripting.Dictionary")
Do
i = Int(Rnd * B2 + 1)
v = A2.Cells(i).Value
If Not C2.exists(v) And v <> "" Then C2.Add v, ""
Loop While C2.Count < 2
Dim D2 As Range: Set D2 = [AT45]
For Each E2 In C2.keys
D2.Value = E2: Set D2 = D2.Offset(1)
Next
'===================================
'===================================
'===================================
ElseIf A = 3 Then
Dim A3 As Range: Set A3 = [P45:P60]
Dim B3 As Long: B3 = A3.Cells.Count
Dim C3 As Object: Set C3 = CreateObject("scripting.Dictionary")
Do
i = Int(Rnd * B3 + 1)
v = A3.Cells(i).Value
If Not C3.exists(v) And v <> "" Then C3.Add v, ""
Loop While C3.Count < 3
Dim D3 As Range: Set D3 = [AT45]
For Each E3 In C3.keys
D3.Value = E3: Set D3 = D3.Offset(1)
Next
'===================================
'===================================
'===================================
ElseIf A = 4 Then
Dim A4 As Range: Set A4 = [P45:P60]
Dim B4 As Long: B4 = A4.Cells.Count
Dim C4 As Object: Set C4 = CreateObject("scripting.Dictionary")
Do
i = Int(Rnd * B4 + 1)
v = A4.Cells(i).Value
If Not C4.exists(v) And v <> "" Then C4.Add v, ""
Loop While C4.Count < 4
Dim D4 As Range: Set D4 = [AT45]
For Each E4 In C4.keys
D4.Value = E4: Set D4 = D4.Offset(1)
Next
'===================================
'===================================
'===================================
ElseIf A = 5 Then
Dim A5 As Range: Set A5 = [P45:P60]
Dim B5 As Long: B5 = A5.Cells.Count
Dim C5 As Object: Set C5 = CreateObject("scripting.Dictionary")
Do
i = Int(Rnd * B5 + 1)
v = A5.Cells(i).Value
If Not C5.exists(v) And v <> "" Then C5.Add v, ""
Loop While C5.Count < 5
Dim D5 As Range: Set D5 = [AT45]
For Each E5 In C5.keys
D5.Value = E5: Set D5 = D5.Offset(1)
Next
'===================================
'===================================
'===================================
ElseIf A < 13 Then
Dim A6 As Range: Set A6 = [P45:P60]
Dim B6 As Long: B6 = A6.Cells.Count
Dim C6 As Object: Set C6 = CreateObject("scripting.Dictionary")
Do
i = Int(Rnd * B6 + 1)
v = A6.Cells(i).Value
If Not C6.exists(v) And v <> "" Then C6.Add v, ""
Loop While C6.Count < 6
Dim D6 As Range: Set D6 = [AT45]
For Each E6 In C6.keys
D6.Value = E6: Set D6 = D6.Offset(1)
Next
'===================================
'===================================
'===================================
Else
Dim A7 As Range: Set A7 = [P45:P60]
Dim B7 As Long: B7 = A7.Cells.Count
Dim C7 As Object: Set C7 = CreateObject("scripting.Dictionary")
Do
i = Int(Rnd * B7 + 1)
v = A7.Cells(i).Value
If Not C7.exists(v) And v <> "" Then C7.Add v, ""
Loop While C7.Count < 7
Dim D7 As Range: Set D7 = [AT45]
For Each E7 In C7.keys
D7.Value = E7: Set D7 = D7.Offset(1)
Next
End If
End Sub
2020-01-07
|
|
|
0
0
옵티머스브라임
작성하신 코드를 유지하면서 줄여봤습니다. 이렇게 쓰시는건 어떨까요. Sub test() Dim rX As Range: Set rX = [P45:P60]
Dim iCnt As Long: iCnt = rX.Cells.Count Dim oDic As Object: Set oDic = CreateObject("scripting.Dictionary") Dim A As Integer Dim ATcount As Integer Range("AT45:AT60").ClearContents A = Range("AU44") If A <= 6 Then ATcount = A ElseIf A >= 13 Then ATcount = 7 Else ATcount = 6 End If Do i = Int(Rnd * iCnt + 1) v = rX.Cells(i).Value If Not oDic.exists(v) And v <> "" Then oDic.Add v, "" Loop While oDic.Count < ATcount Dim rY As Range: Set rY = [AT45] For Each k In oDic.keys rY.Value = k: Set rY = rY.Offset(1) Next End Sub
2020-01-07
|
|
|
0
0
85년생
진짜 짧네요.. 배워갑니다.
Dim 변수 중복을 막는방법을 몰라서 노가다 하는데 신기하네요.. 감사합니다
2020-01-08
|
|
|
|
 |
|
| △ 이전글▽ 다음글 | -목록보기 |
|
