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

フォロー・チャンネル登録お願いします

■Twitterフォロー

Follow @taka_pc1027

■YouTubeチャンネル登録

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

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

カテゴリーで絞る

月で探す

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

taka

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

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

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

フォロー・チャンネル登録お願いします

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

Sponsored Link

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

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

カテゴリーで絞る

月で探す

taka

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

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

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

フォロー・チャンネル登録お願いします

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

Sponsored Link

共有:

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

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

VBA ユーザーフォームのデザインを考えてみる(アニメーション効果作成)

VBA ユーザーフォームにPDFを表示する方法

VBA ランダムの数値を条件を指定して出してみよう！

VBAの処理の時間を取得する方法2(Timer関数)

VBAセルの範囲に数式が使われているか取得する

sheet名の一覧をダブルクリックし対象のsheetに移動させる

StatusBar(ステータスバー)を使用してみる

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

アクセスカウンター

プロフィール

Facebook

Twitter

当サイトの環境について

特別企画実施中

アーカイブ

最近の投稿

メニュー

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

VBA　ランダムの数値を条件を指定して出してみよう！