架空の社名

突然、面倒臭くなった。 何がって、テスト用の表を作成するのが、とても面倒くさくなったのだ。 特に面倒なのが、会社名だ。そこで、適当な社名を返す関数を作ってみた。 Function FictitiousName(Optional min_length As Long = 3, _ Optional max_length As Long = 5) As String ' 社名の文字数をランダムに決定。 Dim N…