|
||
0
0
85³â»ý
ÂÁ..¤Ì
2020-01-07
|
0
0
¿ÉƼ¸Ó½ººê¶óÀÓ
A = "AU44" ÀÌ·¸°Ô Çϸé A¿¡ AU44¶ó´Â ¹®ÀÚ°¡ µé¾î°¡¼ If¹®¿¡¼ ¹«Á¶°Ç elseif A > 12 then ž´Ï´Ù.
ÀÌ·¸°Ô Çغ¸¼¼¿ä A = Range("AU44").Value |
0
0
85³â»ý
¾Æ.. ³»¿ë ¼öÁ¤ÀÌ ¾ÈµÇ¾îÀÖ¾ú³×¿ä..¤Ì ÇØ´ç ¹®±¸´Â °íÃƽÀ´Ï´Ù. ÇÏÁö¸¸ µ¿ÀÏÇÏ°Ô ¹®Á¦°¡ ¹ß»ýÇÏ´õ¶ó±¸¿ä
Loop¿¡¼ ´Ù¿î¸Ô´Â°Í°ú ºó¼¿À» Rnd °ªÀ¸·Î ¼±ÅÃÇÏ´Â ¹®Á¦ ÀÌ°Ç ÇØ°áÇÏ´Â ¹æ¹ýÀ» ¸ð¸£°Ú³×¿ä ÈÄ.. |
0
0
¿ÉƼ¸Ó½ººê¶óÀÓ
Á¦°¡ ´«À¸·Î º¸°í ÇÑ°Å¶ó µ¹·Áº¸Áø ¸øÇ߳׿ä. Äڵ尡 ºñÈ¿À²ÀûÀ̱ä ÇÕ´Ï´Ù.
Áý¿¡°¡¼ ÆÄÀÏ ¹Þ¾Æ¼ µ¹·Áº¼²²¿ä |
0
0
85³â»ý
¹è¿î°Ô ¾Æ´Ï¶ó »ýÁ¸¿ëÀ¸·Î °Ë»öÀ»ÅëÇØ ¾Ë¾Æ°¡´ÂÁßÀ̶ó¼¿ä ..ÇÏÇÏ......
|
0
0
85³â»ý
´äº¯ °¨»çµå¸³´Ï´Ù.. ¾Æ¹«µµ ¾È´Þ¾ÆÁּż ¸¶»óÀÔ°íÀÖ¾ú´Âµ¥ ¤Ì
|
0
0
¿ÉƼ¸Ó½ººê¶óÀÓ
Rnd°ª¿¡ ºó¼¿À» ¼±ÅÃÇÏ´Â ¹®Á¦´Â If not oDicA.exists(v) Çϸé v°¡ null°ªÀÌ¶óµµ oDicA¿¡ ¾ø±â ¶§¹®¿¡ Ãß°¡ÇÏ°Ô µË´Ï´Ù. ±×·¡¼ ¾Æ·¡¿Í °°ÀÌ °íÃÄ º¸¼¼¿ä If not oDicA.exists(v) and v <> "" then
¹«ÇÑ Loop°¡ µµ´Â ¹®Á¦´Â Ç¥º»ÀÌ 6°³ ¹Ì¸¸À϶§ »ý±æ °Í °°³×¿ä ÀÌ¹Ì Ç¥º» Àüü °¹¼ö¸¸Å Ãß°¡µÇ¾î Àִµ¥ ¾ø´Â °ªÀ» °è¼Ó Ãß°¡ÇÏ·Á´Ï »ý±â´Â ¹®Á¦ ÀÔ´Ï´Ù. À̺κп¡ ´ëÇÑ ¿¹¿Ü Á¶Ä¡°¡ ÇÊ¿äÇÕ´Ï´Ù. ±×Àü¿¡ ¸íÈ®È÷ ÇؾߵɰÍÀÌ Ç¥º»ÀÌ 1°³À϶§´Â ¸î°³¸¦ »ùÇøµ ÇÏ´ÂÁö ÇÊ¿äÇÕ´Ï´Ù. Ç¥º»ÀÌ 1°³ÀÏ ¶§ µ¿ÀÏÇÑ °ªÀ» 6°³ »ùÇøµ Çϴ°ÇÁö¿ä
|
0
0
85³â»ý
¿Í.. °ø¹éÀ» Àâ´Â°Ô Àú·± ¼ö½Ä¾î¸¦ Ãß°¡ÇÏ¸é µÇ´Â°Å¿´³×¿ä.. ¾ÆÁ÷ ±¸µ¿¿ø¸®´Â ÀÌÇØ´Â ¾ÈµÇÁö¸¸ Á¤¸»·Î °¨»çµå¸³´Ï´Ù.
Ç¥º»ÀÌ 6°³ ÀÌÇÏ´Â ¸ðµÎ »ùÇøµÁ¶°ÇÀÔ´Ï´Ù. 1 = »ùÇøµ 2 = »ùÇøµ 3 = »ùÇøµ 4 = »ùÇøµ 5 = »ùÇøµ 6 = »ùÇøµ 7 ~ 12 = 6°³ ·£´ý»ùÇøµ
¹æ½ÄÀÌ ¾î·Æ´Ù¸é ±¸ÇöÀÌ ¾î·Æ´Ù¸é ÀÌÁ¦ °ø¹éÀ» Àâ¾Ò±â ¶§¹®¿¡ elseif A=1 then ÀÌ·±½ÄÀ¸·Î 6±îÁö ¸¸µé¾î¼ Ãß°¡Çؼ Àû¿ë½ÃÄѺ¸µµ·ÏÇÏ°Ú½À´Ï´Ù.
µµ¿òÁּż °¨»çÇÕ´Ï´Ù., |
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
|
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
|
0
0
85³â»ý
ÁøÂ¥ ª³×¿ä.. ¹è¿ö°©´Ï´Ù.
Dim º¯¼ö Áߺ¹À» ¸·´Â¹æ¹ýÀ» ¸ô¶ó¼ ³ë°¡´Ù Çϴµ¥ ½Å±âÇϳ׿ä.. °¨»çÇÕ´Ï´Ù |
|
|
¡â ÀÌÀü±Û¡ä ´ÙÀ½±Û | ¸ñ·Ïº¸±â |