検索結果

数学の問題です。式も書いてください。 A.次の文を不等式で表してください。xは実数とする。 1. xは2より大きい。 2. xは10以下である。 3. xに9をたすと1より小さい。 4.xを2倍すると3以上になる。 B.4000円以下で、1個200円のケーキと1個150円のパイを、合わせて20個買いたい。 ケーキをx個買うとする。合計金額が4000円いかであるという数量関係を不等式で表してください。 C.a<bとする。次の□に、不等式＜または＞をいれてください。 1. a＋1□b＋1 2. aー2□bー2 3. 3a□3b 4. ーa□ーb 5. a/ー5□b/ー5 D.つぎの不等式を解いてください。 1. 2xー2＜x＋4 2. 3xー6≧10ー5x 3. 6x＋4≧8xー8 4. 5x＋1＞3(x＋2) E.50円の切手と80円の切手を合わせて15枚買い、代金を1000円以下にしたい、80円切手は何枚まで買うことができるか。不等式を用いて求めてください。 F.次の連立不等式を解いてください。 (1) 3x＋5≧ー10・・・・・・・・・(1) 3x＋8＜x＋12・・・・・・(2) (2) xー4＞ー10・・・・・・・・・・・・・・・・・・・・・・(1) 3(2x＋1)≧8x＋1・・・・・・(2) 多いですが、よろしくお願いします。

いつもお世話になります。 WIN7 EXCELL2010 です。 「記入」のデーターを日毎のシートに振り分けたいです。 参照図で説明させていただきます。 ご指導賜りたいのは　2点あって その1 シート「記入」から　各シートに振り分ける数式をおねがいいたします。 その2 シート「記入」から　20140714　20140715　20140721　にデーターを振り分けるのですが、 2の行はどなたとも重複していません。 3と4の行は同じ部屋で「入所日　と　退所日」　7/20　が重複しています。 退所日の「田中」はそのまま「102」に　「伊藤」は一旦「待機」に入れ、「2010721」のシートでは102に戻したい。 特にその2については可能でしょうか。 何かいい方法が　その1　その2　あればご指導いただけませんでしょうか。 　　　　　　　　　　※20140716～20140720　は意図的に省いています。 日毎のシートには、 A1 文字で入力 E1 A1の文字を　“yyyy/mm/dd”　に 　　=DATE(INT(A1/10000),MOD(INT(A1/100),100),MOD(A1,100)) F2 =IF(OR(B1<>B2,B2=""),"",IF(D2>MAX(INDEX(D:D,MATCH(B2,B:B,0)):INDEX(E:E,MATCH(B2,B:B,0)+COUNTIF(B$1:B1,B2)-1)),"","重複or待機")) マクロ　A1の文字をシート名に Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address = "$A$1" Then Sh.Name = Target.Range("A1").Value End Sub 誠に恐れ入りますが何卒よろしくお願いいたします。

住民税滞納は会社に分かってしまいますか？ 7月より、正社員として仕事がきまりました。 しかし、心配ごとがあります。 私は、これまでの5年間、日雇いや派遣社員として生活をしてきました。 給料が安定せずに、税金関係を滞納していました。確定申告も行ったことがありません。 現在、少しずつ分割して支払いをしている状況ですが、税金滞納は会社に分かってしまうのでしょうか？ 事前に役所関係の手続きは必要になるのでしょうか？ せっかく決まった仕事なので、印象を悪くしたくはありません。 給料が安定したら、一括で払おうと考えています。 無知で大変申し訳ございません。詳しい方がいましたら、アドバイスお願いします。 詳細 2010年2月まで、K市に住民登録。 ※住民税と健康保険の催促状が来て分割で支払い中です。 ※確定申告は1度もしたことがない。 2010年2月～20106月　実家のあるF市に住民登録。 ※健康保険料は支払っていますが、住民税に関しては何も通知がありません。 ※国民健康保険料は、21年度の所得が未申告の為、暫定扱いになっているので、 20年度と21年度の所得を記載して提出するようにと用紙が届きました。 2010年6月後半～　会社のあるN市に住民登録予定。

下記のようなシート構成の時、Ａ列の中から"5個以上重複する顧客No"を別セルor別シートに表示したいです。データが大量にあるため、マニュアル作業には膨大に時間がかかってしまいます。Googleで調べてみたのですが、条件に一致する方法が見つからなかった為質問させて頂きます。できれば一番簡単な方法でご教授ください。 【シート構成】 　　　顧客No 　　　社名 　　　 機械番号 　　　　A 　　　　　　 B 　　　　　 C 1 　　　21　　　　　ABC 　　　 W1011 2 　　　21 　　　　 ABC 　　　 W1012 3 　　　55 　　　　 KFC 　　　 V2525 4 　　　55 　　　 　KFC 　　　 V2526 5 　　　55 　　　 　KFC 　　　 V2527 6 　　　101 　　　 OPPS 　　　 H1010 7 　　　252 　　　 SUN 　　　 T1999 8 　　　252 　　　 SUN 　　　 T2000 9 　　　252 　　　 SUN 　　　 T2001 10 　　　252 　　　 SUN 　　　 T2002 11 　　　252 　　　 SUN 　　　 T2003 12 　　　503 　　　 MIC 　　　 P1111 13 　　　521 　　　 TET 　　　 LV045 14 　　　521 　　　 TET 　　　 LV046 15 　　　608 　　　 GRE 　　　 LS123 16 　　　608 　　　 GRE 　　　 LS124 17 　　　608 　　　 GRE 　　　 LS125 18 　　　608 　　　 GRE 　　　 LS126 19 　　　608 　　　 GRE 　　　 LS127 20 　　　713 　　　 BDS 　　　 P1212 ※A列の顧客Noでソートしている ※機械番号はそれぞれ違う ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓ 【完成イメージ】別セルの場合 　　　顧客No 　　　 社名 　　　 機械番号 　　　　　E 　　　 　　 F 　　　　　 G 1 　　　 252 　　　 SUN 　　　 T1999 2 　　　 252 　　　 SUN 　　　 T2000 3 　　　 252 　　　 SUN 　　　 T2001 4 　　　252 　　　 SUN 　　　 T2002 5 　　　 252 　　　 SUN 　　　 T2003 6 　　　 608 　　　 GRE 　　　 LS123 7 　　　 608 　　　 GRE 　　　 LS124 8 　　　 608 　　　 GRE 　　　 LS125 9 　　　 608 　　　 GRE 　　　 LS126 10 　　　608 　　　 GRE 　　　 LS127 【利用環境】 Office2003 SP3 OS Windows XP SP3

初めまして、フライフィッシングのシューティングヘッドについての質問なのですが、通常のフルラインなら8番のロッドなら８番のラインを使用すると思うのですが、シューティングヘッドのラインの場合は９番を選択した方が良いのでしょうか？確か、本で読んだような気がするのですがはっきりしません。この場合、なぜ９番の方がいいのかもわかりません。（最近シューティングヘッドをつけて練習しているのですが、おそらく下手なので上手く投げれないのはわかっているのですが、ラインが重いからなのかな？とも思っております。）また、この番手のラインを使用する場合は、ランニングラインは20lbでは細いでしょうか？自分では細いかな？と少し感じており３０lbの方がいいのかな？とも思っております。また、８番の（ロッドに9f#8と記載されてます）ロッドに９番のフルライン使用は、ロッドに負荷がかかりすぎるでしょうか。先日、間違って９番のフルラインを購入して投げてみたのですが自分自身違和感はなかったのですがどうでしょうか。何分、独学の知識が大多数のため自身が持てず投稿してみました。質問が３つほどになって申し訳ございませんが、どなたか、一般的な話や経験での話で構わないのでご教授お願いします。それではよろしくお願いします。

すみません。vbsでIEのフォームに自動入力したいのです。 で、できないところがありまして質問します。 上から コンボボックスA（あ、い、う）を選べる テキストボックスB チェックボックスC というサイトです。 どうもBとCにinputタグにdisabledと書いてあり入力規制？されてます ソースBは <input type=text size="20" name="B" disabled> となってます。Cも同様です。 Aのコンボボックスを選択すると入力できるようになります。 vbsはこうしてみました。 IE.document.form.A.value="あ"　又は　IE.document.form.A.selectedIndex=0 IE.document.form.B.value="か" IE.document.form.C.checked=true しかしこれではAに”あ”は入りますが、 B,Cの規制が解除されません。 （一応文字が白抜き表示で入っているように見えるでもデータとしては入力されてない）。 手動で選択すると解除されます。 Aのソースが<select style="width:10" name="A" onChange="F()"> となっているのでこのonchangeが怪しいと思っているのですが どうでしょうか。 どのようにしたらいいんでしょうか。 <script language="JavaScript" src="xxx.js"> とソースにあるのでJavaも関係あるのでしょうか。あまり良く分かってません。 ツールを使いメモリ上のソースを確認すると Aを手動で選ぶとB,Cのdisabledが消えました。 お助けください。

EXCELで下記のリンク(画像が添付できなかったのでお手数おかけします)画像のような文化祭の準備の物品貸し出し表を作成しているのですが、知識がないため行き詰まってしまっていて、作成期限が迫っているので皆様のお力をお借りできたらと考えております。 今回は見やすいように2つのブックを使用していますが、左がシート1で右がシート2だと考えてください。 まず現時点で完成している機能としては、 ・VBAによるユーザーフォームでシート1の情報を簡易入力 ・返却期限を一週間後に設定し、その期限が来たら視覚的に色を付け、期限切れの欄に自動で「◎」がつくように設定 ※今は日付上色がついていませんが、実際は期限の前日、当日、翌日からの7日間 の間は返却期限のセルがそれぞれ色付けされるように書式設定してあります。 ・期限内に返却された場合は、返却済み欄に ◯ を入力することによって期限切れ欄にはマークされないように設定 大まかにはこのような感じなのですが、ここからが本題です。 「期限切れになったところを抽出してわかりやすくしておいてくれ。」 という指示があり、期限切れになるとシート2に上から順に「NO.」から「担当者名」までが抽出されるようにしたいです。 そして、抽出されたデータがある行はセルが色付けされるようにしたいです。 また、シート2の一番右「返却確認」に◯がついた場合、シート2のその行の色付けを解除し、シート1の対応している行の期限後返却確認 の欄に◯がつくようにしたいです。 VBAが必要でしたら使用しても構いません。 自分の知識に見合わないような複雑な作業をすることになってしまい、説明もごちゃごちゃしてしまい申し訳ないのですが、教えていただければ嬉しく思います。 画像リンク；https://gyazo.com/0f79b7c20f5c7a0d7b7069c61b202517

はじめまして。 加工プログラムで教えて頂きたいのですが。 よろしくお願いします。 加工を2回仕上にしたり、1回仕上にしたり、 どちらか、選択できるプログラムにしたいのです。 1つのプログラムの中でです。 内容は、簡単なプログラムです。 だけど、アブソのプログラムなので、難しいのです。 できなけれが、インクリのプログラムでも良いのですが。 何か良い方法があれば、アドバイス願います。 O0001 G91 ? G42G00X-300.0Z500.0 X-360.0 G01Z-503.0F1.0 G00X360.0 G40X300.0Z3.0 ? M00 G42X-300.0Z510.0 X-350.0 G01X-20.0 Z-500.0 G00X370.0 G40X300.0Z-13.0 G90 M99 % ?のプログラムを?のプログラムを走らせないで 飛ばす事とかって出来るのでしょうか。 機械が古くて変数（マクロ）を使用する事ができません。 スキップ機能のボタンもありません。 不可能に近いですよね。。。。 もう一つ問題があって、教えて頂きたいのですが。 工具が故障でストップした時に プログラムの途中から、加工できる事とかって言うのは、 再開機能のある、機械にしか不可能だと説明書に載っていました。 再開機能、機械にオプションをつける事になると思うですが。 安くて、機能性に優れていて、使いやすい物ってありますか？ 上手く説明出来ていない部分が多々あってすみませが よろしくお願いします。

只今障害基礎年金２級を受給しておりますが、２０歳前の病気ということで事後重症請求で ３年前から受けています。 病名は欝病パニック障害　解離性障害で申請しました。 今回初めての更新で医師の書いた診断書の病名は 欝病F32だけしか書いておらず 日常生活判定は１b２b３d４b５d６d　日常生活能力は４でした。 抑うつ状態は　思考　刺激性　憂鬱　希志念慮　精神運動興奮は　自傷 ただ説明は転帰は不変　就労状態は就労できない　日常生活でも援助を要する状態 予後は うつ病に背景には過去の生い立ちも根深く関係しており、改善にも乏しいことから予後不良と書かれています その他の詳しい説明が薬で抑えるようにしていってます、というような薬の説明しか書いていません。 更新の時はその他の所に解離性障害やパニック障害などの項目は書かないものなのでしょうか？ またこの診断書でこのまま２級を継続して受給できることは可能なのでしょうか？ 全然安心できず眠れない日々が続いています。 年金事務所で数カ月かかると言う事なのですが心配で心が折れています。 何かいいアドバイスはないでしょうか？ お忙しいところ申し訳ありませんが回答よろしくお願いします。

20世紀の現代美術や建築、車や広告などのデザインを見ていると、 表現が時間と共にシンプルになっていく傾向が見られます。 たとえば、 ダダイズムがミニマルアートになる流れ。 Ｔ型フォードがフェラーリF40やTOYOTAプリウスになる流れ。 ガウディが安藤忠雄になる流れ。 幾人かの個人的な思い入れで生み出されていた表現が、 時間を経て、世間に広まり、多くの人の 様式化された表現となっていくのは理解できます。 ○ しかし、それがなぜシンプルになろうとする 方向に向かって進むのでしょうか。 ○ シンプル　イズ　ベストという価値観は 時代を問わず普遍的なものでしょうか。 表現がシンプルになるに従い、 表現の是非が、表現結果を対象とするのではなく そのコンセプト（思考方法や発見）やストーリー（理由や動機）を 対象とするようになりました。 表現は言葉による補足を前提とした、 シンボリックなプレゼンテーションでしかない。 （つまり難解だったり、感情移入を排除する表現になる） 哲学について素人ですが ウィトゲンシュタインの論理哲学論考を読んで ミニマルアートの彫刻を見ているような芸術性を感じました。 その一方で、シンプルさゆえの難解さも感じ、 哲学の世界にも同じような傾向があるのだろうかと考え、 投稿させていただきました。 漠然とした質問ですが なにかヒントを与えていただけたらと思っております。

現在旗竿地の建売戸建に住んでおります。 築５年、土地面積87.9m2（約27坪）、3F建てで建物床面積99.98m2 最寄駅からは徒歩15分程度です。 幅４ｍの公道に2.7m接地、竿長12m程度で6ｍの所で2.4mに狭まっております。 車は公道側に普通車を奥側に軽自動車を停めれます。（ぎりぎりですが） 坪単価95万円程の地域です。 1Fには各2m幅の天窓、2Fリビングには3ｍ幅の南向きバルコニーと2か所に天窓を設置しているため非常に明るいです。 北側斜線規制が厳しい所なので屋根の傾斜が急ですので、2Fリビング南側の窓には全て日差しが入り込みます。 3Fに関しては南側の建物の3F北側に窓が一切ない為、カーテン全開でも問題ありません。 南側、隣家との建物の間は3ｍ程で北側には月極め駐車場があり開けていますので風通しも良いです。 現在の家を買う前に旗竿地も数件見ましたが、どれも日照が悪く家内部が暗く、周囲が囲まれて隣家とも近いためカーテンを開けるわけにもいかないような感じでしたので、現在の家は旗竿地にしては大変恵まれている所だと思っています。 住宅街で大きな道からはずれておりますので、雑音もなく非常に静かなので気に入っています。 更に旗竿のメリットとして夏に一階の部屋が涼しい事や奥まっている事で子供が道路に飛び出したりしないことも気に入っています。 当時４２８０万の物件で整形地の隣地は４６８０万円でした。 購入価格は３８００万円で残債が３３００万円です。 旗竿のメリットデメリットを総合的に判断して購入した為全体的に非常に気に入っているのですが、やはり整形地に憧れがあるのと、アップダウンが激しい地域である事で、買い換えようかと悩んでおります。 そこで見つけた整形地が建築条件付き土地面積64m2（約19坪）、3F建て建物床面積94.5m2、南側10ｍ幅の公道と接地（車通りは少ない）、南側６０ｍ先に１０階建のマンションがありますが、日照には一切影響ありません。 最寄駅から徒歩15分です。 価格は現在のプランで３７００万円の物件で坪単価は95万円程度となります。 駐車場はほりこみ駐車場ですので２台は無理ですが、平坦な土地で駅も徒歩15分圏内に2沿線ありますので車は一台で問題ありません。 建物自体には問題ないのですが、3点問題があります。 1点目は隣地が飲食店になっており、ゴキブリなどが気になります。 2点目は現在が家の外に出ても無音といってもいいくらい静かなのですが、車通りが少ないとはいえ家の前を車が通る事と隣地の飲食店の騒音（あるか分かりませんが）が気になります。 3点目は現在は実家から車で20分くらいの所に住んでいるのですが、この土地は実家から歩いて3分くらいの場所にあり妻からしたらいまいちなのかなと思ったりもします。 私は長男ですので、将来的に親の面倒をみるつもりですが、家が近いといちいち面倒くさい気がしてしまいます。 現在の戸建の売却相場やローン残債についてはだいたい掴めておりますので売却は問題ないと思います。（旗竿地としての需要や価格ダウンも含めて） 現在の家の前にもマンションを購入し、売却を経験しましたのでその点は熟知しております。 上記の3点で一つでも同じ境遇の体験等がございましたら、アドバイスなど頂ければ幸いです。 また、みなさんであればわざわざ引っ越さずに今の家に住み続けた方が良いと思われますでしょうか？ よろしくお願い致します。

27歳女です。 友人に私のsex経験を話すと、ビッチビッチと言われます。 社会に出たら普通の事だと思っていました。 是非皆様に診断して頂きたく、投稿した次第です。 初体験は18歳、中学の時通っていた塾のA先生と。交際からのスタートです。 2人目は19歳、バイト先関係のBさんと、彼の家に1人で遊びに行き、ふざけたキスがきっかけで付き合い始めました。 3人目は20歳、職場１のCさんと。二人でドライブに行き、そのまま流れで関係をもち、付き合うことになりました。 4人目は20歳、職場１のDさんと。Cさんと付き合っていましたが、Dさんを好きになってしまい、何度か呑みに行くうちに関係をもちました。Dさんにも彼女と、同じ職場１にセカンドがいたので私はサード扱いでした。Cさんもいたので、私はその状況を楽しんでいました。 5人目は20～1歳、職場１のEさんと。Eさんもセフレスタートで、彼氏のCさん・セフレのD・Eさんという状況です。私意外にもこのような輪があったようで、当時の職場１は荒れていたのかなと思います。 6人目は20～1歳、セフレDさんの友達Fさんと、呑みに行き終電がなくなり、Fさんの家に泊まらせてもらいました。関係を迫ってきて断ってもしつこかったので、その一度きり関係をもちました。 7人目は21歳、職場２のGさん。この頃には彼氏Ｃさんとは別れ、セフレＤ・Eさんのみで、3ヶ月ほどGさんと付き合いましたが、実は奥さんがいると暴露され、別れてEさんと付き合うことになりました。 8人目は21～2歳、職場３のHさん。一度の関係で終わりました。 9人目は21～2歳、沖縄に一人で旅行に行き、そこで知り合ったIさんと。一夏の恋の気分で楽しんでいました。旅行が終わった後は、度々、セフレＤさんと関係をもっていました。 10人目は22歳、Ｅさんと別れた1週間後に、Ｅさんの友達Ｊさんと付き合い始めてから関係をもちました。 （付き合う前にホテル連れ込んでぎりぎりまで我慢させたり等しましたが） ここから4年間Ｊさんと付き合いましたが、セフレＤさんとの関係は続いていました。 11人目は26歳、職場３のＫさん。身体からのスタートで私はセカンドですが、一番好きになれた人です。 12人目は26歳、今通っているスクールのＬさん。関係が先で、3ヶ月ほど付き合いました。 13人目は27歳、スクールのＭさん。Ｌさんと別れて約一ヶ月後に関係をもちました。 現在、Ｄさん、Ｋさん、Ｌさんと関係をもっている状態です。 社会に出れば身体の関係から始まったりダブることがあったりと、当然だと思っていましたが、 友人からするとビッチだとの事です。 身体からの付き合いは長続きしない事は分かっているので、次は付き合うことから始めようと思っています。 長文すみませんでした。 27歳で経験13人は多すぎなのか平均なのか…皆様のご意見宜しくお願いします！

フルサイズのデジカメを検討しております。 用途は物撮り中心です。 4月頃から、花や雑貨など物撮りの大家の先生のところに学びに参る予定です。 銀塩写真を20年近く前までだいぶ嗜んでおりました（当時はNikonF3、F2、CanonNewF-1、F-1をつかっておりました）。 今は銀塩写真時代の機材は全て売却しましたので、マウントの縛りは一切ありません。 先生は、Canon5DIIIか6D＋50mmコンパクトマクロを勧めてくださるのです。 理由は、ご自身がお使いであるという点と、DPPでRAW現像を行ったりするからだそうです。 キヤノンデジタルハウス銀座で5DIII＋50mmコンパクトマクロを試してみたのですが、私は眼が悪く、眼鏡着用でないとボケて見えてしまうので、眼鏡着用のままファインダーを覗いたのですが、どうしてもケラレてしまい、四隅を中心に90％程度しか視ることができませんでした。この時、眼鏡はファインダーにレンズを押し付けるようにして覗いた結果です。 私の眼は極端な「外斜位」という眼のため、カメラの視度調整機能は役に立ちません。 また、50mmコンパクトマクロ http://kakaku.com/item/10501010057/ は、設計年次が古いため（1987年）、AFも遅くてうるさく、あまり関心しませんでした。レンズの色調など、写りの性能はなかなかだと思っております。 ニコンプラザ銀座でD800＋AF-S Micro NIKKOR 60mm f/2.8G ED を試してみましたところ、眼鏡着用でもケラレなく楽に見ることができました。眼鏡はレンズをファインダーに押し付けるどころか、ファインダーを若干の隙間をおいてみることができます。 AF-S Micro NIKKOR 60mm f/2.8G ED http://kakaku.com/item/10503511929/ はナノクリスタルコートのおかげか、銀塩時代のレンズに比べて、ニッコール特有の全体に黄色味がかった色調もなくなり、日本人の肌色も美しく写るようになっていたことが印象的でした。色のコントラストも、ニッコールではなく、銀塩時代のペンタックスのFAレンズを彷彿をさせるようなものを感じました。 5DIIIを眼鏡着用のままお使いの方は、ケラレはありませんか？ また、ケラレについて、どうされておられますか？ 先生は5DIIIをお勧めくださいましたが、ケラレは大きなストレスになりますので、D800も検討しております。ニコンプラザ銀座の方も、「眼鏡着用の方にはD4かD800をお勧めしております」という風に、ニコンの方が眼鏡着用者に優しい印象を持ちました。 ただ、先生が教室でDPPを使っておられることが気になります。 眼鏡着用でデジタル一眼を扱われる皆さんは、このような場合、D800と5DIIIのどちらを選択されますか？参考までにご意見をお聞かせください。 よろしくお願いいたします。

以前、こちらでご質問させて頂き、 下記のJavaScript記述を教えて頂いたのですが、 画像にALT属性が自動的に入ってしまい 色々手を入れているうちに混乱してきてしまいました。 複数サムネイル画像をScriptで呼び出し、 オンマウスで拡大画像を表示、 それぞれのサムネイルにもリンクを張るという 少し入り組んだ仕様です。 ALT属性がリンク先ページのURLを表示してしまうため、 どうしても気になって消したいのですが、 もし分かる方がいらっしゃれば教えて頂けないでしょうか・・・ <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN"> <title>TEST</title> <style type="text/css"> .smlimg { width:120px; height:80px; } #bigimg { width:600px; height:400px; } #a { width:600px; height:100px; overflow:auto; } </style> <div><img src="" id="bigimg"></div> <div id="a"><div id="b"></div></div> <script type="text/javascript"> //@cc_on var simage = 'p0.jpg p1.jpg p2.jpg p3.jpg p4.jpg p5.jpg'.split(' '); var bimage = 'p0.jpg p1.jpg p2.jpg p3.jpg p4.jpg p5.jpg'.split(' '); var jmpurl = 'htp:/test.xxx0.com htp:/test.xxx1.com htp:/test.xxx2.com htp:/test.xxx3.com htp:/test.xxx4.com htp:/test.xxx5.com '.split(' '); var bufimg = []; addEvent( window, 'load', init); addEvent( 'b', 'mouseover', chgimg ); addEvent( document.body, 'click', chgurl ); function init(){ var w=0; for(var i in simage){ bufimg[i] = new Image; bufimg[i].src = bimage[i]; var image = document.createElement('img'); with( image ){ src = simage[i]; alt = bimage[i];title = jmpurl[i]; className = 'smlimg'; } var p = document.getElementById('b').appendChild( image ); w+=p.offsetWidth; } document.getElementById('b').style.width=w+'px'; var r = Math.random()*i|0; setbimg( bufimg[r].src, jmpurl[r] ); } function chgimg( evt ){ var obj = evt.target || evt.srcElement; if( obj.className && obj.className == 'smlimg') setbimg( obj.alt, obj.title ); } function chgurl( evt ){ var obj = evt.target || evt.srcElement; if( obj.className == 'smlimg' || obj.id == 'bigimg' ) window.open( obj.title ); } function setbimg(s,t){with( document.getElementById('bigimg')){alt=s;title=t}; changeImage('bigimg',s,5,20);} function addEvent(elementId, evt, eventHandler, flag){ var element = ( typeof( elementId ) == 'string' )? document.getElementById( elementId ): elementId; element./*@if(1)attachEvent('on'+ @else @*/addEventListener(/*@end@*/evt, eventHandler, flag); } var ff=0; function changeImage( elementId, imgsrc, step, wtime ){ this.setOpacity = function(n){ this.opacity = n; this.obj.style./*@cc_on @if(1) filter = 'alpha(opacity='+ this.opacity+ ')'; @else @*/ MozOpacity = this.obj.style.opacity = this.opacity / 100;/*@end@*/ } this.go = function(){ var f=0; this.setOpacity( this.opacity += this.step ); if( this.opacity<0 || this.opacity>100 ) { clearInterval( this.tmid ); this.obj.parentNode.removeChild( this.obj ); ff=0; } } if(ff) return; ff=1; var tobj = ( typeof( elementId ) == 'string' )? document.getElementById( elementId ): elementId; tobj.style.position='absolute'; var wrap = document.createElement( 'img' ); wrap.src = tobj.src; wrap.style.top = tobj.offsetTop +'px'; wrap.style.left = tobj.offsetLeft +'px'; wrap.style.width = tobj.offsetWidth +'px'; wrap.style.height = tobj.offsetHeight +'px'; wrap.style.position = 'absolute'; tobj.style.position=''; this.obj = document.body.appendChild( wrap ); tobj.src = imgsrc; this.setOpacity( 100 ); this.step = -step; this.tmid = setInterval((function(f_){ return function(){ f_.go.call(f_);}})(this), wtime); } </script>

作業者のうっかりミスを警告するプログラムを作成しています。 A列9行目以降の値が500以上で、かつ同じ行のF列の値が空白であったときメッセージを表示する。・・・(1) G列9行目以降が「○」で、かつ同じ行のDまたはE列に「在庫」の文字列あったときメッセージを表示する。・・・(2) 下記のようなプログラムを作成したのですが、もっと良い方法があるのではないかと思っています。 何かアドバイスいただけると助かります。 欲を言えば、メッセージ「部品番号○○の発注先のセルが空白になています。」（(1)の場合）や、 「部品番号○○の備考のセルに在庫の文字があります。」（(2)の場合）が、ミスが多数あれば 何度も表示されるのを1回または(1)(2)それぞれ1回にまとめて表示できないか考えています。 作業者は以下の作業を行います。 A列の9行目以降は部品番号の数値を入力します。(1、2・・・、101、102・・・、501、502・・・など） DまたはE列の9行目以降は備考の文字列を入力します。（熱処理、ボルト付属、在庫使用・・・など） F列の9行目以降は発注先の文字列を入力します。（フタバ、ミスミ、パンチ・・・など） G列の9行目以降は発注先によって自動的に○になります。（セルに数式が入っています） 表を見やすくするために空白の行を任意の行に設けます。 入力する行は最大でも999以内とします。（実際には300くらいです） (1)の補足：部品番号（A列）の500以降は発注先（F列）が必ず必要であり、この記入漏れに対して警告する。 (2)の補足：備考（DまたはE列）が「在庫使用」で発注（G列）が○は矛盾するので、この記入に対して警告する。 ＜シート＞ （B、C列の値は省略しています） 　　　　A　　　　　　B　　　　　　C　　　　D　　　　　　E　　　　　 F　　　　G 8　　部品番号　　型番　　　個数　　備考1　　　備考2　　 発注先　 発注 9　 　 101　　　　　　　　　　　　　　　　　　　 10　　102　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　パンチ 11 12　　501　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　フタバ　　○ 13　　502　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　パンチ 14　　503 15　　504 16　　505　　　　　　　　　　　　　　　在庫使用　　　　　　　　　ミスミ　　○ 17　　506　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ミスミ　　○ 18　　507　　　　　　　　　　　　　　　熱処理　　在庫使用　　ミスミ　　○ 19　　508　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ミスミ　　○ 20　　509　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ミスミ　　○ 21　　510　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ミスミ　　○ 22　 23　　601　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　フタバ　　○ 24　　602　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　フタバ　　○ ＜プログラム＞ Sub TEST() Dim 部品番号 As String For i = 9 To 999 If Cells(i, 1).Value >= 500 And Cells(i, 6).Value = "" Then 部品番号 = Cells(i, 1).Value MsgBox "部品番号" & 部品番号 & "の発注先のセルが空白になっています。" Else End If Next For i = 9 To 999 If Cells(i, 7).Value = "○" And (Cells(i, 4).Value Like "*在庫*" Or Cells(i, 5).Value Like "*在庫*") Then 部品番号 = Cells(i, 1).Value MsgBox "部品番号" & 部品番号 & "の備考のセルに在庫の文字があります。" Else End If Next End Sub

３桁７SEG時計（PIC16F648A）を作りたい・・ ３桁時計を作りたいです。 割り込みを使って１秒を作って０：００から９：５９まで表示する時計。 私はプログラムの方はあんまり得意ではないので、 ご教授の方よろしくお願いいたします。 以下、必要と思われる情報です。 Device:PIC16F648A マイクロチップテクノロジ コンパイラ：CCS社製PICC　MATLAB+CCSコンパイラの環境です。 このハードウェアで０～９９９までカウント するプログラムは動作しています。 クロック：内臓４MHzです。 ハードウェアポート仕様 PORTA_A1:7SEGLED　Cathode　Common制御　分（１の位）NPNﾄﾗﾝｼﾞｽﾀON/OF 　　　A2:7SEGLED　Cathode　Common制御　分（１０の位）NPNﾄﾗﾝｼﾞｽﾀON/OF 　　　A3:7SEGLED　Cathode　Common制御　時（１の位）NPNﾄﾗﾝｼﾞｽﾀON/OF PORTB_B0：7SEGLED Anode 制御　7SEG_a PORTB_B1:7SEGLED Anode 制御　 7SEG_b PORTB_B2:7SEGLED Anode 制御　 7SEG_c PORTB_B3:7SEGLED Anode 制御　 7SEG_d PORTB_B4:7SEGLED Anode 制御　 7SEG_e PORTB_B5:7SEGLED Anode 制御　 7SEG_f PORTB_B6:7SEGLED Anode 制御　 7SEG_g PORTB_B7:7SEGLED Anode 制御　 7SEG_h 下記のプログラムは０～６００までカウントするプログラムです。 val値でカウントする値を可変できます。 #include <16f648a.h> #fuses INTRC_IO,NOWDT,NOLVP,NOMCLR //内部クロック、WDT,LVPなし #use delay(CLOCK=4000000) //クロック4MHz //#define TIME_OUT unsigned int const LED_SEG[]=　　　　　 //7SEG表示用テーブル { 0b00111111, /* 0= "0" [1] */ 0b00000110, /* 1= "1" [2] */ 0b01011011, /* 2= "2" [3] */ 0b01001111, /* 3= "3" [4] */ 0b01100110, /* 4= "4" [5] */ 0b01101101, /* 5= "5" [6] */ 0b01111100, /* 6= "6" [7] */ 0b00100111, /* 7= "7" [8] */ 0b01111111, /* 8= "8" [9] */ 0b01101111, /* 9= "9" [10]*/ 0b10000000, 　　/* 10= "." [11]*/ 0b01000000, /* 11= "-" [12]*/ }; unsigned int ct; //数字の更新間隔 unsigned long val; //表示する数字 unsigned int digit; //表示する桁 unsigned char st[3]; void main(void) { set_tris_a(0b11110000); set_tris_b(0b00000000); digit=0; ct=1; //数字を更新する周期 val=0; //表示する値 while(1) { ct --; if(ct == 0) { //数字の更新 st[2]=val/100; // st[1]=val/10-st[2]*10; //計算 st[0]=val%10; //計算 val++; if(val==600) val=0; ct=20;　　　　　　　　　　//200にすると 　　　　　　　　　　　　　　　　　　　　　　　　　//約1秒間隔の表示に 　　　　　　　　　　　　　　　　　　　　　　　　　//なります。 } if(digit== 2) { //第３桁の表示 output_b(LED_SEG[st[2]]); output_bit(PIN_A3,1);//３桁表示開始 delay_ms (5); //表示期間（ミリ秒） output_bit(PIN_A3,0); //表示を消す delay_us(100); } if(digit== 1) //第２桁の表示 { output_b(LED_SEG[st[1]]); output_bit(PIN_A2,1); delay_ms (5); output_bit(PIN_A2,0); delay_us(100); } if(digit == 0) //第１桁の表示 { output_b(LED_SEG[st[0]]); output_bit(PIN_A1,1); delay_ms (5); output_bit(PIN_A1,0); delay_us(100); } digit ++; if(digit == 3) digit=0;//表示桁を変更 } }

以下はこの件についてのニュース記事です https://news.yahoo.co.jp/articles/f146a346f88386f0d19b1d45a1a340577d0c2a9f?page=2 そんなに騒ぐほどのことですか？ この議員のしたことは特に何の法令にも違反しませんし、”クラブで出会った”というのが事実なら20歳以上なんだろうと推定するのは当然でしょう むしろこの女性は未成年なのに飲酒をしていたとすれば未成年飲酒として刑事事件として逮捕される行為ではないのでしょうか（酒を提供したクラブも） 個人的にはむしろ18歳女性の方が不快でした 4万ももらったんなら少しは吉川さんをかばうのが筋じゃないですか 血も涙もない女性じゃないでしょうか？ ＞私、経験がなかったから、怖くて過呼吸になってしまい は？ホテルまで来といて何言ってんの？って思いました 嫌ならさっさと帰ればよかったんです ホテルまで来といて急に”怖い”発言って何なんでしょうか ＞経験がないからと何度も拒否をしたら、『胸を見せて』と言われて、吉川さんは私を見て自慰行為を始めて 自慰行為って・・事実であっても虚偽であっても名誉毀損じゃないですか？ ＞部屋に行った私が悪いんだとわかっています。本当にごめんなさい いや悪いと思ってるなら最低でもいただいた4万円は吉川さんに返すのが当然ですよね？ そして本当に悪いと思ってるならそれに加えて慰謝料を吉川さんに支払うのが筋でしょう（それが正当な支払いかどうかはともかく”自分が悪い”と思っているというのが本心であれば、です） 普通はホテルに行ったらセックスOKという意思表示ですよね しかし吉川さんは最初からこの女性とエッチをする気なんて皆無だったのかもしれませんが、当然ながら吉川さんは無理矢理やるなんてことは全くせずこの女性の意向を尊重してます 不誠実なことをしているのはこの18歳の女性でしょう ごめんなさいとか言ってますけどもらった4万返してないのだとすれば、それに加えて名誉毀損発言をしていること等から判断して申し訳ないとか全く思ってないでしょう とはいえ不倫は民法上の不法行為ですし配偶者の信頼を裏切る行為なので確かに議員という重職はふさわしくないかなとは思います マスコミも名誉毀損だと思います・・と思っていたら吉川さんも週刊誌の会社を訴えるようですね この人が言っている通りジャーナリズムに反していると思います

ExcelのVBA初心者です。 ファイルを新しい日付のものから順番に検索したいのですが、幾ら探しても分かりませんでした。どなたか教えていただけないでしょうか？ やりたいことは、あるフォルダ内に毎日5～6個のファイルが保存されていくのですが、その中の決められたセルに指定した文字列が含まれているもの3つ場合分けしてファイルを出力したいのです。 例えば、 　ファイル名　　　セルE1の内容　　　　日付 　123.xls　　　　　”111111A”　　　　6/29 15:39:40 　456.xls　　　　　”111111N”　　　　6/29 15:35:10 　789.xls　　　　　”222222V”　　　　6/29 15:20:43 　654.xls　　　　　”222222A”　　　　6/29 14:30:21 　321.xls　　　　　”111111V”　　　　6/29 14:10:33 　951.xls　　　　　”222222N”　　　　6/28 17:52:15 　753.xls　　　　　”333333A”　　　　6/28 17:30:50 とファイルがあり、セルE1に”111111”の文字列を含むファイルを検索し、 　末尾に”V”があるもの → f(1)=321.xls 　末尾に”N”があるもの → f(2)=456.xls 　末尾に”A”があるもの → f(3)=123.xls と出力したいのです。 分からないなりに、いろいろ調べて切り貼りしながら作ってみました。 これで一応うまくいったのですが、検索する文字列は、必ず上記例のように新しい日付の5～6ファイルの中にあり、検索対象のフォルダ内には1000個以上ファイルがあります。 上記プログラムだと読み込む順番が最後になってしまいますので、恐ろしく処理時間が掛かってしまいます。 Sub ファイル検索() Dim buf As String, cnt As Long Dim i As Integer Dim wb(3) Dim bk As String, lot As String, lt As String Dim Path As String Application.ScreenUpdating = False lt = Cells(1, 5) bk = ActiveWorkbook.Name Path = Cells(1, 5) buf = Dir(Path & "*.xls") i = 1 Do While wb(1) = "" Or wb(2) = "" Or wb(3) = "" cnt = cnt + 1 Workbooks.Open Path & buf Select Case Cells(2, 5) Case Is = lt & "V" wb(1) = buf Case Is = lt & "N" wb(2) = buf Case Is = lt & "A" wb(3) = buf End Select Application.DisplayAlerts = False Workbooks(buf).Close Application.DisplayAlerts = True buf = Dir() Loop For i = 1 To 3 Workbooks(bk).Sheets(1).Cells(i, 1) = "wb(" & i & ")" & "=" & wb(i) Next i Application.ScreenUpdating = True End Sub 日付の新しいファイルから読み込む良い方法はないでしょうか？ Excelのバージョンは、2003です。 出来れば、2003～2010で対応できる方法があれば、ベストです。 よろしくお願い致します。

統計ソフトRの初心者です。 今、回帰分析について勉強しているんですけど わからないことがあるので教えてください！！ 問題としては平均の信頼区間と予測区間を散布図上にプロットせよ。 と言う問題です。ここまでの問題で書いたプログラムは以下のとおりです。平均の信頼区間、予測区間自体は求めることができたんですけど それを散布図上にプロットするやり方がわかりません。 詳しい方お願いします！！ > boats=c(447,460,481,498,512,513,526,559,585,614,645,675,711,719,727) > manatee=c(13,21,24,16,24,20,15,34,33,33,39,43,50,47,54) > plot(boats,manatee) > cor(boats,manatee) [1] 0.9512923 > out=lm(boats~manatee) > summary(out) Call: lm(formula = boats ~ manatee) Residuals: Min 1Q Median 3Q Max -48.069 -13.850 1.090 18.110 59.692 Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) 361.9077 21.0430 17.20 2.53e-10 *** manatee 6.9601 0.6256 11.13 5.15e-08 *** --- Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 Residual standard error: 31.25 on 13 degrees of freedom Multiple R-Squared: 0.905, Adjusted R-squared: 0.8976 F-statistic: 123.8 on 1 and 13 DF, p-value: 5.15e-08 > abline(lsfit(boats,manatee)$coef) > anova(out) Analysis of Variance Table Response: boats Df Sum Sq Mean Sq F value Pr(>F) manatee 1 120860 120860 123.78 5.15e-08 *** Residuals 13 12693 976 --- Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 > boats.new=1 > predict1=predict(out,data.frame(boats=boats.new),interval="predict",level=0.95) Warning message: 'newdata' had 1 rows but variable(s) found have 15 rows > predict1 fit lwr upr 1 452.3884 378.5162 526.2606 2 508.0688 437.0336 579.1041 3 528.9490 458.5776 599.3203 4 473.2685 400.6356 545.9015 5 528.9490 458.5776 599.3203 6 501.1088 429.8023 572.4152 7 466.3085 393.2852 539.3318 8 598.5495 528.7167 668.3823 9 591.5894 521.8203 661.3586 10 591.5894 521.8203 661.3586 11 633.3497 562.8099 703.8896 12 661.1900 589.6287 732.7512 13 709.9103 635.6428 784.1779 14 689.0302 616.0602 762.0001 15 737.7505 661.4514 814.0497 > predict2=predict(out,data.frame(boats=boats.new),interval="confidence",level=0.95) Warning message: 'newdata' had 1 rows but variable(s) found have 15 rows > predict2 fit lwr upr 1 452.3884 422.3884 482.3884 2 508.0688 485.9576 530.1800 3 528.9490 509.0738 548.8241 4 473.2685 446.4648 500.0723 5 528.9490 509.0738 548.8241 6 501.1088 478.1413 524.0762 7 466.3085 438.4642 494.1528 8 598.5495 580.6743 616.4247 9 591.5894 573.9646 609.2142 10 591.5894 573.9646 609.2142 11 633.3497 612.8860 653.8135 12 661.1900 637.4431 684.9368 13 709.9103 678.9496 740.8711 14 689.0302 661.3261 716.7342 15 737.7505 702.1914 773.3097

最近答えた質問で、力不足でお役に立たなかったランキングの考え方を教えてください。 http://oshiete1.goo.ne.jp/kotaeru.php3?q=1235529 No.5ではこう考えました。 勝ち数、負け数、年齢を2桁までとし、 全部の数字を足した時に重要なものから大きい桁の2桁ずつに表示されるように それぞれに数字をかけました(勝率に100をかけて桁を揃えます)。 この合計数で大きいものから順位をつけて行きたいと思ったのです（年齢にマイナスを掛けたのは間違い）。 更に後半では質問者さんから 同順位になったときに、どう判断させるかが詳しく書かれています。 考え方は面白いと思うのですが、 頭が働かず、質問者さんがおっしゃっている本当の考え方を100%理解することができませんでした。 ためしにExcelで作った表は次のようなものでした。 Excelをお持ちの方はお試しください。 B1から右に　勝数、負け、試合数、勝率5割以上か、勝率、年齢、作業列、ランク、A、B・・・～H A2から下にA～H B2に　=SUM(J2:Q2)←下までコピー C2に　{=TRANSPOSE(J10:Q10)} 　　　↑C2:C9を選択して=TRANSPOSE(J10:Q10)と入力し、Ctrlを押しながらShiftを押しながらEnterキーを押す。 D2に　=IF(C2="","",SUM(B2:C2))←下までコピー E2に　=F2>=0.5 F2に　=B2/D2←下までコピー G2から下に年齢を統一し、全部20と入力 H2に　=B2*10000+E2*10000+F2*100+G2←これを右にコピー I2に　=RANK(H2,$H$2:$H$9) J2を灰色に塗りつぶし、ここに入力できないという目印にします。 右下のセルを一つずつ塗ってゆきます（自分と自分の対戦はできないため）。 H10に　=SUM(J2:J9) 私は優先順位をよく理解していないようです。 たまたまExcelで作ったのですが、Excelをお持ちの方もそうでない方も この順位の考え方を私にもわかるように説明していただけないでしょうか。 本当にこういった考え方が苦手なのです。