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

½Ð°Ý§Ú·Q±Æ°£ÀH¾÷¸¹½X¸Ó«ç½s¼g

Private Sub Worksheet_Calculate()
Do
[a2:a6] = "=RandBetween(1, 42)"
Loop Until [sumproduct(1/countif(a1:a6,a1:a6))] = 6
End Sub

TOP

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD