vbaでビンゴカードに挑戦 | Let’s fun!! チョロQ

Let’s fun!! チョロQ

チョロQ改造日記とキャバリアくぅのわんこ日記♪

プレゼントの抽選で使わせて頂いているすけみおさんの「抽選君」

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