こんにちは、とりっぷぼうるです。
元々エクセルとは全く縁のない生活をしていましたが、人員不足などで少しでもデータ入力作業や集計作業を効率化するしか方法が無く、仕方がなくエクセルに取り組み始まました。
なぜならば、大きな会社ならば専用ソフトやクラウド上でデータ集計や管理を行うのでしょうけど、小さなところではそのようなお金もないのでエクセルで解決するしか方法が無いのですよね。
このような理由からエクセルに取り組み始めましたので、当然ながらエクセルの専門知識もなく、学校に通うこともできずにただ単にエクセルの書籍とにらめっこしながら取り組んでいます。
でも書籍のままだと実用的でないことが多く、VBAコードを組み合わせてみたら動いた！という実用例・体験談を書いています。
ユーザーフォームの×ボタンを使えなくする
ボウリングのリーグ戦での成績表でも必ず使うユーザーフォーム。
これがあるとボタンひとつで繰り返し作業を自動で行ってくれるので、あっという間にリーグ成績表が出来上がってくれます。
そのユーザーフォームの右上にある✖ボタン。通常押せばユーザーフォームを閉じられますが、プログラムの関係上使われては困ることありませんか？
✖ボタンを押されてしまった為に、次の自動作業がストップしてしまったことありませんか？
押さないように使う人にお願いしています！
そんな時は使えなくしてしまえばいいのです。
この画像のような✖ボタンだよ！
画像
このユーザーフォームにも右上に✖ボタンありますよね。
この✖ボタンを押されてしまうと、次の項目などがなくなってしまいますので、やむなくシート【HOME】へ移動するしかありません。
ところが、HOMEへ行ってもメインのMENUフォームは現れませんので、保存して終了するしかなくなってしまいます。
必ず【MENU】ボタンを押す必要があるのです。
そこでこのユーザーフォーム自体に、×ボタンが使えないようにするExcel-VBAコードを書き加えておきます。
そうすると、VBAコードを書く場所へ移動します。
このPrivate Sub UserForm_Click()～End Subをすべて消して、下記コードに差し替えます。
If CloseMode = vbFormControlMenu Then
MsgBox “【CLOSE】ボタンを使用してください”
Cancel = True
End If
End Sub
そうすると、ユーザーフォームの✖ボタンが使えなくなり、メッセージで案内します。
ただ、このままだと✖ボタンを押したのと同じなので、15秒後に自動復帰するようにExcel-VBAコードを書き足しています。
【OK】を押すと（OKしか押せない）15秒間はユーザーフォームが消えて、ボウリングリーグ戦の個人成績一覧が見られるようになっています。
15秒後自動的にユーザーフォームが再表示されます。
そんなExcel-VBAでタイマー設定なんてできるの？
また次の授業で教えてあげるね💛
各コントロールまとめて転記シリーズ
ユーザーフォームを使うと配置したコントロール（テキストボックスやラベルなど）とセルとの間で値のやり取りが多くなります。
よく使うのでまとめてみました。
| 値の場所 | 転記したい場所 | 説明ページ |
| セルの値 | ラベル名 | VBAコード |
| セルの値 | テキストボックスの値 | VBAコード |
| セルの値 | コマンドボタンの表示名 | VBAコード |
| セルの値 | セルの値 | VBAコード |
| テキストボックス入力値 | セルの値 | VBAコード |
成績表作成には知っておきたいExcel-VBAもくじ
エクセルの勉強お疲れ様です。ちょっとひと休みしませんか？
コメント