n-jun の回答履歴

ある女性とのメールのやりとりで困っています。 来月に２人で遊びに行こうとメールをしたのですが1週間返ってきません。 以前に会った時になんとなくお互いの予定を合わせて来月に行けたらと言っていました。 その女性とは今までに3回遊びに行っていて次が4回目です。 まだ正式に付き合っているわけではありません。 その女性は会っている時は、また遊びに行きたいと言っています。 それまでは大体1日に1回程度のメール頻度でした。 返してもらっていない状態でさらにこちらから送りたくないのですが気になってしかたありません。 意図的に返していないのかそれとも返さなくて良いと思っているのか返したつもりでいるのか等考えだしたらきりがありませんし本人にしか分からない事だと思います。 ですがこちらからしたら嫌なら嫌とハッキリしてほしいし中途半端で宙に浮いている感じで気持ち悪いです。 また今日も返ってこない返ってこないと考えるのが嫌でしかたないです。 そこで、1週間待ったのでこちらから再度メールを送ってみようと思うのですがどんな感じの内容にするのが無難でしょうか。 全く別の内容でメールするのも良いのですが今回の事にもふれたいですし… これで返ってこなかったらあきらめる事ができるような感じのメールにしたいです。 あまり相手に罪悪感を与えないようにですが。 率直に聞いてもどうせ謝ったり嘘のいいわけをしてくるだけと思いますので難しい問題です。

ある女性とのメールのやりとりで困っています。 来月に２人で遊びに行こうとメールをしたのですが1週間返ってきません。 以前に会った時になんとなくお互いの予定を合わせて来月に行けたらと言っていました。 その女性とは今までに3回遊びに行っていて次が4回目です。 まだ正式に付き合っているわけではありません。 その女性は会っている時は、また遊びに行きたいと言っています。 それまでは大体1日に1回程度のメール頻度でした。 返してもらっていない状態でさらにこちらから送りたくないのですが気になってしかたありません。 意図的に返していないのかそれとも返さなくて良いと思っているのか返したつもりでいるのか等考えだしたらきりがありませんし本人にしか分からない事だと思います。 ですがこちらからしたら嫌なら嫌とハッキリしてほしいし中途半端で宙に浮いている感じで気持ち悪いです。 また今日も返ってこない返ってこないと考えるのが嫌でしかたないです。 そこで、1週間待ったのでこちらから再度メールを送ってみようと思うのですがどんな感じの内容にするのが無難でしょうか。 全く別の内容でメールするのも良いのですが今回の事にもふれたいですし… これで返ってこなかったらあきらめる事ができるような感じのメールにしたいです。 あまり相手に罪悪感を与えないようにですが。 率直に聞いてもどうせ謝ったり嘘のいいわけをしてくるだけと思いますので難しい問題です。

高校生男なのですが、今教習所に通っています。しかしまだ1回しか行ってないのですが、友達たちはもう本試験も合格して免許所をもっている人もいます。なので教習所でひとりぼっちになり、さらにＡＴ限定なので馬鹿にされたりしたのでもう行きたくないです。そんなこんなで2週間ほどまったく行ってません。 免許を持ったほうが良いのは頭では分かっているのですが、チャラい人特有のノリが嫌で苦痛です。何かアドバイスをいただけないでしょうか？

VB6初心者です。 たとえば、From1とFrom2があり Form1からFrom2を表示 Form２でTEXT（”ABC")を入力 From2を閉じ Form1でForm2で入力したTEXT（”ABC") を受け撮りたいのですが。 どうすればいいですか？ 現在、Form1からForm2は 　Form1内から 　　Form2.Show 　　で表示しています。 よろしくお願いします。

うろ覚えなので、たぶん20年くらい前にみたアニメだと思うのですが 主人公達は変身でプロテクター？を装備する(胸当てとか 初めは主人公とそのライバル(仲間)だけだったけど、一緒に旅してる小さい子が3人目に変身 ヒロインは敵方にさらわれたあとに変身できるようになって(4人目)、いろいろあって味方に戻る 朝にがんばって早起きして見たような気がするんですが、もしかしたら他の時間帯なのかもしれません よろしくお願いします

VB2005のWebbrowserでYahoo検索した時に表示されるリンクテキストの文字を取得したいのです。 WebbrowserでYahoo検索した時に、検索で一致したサイトのサイト名(例：「アルバイト[バイト]から社員の求人まで、仕事探しはタウンワーク」「仕事 - Wikipedia」等)取得したいのですがこの部分だけを取得する方法はあるのでしょうか？ 検索ヒットが10件あれば10件すべて取得したいです。 よろしくお願いします。

Excel（エクセル）2007VBAを使って、 「複数ある、同一の置換したい文字・数」 を 「複数の文字・数」 でランダムに置換したいのですが、 VBAソースが分かりません。 たとえば、 【A列】に A1:私は(置換する所)と(置換する所)が得意です。 A2:彼は(置換する所)と(置換する所)と(置換する所)が特技です。 A3:彼女は(置換する所)と(置換する所)と(置換する所)と(置換する所)の選手です。 A4:彼らは(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)が好きです。 A5:あの人は(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)をしたことがありません。 と入力されている時に、 【B列】に B1:拳闘 B2:柔道 B3:野球 B4:籠球 B5:打球 B6:羽球 B7:剣道 B8:卓球 B9:水泳 B10:避球 と入力したとします。 そして、コマンドボタンを押すと 【A列】にあるすべての 「(置換する所)」 を、 【B列】にある「拳闘」「柔道」「野球」「籠球」「打球」「羽球」「剣道」「卓球」「水泳」「避球」のどれかで必ず置換されるようにします(【ランダムで置換】されるようにしたいです)。 ※置換の条件として、一つのセル内で同じ文字が重複しないようにしたいです。 (私は拳闘と拳闘が得意です。) 　　　　↑　　　↑ 同じ文字が2つ以上ある置換は失敗です。 --------------------------------- 置換の成功例 (重複なしの置換) ◆置換前の【A列】A5 あの人は(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)をしたことがありません。 　　　　　　↓↓↓ ◆置換後の【A列】A5 あの人は打球と柔道と水泳と剣道と避球と拳闘をしたことがありません。 --------------------------------- これが未完成のVBAソースです。 ↓↓↓ Sub test_Click() For Each CellA In Range("A1:A5").Cells Rnd1 = Int(Rnd() * 10) + 1 Rnd2 = Int(Rnd() * 9) + 1 Rnd3 = Int(Rnd() * 8) + 1 Rnd4 = Int(Rnd() * 7) + 1 Rnd5 = Int(Rnd() * 6) + 1 Rnd6 = Int(Rnd() * 5) + 1 If Rnd2 = Rnd1 Then Rnd2 = Rnd2 + 1 If Rnd3 = Rnd2 Then Rnd3 = Rnd3 + 1 If Rnd4 = Rnd3 Then Rnd4 = Rnd4 + 1 If Rnd5 = Rnd4 Then Rnd5 = Rnd5 + 1 If Rnd6 = Rnd5 Then Rnd6 = Rnd6 + 1 CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd1, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd2, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd3, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd4, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd5, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd6, 2), , 1) Next End Sub 【補足】 ※コマンドボタンを押すとランダム置換される仕様です。 ※１回限定の置換ではなく、コマンドボタンを押すたびに(何度でも)ランダム置換できるようにしたいです。 ※上記の【A列】【B列】の文字はあくまで例です。実際は、【A列】【B列】ともに自由に文字を変更できる応用の利く仕様にしたいです(Excelの【A列】【B列】に、文字を直接入力して変更するという意味です)。 ※上記の【A列】が5行、【B列】が10行というのもあくまで例です。実際は、【A列】【B列】ともに何行にでも対応できる仕様にしたいです(具体的には【A列】【B列】ともに、10000行くらいまで対応できるのが理想です)。 長くなりましたが、ここまでの条件を満たすVBAソースが知りたいです。 どうかよろしくおねがいいたします。

Excel（エクセル）2007VBAを使って、 「複数ある、同一の置換したい文字・数」 を 「複数の文字・数」 でランダムに置換したいのですが、 VBAソースが分かりません。 たとえば、 【A列】に A1:私は(置換する所)と(置換する所)が得意です。 A2:彼は(置換する所)と(置換する所)と(置換する所)が特技です。 A3:彼女は(置換する所)と(置換する所)と(置換する所)と(置換する所)の選手です。 A4:彼らは(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)が好きです。 A5:あの人は(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)をしたことがありません。 と入力されている時に、 【B列】に B1:拳闘 B2:柔道 B3:野球 B4:籠球 B5:打球 B6:羽球 B7:剣道 B8:卓球 B9:水泳 B10:避球 と入力したとします。 そして、コマンドボタンを押すと 【A列】にあるすべての 「(置換する所)」 を、 【B列】にある「拳闘」「柔道」「野球」「籠球」「打球」「羽球」「剣道」「卓球」「水泳」「避球」のどれかで必ず置換されるようにします(【ランダムで置換】されるようにしたいです)。 ※置換の条件として、一つのセル内で同じ文字が重複しないようにしたいです。 (私は拳闘と拳闘が得意です。) 　　　　↑　　　↑ 同じ文字が2つ以上ある置換は失敗です。 --------------------------------- 置換の成功例 (重複なしの置換) ◆置換前の【A列】A5 あの人は(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)をしたことがありません。 　　　　　　↓↓↓ ◆置換後の【A列】A5 あの人は打球と柔道と水泳と剣道と避球と拳闘をしたことがありません。 --------------------------------- これが未完成のVBAソースです。 ↓↓↓ Sub test_Click() For Each CellA In Range("A1:A5").Cells Rnd1 = Int(Rnd() * 10) + 1 Rnd2 = Int(Rnd() * 9) + 1 Rnd3 = Int(Rnd() * 8) + 1 Rnd4 = Int(Rnd() * 7) + 1 Rnd5 = Int(Rnd() * 6) + 1 Rnd6 = Int(Rnd() * 5) + 1 If Rnd2 = Rnd1 Then Rnd2 = Rnd2 + 1 If Rnd3 = Rnd2 Then Rnd3 = Rnd3 + 1 If Rnd4 = Rnd3 Then Rnd4 = Rnd4 + 1 If Rnd5 = Rnd4 Then Rnd5 = Rnd5 + 1 If Rnd6 = Rnd5 Then Rnd6 = Rnd6 + 1 CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd1, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd2, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd3, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd4, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd5, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd6, 2), , 1) Next End Sub 【補足】 ※コマンドボタンを押すとランダム置換される仕様です。 ※１回限定の置換ではなく、コマンドボタンを押すたびに(何度でも)ランダム置換できるようにしたいです。 ※上記の【A列】【B列】の文字はあくまで例です。実際は、【A列】【B列】ともに自由に文字を変更できる応用の利く仕様にしたいです(Excelの【A列】【B列】に、文字を直接入力して変更するという意味です)。 ※上記の【A列】が5行、【B列】が10行というのもあくまで例です。実際は、【A列】【B列】ともに何行にでも対応できる仕様にしたいです(具体的には【A列】【B列】ともに、10000行くらいまで対応できるのが理想です)。 長くなりましたが、ここまでの条件を満たすVBAソースが知りたいです。 どうかよろしくおねがいいたします。

Excel（エクセル）2007VBAを使って、 「複数ある、同一の置換したい文字・数」 を 「複数の文字・数」 でランダムに置換したいのですが、 VBAソースが分かりません。 たとえば、 【A列】に A1:私は(置換する所)と(置換する所)が得意です。 A2:彼は(置換する所)と(置換する所)と(置換する所)が特技です。 A3:彼女は(置換する所)と(置換する所)と(置換する所)と(置換する所)の選手です。 A4:彼らは(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)が好きです。 A5:あの人は(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)をしたことがありません。 と入力されている時に、 【B列】に B1:拳闘 B2:柔道 B3:野球 B4:籠球 B5:打球 B6:羽球 B7:剣道 B8:卓球 B9:水泳 B10:避球 と入力したとします。 そして、コマンドボタンを押すと 【A列】にあるすべての 「(置換する所)」 を、 【B列】にある「拳闘」「柔道」「野球」「籠球」「打球」「羽球」「剣道」「卓球」「水泳」「避球」のどれかで必ず置換されるようにします(【ランダムで置換】されるようにしたいです)。 ※置換の条件として、一つのセル内で同じ文字が重複しないようにしたいです。 (私は拳闘と拳闘が得意です。) 　　　　↑　　　↑ 同じ文字が2つ以上ある置換は失敗です。 --------------------------------- 置換の成功例 (重複なしの置換) ◆置換前の【A列】A5 あの人は(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)をしたことがありません。 　　　　　　↓↓↓ ◆置換後の【A列】A5 あの人は打球と柔道と水泳と剣道と避球と拳闘をしたことがありません。 --------------------------------- これが未完成のVBAソースです。 ↓↓↓ Sub test_Click() For Each CellA In Range("A1:A5").Cells Rnd1 = Int(Rnd() * 10) + 1 Rnd2 = Int(Rnd() * 9) + 1 Rnd3 = Int(Rnd() * 8) + 1 Rnd4 = Int(Rnd() * 7) + 1 Rnd5 = Int(Rnd() * 6) + 1 Rnd6 = Int(Rnd() * 5) + 1 If Rnd2 = Rnd1 Then Rnd2 = Rnd2 + 1 If Rnd3 = Rnd2 Then Rnd3 = Rnd3 + 1 If Rnd4 = Rnd3 Then Rnd4 = Rnd4 + 1 If Rnd5 = Rnd4 Then Rnd5 = Rnd5 + 1 If Rnd6 = Rnd5 Then Rnd6 = Rnd6 + 1 CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd1, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd2, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd3, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd4, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd5, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd6, 2), , 1) Next End Sub 【補足】 ※コマンドボタンを押すとランダム置換される仕様です。 ※１回限定の置換ではなく、コマンドボタンを押すたびに(何度でも)ランダム置換できるようにしたいです。 ※上記の【A列】【B列】の文字はあくまで例です。実際は、【A列】【B列】ともに自由に文字を変更できる応用の利く仕様にしたいです(Excelの【A列】【B列】に、文字を直接入力して変更するという意味です)。 ※上記の【A列】が5行、【B列】が10行というのもあくまで例です。実際は、【A列】【B列】ともに何行にでも対応できる仕様にしたいです(具体的には【A列】【B列】ともに、10000行くらいまで対応できるのが理想です)。 長くなりましたが、ここまでの条件を満たすVBAソースが知りたいです。 どうかよろしくおねがいいたします。

Excel（エクセル）2007VBAを使って、 「複数ある、同一の置換したい文字・数」 を 「複数の文字・数」 でランダムに置換したいのですが、 VBAソースが分かりません。 たとえば、 【A列】に A1:私は(置換する所)と(置換する所)が得意です。 A2:彼は(置換する所)と(置換する所)と(置換する所)が特技です。 A3:彼女は(置換する所)と(置換する所)と(置換する所)と(置換する所)の選手です。 A4:彼らは(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)が好きです。 A5:あの人は(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)をしたことがありません。 と入力されている時に、 【B列】に B1:拳闘 B2:柔道 B3:野球 B4:籠球 B5:打球 B6:羽球 B7:剣道 B8:卓球 B9:水泳 B10:避球 と入力したとします。 そして、コマンドボタンを押すと 【A列】にあるすべての 「(置換する所)」 を、 【B列】にある「拳闘」「柔道」「野球」「籠球」「打球」「羽球」「剣道」「卓球」「水泳」「避球」のどれかで必ず置換されるようにします(【ランダムで置換】されるようにしたいです)。 ※置換の条件として、一つのセル内で同じ文字が重複しないようにしたいです。 (私は拳闘と拳闘が得意です。) 　　　　↑　　　↑ 同じ文字が2つ以上ある置換は失敗です。 --------------------------------- 置換の成功例 (重複なしの置換) ◆置換前の【A列】A5 あの人は(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)と(置換する所)をしたことがありません。 　　　　　　↓↓↓ ◆置換後の【A列】A5 あの人は打球と柔道と水泳と剣道と避球と拳闘をしたことがありません。 --------------------------------- これが未完成のVBAソースです。 ↓↓↓ Sub test_Click() For Each CellA In Range("A1:A5").Cells Rnd1 = Int(Rnd() * 10) + 1 Rnd2 = Int(Rnd() * 9) + 1 Rnd3 = Int(Rnd() * 8) + 1 Rnd4 = Int(Rnd() * 7) + 1 Rnd5 = Int(Rnd() * 6) + 1 Rnd6 = Int(Rnd() * 5) + 1 If Rnd2 = Rnd1 Then Rnd2 = Rnd2 + 1 If Rnd3 = Rnd2 Then Rnd3 = Rnd3 + 1 If Rnd4 = Rnd3 Then Rnd4 = Rnd4 + 1 If Rnd5 = Rnd4 Then Rnd5 = Rnd5 + 1 If Rnd6 = Rnd5 Then Rnd6 = Rnd6 + 1 CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd1, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd2, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd3, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd4, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd5, 2), , 1) CellA.Value = Replace(CellA, "(置換する所)", Cells(Rnd6, 2), , 1) Next End Sub 【補足】 ※コマンドボタンを押すとランダム置換される仕様です。 ※１回限定の置換ではなく、コマンドボタンを押すたびに(何度でも)ランダム置換できるようにしたいです。 ※上記の【A列】【B列】の文字はあくまで例です。実際は、【A列】【B列】ともに自由に文字を変更できる応用の利く仕様にしたいです(Excelの【A列】【B列】に、文字を直接入力して変更するという意味です)。 ※上記の【A列】が5行、【B列】が10行というのもあくまで例です。実際は、【A列】【B列】ともに何行にでも対応できる仕様にしたいです(具体的には【A列】【B列】ともに、10000行くらいまで対応できるのが理想です)。 長くなりましたが、ここまでの条件を満たすVBAソースが知りたいです。 どうかよろしくおねがいいたします。

お世話になります。 VBAで質問させてください。 A1～A3にデータが入っております。 A1:aaa A2:bbb,ccc A3:ddd そこで、 合計数=CountIf("A1:A3",",") を実行しても0と出るのです。 処理がおかしいのかなと思ったのですが、 合計数=CountIf("A1:A3","aaa") を実行すると1の値が入ります。 底辺お手数ですが、カンマの数が取得できるVBAを教えて頂きたく 思います。

あなたの一番好きな漫画は何ですか？

明けましておめでとうございます！ 年末年始、皆様いかがお過ごしでしたか？帰省や旅行など満喫されたでしょうか。 2011年もOKWaveよろしくお願いいたします！ 1年の始まりということで、さっそくこんな質問です！ ▼質問 2011年の抱負を教えてください！ たくさんの回答、お待ちしております！ 【新年の挨拶はこちら⇒http://entame.okwave.jp/newyear2011/okwave/】 ※質問は予告なく締め切らせていただきます。 ※参加にあたっては、下記リンク先の注意事項をご一読ください。 http://okch.okwave.jp/#attention

VB6.0ランタイムファイル（V6S6R133.exe）を、 インストールしたいのですが、 インストール先が分かりません。 今は、デスクトップ上に保存しています。 そのままダブルクリックで展開すると、 デスクトップ上の作成済みフォルダ（例：「仕事用一時保管ファイル用」）にインストール されますが、 System等のフォルダを指定しなくても、大丈夫なのでしょうか？ 又、ＶＢ2003．ＮＥＴがインストール済みなのですが、 大丈夫でしょうか？ 詳しい方、教えて下さい。

VB6.0ランタイムファイル（V6S6R133.exe）を、 インストールしたいのですが、 インストール先が分かりません。 今は、デスクトップ上に保存しています。 そのままダブルクリックで展開すると、 デスクトップ上の作成済みフォルダ（例：「仕事用一時保管ファイル用」）にインストール されますが、 System等のフォルダを指定しなくても、大丈夫なのでしょうか？ 又、ＶＢ2003．ＮＥＴがインストール済みなのですが、 大丈夫でしょうか？ 詳しい方、教えて下さい。

VB6.0ランタイムファイル（V6S6R133.exe）を、 インストールしたいのですが、 インストール先が分かりません。 今は、デスクトップ上に保存しています。 そのままダブルクリックで展開すると、 デスクトップ上の作成済みフォルダ（例：「仕事用一時保管ファイル用」）にインストール されますが、 System等のフォルダを指定しなくても、大丈夫なのでしょうか？ 又、ＶＢ2003．ＮＥＴがインストール済みなのですが、 大丈夫でしょうか？ 詳しい方、教えて下さい。

絵が綺麗で面白い学園アニメありますか？ できるだけ一杯、回答してください。

自分の好きな芸能人には生涯独身でいてほしいですか？　教えてください。

ずっと気になったの質問します 工藤新一は、 黒の組織に毒薬を飲まされ小さくなった ことは、 工藤新一の両親は、いつ知ったんですか? 漫画では、何巻あたりですか? アニメでは、何話ですか? 良かったら教えてください

いつもお世話になります。 Ｅｘｃｅｌで、決められたディレクトリーの下にあるフォルダー名とファイル名を取得して Ｅｘｃｅｌに表示したいのですが、調べたのですがよくわかりませんですた。 決められたディレクトリーは固定で、その下には複数フォルダーがあります。 よろしくお願い致します。