High_Score の回答履歴

私と彼は付き合って２年半、宿泊を伴う旅行も何度か行きました。 彼は最近、 「そろそろ結婚とか、どう？^^」 などと言ってきてくれますが、一方心配もあるようで、 「１０年も１人暮らしをしてきたから、人と上手く共同生活が営めるのかっていう不安もあるんだよね」と言っています。 彼曰く、私だから共同生活を営めるか不安というのではなく、自分以外の人間とずっと１つ屋根の下で暮らすということが本当にできるのか、というのが不安だそうです。 実際、かつての彼女とも同棲をしたことがなく、同性との寮生活でさえも「考えられない」と言っています。 一方私は、実家暮らし歴が長く、自分の部屋は寝る時だけに使い、リビングで家族と食事をしたりテレビを見たりという生活をしてきました。 ただ、私は性格的にベタベタと彼に甘えて依存するタイプではなく、他人とは適度な距離を保ちたいほうです。 彼は、「結婚する前に、週末だけでもいいから一度一緒に暮らしてみたい」と言っているので、私もそれに合意し、近いうちに週末婚のような生活を始めようと思っています。 そこで、皆さんにお尋ねしたいのですが、彼のような人に、 「結婚ってやっぱりいいな」 「この人とは一緒にいても疲れないし、居心地がいい」 「マイペースな自分でも案外、共同生活って出来るものだ」 と思ってもらうためには、週末婚の段階で、どのようなことに気を付けたらいいと思いますか？ ちなみに一緒に暮らそうと考えている彼のアパートの間取りは、３つほど部屋があり、１人暮らし用にしては広いです。

エクセル マクロについて質問です。 現在，以下のような記述をエクセル上のボタンに登録しています。 ボタンを押すと，デスクトップ上の任意のCSVファイルの選択を行い，CSVファイルを選択し，そのCSVデータを全てエクセル上のデータとして落としさせたいと思っています。 しかし，csvファイルによっては， 「実行時エラー　 アプリケーション定義またはオブジェクト定義のエラーです。」と出て， 「デバック（D）」ボタンを押すと，下から４行目の 「Cells(i, j) = strCell」のところが，黄色くエラーとして表示されてしまいます。 下記の記述もネット上で皆さんに教えていただきながらなんとかやっているもので，正直自分自身でよく理解できていませんが，上記のようなエラーを回避する方法をどなたかご教示いただけないかと思います。 どうかよろしくお願いいたします。 Sub Macro5() Dim varFileName As Variant Dim intFree As Integer Dim strRec As String Dim strSplit() As String Dim i As Long, j As Long, k As Long Dim lngQuate As Long Dim strCell As String varFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _ Title:="CSVファイルの選択") If varFileName = False Then Exit Sub End If intFree = FreeFile '空番号を取得 Open varFileName For Input As #intFree 'CSVファィルをオープン i = 0 Do Until EOF(intFree) Line Input #intFree, strRec '1行読み込み i = i + 1 j = 0 lngQuate = 0 strCell = "" For k = 1 To Len(strRec) Select Case Mid(strRec, k, 1) Case "," '「"」が偶数なら区切り、奇数ならただの文字 If lngQuate Mod 2 = 0 Then Call PutCell(i, j, strCell, lngQuate) Else strCell = strCell & Mid(strRec, k, 1) End If Case """" '「"」のカウントをとる lngQuate = lngQuate + 1 strCell = strCell & Mid(strRec, k, 1) Case Else strCell = strCell & Mid(strRec, k, 1) End Select Next '最終列の処理 Call PutCell(i, j, strCell, lngQuate) Loop Close #intFree End Sub Sub PutCell(ByRef i As Long, ByRef j As Long, ByRef strCell As String, ByRef lngQuate As Long) j = j + 1 '「""」を「"」で置換 strCell = Replace(strCell, """""", """") '前後の「"」を削除 If Left(strCell, 1) = """" And Right(strCell, 1) = """" Then strCell = Mid(strCell, 2, Len(strCell) - 2) End If Cells(i, j) = strCell strCell = "" lngQuate = 0 End Sub

IT企業勤務ですが、本業とは別の勉強会のような位置づけで、最新の技術を使ったシステムを作る課題があります。 そこで、元々プログラミングが苦手な私は、どのようなシステム、機能にするかの案出しのフェイズはともかく、プログラムを実装しようという段階でやはり手も足も出なくなって来ました。 毎週水曜日に進捗会議がありますが、毎週何も発表できない状態です。 まあ守秘義務にも値しないと思うので言ってしまうと、スマホによくある、９個くらい○があってそれを指定した通りになぞるとロックが解除されるみたいなロック機能を作れと言われているわけですが、私にそんなの作れるわけないいんですよ。 こういう場合、どうすればいいんですかね。チームの中でもさらに小チームに別れているので素直に分かりませんというなり、こんな手がかりは見つけましたからと参考サイトを提示するか。 どうしたらいいか分かりません。 ご意見お願いします。

シート(A社)にはA社の株の変動の予測(A列にパターン1,2,3,4・・・、1行目に時間)、同じくシート(B社)にはB社の株の変動の予測パターンが入っています(添付画像参照)。 マクロを起動させると、シートResultのグラフのデータを削除して、新たにA社・B社のデータを追加させて新しいグラフを作るというようなマクロを作りたいです。 また、データの範囲(表の開始位置・シュミレーションの回数(縦)・時間(横))はその都度変わるので、絶対参照ではなく、変数で指定できるようにお願いします。 x軸の値を最小値=0，最大値=j(例だと30)というようにしたいです。 i=10 'シュミレーション回数 j=30　 '時間 k=cells(rows.count,1).end(xlup).row-i　 '表の左上 私のスキル不足で例では、凡例をA社1,A社2・・・B社10としていますが(添付画像参照)、1～10までを区別する必要がないので（むしろ邪魔）、赤線：A社・青：B社のような凡例(右)が付けられると嬉しいです。 50回,100回とシュミレーションの回数を増やしたときにVBAでないととても手に負えません。 よろしくおねがいします。

コンビニで働いています。月の目標として『レジ違算ゼロ達成率100％』を掲げました(レジ違算が0に近いほど達成率が高くなるというものです)。自分で目標を出したのにもかかわらず、どのように達成率を出したら良いのか分からず困っています。どなたかわかる方いらっしゃいましたら、回答宜しくお願いします。

こんにちは 現在、電子機器（インバータ）関連の仕事をしています。 電子回路を理解できるようになるためにはどのような手法でアプローチしたら良いかアドバイスをいただきたく、質問を投稿させていただきました。 諸事情により、今まで専門としていない分野で働いておりますが、知識や経験がないため独学で電子回路の勉強を続けています。 勉強方法としては書籍を読んで回路の働きを理解しようとする方法が主となっています。 簡単なものから高度な内容までインバータ関連の書籍を購入し、完全に理解しないまでも一通り購入した書籍を読みました。 業務上に必要で自分で考えても分からないことは、詳しい同僚に聞くことで解決しています。 新しい分野を勉強することはとても楽しいのですが、回路図を読んでも回路動作がどのようになっているのかイメージできず、書籍で読んだことが身になっていないように感じており、学習方法を工夫しなくてはならないと考えています。 ひとまず目の前の目標としては、電子回路の働きを大まかでも良いので頭でイメージでき、回路図を読めるようになりたいと考えています。 会社では特別トレーニングのようなことをやってもらえることは期待できないので、自分で学習をしていきたいと思っています。 実際に簡単な電子工作を行ってみるところから入っていき、実際に自分の手を動かすことの方が、書籍を読み漁るよりも電子回路の理解を助けてくれるのではと推測しています。 より良く電子回路を理解するにはどのようなアプローチが良いでしょうか。 お忙しい中大変恐縮ですが、アドバイスいただけましたら幸いです。

数学を勉強しましたが、挫折したものです。 なので、数学チックに質問できていないのはご容赦ください。 以下の問題で悩んでいます。 F(aX,bY,cZ,dQ,・・・・・) = L という式があり、 定数（小文字）は自分で任意に定義できます。 今、X、Y、Z、Q、・・・・・Lの標本データが手元にあり、 Lをなるべく低い値にするために、定数（小文字）を決めようとしています。 F()関数の処理は「未定義」です。 どういった計算をしたら定数（小文字）を求められるのでしょうか？ ちなみにX、Y、Z、Q、・・・・・Lの標本データは直線型の相関がありません。 ずっと考えていたら、頭がふやけてきた気がします。 この際、他の人に教わったほうが早いと思い、質問させていただきました。 よろしくお願いします。

「トーナメント形式について詳しく教えてください」 例えば16チームあってどのチームが勝つ確率も1/2とする時優勝するまでに何回戦わないといけないかを計算ですぐ出るようにしたいのですが、この場合だとトーナメント豹を書いてもすぐ分かって4回だと分かりますが、100チームとか300チームとかなってきたらちゃんと考え方をわかっていないといけないと思うのです、なので是非数えかたを教えて下さい、16チームの場合16/2^4=1から4試合だと出していた人も居たのですが、この式がどうやって立てたのか分からないです

作業環境は以下の通りで、Excelの知識は初心者です。 OS：Windws7　/　使用ソフト：Excel2003 商品.xlsには3つのシートが存在します。 シートはそれぞれ、1行目は見出し行としています。 ・商品データが入った「生データ」シート ・「生データ」シートから必要な情報を参照や加工する数式がA2～AG2に入った「詳細」シート ・「生データ」シートから必要な情報を参照や加工する数式がA2～G2入った「カテゴリ」シート。 「詳細」「カテゴリ」共に数式の入った行を「生データ」の数(行)に合わせて、オートフィルコピーし、最終的にcsvファイルを作成します。 他に、商品.xlsと同じ作りのファイルが複数あり、それらは「生データ」の行数がバラバラの為、VBAで処理したく検索したところ以下のページを発見しました。 http://www.excel.studio-kazu.jp/kw/20110513073632.html VBAは初心者の為、このVBAの意味を検索しながら以下の様に理解して修正したのですが、思うように処理できずにいます。 何が違っているか教えて頂けないでしょうか。 また、できれば数式だけが入ったファイルを雛形として用意し、 生データだけのファイルは別に持ち、処理する形が望ましいのですが VBAで可能な事なのでしょうか？ lasとは、生データの最後尾を定義 詳細のA1～AG2セルから1つ下のセルの値を消去し、2行目をコピーし 生データの2行目～最後尾までの行分の数式を貼り付ける カテゴリにも同じ処理を与える Sub データ抽出() Dim las As Long las = Sheets("生データ").Range("A" & Rows.Count).End(xlUp).Row With Sheets("詳細") .Range("A1").CurrentRegion.Offset(1).ClearContents .Range("2:2").Copy .Range("2:" & las).PasteSpecial xlFormulas End With With Sheets("カテゴリ") .Range("A1").CurrentRegion.Offset(1).ClearContents .Range("2:2").Copy .Range("2:" & las).PasteSpecial xlFormulas End With End Sub

1つのワークブック内に複数のシートがあり その中で特定の2シートのみ別シートにまとめたいです どのシートも1行目は見出しとなるため 2行目以降のデータのみ必要となります またデータを結合させた別シートでは最後にA列を基準として並べ替えも行いたいです このような場合はどのようにすればいいのでしょうか？ 全てのシートを1つにまとめるというようなマクロは見つかったのですが・・・

こんにちわ。この質問に目を留めて頂いてありがとうございます。 私と夫は40代前半で結婚7年、私は専業主婦で子供はおりません。(希望しましたが授かりませんでした) 暫く前から、喧嘩がきっかけで、夫婦関係に不協和音が起こり、そのストレス発散で 夫がギャンブルにはまり、東南アジアの女性と浮気を重ね、挙句の果てには家計費を何百万と使い込んでいる事が発覚しました。 私は何度もギャンブルをやめて欲しい、浮気はしないでと、泣いて訴えたり、大目にみたり、他の趣味を勧めたり、彼の好きな料理を振舞って試行錯誤しましたが、 彼のギャンブル癖は止まず、週一ペースのギャンブル通いは休みの日や平日の空いた時間はしょっちゅう行く様になり、又浮気相手とも続いてる様でした。 その為、私は心痛が重なり、カウンセリングなども受けましたが、自分の心身の回復が優先だと思い、実家に戻り別居中です。 一人になった時間は、自分を内観し、彼がどうしてこうなったのか(元々は真面目に働き、無駄使いもしない良い夫でした)、2人の関係性など様々な角度から見直し、自分の性格上の問題(自分を愛せていなかったことによる人生をこじらせていた点)、彼の弱さ(ACです)なども認めた上で、やっぱり今も夫を愛してるので、過去は水に流して、やり直そうと決心し、夫の元に戻ろうと思った矢先、夫からの拒絶と、別れを希望する様な連絡がありました。 夫は、新築のホームローンや生活費に当てている、2人の共有財産の銀行口座を私がストップをかけ、夫が使えない様にした事を根に持って、逆恨みしている様です。 そうでもしないと財産はあっという間に底を尽くことは目に見えていましたが、夫はその事が今も腹に据えかねている様で、私が家に戻る事を許さず、又今度私の実家に話しをしに伺うと実家の父に言っています。 (直接2人で話せば、余計に関係は拗れ悪化するので、メールなどを使っています。) ちなみに新居は建てて、まだ2年も経っていなく、経費の半分は私が払い、夫が残りをローンで支払いしています。 私は完璧な人間ではないので、彼に対して落ち度も沢山あったかもしれませんが、精一杯妻として努めてきたつもりでした。自分の性格の弱点は見直し、強化し、彼への接し方、愛情の掛け方も足らなかった部分を学びました。 けれども、夫の意思は強固で変わらない様に見えます。 家族や友人からは、新しい人生を歩んだ方が幸せになれると離婚を勧められていますが、 夫への愛情か執着かわかりませんが、別れを決心出来ず、グリーフ状態で少し鬱傾向にあります。今度夫が実家に話しをしに来た時、私はどういう態度を取り、今後自立し一人で生きるのにはどうしたら良いでしょうか。強くあろうと思いながら、涙が零れて元気が出ずにいます。 経験者の方いましたら、何かアドバイス頂けたらたら嬉しいです。

最近スムージー作りなどで栄養素が壊れないように低速のものが売っていますけど 赤ちゃん離乳食作りににブレンダーを買おうと思ったのですが、 ブレンダーってミキサーみたいに高速ですか？ 熱が発生したりするのでしょうか？ それによって栄養価が少なくなってしまうのでしょうか？ 調理に詳しいかた教えてくださいm(__)m

アパートの退去時の費用についての質問です。先日約8年住んだアパートから退去したのですがその後改修工事請求書として不動産屋から請求書が送られてきました。内容としては 解体撤去運搬処分 費 36200円 クリーニング工事前 32500円 木工事 15000円 内装建材 5460円 内装工事153375円 住宅設備工事 12490円 給排水工事15000円 金属建具工事 18750円 クリーニング工事後仕上げ 30000円 諸経費 27188円 合計462963円 税込み500000円 物件は築30年弱の木造1K 6畳です。 敷金は48000円で他に日割りで戻ってくるはずのもの40000円もあるはずです。水周りのカビは目立ちましたが他は破壊もしていませんしタバコも一切吸いません。果たしてこれは妥当な金額なのでしょうか？またどういった対応や相談をすればよいのでしょうか？どなたか力をお貸しください。長文失礼しました。

下記の作業をマクロ？で行いたいのですが、どこから勉強すれば自分で作成できるようになりますか？ 「エクセルで月末の日付、翌月末の日付、特定の数字列の一部を繰り上げる」 この3つの作業を一度に行えるものでしょうか。 ネット上に似たようなサンプルコードがありましたが、そのコードをどう使うのかも わかりません。 この作業はマクロでですか？VBAでしょうか。 エクセル2010mosの資格のみ取得しています。 mosの試験の為に書式を変更するマクロやマクロアイコン作成などは 勉強しましたが、今回の場合どう応用して良いかわかりません。 よろしくお願い致します。

以下のVBAマクロで突然エラーが出るようになってしまいました。 原因がわからず困っています。 どなたかご教授ください。 該当部分 :S = Range("B2").End(xlDown).Row エラーMrg:実行時エラー'6': オーバーフローしました ----------マクロ文---------- Sub 部担コード読み替え() Dim R_Count As Integer Dim P_Sheet As String Dim S As Integer 'データ取込用のファイルを開く Workbooks(D_Book).Activate Sheets("Data1").Select Columns("C:C").Select Selection.Insert Shift:=xlToRight Range("B2").Select S = Range("B2").End(xlDown).Row Range("C2:C" & S).Formula = "=SUBSTITUTE(SUBSTITUTE(RC[-1],""%"",""1""),""*"",""2"")" Range("C1").Value = "部担コード" Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Columns("B:B").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("A1").Select Sheets("Data2").Select Columns("C:C").Select Selection.Insert Shift:=xlToRight Range("B2").Select S = Range("B2").End(xlDown).Row Range("C2:C" & S).Formula = "=SUBSTITUTE(SUBSTITUTE(RC[-1],""%"",""1""),""*"",""2"")" Range("C1").Value = "部担コード" Columns("G:G").Select Selection.Insert Shift:=xlToRight Range("G2:G" & S).Formula = "=SUBSTITUTE(SUBSTITUTE(RC[-1],""%"",""1""),""*"",""2"")" Range("G1").Value = "キー" Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Columns("B:B").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Columns("E:E").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("A1").Select End Sub

以下のVBAマクロで突然エラーが出るようになってしまいました。 原因がわからず困っています。 どなたかご教授ください。 該当部分 :S = Range("B2").End(xlDown).Row エラーMrg:実行時エラー'6': オーバーフローしました ----------マクロ文---------- Sub 部担コード読み替え() Dim R_Count As Integer Dim P_Sheet As String Dim S As Integer 'データ取込用のファイルを開く Workbooks(D_Book).Activate Sheets("Data1").Select Columns("C:C").Select Selection.Insert Shift:=xlToRight Range("B2").Select S = Range("B2").End(xlDown).Row Range("C2:C" & S).Formula = "=SUBSTITUTE(SUBSTITUTE(RC[-1],""%"",""1""),""*"",""2"")" Range("C1").Value = "部担コード" Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Columns("B:B").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("A1").Select Sheets("Data2").Select Columns("C:C").Select Selection.Insert Shift:=xlToRight Range("B2").Select S = Range("B2").End(xlDown).Row Range("C2:C" & S).Formula = "=SUBSTITUTE(SUBSTITUTE(RC[-1],""%"",""1""),""*"",""2"")" Range("C1").Value = "部担コード" Columns("G:G").Select Selection.Insert Shift:=xlToRight Range("G2:G" & S).Formula = "=SUBSTITUTE(SUBSTITUTE(RC[-1],""%"",""1""),""*"",""2"")" Range("G1").Value = "キー" Cells.Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues Columns("B:B").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Columns("E:E").Select Application.CutCopyMode = False Selection.Delete Shift:=xlToLeft Range("A1").Select End Sub

初めての投稿です。 少し長くなります、すいません。 現在、某地方のスナックで働いております。 そこで、1年以上前から体調を崩してしまう程の嫌な体験をしてしまい、その体験から間もない頃より、ママに「店を辞めたい」と話してきました。 しかし、その度に、「チーママとして働いているあなたに今辞められてしまっては、店事態が困る」「辞めたい原因は何？相談にのるよ」といわれ続け、現在に至っています。 そもそも、私が店を辞めたい理由は、ママにあるのです。ママには付き合っている彼氏がいて、その彼氏に店で働いている女の子の個人情報（ex: 結婚している女の子の名前やその子の旦那さんの職場の名前、同棲している彼氏がいること　等々　）を話していたり、更にママの彼氏は毎日のように店に来て、ママから聞いているはずの女の子の個人情報を改めて女の子から根掘り葉掘り聞き出そうとしているのです。 そして、毎回のことですが、ママの彼氏は毎回、無銭飲食です。 私は、キャスト全員に何を聞かれても、うまく話を切り替えることや嫌なことをされたり言われた際はすぐに私に話すことを支持しております。 このような店にいつまでもいたくないですし、ママの職権乱用にも限度があると思っています。 うちの店は辞めるときは、1ヶ月前に申請が必要で、毎月、店の〆日に申請していますが、どうやっても辞めることができません。 どのようにすれば、今すぐにでも辞めることができるのか、知恵を貸して下さい。 長文失礼しました。

設計事務所で働いている者です。 20代前半の女です。 仕事で建材メーカーさんに見積をお願いするのですが、 伝えた期日を遅れてくるメーカーが多くて悩んでいます。 男性の先輩方に聞いたところ、同じメーカーの担当者さんでも、 遅れてくることは殆どないと言われました。 寧ろ私が依頼する内容の方がよっぽどライトなので遅れにくいと思うのですが。 （カタログ通りの仕様で、数量も少ない。工事費が算出しにくいものでもない） 入社以来ずっとそんな感じです。 仕事のやり方は、先輩方と変わりません。 メールで見積依頼→電話でフォロー（期日を念押す）→ 前日の15時までに来ていなかったら、電話で進捗をきく→見積を頂いたら確認とお礼のメール です。 普段は電話でのやりとりが殆どですが、メーカーさんが挨拶に来られると、 本当に設計の方ですか？とか可愛らしいですね、とほぼ絶対言われます。 （顔は中の下ですが、雰囲気がお嬢様っぽいとよく言われる） 見た目や性別でなめられているのでしょうか。 アドバイスをお願い致します。

元夫とは子供の精神安定の為会ったり家に泊まったりしています。ある日たまたま元夫の家の前を通ると女性が子供服を干していました。再婚したり彼女がいるなら私達と会わない方が良いのではないかと思い聞いてみると彼女や再婚はしていないやらいずれ私達と一緒に暮らしたいと言われました。どうして女性の存在を隠すのか理解ができません。皆さん教えて下さい。よろしくお願いします。

2人目を妊娠し現在臨月でいつ産まれてもいいという状況です。名付けに関する事ですが姑が絡んでいるのでこちらのカテゴリーにしました。ただの愚痴ですが聞いてください。 1人目もそうでしたが、姑が昔からお世話になっているお寺の住職に名付けの鑑定を見て貰わなくてはならないのが嫌でたまりません‼︎ 名付けどころか、引っ越す方角や車の納車日、結婚の日取りまで全部聞かないと何も動けません。そしてダメなら高いお札を頼んでもいないのに買わされます。 私は昔からそういうのが苦手というかあまり信じない性格なので、自分の事を人に聞かないといけないというのが理解出来ません。 主人は信用してるわけではないようですが昔からそれで育ってきたので悪いよりは良いだろうという考えです。主人の手前、一応従いますが本当は嫌です。 今回も候補をいくつか提示してどれがいいか選んでもらうのですが、正直自分の子供の名前くらい自分で付けたいですよね‼︎多分私が出産入院中に主人が姑とそのお寺に行くので、私は立ち会えません。主人に任せるしか無いのですが、不安です…。 ただの愚痴ですが、聞いてくださりありがとうございました。同じような思いをされてる方もたくさんいると思いますが、皆さんどのように対処されてるのでしょう。