High_Score の回答履歴
- このままでは地方に飛ばされないか心配です。
初めまして。22歳男です。 今年三月に大学を卒業し、鉄道関連の技術職(JR東日本の関連会社)に就職しました。 JR東日本の関連会社と言っても、全国に営業所があり、他社(JR西など)の仕事を担当する可能性もありますが。。 現在配属の業種が決まり、首都圏のとある場所で業種ごとの研修を受けていますが、そこで出遅れてしまい、人間関係の輪にも入れませんでした。話す仲間は何人かいますが、別の業種です。 同じ業種では孤立無援状態です。 その上私はあがり症なところがあるので、 話しかけられると吃ったり、緊張して凡ミスすることが多いので、いつも笑われ、 同じ業種の同期や先生からはすでに「使えないやつ」の烙印を押されていると思います。 目の前のことを丁寧にこなすよう心掛けていますが、上手くいきません。 このままでは地方に飛ばされるんじゃないかと心配になってしまいます。 現在付き合って半年の同じ歳の彼女もおり、現在とても楽しいので、新幹線や飛行機を使わなければ会えなくなる、今後自分は地方に飛ばされて彼女に振られて…なんて想像するととても辛いです。 こういうことを言っている自分の未熟さが、いけないと思いますが。 このような状況でも、会社で上手くやって行くにはどうするべきだと思いますか? やろうって意気込むと、いつも空回りしてしまいます。
- 締切済み
- 社会・職場
- jitensha201
- 回答数9
- 20年で、ついに離婚します。
女性に質問です。 妻が夫の顔を、拳で本気で殴る時は、もう憎悪の固まりでしょうか。 考え方、趣味趣向の違い等で、長年、口論の夫婦生活でした。 今回、私の兄弟の批判から口論になり、離婚を決意しました。 私は、暴力はふるっていません。 今までも、20年の間で数回、離婚話になり、子供の事を思い私が留まっていましたが、 子供の養育が終わりますので、決着した次第です。 妻の自立とか考えると、不憫だとは思いますが。 妻の両親は、すでに他界しています。
- ベストアンサー
- 夫婦・家族
- noname#202809
- 回答数9
- 部活動か基礎学力か
これから先の、迷走する日本社会を生き延びるためにはつまり、現代の子供たちには『部活動を頑張る』事と『基礎学力を身につける』事のどちらを、優先させたらいいのでしょうか?
- ベストアンサー
- 育児
- gemini3moco
- 回答数7
- Excelで数値が自動的に入力されるようにしたい
この質問は4カ月ほど前に投稿させていただいたものと同じ内容で、当時解決につながる様なアイデアをいただけなかったのですが、また必要が出てきたため再び投稿させていただくものです。 様々な値段の様々な商品があり、今後も増えていきます。 これらの商品を袋詰めしていくのですが、1つの袋に商品の値段の合計が1万円以上になるように詰めていきます。かつ、使う袋の数は多ければ多いほど良いです。 例えば、全商品の値段の合計が4万5千円だとして、その内訳が1千円・2千円・3千円・・・・9千円の(たまたま千円の倍数の)9個だとしたら、ちょうど1万円の袋が4つ出来、5千円の商品が余ります。その5千円の商品は適当にどれかの袋に加えるとして、とにかく1万円以上の袋が最大で4つ作れるということになります。逆に、3つの袋に分けるような詰め方は、上記の「使う袋の数は多ければ多いほど良い」に反するため、不適当です。 このような条件を満たすような商品の各袋ごとへの分け方をExcelで求めたいです。 A列に商品名、B列に値段を入力します。 C列に袋の番号(ダミー)が自動入力されるようにしたいのです。 上記の例だと B1セルに1000と入力すればC1セルに1(または0または表示なし)と、 B2セルに2000と入力すればC2セルに1(または0または表示なし)と、 ・・・ B4セルに4000と入力すればC1~C4セルに1と、 ・・・ B6セルに6000と入力したときに、例えば、C1=C3=C6=1、C2=C4=C5=2、というように、自動的に変更されるようにしたいです。なお、C列のセルに同じ数値が入る組み合わせは複数パターンがあると思いますが、1パターンだけ出れば大丈夫です。 逆に、B6セルに6000と入力してもC列のセルが全て1が自動入力されてしまったら、これは「2つの袋にどのように商品を詰め分けても、必ず1万円未満の袋が出来てしまう」ことを意味するので、不適当となります。 Excelのどのような機能を使えば、以上のようなことができるでしょうか。 宜しくお願いいたします。
- 締切済み
- Excel(エクセル)
- ao-b
- 回答数12
- LDLコレステロールと中性脂肪の下げ方?
健康診断に行ってきました。 去年唯一、LDLコレステロールが151でC判定が出たので、 1年間、食事も炭水化物や量、そして間食を一切控えて、 できるだけ気をつけてきたつもりです。 ですが、1年でさらに結果が悪くなっていました。 中性脂肪 110→160 LDLコレステロール 151→147 です。 橈骨動脈も92で、血管も固いそうです。 私は両親ともに、脳内出血と脳梗塞で亡くしています。 なので、動脈硬化などがとても心配です。 身長162センチ、体重53キロ、45歳女性、お酒もたばこもありません。 これは、内科に相談に行ったほうがいい数値でしょうか? 気をつけたらいい食生活、効果のあるサプリなどがもしありましたら どうか教えてください! 子供を残しているのでまだ死ねません。 どうかよろしくお願いいたします!!!
- 締切済み
- 病気
- noname#207235
- 回答数4
- プログラムを作成したいので教えてほしいです
JPEGの画像添付しました。この画像にあるデーターから、条件に会うものだけを抽出してまとめて表示したいと思っています。約1500名程度分です。また、壱・弐・参ともに0~100までの範囲内になっています。 条件について 1. 壱 20以上 弐 4以上 参 10以上 これは、無と表示する 但し 壱 20以上 弐 10以上 参 1~9であれば、これは、無と表示する 2. 壱 0 弐 0 参 0 壱・弐・参のいずれかに0があれば再と表示する 3. 壱 19以下 弐 4以上 参 10以上 これは、再と表示する 4. 壱 20以上 弐 3以下 参 10以上 これは、再と表示する 5. 壱 9以下 弐 9以下 参 9以下 これは、再と表示する 6. 壱 9以下 弐 9以下 参 10以上 これは、再と表示する 7. 壱 9以下 弐 10以上 参 9以下 これは、再と表示する 8. 壱 20以上 弐 9以下 参 9以下 これは、再と表示する 9. 壱 19以下 弐 9以下 参 9以下 これは、再と表示する
- ベストアンサー
- Excel(エクセル)
- ihuyi
- 回答数6
- 隣のセルで書式を変える VBA
通常の書式でのやり方ではわかりませんでした。マクロでなければできませんでしょうか? A列に値が入っていて、B列に値が入っていない場合にセル色とフォントを変更したいのです。 例えば、以下の感じです。 ・A6には値が入っていて、B6には入っていない場合にB6がセル色が赤でフォントが白 ・A7には値が入っていないくて、B7には入っていない場合は変化なし ※同じシートには他に、private sub でダブルクリックすると変化させるマクロが入っています。
- 締切済み
- Excel(エクセル)
- yuu1236
- 回答数2
- Excelマクロで複数行を一つのセルにまとめる方法
会社でデータ管理シートを作成しているのですが、 当方マクロ初心者でして、ちんぷんかんぷんです。 提出期限も明日の定時までに迫り、切羽詰ってきたのでご教授をお願い致します。 シート名「データ」として、以下のシートを作っております。 [No.][分類1][N1][分類2][N2] [内容] [N3][コード1][F1][F2][F3][cd] 1 NA1 X 0 X 商品1 XXXX DATE1 0000 000 0 XXXX 2 NA1 X 0 X 商品2 XXXX DATE1 0000 000 1 XXXX 3 NA1 X 0 X 商品3 XXXX DATE1 0000 000 0 XXXX 4 NA1 X 0 X 商品4 XXXX DATE1 0000 000 1 XXXX 5 NA1 X 0 X 商品5 XXXX DATE1 0000 000 2 XXXX 6 NA1 X 0 X 商品6 XXXX DATE1 0000 000 0 XXXX 大まかに記入するとこの様な形になるのですが、 ボタンを押すと、[F3]が1~9の値の時、[内容][cd]を直前の0の行の[内容][cd]それぞれのセルと結合するマクロを作らなければなりません。 [No.][分類1][N1][分類2][N2] [内容] [N3][コード1][F1][F2][F3][cd] 1 NA1 X 0 X 商品1 XXXX DATE1 0000 000 0 XXXX ** 商品2 ***** *** XXXX 3 NA1 X 0 X 商品3 XXXX DATE1 0000 000 0 XXXX ** 商品4 ***** *** XXXX ** 商品5 ***** *** XXXX 6 NA1 X 0 X 商品6 XXXX DATE1 0000 000 0 XXXX (「*」は文字位置調整用です) 分かりずらいかもしれませんが、ボタンを押して実行した結果このような状態にしたいのです。 VBAの教科書と共に、うんうん唸りながら色々試してみたのですが、 ただ時間だけが過ぎ、期限が差し迫ってしまいました... どうかお知恵を拝借させて下さい、よろしくお願い致します。
- ベストアンサー
- Excel(エクセル)
- lightrain
- 回答数2
- プログラムを作成したいので教えてほしいです
JPEGの画像添付しました。この画像にあるデーターから、条件に会うものだけを抽出してまとめて表示したいと思っています。約1500名程度分です。また、壱・弐・参ともに0~100までの範囲内になっています。 条件について 1. 壱 20以上 弐 4以上 参 10以上 これは、無と表示する 但し 壱 20以上 弐 10以上 参 1~9であれば、これは、無と表示する 2. 壱 0 弐 0 参 0 壱・弐・参のいずれかに0があれば再と表示する 3. 壱 19以下 弐 4以上 参 10以上 これは、再と表示する 4. 壱 20以上 弐 3以下 参 10以上 これは、再と表示する 5. 壱 9以下 弐 9以下 参 9以下 これは、再と表示する 6. 壱 9以下 弐 9以下 参 10以上 これは、再と表示する 7. 壱 9以下 弐 10以上 参 9以下 これは、再と表示する 8. 壱 20以上 弐 9以下 参 9以下 これは、再と表示する 9. 壱 19以下 弐 9以下 参 9以下 これは、再と表示する
- ベストアンサー
- Excel(エクセル)
- ihuyi
- 回答数6
- 電気回路の問題について質問です
写真の回路において 交流電圧源の周波数500rad/s 電圧源100V コイル80mH 抵抗30Ω のとき 電圧VRの大きさと偏角arg(VR)を求める 問題です 回路の合成インピーダンスは30+j40Ωというのは出ましたがその後がよくわかりません 教えてください
- 締切済み
- 物理学
- 199505220830
- 回答数3
- 他人の結果にケチばかり
よろしくお願いします。 職場でのことですが、 一部の同僚で、とある業務上の問題について、 何も指針や提案を出さず他人事のくせに、 いざ私が良かれと思い、改善計画案や提案をすると、 「段取りが悪いし、提案の趣旨がわからない」、「我々が話し合いの会議を設定するから」、など ケチや上から目線のような、話ばかりで怒りがこみ上げます。 ※しかも前週に私に提案をさせよう、と私が不在時に勝手に話を進めているのです 設定される会議も人を集めて実施するだけで、 何をしたいのか目的が良くわかりません。事前に断ってしまいました。 責任は負いたくないが、周囲にアピールできる意見は言いたい、という 魂胆が丸出しで、自分の中で受け入れがたいです。 上司も無関心でやる気の無い方で、同僚もこんな感じです。 自分1人が提案をしても、このような状況では本当に対応をすべきか?、 自問自答をしております・・。 同問題の今後ですが、段取りの中で、彼らに責任を負わせられるよう道筋を作り 彼らを追い込もうかと思いますが、 そもそもこういった評論家の人達とは関わらないほうが良いでしょうか・・?。
- プログラムを作成したいので教えてほしいです
JPEGの画像添付しました。この画像にあるデーターから、条件に会うものだけを抽出してまとめて表示したいと思っています。約1500名程度分です。また、壱・弐・参ともに0~100までの範囲内になっています。 条件について 1. 壱 20以上 弐 4以上 参 10以上 これは、無と表示する 但し 壱 20以上 弐 10以上 参 1~9であれば、これは、無と表示する 2. 壱 0 弐 0 参 0 壱・弐・参のいずれかに0があれば再と表示する 3. 壱 19以下 弐 4以上 参 10以上 これは、再と表示する 4. 壱 20以上 弐 3以下 参 10以上 これは、再と表示する 5. 壱 9以下 弐 9以下 参 9以下 これは、再と表示する 6. 壱 9以下 弐 9以下 参 10以上 これは、再と表示する 7. 壱 9以下 弐 10以上 参 9以下 これは、再と表示する 8. 壱 20以上 弐 9以下 参 9以下 これは、再と表示する 9. 壱 19以下 弐 9以下 参 9以下 これは、再と表示する
- ベストアンサー
- Excel(エクセル)
- ihuyi
- 回答数6
- Excel VBA での商品管理について
今、エクセルにて商品管理をするツールを作成していました。 ユーザーフォームにて、売却した商品コードを入力すると、在庫シートから該当商品を検索し、ユーザーフォーム内に商品データが入力されるようになっています。 売上登録処理を実行した時に、売買明細シートへA列には(1)売却した商品コード、B列には(2)売却した商品名、C列には(3)売却価額、D列には(4)売却した商品の仕入価額(これは”在庫シート”の中で商品コード(B列)を検索し、在庫シートのJ列から引っ張る)という情報を転記したあと、(5)在庫シートへ記載されているその商品情報の行を削除したいのです。 (1)~(3)の処理はできたのですが、(4)の在庫シート内で商品コードを検索する というコードが書けません。 (1)~(3)の処理は、 Dim Ctrl As Control With Worksheets("売買明細") 'A列の最終セルからEndプロパティでデータの最終行を取得し、 '+1をして、次にデータを入力する行の行番号を取得 RowNum = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'ワークシートの行列を指定してテキストボックスの値を1つずつセルへ代入 .Cells(RowNum, 1).Value = Me.商品コード.Value .Cells(RowNum, 2).Value = Me.商品名.Value … 以下続くとしました。 すみませんが、どなたかお知恵を貸していただけないでしょうか。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- rikukana1020
- 回答数3
- Excel VBA での商品管理について
今、エクセルにて商品管理をするツールを作成していました。 ユーザーフォームにて、売却した商品コードを入力すると、在庫シートから該当商品を検索し、ユーザーフォーム内に商品データが入力されるようになっています。 売上登録処理を実行した時に、売買明細シートへA列には(1)売却した商品コード、B列には(2)売却した商品名、C列には(3)売却価額、D列には(4)売却した商品の仕入価額(これは”在庫シート”の中で商品コード(B列)を検索し、在庫シートのJ列から引っ張る)という情報を転記したあと、(5)在庫シートへ記載されているその商品情報の行を削除したいのです。 (1)~(3)の処理はできたのですが、(4)の在庫シート内で商品コードを検索する というコードが書けません。 (1)~(3)の処理は、 Dim Ctrl As Control With Worksheets("売買明細") 'A列の最終セルからEndプロパティでデータの最終行を取得し、 '+1をして、次にデータを入力する行の行番号を取得 RowNum = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'ワークシートの行列を指定してテキストボックスの値を1つずつセルへ代入 .Cells(RowNum, 1).Value = Me.商品コード.Value .Cells(RowNum, 2).Value = Me.商品名.Value … 以下続くとしました。 すみませんが、どなたかお知恵を貸していただけないでしょうか。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- rikukana1020
- 回答数3
- 管理栄養士、作業療法士
管理栄養士と作業療法士どちらの資格が今後使えると思いますか? また私は将来の希望としては食品会社や病院で働いてからケアマネージャーの資格をとって保健師のようなこともしたいと考えています。 ※血が苦手なので保健師は看護学校なので無理です。 もう高2の秋でどちらにするか決めないといけないので本当に悩んでいます。 アドバイスをください。
- 分布定数回路について
分布定数回路では、特に高周波においては電圧や電流の波長が空間的な場所によって異なりますが、なぜ場所によって波長が変化するのでしょうか?理由をわかりやすく教えて下さい。
- Excel VBA での商品管理について
今、エクセルにて商品管理をするツールを作成していました。 ユーザーフォームにて、売却した商品コードを入力すると、在庫シートから該当商品を検索し、ユーザーフォーム内に商品データが入力されるようになっています。 売上登録処理を実行した時に、売買明細シートへA列には(1)売却した商品コード、B列には(2)売却した商品名、C列には(3)売却価額、D列には(4)売却した商品の仕入価額(これは”在庫シート”の中で商品コード(B列)を検索し、在庫シートのJ列から引っ張る)という情報を転記したあと、(5)在庫シートへ記載されているその商品情報の行を削除したいのです。 (1)~(3)の処理はできたのですが、(4)の在庫シート内で商品コードを検索する というコードが書けません。 (1)~(3)の処理は、 Dim Ctrl As Control With Worksheets("売買明細") 'A列の最終セルからEndプロパティでデータの最終行を取得し、 '+1をして、次にデータを入力する行の行番号を取得 RowNum = .Cells(Rows.Count, 1).End(xlUp).Row + 1 'ワークシートの行列を指定してテキストボックスの値を1つずつセルへ代入 .Cells(RowNum, 1).Value = Me.商品コード.Value .Cells(RowNum, 2).Value = Me.商品名.Value … 以下続くとしました。 すみませんが、どなたかお知恵を貸していただけないでしょうか。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- rikukana1020
- 回答数3
- VBAの記述の、Sub SetValue()など
VBA初心者です。 VBAの記述の先頭行に記載する、Sub SetValue()や、 Sub SelectCell() これは、なんと言うのでしょうか コンソールのメニューからでの、入力できるのでしょう ちょっと、探してみたのですが、分かりません。 この、Sub SelectCell()みたいなのが、処理ルーチン一覧のオブジェクトになるのでしょうか? ご指導、御教授おねがいいたします。
- 締切済み
- その他(プログラミング・開発)
- ijamu136
- 回答数2