2007年07月03日

土地からもニート(意味ナシの遊び)

 mp3のことを「もせ」と呼んだり、QWERTYを「たていすかん」と言ったり、アルファベット配列をかな配列に置き換えるのはポピュラーなわけですが、ちょっとそれで遊んでみた。

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
posted by LSTY | Comment(2) | TrackBack(0) | 駄洒落 | このエントリーを含むはてなブックマーク このエントリーを含むはてなブックマーク
この記事へのコメント
>のちのちのら
>もう既に野良だと思う。

ガハハ☆ コレ嬉しい。
気に入った。
改HNしたいくらい。
Posted by kakako at 2007年07月04日 14:53
■kakakoさん
 「mstoko」で「もとからのら」ですよ。
Posted by LSTY at 2007年07月04日 16:13
コメントを書く
お名前: [必須入力]

メールアドレス:

ホームページアドレス:

コメント: [必須入力]

この記事へのトラックバックURL
http://blog.seesaa.jp/tb/46531483
※言及リンクのないトラックバックは受信されません。

この記事へのトラックバック
過去ログ
×

この広告は1年以上新しい記事の投稿がないブログに表示されております。