プレゼントの抽選で使わせて頂いているすけみおさんの「抽選君」
Excelのvbaで作られているんですけど、仕事の上でもvbaが少しでも
わかるようになったらいいなって思います。
今回かづきさんがランダムにビンゴ表を作成できるExcelファイルを入手されたと
聞き、お願いしようと思ったのですが、よい機会なので自分の練習課題にと
ネットで検索しながら作ってみました。
並べ替えボタンを押すとそのたびにビンゴカードが変わります。
C列には「=RAND()」
「フォーム」で「並べ替え」というボタンを作り、マクロを登録してあります。
検索して入手した構文そのままです(大汗)
Sub ボタン1_Click()
Range("C1").Select Range("B1:C100").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin, DataOption1:=xlSortNormal
End Sub
このビンゴ表とボタンを別のページにしたいんですけど今日はここまで…(´∀`)
このあとかづきさんにお願いして、ひでぞーさん作成のvbaプログラムを拝見したいです。
今日やってみて超基礎の基礎、ボタンの付け方、マクロの登録のしかた、Sub~End Sub,
Rangeが少しだけわかりました。(汗)
この構文の内の用語やビンゴカード作成方法などで、アドバイスがありましたら
ぜひお願いしますm(_ _)m
