VBAでATMのようなランダムキーを作ってみた

1 VBAでATMのようなランダムキーを作成する
2 ランダムキーのサンプルコード
- 2.1 共有:

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

VBAでATMのようなランダムキーを作成する

というわけで、今回作成するのは下記の画像のような「ランダムキー入力フォーム」です。

使用したコントロール

テキストボックスコントロール
コマンドボタンコントロール

のみです。単純な構成ですね(笑)

今回は前に作成した【クリックナンバー】のように【０～9を重複しないように数値をランダムに生成】する処理が必要となります。

重複しないように数値をランダムに生成する方法については下記の記事でも紹介しています。
【VBA　ランダムの数値を条件を指定して出してみよう！】
重複するかどうかは、配列を見て【TrueかFalse】で判断します。

ランダムキーのサンプルコード

ランダムキーのサンプルコードは以下の通りです。

構成自体は簡単なものなので、よければお使いください(^.^)

Private Sub UserForm_Initialize()
'入力した数値を隠す設定
TextBox1.PasswordChar = "*"
Dim myFlag(0 To 9) As Boolean
Dim RndNo As Long
Randomize
For i = 1 To 10 'コマンドボタン分の数を指定します。
Do
RndNo = Int(Rnd * 10) '今回は０～９のランダムな数値を取得するのでこれでOKです。
Loop Until myFlag(RndNo) = False '配列をみて使われた数値かを判断します。
Controls("CommandButton" & i).Caption = RndNo
myFlag(RndNo) = True
Next i
End Sub
'ここから下はテキストボックスにボタンのCaptionの数値を入力する処理
Private Sub CommandButton1_Click()
TextBox1.Value = TextBox1.Value & CommandButton1.Caption
End Sub
Private Sub CommandButton2_Click()
TextBox1.Value = TextBox1.Value & CommandButton2.Caption
End Sub
Private Sub CommandButton3_Click()
TextBox1.Value = TextBox1.Value & CommandButton3.Caption
End Sub
Private Sub CommandButton4_Click()
TextBox1.Value = TextBox1.Value & CommandButton4.Caption
End Sub
Private Sub CommandButton5_Click()
TextBox1.Value = TextBox1.Value & CommandButton5.Caption
End Sub
Private Sub CommandButton6_Click()
TextBox1.Value = TextBox1.Value & CommandButton6.Caption
End Sub
Private Sub CommandButton7_Click()
TextBox1.Value = TextBox1.Value & CommandButton7.Caption
End Sub
Private Sub CommandButton8_Click()
TextBox1.Value = TextBox1.Value & CommandButton8.Caption
End Sub
Private Sub CommandButton9_Click()
TextBox1.Value = TextBox1.Value & CommandButton9.Caption
End Sub
Private Sub CommandButton10_Click()
TextBox1.Value = TextBox1.Value & CommandButton10.Caption
End Sub

Private Sub UserForm_Initialize()

'入力した数値を隠す設定

TextBox1.PasswordChar = "*"

Dim myFlag(0 To 9) As Boolean

Dim RndNo As Long

Randomize

For i = 1 To 10 'コマンドボタン分の数を指定します。

RndNo = Int(Rnd * 10) '今回は０～９のランダムな数値を取得するのでこれでOKです。

Loop Until myFlag(RndNo) = False '配列をみて使われた数値かを判断します。

Controls("CommandButton" & i).Caption = RndNo

myFlag(RndNo) = True

Next i

End Sub

'ここから下はテキストボックスにボタンのCaptionの数値を入力する処理

Private Sub CommandButton1_Click()

TextBox1.Value = TextBox1.Value & CommandButton1.Caption

End Sub

Private Sub CommandButton2_Click()

TextBox1.Value = TextBox1.Value & CommandButton2.Caption

End Sub

Private Sub CommandButton3_Click()

TextBox1.Value = TextBox1.Value & CommandButton3.Caption

End Sub

Private Sub CommandButton4_Click()

TextBox1.Value = TextBox1.Value & CommandButton4.Caption

End Sub

Private Sub CommandButton5_Click()

TextBox1.Value = TextBox1.Value & CommandButton5.Caption

End Sub

Private Sub CommandButton6_Click()

TextBox1.Value = TextBox1.Value & CommandButton6.Caption

End Sub

Private Sub CommandButton7_Click()

TextBox1.Value = TextBox1.Value & CommandButton7.Caption

End Sub

Private Sub CommandButton8_Click()

TextBox1.Value = TextBox1.Value & CommandButton8.Caption

End Sub

Private Sub CommandButton9_Click()

TextBox1.Value = TextBox1.Value & CommandButton9.Caption

End Sub

Private Sub CommandButton10_Click()

TextBox1.Value = TextBox1.Value & CommandButton10.Caption

End Sub

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

カテゴリーで絞る

月で探す

VBAでATMのようなランダムキーを作ってみた

taka

最新記事 by taka (全て見る)

VBAでATMのようなランダムキーを作成する

ランダムキーのサンプルコード

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

コメントを残すコメントをキャンセル

翻訳【translation】

現在のオンライン数

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

最新記事 by taka (全て見る)

VBAでATMのようなランダムキーを作成する

ランダムキーのサンプルコード

ファイルやコードの利用、WEBサイトの利用について

Sponsored Link

共有:

コメントを残す コメントをキャンセル

RECOMMENDこちらの記事も人気です。

VBA ﾘｽﾄﾎﾞｯｸｽの一番下を表示させる方法

VBA 【Escキー】で処理を中断する、無限ループからの脱出！

VBA ユーザーフォームのデザインを考えてみる2(コマンドボタンエフェクト)

Listbox(ﾘｽﾄﾎﾞｯｸｽ)を検索する方法

VBAでyahooメールを受信して見た

statusbar(ステータスバー)を非表示にする

数値だけが入力できるTextBoxを作成する方法

マクロをショートカットで実行する方法

翻訳【translation】

現在のオンライン数

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

コメントを残すコメントをキャンセル

VBA　ﾘｽﾄﾎﾞｯｸｽの一番下を表示させる方法