Yosha の回答履歴

全419件中21~40件表示
  • チリ地震の津波の速度について

    2010-2-27 15:34  チリ地震M8.8(阪神の300倍)発生 2010-2-28 15:49 岩手・久慈港に1.2mの津波到着 この情報から計算すると、 津波の速度は、約17,000km /約24時間=約708km/時 となりますが、 車で100km、新幹線300km、リニアモーターカー600kmよりも 早く移動するのは想像しがたいです。 素朴な疑問なのですが、 どうすれば、こんなに速く海水が移動できるのでしょうか、おしえてください。 この計算はあってますか?

  • 目と鼻と口と耳は全部繋がっていますか?

    目と鼻と口と耳は全部繋がっていますか? それとも 目=鼻 口=鼻 耳=鼻 のように 全ての中心に鼻があるのでしょうか?

    • ベストアンサー
    • xcmcxm
    • 病気
    • 回答数3
  • 目と鼻と口と耳は全部繋がっていますか?

    目と鼻と口と耳は全部繋がっていますか? それとも 目=鼻 口=鼻 耳=鼻 のように 全ての中心に鼻があるのでしょうか?

    • ベストアンサー
    • xcmcxm
    • 病気
    • 回答数3
  • 飛行機着陸後から聴力低下や耳閉感で悩んでいます

    ちょうど1週間前に青森から九州まで飛行機で往復しました。帰りの飛行機がMD機(中型機)だったと思いましたが、気圧の変化がもろに室内に及び、強い耳痛、耳閉感や耳鳴りにおそわれ、帰宅後には耳閉感と低音部の難聴が起こりました。2,3日前から難聴は少し落ち着きましたが、まだ若干残っており(自己診断で、正常時の2/3程度)、耳閉感は依然として続いています。できるだけ早く耳鼻科の先生に診て頂こうと思っています。  なかなか治らないので心配になり、今日、インターネットで調べてみましたら、長くかかる病気のように思われ、まいってしまいました。  このような経験のある方で対応の仕方についてアドバイスを頂けないでしょうか。  また、もし専門の先生から、疑われる病や対応の仕方についてアドバイスを頂けたらこの上ない幸せです。よろしくお願い申し上げます。

  • 同志?同士?

    同志?同士? 同志と同士の使い分けが分かりません 「私浜崎あゆみが好きなの」 「私も!ドウシだね!」 となった場合、正しいのはどちらですか?

  • 「ディスクに十分な空き領域がありません。」が起きます。

    「ディスクに十分な空き領域がありません。」が起きます。  Windows Xp のノートPCで 160GB の外付けハードディスク(FAT32 だと思います、たぶん)を接続しています。  現在、HDD の中にデータが約 50GB 入っています。  その中の、あるフォルダーの中にある約60個のファイルを同じ HDD の別のフォルダーにコピーしようとしました。コピー元のファイルは、1個が 300MB くらいありますので、60個で 18GB 程度になります。  HDD の残量が約 110GB ありますから、18GB 分をコピーしても何も問題はないと思いました。  ところが、いざコピーをはじめると、20個くらいコピーしたところで「ディスクに十分な空き領域がありません。」というメッセージが出て、コピーが中断されます。コピー先のフォルダーを見ても、何も入っていません。  圧縮や解凍はともなわず、単なるコピーですので、エラーの原因がさっぱりわかりません。  本当にやりたいことは、copy e:\fo\*.txt e:\all.txt(60個のファイルを一つにつなげたい)なのですが、1個ずつの単純なコピーさえエラーになります。  何か、原因に思い当たる方がいらっしゃったら、お教えください。

  • マクロ:セルの範囲指定

    エクセルマクロで困っています。 セルの範囲指定をしようとしています。 初心者過ぎて、よくわかりません。 現在のマクロ↓ Sub 済() If ActiveCell.Column = 21 Then Selection.FormatConditions.Delete '条件付き書式削除 With Selection.Interior .ColorIndex = 16 .Pattern = xlSolid End With ActiveCell.Offset(0, 1).Select With Selection.Interior .ColorIndex = 16 .Pattern = xlSolid End With ActiveCell.Offset(0, 1).Select With Selection.Interior .ColorIndex = 16 .Pattern = xlSolid End With ActiveCell.Offset(0, 1).Select With Selection.Interior .ColorIndex = 16 .Pattern = xlSolid End With ActiveCell.Offset(0, 1).Select With Selection.Interior .ColorIndex = 16 .Pattern = xlSolid End With ActiveCell.Offset(0, 1).Select With Selection.Interior .ColorIndex = 16 .Pattern = xlSolid End With ActiveCell.Offset(0, 1).Select With Selection.Interior .ColorIndex = 16 .Pattern = xlSolid End With ActiveCell.Offset(0, 1).Select With Selection.Interior .ColorIndex = 16 .Pattern = xlSolid End With ActiveCell.Offset(0, 1).Select With Selection.Interior .ColorIndex = 16 .Pattern = xlSolid End With '色変え判定セル書き換え ActiveCell.Offset(0, 5).Select ActiveCell.FormulaR1C1 = "77" ActiveCell.Offset(0, -5).Select Else answer = MsgBox("U列を選択して下さい", vbCritical) End If End Sub やりたい事は、下記の通りです。 列Uがアクティブの時にU~ACの行を塗りつぶし。 列は変動します。 今は、やり方がよく分からなかったため オフセットで一つ一つ塗りつぶしてます。 マクロを組みすぎてファイルが重くなって困っています。 回答よろしくお願いいたします。

  • 【excel】複数ある同じ値を、自動でひとつにまとめたい

    Microsoft Office Excel 2007を使用しております。 添付図のように、縦に並んでいる同じ値の数値を、できるかぎり自動でひとつにまとめたいのですが可能でしょうか? ・Aは「1」から「91」まであります。縦にソートしてあります。 ・Bに入る数は「1」~「4」までですが、図にある通りそれぞれの数は一定ではありません。「1」が3つあったり「2」が4つだったり。 ※それぞれ、縦に範囲選択してセルの結合を選んで…という作業を繰り返すにはあまりに量が多くて大変なため質問させていただきました。 この作業が少しでも簡略化されればよいのですので、 すべての作業を一発でおこないたい! というわけではありません。 ちょっとでも楽&時間短縮になる方法がありましたら、 なにとぞよろしくお願いいたします。

  • 午後のこーだビットレート制限の方法

    午後のこーだにて[ wav/22050hz ]の音声ファイルを[ 128kbps/mp3 ]でエンコードしようとしたのですが、何故か上手くいきません。 詳細設定で最低ビットレート制限は128kbpsにしております。 最高ビットレートも色々と変更して試してみましたが、317kbpsになったり199kpbsになったりと、全く言うことをきいてくれません。 どうしたら上手く出来るのでしょうか? 教えてくだされば幸いです。

  • Excel VBA ある範囲内で検索条件に一致したデータを入力する

    Excel VBA ある範囲内で検索条件に一致したデータを入力する Excel2003を使用しています。 Sheet2で選択している範囲内のB列のデータがSheet1で選択している範囲内のB列のデータと一致していたら、そのA列のデータをSheet2のA列に入力するというマクロを作成中ですが、うまくいきません…。 Sheet1とSheet2の選択範囲については、このマクロを実行前に都度選択するようにし、A列のデータは日付、B列のデータは数値です。 以前、示していただいたサンプルを参考にコードを書き換えて試していますが、なかなか思うようにいかず、質問させていただきました。 よろしくお願いします。

  • 単純に一年の長さは365日6時間のようですが、4年に一度閏年があります

    単純に一年の長さは365日6時間のようですが、4年に一度閏年がありますが、日は朝に上り、夕に沈む、6時間のズレを感じたことがありません。残りの6時間はどこに行ってるんでしょうか。

  • 弓のこでパイプを切断するときに材料を回しながら切るのはどうしてですか?

    弓のこでパイプを切断するときに材料を回しながら切るのはどうしてですか?

  • 割合の問題について質問です。

    割合の問題について質問です。 ある中学校の生徒数は去年は男女合わせて1400であったが、今年は男子が20%増え、女子が10%減って全体では40人増えた。 今年の男子、女子の人数を求めよ。 去年の男女をx、y人とおく方法はわかるのですが、 今年の男子、女子の人数をそれぞれx、y人とおくと、 x+y=1440 100/120x+100/90y=1400 と書いてありました。なぜ100/120と100/90になるのかわかりません。 例えば120%を%から割合に直すのに120/100と表すのはわかりますが、分母が100以外の数になると少し混乱してしまいます。 この辺りを詳しく解説していただける方いましたらお願いします!

  • 割合の問題について質問です。

    割合の問題について質問です。 ある中学校の生徒数は去年は男女合わせて1400であったが、今年は男子が20%増え、女子が10%減って全体では40人増えた。 今年の男子、女子の人数を求めよ。 去年の男女をx、y人とおく方法はわかるのですが、 今年の男子、女子の人数をそれぞれx、y人とおくと、 x+y=1440 100/120x+100/90y=1400 と書いてありました。なぜ100/120と100/90になるのかわかりません。 例えば120%を%から割合に直すのに120/100と表すのはわかりますが、分母が100以外の数になると少し混乱してしまいます。 この辺りを詳しく解説していただける方いましたらお願いします!

  • 先週の「世界ふしぎ発見!」を見られた方へ

    本日(2010/01/23)の世界ふしぎ発見の放送内容について質問いたします。 先週(2010/01/16)の次週予告で 「次週はニュージーランド」と放送されていた記憶があるのですが HPやインターネットの番組表では「インドネシア」となっています。 ニュージーランドに住んでいたこともあり、とってもとっても楽しみにしていたのですが、私の見間違いだったのでしょうか・・・ 夢だったのかな・・?とも思いました。 もしくは地方によって、放送内容が違うのでしょうか。。。 ちなみに私は大阪です。 先週のふしぎ発見の次回予告をご覧になって内容を覚えておられる方がいらっしゃれば、ご回答くださいm(_ _)m

  • 飛行機 衝突防止灯

    主翼端にある衝突防止灯の隣にとても小さな穴が1つ開いた 板が立っている(垂直に付けられている)機体がありますが これは何の目的なのでしょうか? また何という名称なのでしょうか? 自分の考えとしては衝突防止灯の光でPilotが眩しいので それを防ぐためかなと思うのですが・・・

  • 隙間風のような音が鳴り響き困っています。

    お忙しいところ大変申し訳ありませんが、一つだけ相談させて下さい。 私は、部屋数が全部で15部屋くらいのワンルームマンションに住んでいますが、 最近になって部屋の中で隙間風の様な音が鳴り響き、結構うるさくて困っております。 音自体は一定音でなり続けるといったような感じで、いきなり鳴り始めたり突然鳴り止むといった具合です。 日中に鳴り響くのは少しうるさいくらいで我慢できるのですが、 寝ているときもうるさくなる事があり、日常生活に支障が出始めたのですごく困っております。 音が鳴るようになり始めた時期に前後して起きたことと言えば、 空室だった隣部屋に入居者が現れたことぐらいです。 一度、その部屋の方が玄関扉を開けるとき、気圧のせいか扉がすごく重くなっているのを見たことがあるのですが、 これが原因なのかは私にはわかりません。 私自身、4月から初めて一人暮らしを始めたということもあり、 どのような対処が最善なのか判断しかねている状況です。 あいまいな説明で大変申し訳ありませんが、 原因とその解決策があれば是非教えてください! どうぞ、よろしくお願いいたします。

  • VBA 右端列の削除

    このたび初めて質問させていただきます。 周囲にVBAを扱うひとがいないため、初歩的(たぶん?)な質問をさせてください。 以下のようなマクロを記録したのですが、一部を編集したいと考えております。 Columns("F:H").Select Selection.Insert Shift:=xlToRight Columns("A:B").Select Selection.Cut Range("F1").Select ActiveSheet.Paste Columns("J:J").Select→J列固定ではなく右端の列と設定したい。 Selection.Cut Range("H1").Select ActiveSheet.Paste Columns("A:B").Select Selection.Delete Shift:=xlToLeft Columns("J:J").SelectをJ列固定ではなく右端の列を1列設定し切り取りがしたいのです。Range("A2").End(xlToRight).Select ActiveCell.Offset(-1,0).End(xlDown).Select と書き換えてみたのですが、うまく作動しませんでした。 どなたか教えていただけませんでしょうか?

  • 子供の計算のクセがなおりません

    44歳男性です。 5年生の娘に算数を教えているのですが、どうしてもクセが抜けません。 たとえば、割り算の筆算。 あまりを出して、割り切れるまで割り続けなければならないのですが、末尾から計算に行こうとします。 これでは何時間あってもたりません。 大小比較も末尾からしてしまうので、「木を見て森を見ず」状態。 インド式算数などで矯正を試みていますが、落ちてない模様 今の小学校では、そういう早い計算方法は教えてないのでしょうか。 どのようにしたらクセを抜き、速い計算ができるようになるのでしょうか

  • 子供の計算のクセがなおりません

    44歳男性です。 5年生の娘に算数を教えているのですが、どうしてもクセが抜けません。 たとえば、割り算の筆算。 あまりを出して、割り切れるまで割り続けなければならないのですが、末尾から計算に行こうとします。 これでは何時間あってもたりません。 大小比較も末尾からしてしまうので、「木を見て森を見ず」状態。 インド式算数などで矯正を試みていますが、落ちてない模様 今の小学校では、そういう早い計算方法は教えてないのでしょうか。 どのようにしたらクセを抜き、速い計算ができるようになるのでしょうか