ªð¦^¦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 : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD