Excelのこととか色々

マクロをどんな Excel ファイルにも実行できるように設定して、3秒かかる操作も1秒で完了。あといろいろ書いてみます・・・

【Excel で OXゲームを作る2】マクロ編

【OXゲームを作る】

   

  まるばつGame

 

Excel で OXゲームを作る、2回目です。

一部、動作に不備はあるのですが、正しく操作すれば問題なく

遊べるようにはなりました。

 

その個所は後々考えていきます。

本日は、マクロ紹介です。

 

各部品のオブジェクト名

フォーム外観

 
番号 部品 オブジェクト名 Visible
 ①  勝敗表示(ラベル)  lblResult  True
 ②  ゲームフィールド(ラベル)   lbl001~lbl009   True
 ③  マル画像(イメージ)  imgO  False
 ③  ばつ画像(イメージ)  imgX  False
 ④  決定ボタン  cmdEnter  True
 ④  リセットボタン  cmdReset  True
 ④  閉じるボタン  cmdClose  True

 

 

***************************************************************

マクロ

モジュールレベル変数

Dim A As Long, B As Long, C As Long
Dim D As Long, E As Long, F As Long
Dim G As Long, H As Long, I As Long
Dim Score As Long
Dim Flg As Long

'A~I(アイ)は lbl001~009 と対応させたフラグです
'このA-Iにマルが置かれたら「1」を、バツが置かれたら「10」を
'代入し、勝敗を計算します

'Score は A~I のSumを代入して引分けの判定に使用します

'Flg はバツを置くときの計算に使用します

                  

閉じるボタン

Private Sub cmdClose_Click()
 End

End Sub

                  

リセットボタン

Private Sub cmdReset_Click()

 Call UserForm_Initialize
End Sub

                  

フォーム初期化

'リセット兼用です

Private Sub UserForm_Initialize()

'主に、リセットの時用です
'マルを置く場所を決定したら、その場所をロックします
'その解除です
 lbl001.Enabled = True
 lbl002.Enabled = True
 lbl003.Enabled = True
 lbl004.Enabled = True
 lbl005.Enabled = True
 lbl006.Enabled = True
 lbl007.Enabled = True
 lbl008.Enabled = True
 lbl009.Enabled = True

 

'勝敗が決定したら決定ボタンをロックして、余計な動作をさせないようにします
'その解除です
 cmdEnter.Enabled = True

 

'ゲームフィールドの初期化です
'各ラベルの Picture を空にします
 lbl001.Picture = LoadPicture(none)
 lbl002.Picture = LoadPicture(none)
 lbl003.Picture = LoadPicture(none)
 lbl004.Picture = LoadPicture(none)
 lbl005.Picture = LoadPicture(none)
 lbl006.Picture = LoadPicture(none)
 lbl007.Picture = LoadPicture(none)
 lbl008.Picture = LoadPicture(none)
 lbl009.Picture = LoadPicture(none)

 

'勝敗結果も初期化します。
 lblResult.Caption = ""

 

'各ゲームフィールドにフラグを立てました
'このフラグが立っていたら、そのフィールドには、マル/バツを置けないようにします
'その解除です

 A = 0
 B = 0
 C = 0
 D = 0
 E = 0
 F = 0
 G = 0
 H = 0
 I = 0
End Sub

**********************************************************

本日はここまでにします。

(疲れちゃった・・・)

 

動作の核となるマクロは後日。

 

/_/_/_/_/_/_/_/_/_/_/_/_/_/_

 

個人用マクロブックについてはこちら

www.tuna-kichi.com

 

リボンに登録についてはこちら

www.tuna-kichi.com

 

 

_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

にほんブログ村 子育てブログ 幼稚園児育児へ
にほんブログ村
にほんブログ村 英語ブログ 初心者英語へ
にほんブログ村
にほんブログ村 IT技術ブログ VBAへ
にほんブログ村

==================================

  Graspyで無料プログラミング講座を受講する