Cor_moriyan の回答履歴

VBA素人です。 質問内容も素人で誠に恐縮ですがよろしくお願いいたします。 以下の内容、分かる方が見えたらご教授お願いします。 エクセルVBAで個人情報を登録するユーザーフォームを作成しています。フォームに入力した内容はワークシートに反映されるようになっています。 1行目はタイトルで、2行目以降に個人情報が入ります。 A列にコードとして、数字を１～100まで入力してますが、フォーム側で削除をするとその番号が欠番になってしまいます。 そこで、関数を使いA2のセルからA101にかけて、=ROW(A2)-1、=ROW(A3)-1...と入れました。 ワークシート上で行を削除すると、欠番は発生しないのですが、フォーム側で削除すると、セルに登録されている関数が消え、欠番が発生してしまいます。 そこで、次はアクティブになっている行番号-1にするマクロでやればいいのかなと安易に考え、 Public Sub CODE() Me.laCODE.Caption = ActiveCell.Row - 1 End Sub といったプロシージャをつくりました。 そうすると開いたレコードが全て同じ数値になってしまいました。 色々と思案してみましたが、自力で出来そうにありませんので、お力を借りればと思います。 どんな方法でも結構ですので、フォームにレコード番号を表示させるやり方をご教授ください。

タイトル通りです。 どのように表示させれば良いのですか？ 操作が分からず困っています。

行挿入マクロを使用した製品管理表を作成しましたが、シートの保護をかけて行挿入マクロを実行すると「RangeクラスのInsertメソッドが失敗しました」と出ます、シートの保護を外すと実行されます。保護をかけたシートはマクロを実行できないのか、マクロ文が間違っているのかわかりません。ご教授下さい。 表は抜粋ですが以下のとおりで、１５行目に行挿入マクロを実行する表作成のマクロです。 E15にはIF文が含まれています。 　　　　　　A　　　　　B　　　　　　C　　　　　　　D　　　　　　E　　　　　　　F 14　　　　空白　　納入日　　使用日　　納入数量　　使用数量　　　使用m 15 マクロ文は、以下のとおりです Sub 行挿入() ' 行挿入 Macro m = Cells(15,5).Formula Range("A14:G15").Insert copyorigin:=xlFormatFromRightOrBelow Cells(15,5) = m End Sub

よく各眼鏡チェーン店が3000円代で安い眼鏡を販売していますが、これはどうなんでしょうか？ レンズも 「球面」「非球面」 「プラスチックレンズ」「ガラスレンズ」 と大別され、値段もそれにより変わるようですが。 私は両目０．７で運転免許証は裸眼で運転OKですが（2週間前に更新したばかり）、40歳を過ぎてか物が見えにくくなってきたので眼鏡をつくろうとおもっています。 ただいままで眼鏡を作ったことがないので専門的なことがわかりません。 使い方としては、普段車の運転や読書など不都合に感じる時はないですが、やはりつかれた時や夜のドライブなどには眼鏡が必要、つまり常にかける体制ではなく、状況に応じて眼鏡をかけようと思っています。 予算は7千円ぐらいまでです。 私のようなタイプには「球面」「非球面」で言えばどちらか？ 「プラスチックレンズ」「ガラスレンズ」で言えばどちらか？ アドバイスお願いいたします。 参考文献もあるのですが専門的で私にはよくわかりません。 http://homepage1.nifty.com/EYETOPIA/megane/hikyumen.html

よく各眼鏡チェーン店が3000円代で安い眼鏡を販売していますが、これはどうなんでしょうか？ レンズも 「球面」「非球面」 「プラスチックレンズ」「ガラスレンズ」 と大別され、値段もそれにより変わるようですが。 私は両目０．７で運転免許証は裸眼で運転OKですが（2週間前に更新したばかり）、40歳を過ぎてか物が見えにくくなってきたので眼鏡をつくろうとおもっています。 ただいままで眼鏡を作ったことがないので専門的なことがわかりません。 使い方としては、普段車の運転や読書など不都合に感じる時はないですが、やはりつかれた時や夜のドライブなどには眼鏡が必要、つまり常にかける体制ではなく、状況に応じて眼鏡をかけようと思っています。 予算は7千円ぐらいまでです。 私のようなタイプには「球面」「非球面」で言えばどちらか？ 「プラスチックレンズ」「ガラスレンズ」で言えばどちらか？ アドバイスお願いいたします。 参考文献もあるのですが専門的で私にはよくわかりません。 http://homepage1.nifty.com/EYETOPIA/megane/hikyumen.html

タイトル通りですが、Alｔ＋F４の意味を知りたいです。 一応「Alt＋F4　意味」で検索しましたが強制終了という意味で良いのでしょうか？ パソコンの本を買ったり読んだりする以外で そういう意味を調べる手段を教えて下さい。 もしAlt＋F4が強制終了の意味でしたら、 又必要の無い画面が自動的に再発したりするのでしょうか？

彼となかなか会えないのですが、関係を深めたいです。 そこで、もし私が近くに住んでいたらもっと気軽に会えて 彼との関係も深まるのではないかと考え 彼の家の近くに引っ越そうと思いました。 そして、彼の性格なども考えて下記のような「一人暮らしはじめますメール」をしてみました。 「コンビニやスーパー等の生活圏がかぶらなくて、 プライバシーを尊重する距離はありながらも、 あなたのお家から徒歩圏内くらいの所で、一人暮らしをしたいと思います。 あなたの生活スタイルやお仕事が不規則なことは理解しているつもりなので せめて近くにいたいなぁ…ってダメかな…(´・・`) 近いといざという時なにかのお役にたてるかもしれないし なにかと便利かもしれないし あと、温かい手料理食べてほしいし(*´・ ・*) 目標は、普段ばったり会うことはないけどタクシー使わず徒歩で気軽に来てもらえる所( ´ ▽ ` )ノ 探してみるね！ |ω・`）ダメ？」 2時間後きた返信が 「Ａは○○近辺まで歩いてるよ（＾＾；）」 Ａとは彼が自宅や自宅近くでよく一緒に飲んでいる彼の男友達で ○○とは彼の自宅から徒歩40分の場所です。 この返信の意味で私が思いついたのは下記の二つなのですが １、別にうちの近所にすむ必要ないだろ。近所に住まれるのは迷惑だ。 ２、Ａは○○まで歩いてるけど徒歩圏内ってどのくらいの範囲で考えてるの？ 彼は結局なにを言いたいのでしょうか？

チューナを使い３音を合わせると言う記事があります。 朱書で　３つの音　とかかれている所です。 ＝＝ １．基準音　B♭の＜チューニング用のド＞を合わす。 ２．解放F＜ソ＞を合わす。 ３．再度　基準音　B♭の＜チューニング用のド＞を合わす。 　　これが合えばチューニング音のオクターブ下のB♭のピッチを合わせる。 ４．最後に基準音B♭の＜ド＞を合わせる。 参考　　　　　　http://ameblo.jp/enjoy-clarinet/theme-10021537187.html ＝＝ 初心者です。 １．に記載の＜ド＞とは五線譜の上３線の高い＜ド＞ですか？ ３．に記載されている「チューニング音のオクターブ下のB♭」とは下第２線（１線？）の＜ド＞ですか？ ＝＝ 意味不明の質問しているかもしれません。すみません。

MS OFFICE2007 の　Excelで同時に2つ開こうとすると、上書きされて、1つしか開けません。 同時に２つ以上のExcelを開くにはどうすればいいのでしょうか。

MIXIのつぶやきに、このクソ会社・・・なることを書き込みしました。 二日後社長よりこんなことを書くのなら辞めてくれ、いなくてもいいと言われ解雇通告なるものを 言われました。 こんなことで簡単に解雇になってしまうのでしょうか。 自分が感じた今の会社に対しての意見ですので。

生後10日の息子が便秘っぽいのですがマッサージや浣腸もあまり効果がなく少しずつしかうんちがでません。 少しずつでも出ていれば大丈夫でしょうか？

ある音楽教室の講師をしていたのですが、社員という扱いでなく、独立事業主として契約をし働いていました。この場合、退職でよいのでしょうか。または退任でしょうか。また入社でなく、何という言葉が適切でしょうか。 もう一点お伺いしたいのですが、ある英語教室をこれまた独立事業主として自宅を教室にして講師をしていた場合は、どのようになりますでしょうか。 よろしくお願いします。

備え的に疑問に思っただけですので、気楽にお答え頂ければと思います。 救急車を呼ぶ…となると勿論緊急です。 家からであれば、何も考えず家族が付き添って乗車ができますが、外出先の場合は状況が変わりますよね。 車で出かけていた際、救急車に乗ったら戻る足がなくなります。 かと言ってついていくのは無理ですし、帰りにタクシーで…とは言っても、時間で締まる駐車場であれば戻る頃には車が出せない、或いは遠方の外出先だった場合はいきなり宿泊が必要になるかもしれません。 急な泊まりでは持ち合わせがないかも。 病院はホテルではないのでお金も車もないまま、氷点下の路上で夜を明かす、なんてことにもなりかねない訳です。 実際にはどのような対応になるんでしょうか。 携帯番号のメモを渡してかけてもらう？ そのメモは救急隊員が受け取ったあと誰に渡るのでしょう？ 実際にはどのタイミングで連絡してくれるのでしょう？ また、ここまでは同行者が家族であった場合。 友人や恋人の場合は他人です。 個人情報保護の名目で、親族の死に目にも会わせてもらえない昨今、対応してもらえるのかいささか疑問です。 救急車の到着場所を教えてもらえたとして、次に発生するのは患者の家族の呼び出し。 知人が鞄や財布、携帯を見て家族に連絡を取るのでしょうか。 救急車に一緒に乗るなら患者の荷物は知人が持つ事になりそうなのでスムーズに行くかもしれませんが、後から到着したら渡してくれるのか？ またそれらを断られたとすれば、病院の人が荷物を確認するのはOK？ それも駄目だから、意識が覚めて本人が頼んだら初めて呼ぶ？ 意識が醒めずそのまま入院という可能性もありますが、身元のわからない人を受け入れてくれるのでしょうか？ 全部駄目なら、そのまま死んじゃったら？ いや～疑問はつきません。 実例をご存知の方、よろしくお願いしますm(_ _)m

車に乗せるときの席のマナー 先日、会社の飲み会で私の車で 皆を送ったにですが、男一人と 女性3人でして、マナーですと やはり下っ腹が助手席なのでしょうか？ ちなみに女性の上司が一番先に 助手席に乗って後ろは残りの 男一人と女性二人でした。 帰りの順番も上司が決めて 上司を最後に送りました。 やはりビジネス上、自分の 車に乗せる時は気を遣いますか？

私は以下の理由から、飲み会の時全く飲食できません。 ・アルコールに弱く、チューハイを二口でも飲めば顔が真っ赤になって寒気がする。 ・日本酒やビールを同席の人が頼むと、その臭いで何故か頭痛や吐き気が催される。 ・常時吐き気と戦っているため、リバースしたときの危険性から、最初のドリンク以外は水しか飲まない。 自分でもびっくりですが、二十になってから自分の体調とアルコールにどれだけ弱いかを把握してきました。 結果、飲み会では何も食べずに水でしのぐという方法にたどり着いたのですが、これでは割り勘の時、ジンジャエール一杯に４０００円、とか異常がお金を払わされることになります。 そこで、割り勘を回避する方法を探しています。 ちなみに、アルコールにとてつもなく弱いことはメンバー全員が知るところであります。（だから無理に少し飲まされて、真っ赤になっているのを笑われたりします） 幹事や誘ってくる人は、私が飲み会が嫌いなことを知っています。 飲み会に全くいかないという事は無理です。（要は上司に誘われたり、飲み会の場と称して仕事の方針等を決める会議みたいなことをする場で、付き合いでさえいかないと問題が生じるような場面です） 割り勘を辞めてほしいと気持ちはすでにぶつけています。 最近はまた忘年会や新年会の企画が立ち上っているのを小耳にはさんで、恐怖です。 どうすれば割り勘を回避できるのでしょうか？ １０００円くらいなら出せますが、それ以上出すのは正直お財布の関係でもキツいです。

年金の支払いが引き下げになるそうですが、 年金を国民から徴収する方は、下がらないのでしょうか？ 高い年金を納めているので。

Excel2002で縦に数百行、横に20列ほどの商品リストがあります。 目指す行はオートフィルタで抽出できますが、この時画面に表示しきれない離れた列のデータを見たいことが結構あります。 「カレントセルがある行のn列目を常にA1セルに表示させる方法」をお教えください。 =INDIRECT(ADDRESS(CELL("row"),13)) =CELL("contents",INDIRECT(ADDRESS(CELL("row"),13))) 等では、カレントセルを選択するだけでは表示してくれず、何か入力してEnterとかTABキーを押さないと結果に反映されません。 クリックした後でF9キーを押して再計算するのは間違いの元ですので、できればクリックした瞬間に結果を出したいのです。

お世話になっております。 仕事で使用しているエクセルデータのマクロボタンを押すと コンパイルエラー: プロジェクトまたはライブラリが見つかりません。 と出てしまいます。 以前からあるデータなのですが、今は作成者もいないので修正方法すらわかりません。 当方VBAの知識がなく解決方法もわかりません。 内容は、 セルL1に印刷枚数 セルJ1に印刷回数を+1づつカウントしていく 説明がへたですみません。 Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 : 2009/4/1 ' '前回までの件数を取得 ken = Range("l1") '印刷枚数の取得 maisuu = InputBox("印刷枚数を入力してください") '印刷 For I = 1 To maisuu ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '印刷回数をカウント ken = ken + 1 'カウント数を表示 Range("l1").Value = ken Range("J1").Value = ken Next I '保存 ActiveWorkbook.Save End Sub

妹家族が現在７０平米ほどの３ＬＤＫのマンションに住んでいます。 　 タイトルの通りなのですが、義弟が（妹の夫）リビング横の和室を 潰してＬＤＫを広げるリフォームをしたいと言い出しているそうなのです。 リビングは窓に対して横長で１1畳の広さです。和室＋押入れを潰すと ５畳ほどリビングが広がり、３畳ほどのオープンキッチンと合わせると 約１9畳のＬＤＫになるようです。 妹はこのリフォームに大反対で、絶対リフォームしたい義弟と もめていて、私に義弟を説得して欲しいらしいのですが・・・ 個人的には広いＬＤＫって良いと思うのですが、家族構成や ライフスタイルを考えると、妹の家は和室を潰してしまうと後々 困りそうです。 現在は２歳の子供が１人。そして、義弟の両親がしょっちゅう泊まりに 来る環境です。今は子供が小さいので夫婦の寝室で一緒に寝ていて 部屋は余っている状態のようですが、大きくなれば１部屋使うことになりますよね。 物も増えるでしょうし・・・ 義両親がしょっちゅう泊まりに来ることを考えると、和室を潰すと 困るのではないかと思うのです。ゲストルームがあるマンションなら 話は別だと思いますが、妹のマンションにはないですし。 義弟は今現在のことしか考えておらず、先々のことにはまるで考えが 及んでいない様子です。とにかく広いＬＤＫにこだわっていて、広いＬＤＫに 大きいダイニングテーブルと大きなソファを置くのが理想なんだ とか・・・限られた広さの中で、部屋数や収納を削ってまでＬＤＫを 大きくするのはどうかと思うのですが。 近々妹夫妻に会うので、リフォームをしないよう妹と２人で 義弟に話をするつもりでいます。 皆さんから色々意見を聞いて、義弟を説得する材料になれば いいな、と思っています。もちろん、義弟寄りの意見の方もいらっしゃるとは 思うのですが、そういうご意見も聞かせて頂いた上で、義弟と 話をしたいと思っています。 よろしくお願いします。

見てくださった方、ありがとうございます。 前にある企業の面接に行ってきました。面接官さんは「選考結果は一週間後に電話で連絡します」と言っていたのですが、一週間以上たっているのに連絡は全くありません。これは遠回しに不採用ってことでしょうか？一度電話して聞いた方がいいでしょうか？ まず、合否関わらず、電話すると一度口にしたのにしてこないのは少し常識がない気がします…。 どなたかご回答よろしくお願い致します。