2021-06-25から1日間の記事一覧
Function ShuffleArr(targetArr() As Variant) As Variant() Dim tmpArr As Variant Dim rndNum As Long Dim i As Long Dim buf As Variant '元の配列を変更しないように別の配列に代入して操作 tmpArr = targetArr For i = LBound(tmpArr) To UBound(tmpArr…
Function ShuffleArr(targetArr() As Variant) As Variant() Dim tmpArr As Variant Dim rndNum As Long Dim i As Long Dim buf As Variant '元の配列を変更しないように別の配列に代入して操作 tmpArr = targetArr For i = LBound(tmpArr) To UBound(tmpArr…