ある恋の物語

★プログラムでハート形など書いていたら、昔やった遊びを思い出しました。

ホワイト・バレンタイン・デー

愛に萌え

炎のように

燃えさかる愛

凍り付く愛

燃え尽きた愛

｛矢吹　丈　｢燃えたよ、燃え尽きた、真っ白にな・・・｣｝

★シートの上の方に、ＬＯＶＥの文字パターンを数字「１」で作ります。｛別にどんな文字でもいいです。｝
ＶＢＡで、セルを順番に読み取って、内容が「１」なら、下の方に適当にずらした位置に漢字を書き込みます。
それだけ。単純でしょ。
'--------------------------
Option Explicit

Sub love()
    Dim i As Integer, j As Integer

    For i = 1 To 7
        For j = 1 To 25
            If Cells(i, j).Value = 1 Then
                Cells(i + 60, j).Value = "萌"
            End If
        Next j
    Next i
End Sub
'--------------------------

★昔、漢字ロムの中のドットパターンを読みだして、対応する位置に文字を書くという遊びをしたんですよ。３０年も前、ＳＨＡＲＰＸ１ターボで。
「白」という文字で書かれた「黒」とか｛これすっごく読みにくいです｝
「白」という文字で書かれた「白」とか｛真っ白け、とか｝
「鼠」という文字で書かれた「猫」とか。

で、「Ｃ２通信」という題のクラス通信の題字に使ったりしたのです。
あるいは、自分でデザインしたドットパターンを使って、文字を並べたりもしましたっけ。

★タイトルは、大昔、トリオ・ロス・パンチョスで聞いた歌から。「恋」を「愛」に変更して。
HISTORIA DE UN AMOR　「ある恋の物語」

「イストリア・デ・ウナモール」としか聞こえませんでしたが、長じて、多少の言語的想像力を持つようになって、これが
HISTORY OF ONE LOVE
であることに気づいたのでしたっけ。

「ベサメ・ムーチョ」は「Ｋｉｓｓ　ｍｅ　ｍｕｃｈ」でしょうね。
「ウルティマベス」なんて聞こえていたのは「Ｕｌｔｉｍａｔｅ　ｋｉｓｓ」なんだろうなぁ。
う～むぅ。究極のキス。う～むぅ。
ホワイト・バレンタイン・デーだなぁ。