kiwofusi→のにてらはなとに 「野に寺、花と丹」
satomies→とちからもにいと 「土地からもニート」
ekken→いののいみ 「猪の意味」意味なんて無いよ！
kanimaster→のちみにもちとかいす 「後、身に餅と解す」意味なんて無いよ！
reitoki→すいにからのに 「吸いに殻のに」シケモク？
doggylife→しらききんりにはい 「白木、金利にハイ」バブリーみのる。
kotorikotoriko→のらからすにのらからすにのら 「野良鴉に野良鴉にノラ」ジョーンズ？
hasenka→くちといみのち 「口と意味の知」おお！
konichan→のらみにそくちみ→逆から読むと「みちくそにみらの」、道草にミラノ。コジャレてる。「道糞にミラノ」なら臭い。
nonokayume→みらみらのちんなもい 田舎のおまじないみたい。「ミラミラのチンナモ～い！」
hashigotan→くちとくにきらかちみ 「朽ち解くに」というのは良いなあ。
funamushi2→はなみちもなとくにふ 「花、道も無く」という語感は良いなあ。
kakako→のちのちのら 「後々野良」もう既に野良だと思う。
意味のないものに意味をこじつけるのは、たまにやると楽しい。
というわけで、仕事も兼ねて置換前後の辞書をあらかじめ登録しておいてまとめて置換するマクロ。
Dim bef As String
Dim aft As String
Worksheets("master").Select
Range("A1").Select
Do Until ActiveCell.Value = ""
bef = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
aft = ActiveCell.Value
Worksheets("cal").Select
Range("A1").Select
ActiveCell.Replace What:=bef, Replacement:=aft, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False
Worksheets("master").Select
ActiveCell.Offset(1, -1).Select
Loop
Worksheets("cal").Select
.gif)
＞もう既に野良だと思う。
ガハハ☆ コレ嬉しい。
気に入った。
改HNしたいくらい。
「mstoko」で「もとからのら」ですよ。