■フォルダ内の任意のファイルの名前を全て取得 Sub getAllFileName() Dim fName As String '.xlsmで終わるファイルを検索(返り値はファイル名のみ。パスは含まない) fName = Dir("C:\Users\AAAAA\BBBBBB\*.xlsm") Do While (fName <> "") Debug.Print fName …

■min以上max以下の乱数を取得 Function RndBetween(min As Long, max As Long) As Long Randomize RndBetween = Int((max - min + 1) * Rnd + min) End Function ■min以上max以下の乱数を取得(ワークシート関数使用) Function RndBetween(min As Long, max A…

■選択範囲に1行おきに色を塗る Sub ZebraStriped() Dim i as long For i = 1 To Selection.Rows.Count Step 2 Selection.Rows(i).Interior.Color = RGB(0, 255, 0) Next End Sub ■選択範囲を1行おきに選択するのみ(色は自分で選ぶ) Sub ZebraSelect() Dim my…