なろう系小説のタイトルを自動で作ってみたぜイエ～～イ！！

作者：超プリン体

途中にはられているExcel VBAのコードは、転載改変配布自由です。

　なろうに投稿をしてみたけど、案の定というか、意外なほどにというか、あんまり反響が得られなくてしょんぼりとしている私。理由はいろいろあるんだろうけど、そのうちの一つにタイトルがあるんじゃないかと思って悩んでみた。

　人様の作品のタイトルを見ていても、「お、おもしろそう」、というタイトルと、「ふーん……」っていうタイトルがあるよね。そんな中にある、「おもしろそう」なタイトルの要素だけを集めて、ランダムでタイトルを生成したら、ヒット作品違いなしだーと思って、作ってみました。

Excel VBAで作った、「なろう系タイトルジェネレータ」

↓

こういう厨二系的なタイトルって、意外と自分で作ろうとすると、難しいよね。苦労している人は、もしExcelを使える環境なら、ぜひ↓に貼ってあるソースコードを読んで、理解して、使っていただきたい。がんばえーーーー。

ソースコード、ここから＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

'このオプションを入れておくと、バグが減るよ

Option Explicit

'定数だよ。ソースコードを読みやすくする工夫だよ

Const COL_START As Long = 2

Const RAW_START As Long = 2

Const COL_RESULT As Long = 1

Const RAW_RESULT As Long = 2

'キーワードを格納しておくための配列だよ

Dim word() As String

'ここからが自動作成マクロ本体だよ。

'フォームコントロールの「ボタン」を置いて、

'右クリック「マクロの登録」でこのSubを登録するお。

Public Sub タイトル自動作成乙()

Dim i As Long

　　　　Dim j As Long

　　　　Randomize

　　　　ReDim word(1)

　　　　i = COL_START

　　　　　　　　If Cells(RAW_START, i) = "" Then Exit Do

　　　　　　　　j = RAW_START

　　　　　　　　　　　　If Cells(j, i) = "" Then Exit Do

　　　　　　　　　　　　word(UBound(word)) = Cells(j, i)

　　　　　　　　　　　　ReDim Preserve word(UBound(word) + 1)

　　　　　　　　　　　　j = j + 1

　　　　　　　　Loop

　　　　　　　　i = i + 1

　　　　Loop

　　　　Dim r1 As Integer

　　　　Dim r2 As Integer

　　　　Dim s As String

　　　　r1 = Int(5 * Rnd) + 3

　　　　s = ""

　　　　For i = 1 To r1

　　　　　　　　r2 = Int(UBound(word) * Rnd + 1)

　　　　　　　　s = s & word(r2)

　　　　i = RAW_RESULT

　　　　　　　　If Cells(i, COL_RESULT) = "" Then Exit Do

　　　　　　　　i = i + 1

　　　　Loop

　　　　Cells(i, COL_RESULT) = s

　　　　Cells(i, COL_RESULT).Select

End Sub

ソースコード、ここまで＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

どうだい？　かっこいいタイトルが、出来たかな！！

ご参考に、おにいさん（？）が自動作成させてみたタイトルを、少しだけ手直ししてみたものを、公開しておくぞ、いえーーい！！

　・晒す瓶詰めダイナマイト

　・瓶詰め嫁

　・特殊ＲＰＧ腹黒ダイナマイト注意国

　・イケメン腹黒魔王が紡ぐ、こじらせたチートノワール

　・量産型特殊ニート

　・魔法船上瓶詰め戦争死神宝石～ゲーム

　・物語ヒロイン　君にランダム死亡フラグゲーム

　・大人のセクハラ冒険　謎美少女

　・エログロ腹黒闇ツンデレガーディアン

　・宝石ニートＲＰＧ

　・輝く宝石ニート

　・生まれ変わったら小さな大陸航海少女

　・本当に彼女のほしいラスボスの過激な日常

　・不死者結晶ダンジョン

　・抱きしめてほしい瞑想機械

　・夢みるガーディアン

　・恋した機械　本当の乱舞

　・白い召喚ニートバトル物語

　・魔王、森の瓶詰め

　・光る地獄嫁バトル神話

　・あふれ出すバトル要素王女様崩壊ハッピーエンドシミュレーション

　・咲き誇るスピリチュアル～片思いＲＰＧ

　・切ないおもちゃの国

　・地獄エルフ犬

　・脳内ヒロイン召喚マスター

　・暗殺者魔法謎女子高生～お楽しみください

　・生まれ変わったら、ぶっちゃけおやつ

　・ほのぼのノワールへっぽこライフ

　・メイドガーディアンお色気神話

　・ハッピーエンド森のお手伝い

　・夢みる悲哀機械　紡がれる神話

　・女子高生を不死者にするとこうなる

　・転生夢みるわんこ　わんこ愛している

　・変身残酷奇書

　・王家庭教師こじらせた航海記伝説

　・注意、ときどき性的に美少女結晶

　・ラスボスわんこ地獄

　・薄い本お手伝い神話冒険片思い

　・ちゅっちゅハーレム勇者

　・光る不死者リベンジ　生まれ変わったらツンデレ晒す

　・湖の奇書　チート満載薄い本

　・黒歴史地獄

　・ランダム嫁少女

　・甘いイケメン魔族戦争

　・大人転生小さな王女様あふれ出す谷

　・ファンタジー旅人生伝説　恋した霊界女教師

　・３時のラジオゲームですし

　・恋愛わんこハーレム能力あげてください

　・ドキドキニート航海記

　・美少女マスター

　・特殊闇能力お色気地獄チートペット

　・素敵なおもちゃの診断犬

　・ダンジョン権化地獄天使

　・女子高生３分間で転生

　・冒険悪魔完全ドキュメント

　・黒のガーディアン娘と死亡フラグわんこ

　・王神魔法

　・最近流行の腹筋ヒロイン早見表

　・死海写本国家転生天使

　・ぶっちゃけハーレム病　非常識メイド漬け

　・魔法使い機械キラキラ～人生満開

　・こじらせエルフ　もしリアルだったら守っていいですか？

　・早すぎたお手伝い　愛しているファンタジー

　・大きくなったらダンジョン死神ハムスターになります

　・湖のニート夢みる

　・存亡奇怪神

　・神速自慢の大人のチート

　・猫３分間で素敵な片思い

　・バカンスニートと完全粉砕神速無関心女子高生

　・魔法師草はえるドキドキ

　・エログロマスターＲＰＧ

　・女教師腹筋事故完全粉砕埋葬

　・神速殺されるゴーレム悲哀

　・仮想世界伝説　快楽熱く昼の美少女

　・夜の犬ギガパスカル

　・神速権化

　・セクハラオーク門

　・感じるヒロイン怪奇瓶詰め

　・隠されたマスターわんこ谷

　・神曲ドキドキオーバーライフ

　・素敵な人形～量産型

　・親子～オンラインニートテクノロジー

　・ハーレムハッカー　ヒロイン満載ペットＲＰＧ

　・ツンデレ精霊天使地下異世界

　・空前絶後の素敵なオンライン

　・伝説のゴブリン燃え尽きた勇者の刃　死亡霊界

　・人生注意報～セクハラゆっくり死亡フラグ

　・朝の快感燃え尽きたハーレム

　・ツンデレ超絶蛮族

　・クマムシ権化ダイナマイト

　・キラキラ殺戮異世界

　・戦闘力チートいやらしい

　・あがなう魔法猫

　・ダイナマイトゴーレム戦争どうでしょう？

　・腹黒無関心ですしゴブリン

　・存亡保険金殺されるわんこリアル変身

　・快楽夏の魔法林

　・魔王ヒロイン性玩具快感魔法

　・兄嫁森のラスボス

　・養殖早すぎたいろいろとです

　・都市伝説人妻苦手なニート異世界

　・するとこうなるダンジョン庭師培養日常ラスボス

　・秋の感じるもし　～　だったら特殊わんこ

ふおおおお！！　自動生成すげええええ！！（白目。

と、ちょっと今日はハイテンションでお送りしました。