VBA(ランダムデータ作成)

 

https://zenn.dev/masahiro_toba/articles/86cf601edc2ea4
https://excel-vba.work/2022/02/22/%E3%80%90vba%E3%80%91%E6%97%A5%E4%BB%98%E3%81%AE%E4%B9%B1%E6%95%B0%E3%82%92%E5%8F%96%E5%BE%97%E3%81%99%E3%82%8B/
https://qiita.com/pocket8137/items/8cf7f23e4ed40e5a401f

-- 1. 開発タブの挿入でボタンを作成
※ActiveXコントロールのものを使用する

-- 2. デザインモードONで作成したボタンをダブルクリックするとエディタが開くので下記コードを記載。デザインモードOFFで実行

 

Option Explicit

 

Private Sub CommandButton1_Click()

    '画面を更新しない
    Application.ScreenUpdating = False
    '確認メッセージを表示しない
    Application.DisplayAlerts = False

    Dim i As Long
    Dim j As Long
    
    
    Randomize
    
    
    '1以上1000以下の整数
    For i = 1 To 20
        Debug.Print Int(Rnd * 1000 + 1)
    Next i
    
    
    
    'アルファベット10文字
    
    Dim s As String
    s = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    
    
    For i = 1 To 20
        Dim out As String
        out = ""
        
            For j = 1 To 10
                out = out & Mid(s, CLng(Len(s) * Rnd + 1), 1)
            Next j
        Debug.Print out
    
    Next i
    
    
    '2019/01/01-2023/12/31の日付
    For i = 1 To 20
        Debug.Print Format(CDate(WorksheetFunction.RandBetween("2019/01/01", "2023/12/31")), "yyyy/mm/dd")
    Next i
    

    '確認メッセージを表示する
    Application.DisplayAlerts = True
    '画面を更新する
    Application.ScreenUpdating = True

End Sub