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の動画を準備するだけだが、
人によっては、バイブなどの道具を収集する人もいるだろう。
道具や動画の収集、実践(一人エッチ)については、 ＜ーー実践ってなんだよ
正直、語るのは難しい。
本音で語ることが、良いことのように思う時もあるが、
会社の飲み会で一人エッチを語るのは、相手を不快にさせる可能性があるし、
セクハラだと思う。
だから、語れない。
語れない時間を過ごしている自分に対して、
趣味を聞かれるのは酷である。
ただ、一人エッチ以外のこともしろよとは思う（笑）