2014-06-09から1日間の記事一覧
Dim DIC As Object, mKey Dim i As Integer, rd As Integer, no As Integer Set DIC = CreateObject("Scripting.Dictionary") For i = 1 To 52 '連想配列の作成。 DIC.Add i, i Next For i = 52 To 1 Step -1 rd = getRandom(1, i) '1~iの範囲でランダム値…
Dim gazou As String gazou = ThisWorkbook.Path & "\gif\gazou.gif" Image1.Picture = LoadPicture(gazou)