マクロ エクセル 最初の一滴

Sub sqlcmd()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Activate
If ActiveSheet.Name <> "説明" And ActiveSheet.Name <> "説明a" Then

Dim sql_cmd As String
sql_cmd = ":r """ & Range("B1").Value & "\"

Open ActiveSheet.Name & ".sql" For Output As #1
For i = 3 To 600
If Range("B" & i).Value = "" Then
Exit For
End If
Print #1, "Print " & sql_cmd & Range("B" & i).Value & """"
Print #1, sql_cmd & Range("B" & i).Value & """"
Print #1, "GO"
Next i
Close #1
End If
Next Ws
End Sub

趣味はあっても、人に語れる趣味ではない

会社の飲み会で、「趣味あるの？」と聞かれる。

私は、「特にないです」と答え、会話が終わるか、

または、「休みの日は、何してるの？」と聞かれ、

「テレビ見てたら、１日終わっています」とか言っている。

私には、人に語れる趣味はないが、

人に語れない趣味ならある。

アイドルの画像・動画を見るは私の趣味の一つだ。

これは語る人も多いと思うが、私は語らない。

それが無難だと思っている。

語る人を見ても、私は乗っかることはない。

そっちの方が、私にとって、都合がいいと思っている。

また、一人エッチも趣味の一つとして考える。

私にとっては、AVの動画を準備するだけだが、

人によっては、バイブなどの道具を収集する人もいるだろう。

道具や動画の収集、実践(一人エッチ)については、　　＜ーー実践ってなんだよ

正直、語るのは難しい。

本音で語ることが、良いことのように思う時もあるが、

会社の飲み会で一人エッチを語るのは、相手を不快にさせる可能性があるし、

セクハラだと思う。

だから、語れない。

語れない時間を過ごしている自分に対して、

趣味を聞かれるのは酷である。

ただ、一人エッチ以外のこともしろよとは思う（笑）