スヌーピーが原因で彼と別れそうです(1)

2012年01月24日 20時45分

スヌーピーが原因で彼と別れそうです

こんにちは。私は２２歳女（大学生）です。
私には付き合って約三ヶ月になる彼氏（２５歳・社会人）がいます。
彼は、キャラクターのスヌーピーがとても好きで、部屋中スヌーピーグッズで埋め尽くすほど夢中になっています。
付き合い始めの頃は、会話の中でたまにスヌーピーの話を振ってくるぐらいであまりスヌーピー好きを前面に出すことはなかったのですが、一ヶ月経った辺りから彼の行動がエスカレートしてきました。
彼の部屋にとても大きなサイズのスヌーピーぬいぐるみがあるのですが、まず部屋に入ったらそのスヌーピーに挨拶しないと怒られたり、Ｈをする時はスヌーピーの目があるから恥ずかしいとかなんとか訳の分からない事を言って絶対に彼の部屋ではしようとしません。
そして私は、たまに旅行先や雑貨屋で彼の持っていないスヌーピーのグッズをお土産で買ってくるのですが、それをプレゼントすると子供のように大はしゃぎし、一人で「うわー！」と言いながら色んな角度から写メを撮り始めます。
そして次の日になると、彼はそのグッズを会社まで持っていき「おはよう！きょうは　おでかけだ！おひさま　らんらん！」などと、私の買ってきたスヌーピーグッズになりきったメールを一日中送ってきます。（電話では正常）
最初は私も、可愛いな～などと思い「くるまにきをつけてね！」といった風に彼に合わせた返信をしていました。
が、最近は毎日の様にそういったメールを送ってきて、私が普通に送ったメールにもスヌーピー口調（本当にスヌーピーがああいう話し方なのか知りませんが）で返信、私がそれに対して普通の口調で返すと不機嫌になりメールを止めてしまう、といった事がよくあり少し億劫になってました。
そしてこの間、私が学校帰りに変な人に声を掛けられ怖かった、という内容のメールを送った所「あはは～ものずきなひと！」といったスヌーピー口調の返信が返ってきて、そこで無性に腹が立った私はついカッとなり「ふざけるのも大概にしろ犬畜生。スヌーピーとかアホか」と返信してしまいました。
すると彼からのメールはぴったりと止み、次の日からメールも電話も一切こなくなりました。驚きました。私が「さっきはごめん」と謝っても全く返信が来ません。
まさかこんなに怒ってしまうとは思いもよらなかったので、正直かなり戸惑っています。直接彼の家に行って謝りに行きたい所ですが、怖くてなかなか実行に移せません。悩みすぎて最近はスヌーピーを見るだけで吐き気がします。
友人には「面倒臭い人だなあ。そのまま別れちゃえばいいじゃん」と言われましたが、それでも私はまだ彼の事が好きですし、別れたいとは思いません。彼が嫌いになってなければですが・・・・。
ですがいくら自分の大好きなキャラクターを彼女に侮辱されたからといって、連絡を絶つほど相手を嫌いになるのでしょうか？こんな状態で私と彼が仲直りできる可能性はあると思いますか？
なんか文章ごちゃごちゃですみません・・・・第三者から見るととても可笑しな話ですが、ご回答頂けたらと思います。よろしくお願いします。長文失礼しました。

生理後１週間以内の中だし

12月31日～1月5日まで生理で、1月11日に中だしをしました。
妊娠の可能性はありますか？
知識がなくいろいろ調べましたがわかりません。
どなたか教えて下さい(>_<)

子連れ(1歳半)TDL おすすめは？

こんにちは。
今週末10/29ハロウィーンイベント中の東京ディズニーランドへ
１歳半の息子を連れて行きたいと思っています。

お目当てはやはりハロウィーンのパレードですが、
そのほか子連れならではのオススメや注意点あれば教えてください。

大塚製薬　OS-1と同等のものの作り方

医者の指示でOS-1を飲用していますが、数日前に体調に変調をきたし、
医者に電話で相談したところ、飲料水を全量OS-1に切り替え、２時間おきに体重をはかり、指示された体重との差をOS-1で補うよう指示されました。
現在、一日のOS-1の飲用量が３リットルに達しています。
それで、実は本日病院の売店に行ったところ、在庫切れで二本（１リットル）しか手に入らず、楽天で１０ケース手配しましたが、到着までしのぐ為の飲み物を探しています。
どなたかご存知の方、教えていただけませんでしょうか。
体調の変調の内容は、
・食塩の味が常時わからなくなった
・体重の減少量が大幅に増えた
・尿量が増えた
です。病名は特に聞いていません。

エクセルVBAで複数列データを１列に配列替えしたい

先日この欄で教えていただいたのですが、
確認を忘れてしまい、うまくゆかないので再質問させていただきます。

複数列の複数行（例A列3行～F列20行）に関数式によるデータが入っています。
これを縦１列に配置替えしてテキストにoutputするということで次のVBAを教えてもらったのですが
途中で止まってしまいました。お知恵を貸してください。

Sub closs()
Dim myRng As Range
Dim i As Long
Sheets("データシート").Select
Set myRng = Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight))
Sheets("貼り付け").Select
For i = 1 To myRng.Columns.Count
　Range("A1").Offset((myRng.Rows.Count) * (i - 1)).Resize(myRng.Rows.Count) _
　　= myRng.Columns(i).Value
Next
End Sub

※例としてA列3行～F列20行を１グループとして縦１列に配列替えをしてテキストに出力する。
※マウスによるカーソル位置をデータトップのA3またはそれより上の空欄において実行する。
※グループの途中（例A21～F24）を空欄（関数式なし）として次のグループが存在し、グループか存在する場合同じ作業を繰り返し
別のテキストにoutputする。
※列を増やしたい場合の対応もできるようにしておく。

よろしくお願いします。

広告枠

http://www.gaccha.jp/catalog/index/126: 「ガッチャ」は、遊戯王カードに特化したマーケットプレイスです。安心・安全な決済方法と簡単な購入・出品システムを実現！/通販/割安/買取/手数料/ショップ

生活カウンセラー | スヌーピーが原因で彼と別れそうです(1)