ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¦bÀx¦s®æÀH¾÷¶ñ¼Æ¦r?

[µo°Ý] ¦p¦ó¦bÀx¦s®æÀH¾÷¶ñ¼Æ¦r?

¦p¦ó¦b¢µ¡¯¢µªºÀx¦s®æ¤¤¡AÀH¾÷¶ñ¢°¦Ü¢²¢µªº¼Æ¦r©O¡H

ÁÂÁ¡I

  1. Sub aa()
  2.     Dim arr(1 To 6, 1 To 6), i%, n%, b(36) As Integer
  3.     For i = 1 To 6
  4.     For j = 1 To 6
  5.         Do
  6.             n = Int(36 * Rnd + 1)
  7.             b(n) = b(n) + 1
  8.             If b(n) = 1 Then arr(i, j) = n
  9.         Loop Until b(n) = 1
  10.     Next
  11.     Next
  12.     [a1:f6] = arr
  13. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ ricky8751 ©ó 2011-11-14 11:30 ½s¿è

¤Wºô§ä¤F¤@¤U! ¦Û¤v¤]¦b¤ÀªR¤¤

G1=RAND()  - ¤U©Ô¦ÜG36
A1=RANK(INDIRECT("G"&(COLUMN()+ROW()*6-6)),$G$1:$G$36)  - ¥k©Ô6®æ¤Î¤U©Ô6®æ

Book1.zip (6.41 KB)

TOP

¥i¥H¦b ¸ê®Æ /ÅçÃÒ/³]©w¸Ì   
³]©w ¥¦¥u¯à¿é¤J 1~36:)
§õ¬K½÷

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD