Office関連

ランダムな文字列を生成するVBAマクロ

文字数を指定して0-9,A-Zまでのランダムな文字列を生成するマクロです。
別の処理で使う予定だったのですが、結局使う機会が無くなってしまったのでメモとして残しておきます。

Option Explicit

Public Sub Sample()
  Debug.Print MakeRndStr(100)
End Sub

Private Function MakeRndStr(ByVal LenNum As Long) As String
'0-9,A-Zまでのランダムな文字列を生成
  Dim ret As String
  Dim num As Integer
  
  ret = "" '初期化
  Do
    num = RndScope(48, 90)
    Select Case num
      Case 58 To 64
      Case Else
        ret = ret & ChrW(num)
    End Select
  Loop Until Len(ret) >= LenNum
  MakeRndStr = ret
End Function

Private Function RndScope(ByVal MinNum As Long, MaxNum As Long) As Integer
'指定した範囲の乱数を生成
  Dim ret As Integer
  
  Randomize
  ret = Int(Rnd() * (MaxNum - MinNum + 1) + MinNum)
  RndScope = ret
End Function

[Office用アプリ]画像を挿入する。前のページ

[Office用アプリ]カレンダーから日付入力次のページ

関連記事

  1. Office関連

    代替テキストを削除するPowerPointマクロ

    PowerPointの図やSmartArt、グループやグラフといった視…

  2. Office関連

    SkyDriveの同期フォルダーのパスを取得するWordマクロ

    無料で使える便利なクラウドストレージ「SkyDrive」にはローカルフ…

  3. Office関連

    Gmail APIを使ってメール送信するVBAマクロ

    「「Gmail API」β版公開、連動アプリ開発を支援」にもあるように…

  4. Office関連

    「VBA質問箱」にアクセスできない。

    2013/03/19 追記:ドメインが更新されVBA質問箱が閲覧で…

  5. Office関連

    オフィス祭り 2018 in 東京が9月15日(土)に開催されます。

    突然ですが、私はMicrosoft Officeが大好きです。20…

  6. Office関連

    [Excel Services ECMAScript]アクティブなシート名を取得する。

    埋め込んだExcelワークブックのアクティブなシート名を取得するコード…

コメント

  1. この記事へのコメントはありません。

  1. この記事へのトラックバックはありません。

Time limit is exhausted. Please reload CAPTCHA.

Translate

最近の記事

アーカイブ

PAGE TOP