プロフィール
お得が大好きな普通の主婦です。
自分自身はもちろん、このブログを読んでくれる人にもお得になるような情報を発信していきたいです!
FC2カウンター

名の方が閲覧中♪
カレンダー
08 | 2017/09 | 10
- - - - - 1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
あなたにオススメ

05/30




ブログ内検索

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

当選発表です★

『いいね』『コメント』
いつもありがとうございます★
コチラも応援して貰えると
嬉しいですおねがい

にほんブログ村 小遣いブログ 主婦のお小遣い稼ぎへ
にほんブログ

当選発表です★

沢山のご応募有難うございました♪

今回は下のプログラムで抽選!

因みに
Excelに貼り付けると
簡単にテスト出来ますよ♪

ダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンド

Sub Sample()
  Dim i As Long, myNum As Long
  Dim myFlag(1 To 67) As Boolean
  For i = 1 To 10
      Do
           myNum = Int((67 - 1 + 1) * Rnd + 1
      Loop Until myFlag(myNum) = False
      Cells(i, 1).Value = myNum
       myFlag(myNum) = True
   Next i
End Sub

ダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンドダイヤモンド

その結果

【1000円券】
06
10


【からあげくん】
38
62
53
17

という6つの当選番号が
出されました!!

集計結果のお名前左に付いている
番号が抽選番号となります!

大変大変お手数ですが
ご自身の抽選番号を確認し
折り返しくろさわにメッセージを
送ってください!!

出来ればwowappが良いです!

いつも遊びに来てくれる方に届けば
良いなぁ~という想いから
こんな面倒な手法をとりました
ご理解いただければ
嬉しいなぁ~(*´ω`*)


ただし
現在からあげくんが品切らしく
他の商品を選んでもらう事に
なるかと思いますがご了承下さい
(コトコで買える商品)

よろしくお願いします(о´∀`о)



それではご連絡お待ちしております♡

コメント

1. 有難うございました(*˘︶˘人)

抽選お疲れ様です。
楽しい企画に参加させて頂き有難うございました。
これを機に、こちらにもまた遊びに来させて下さいね(*´╰╯`๓)♬

2. Re:有難うございました(*˘︶˘人)

>papiさん

ご参加ありがとうございました♪
またお願いします★
非公開コメント

おすすめポイントサイト
※ちょびリッチ※
サイフもココロもハッピーに!ちょびリッチ

※げん玉※


※ポイントタウン※
ポイントでお小遣い稼ぎ|ポイントタウン

※ハピタス※
日々の生活にhappyをプラスする|ハピタス

最近の記事
カテゴリー
最近のコメント
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。