hallo-2007 の回答履歴

国の借金とは、何から借りている金を指しているのでしょうか？ インフレ、デフレに関係する以外に、増えることで何か問題が あるのでしょうか。 国の借金が1000兆あるなど、金額だけみると凄まじく感じますが、 結局国自身が発行した国債によるもので、他国から借りてるわけ でもなく、極端な話いくら増えようが国の破綻には繋がらないのでは と思ってしまいます。 ※金額に対して危機感を感じません。 我ながら無知な質問で恐縮ですが、ご教示ください。

エクセルで表を作成しています。 同じ横並びに、項目を入れますが、例えば「事業名」を１行で、「実施予定年月」を２行で、「具体的な事業内容」を３行で入れるには、どうしたらよいでしょうか。 セルを結合することは知っているのですが、２行と３行はどうしたら同じ高さ（？）の枠内に入れられるのでしょうか。 素人で専門用語を知らず、失礼いたします。 ちなみに使用しているのは、EXCEL2007です。 よろしくお願いします。

乱文失礼します 当方23才正看護師をしています。 今月より友人の紹介で老健で看護師として働いて おります しかし、もう辞めたいと思っています 理由としてて (1)自宅より新幹線を使い、1時間 30分かけて通勤していて遠い(新幹線に乗るのは30分です)(2)時給が750円とかなり安い(扶養内で働きたいと 交渉したところ30時間一杯にシフトを組まれ、こ のような時給になったと説明ありました) (3)夜勤が16時間と長く、休憩も十分に休めない 辞めたい理由は(2)が一番大きいです。初めの話と は全く違く困っています ですが、人間関係は良好ですし、やっと仕事も覚 えたところです。残業もほぼありませんし定時で 上がれます。友人の手前こんな短期間で辞めるの も…という気持ちもあります 本当にどうしたらよいかわかりません 諸先輩方アドバイスよろしくお願いします

クロネコヤマトの宅急便　（ヤマト運輸本社）　に苦情を出しても改善や回答がない場合 もともと私の地域ではクロネコヤマトは近所や仕事関係でもあまり評判が良くなかったのですが 数ヶ月だけで既に10件以上破損が有りなんとか使える物はと大目に見ていましたが、 最近は勝手に中身を空けて破損や事故を隠蔽する様になったのでヤマト運輸本社に苦情を出そうとしたら、ホームページに苦情受付や、お客様相談室がない・・・・（大企業でも多いのですか？） 過去の質問で調べるとホームページの問い合わせから苦情を出すと良い、とありHPより苦情をだし、本社の監督者にひどい地域の調査と改善策をを求めたのですが、受け付けましただけで全く回答がありません、ちゃんとした企業ならすぐに回答してくるものではないのですか？ 質問、１　いいかげんな支店に苦情を出しても改善されず→本社へ苦情を出しても対応をとらない場合、どこに相談すれば良いのでしょうか？ 質問、２　又、この様な運送会社に指導できる立場の公的機関はありますか？ 長期間質問を受け付けますので、皆様の経験談や解決策のご回答お待ちしております みなさま宜しくお願い致します。

チャンソンテクが死刑になりました。 北には穏健派はいないのは分かっていますが、この死刑は外交的には意味がありますかね？ 内政的には権力基盤の強化ということでしょうか。

乱数が0～9まであります。 次の出現率に従って乱数を生成したい場合どのように行えば良いでしょうか？ 0の出現率は70%です。 1の出現率は20%です。 2の出現率は10%です。 3～9の出現率は0%です。 よろしくお願いします。

乱数が0～9まであります。 次の出現率に従って乱数を生成したい場合どのように行えば良いでしょうか？ 0の出現率は70%です。 1の出現率は20%です。 2の出現率は10%です。 3～9の出現率は0%です。 よろしくお願いします。

VBAを使い、レポートを作成しようと考えています。 レポートを作成するに当たり、 今まで作成しておいたフォームを利用し、 新しいシートを作成していきます。 ※実行するにあたり、フォームで実行される 　メッセージボックスが邪魔です… 例）　作成されたシート名 　　　出荷数 　　　累計 　　　レベル 　　　効果 　　　ランク そして、そのシートを 新しいブックにコピーしようと考えています。 コピーしたいブックは、 レベル・効果・ランク　のみになります。 最初は、ブックをコピーして保存し、 シートを削除してく方向を考えましたが ブックごとコピーしてしまったために、マクロまでコピーされてしまいました。 マクロは必要ありません。 シートの作成、コピーを色々考えていくうちに 良くわからなくなってしまったため、質問いたしました。 できれば、そのシートのみコピーしたいと思っています。 （新規作成したときのSheet1,Sheet2などは要らないです） 上のほうで書いた、メッセージボックスが邪魔という件ですが、 これは改善方法があれば回答いただけるとうれしいです。 （調べたところ、そういった情報はありませんでした） 回答よろしくお願いいたします！

2つのフォルダがあり、その中に20のブックがそれぞれあります。 20のブックの中にはシートが4つづつあり、シート3とシート4のみ印刷したい。 １つのフォルダでは あまり詳しくありませんのでお知恵をお借りしたいと思います。 まず、フォルダの中にある複数ブックの印刷を一括で管理できるマクロは可能なのでしょうか。 二つのフォルダの中に20個のブックがあり、その中にはそれぞれ4シートあるExcelファイルで構成されています。 毎回シート3とシート4のみの印刷をブックの数だけ行います。 40ブックを開け、約80シート印刷するのを簡素化できないかなと思っております。 まず Aフォルダの中 20のブックの中にはシートが4つずつあり、それぞれシート3は全て印刷。 ブック15～19のみシート4は印刷しません。 要約しますと ブック1～14とブック20はシート3.シート4を印刷 ブック15～19はシート3のみ印刷 Bフォルダも同様 ブックそれぞれにマクロシートがあればいいかなと思っているのですが。。。 PC環境はXPです。その他重要なソフトが入っているのであまりマクロが重い場合は諦めようかなと思っています。 簡単に印刷できるようなら教えていただけると幸いです。 初心者なのでコピペでOKぐらいにしていただけますと助かります。 よろしくお願いいたします。

永遠の命って金持ちにしか価値がないのでは？ なぜ貧乏人を延命させるのか分からない。 自分で医療費が払えないのなら自然に死んでいってくれ。税金で治療して延命して何になる？ 社会の何の役にも立たない人間に金を投入する意味とはなんですか？

いつも大変お世話になっております。 Excelのシート上のボタンを削除したいと考えています。 ボタンはVBAで自動で作成してます。 Sub ButtonCreate() With ActiveSheet.Buttons.Add(Range("C1").Left, _ Range("C1").Top, _ Range("C1").Width, _ Range("C1").Height) .Characters.Text = "起動" .Characters.Font.Size = 8 End With End Sub シート上にはグラフ等もあるため、 まとめてオブジェクトを消すという方法は取れません。 ボタンのみを消したいと思っています。 Worksheets("テスト").Activate ActiveSheet.Buttons.Delete と削除する方法を取っていますが、 他に方法はありますか？ BOOKを指定し、全シート上の ボタンを削除する方法があれば、知りたいです。 回答よろしくお願い致します。

いつも大変お世話になっております。 新規作成したBOOKを指定の場所に、指定の名前で保存しようとしています。 例）C:\ファイル名.xls 保存したいものの sFileName="C:\ファイル名.xls" WorkbookName="ファイル名.xls" ActiveWorkbook.SaveAs Filename:=sFileName '保存して閉じる Workbooks(WorkbookName & "_" & sNowTime & ".xls").Close SaveChanges:=True 上記のように設定したところ、 既にファイルがある場合はウィンドウが表示されます。 その際、MsgBoxにフルパスで表示されてしまい、大変見づらく困っています。 また、新規作成したブックは必ず上書き保存で良いものになっています。 C:\ファイル名.xls　というものが既にある場合は、 メッセージを出さず、上書き保存にしたいと思っています。 下記のように、既にブックがあるかも確認したのですが、 違い？が良く分からず、上手くいきませんでした。 '======================使わない上に、プログラムが間違っているためコメントアウトしてます。=========-- 'Dim buf As String ' buf = Dir(sFileName) 'ファイルの存在を調べる ' If buf <> "" Then ' '保存 ' ActiveWorkbook.SaveAs Filename:=sFileName '保存して閉じる ' ' '＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ファイル作成完了 ' Else ' ActiveWorkbook.SaveAs Filename:=sFileName '保存して閉じる ' Workbooks(WorkbookName & "_" & sNowTime & ".xls").Close SaveChanges:=True ' End If '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 質問内容がぐちゃぐちゃしてきたので、まとめさせて頂きます。 ●新規ブックを指定場所に、指定名で保存したい ●指定場所に指定名のブックがあった場合、メッセージを出さずに上書き保存したい です、よろしくお願いいたします。

訳あって、私の所属する部署には少し変わった、あまり会社でも評判の良くない 残念な人達で構成されているのですが、 私の事ではありませんが、群を抜いて変わっている人がいます。 次のような特徴です。 ・毎日必ず同じ時間に出社し、必ず定時ちょうどに帰宅(1分の狂いもない) ・毎日必ず同じ時間に昼食に行き、同じ定食屋で同じメニューを注文し、同じ時間に帰ってくる。 　(これもほとんど1分の狂いもない) ・データ統計等の特定の仕事についてはとても速く仕上げる。 　というか、普通では考えられないくらいの尋常ではないスピードで終わらせる。 　(他の人が一日かけて情報収集してやっと完成させたような作業を30分とかからず終わらせたりする) ・学歴も高く、公認会計士だか司法書士だかの資格を持っている。 ・一方、会社から歩いて３分くらいの位置にある郵便局に郵便物を出す際に2時間くらい席を外していた 　ことがあり、不審に思った上司が携帯に電話すると、なんと迷子になって途方に暮れていたらしい。 ・事務用品や電車賃の清算事務ができない。 　ちなみに、Webの入力フォームに買った物と金額を書いてボタンを押すだけの作業。 　従って、彼だけいつも派遣のおばさんに内容を伝えて代行してもらっている。 ・普通の日常会話が成り立たない。日常会話を振ると取り乱す。 ・なのに何故かプレゼンテーションや顧客との交渉時は極めて理路整然と説明し非常に分かりやすい。 ・喜怒哀楽が無い。パソコンに向かっている時も人と話す時も上司に突っ込まれているときも 　表情にまったく変化が無い。なのに普通に話しかけると取り乱す。 飲み会で、変わってますねと言ったら、普通だと思いますと答え、 あまり感情に変化が無いんですねと聞いたら、いいえ、ありますと答えていました。 本人はいたって自分は普通の人間だと思っているようですが、 私は今まで彼のようなタイプはあまり出会ったことがありません。 面白いなあと思いつつ、高い能力があるはずなのに、何かが足りないため、 周りになじめず、評価されなくて、残念だなと思います。 そうゆう人って多いのでしょうか？

　社会人の経験を積んでわかったことがあります。 仕事はマニュアル通りにいかないことです！！ 入社してからは仕事の手順を覚えるためにマニュアルを 覚えて現場にいくことが殆どですが、そのマニュアル通りに 上手くいったことはあまりありませんでした。 　 　例えば私は前に自動車保険のコールセンターで働いていたことが ありましたが、生のお客様と話していると人によって話が飛んだり マニュアルにはないことを言ったりすることが多々ありました。 (例えば「車の補償の”一般補償”は自損事故も補償の対象と書いて あるが車庫入れで車体がかすっても補償の対象になるか？」 ……など http://www.zenrosai.coop/kyousai/mycar/hoshou/sharyou/index.php) 　そのようなマニュアルには載ってない予想外のことを沢山聞かれて パニックになり見かねた先輩が変わって対応するほどでした………… 　 　自分は保険だけでなく他の仕事も１０以上経験しましたが法則として 仕事はマニュアル通りにことが上手くいかないということを学びました。 私だけでなく仕事はマニュアル通りにはいかず臨機応変に対応する ことは、よくあることですか？

いつもお世話になっております。 エクセルの関数についてお尋ねします。 （例） A1に　12/09/2013 16:00:06　という文字列があり、これをB1でシリアル値に変更しようと考えています。 MID(A1,7,4)&"/"&LEFT(A1,5)&MID(A1,11,9)　⇒　2013/12/09 16:00:06(文字列） (MID(A1,7,4)&"/"&LEFT(A1,5)&MID(A1,11,9))*1　⇒41612.7086111111 と*1する事によってシリアル値に変換されてるわけですが、この『×1』はどのような意味なのでしょうか？ 知らないで使っているのが気持ち悪いのでどなたかよろしくお願いいたします。

エクセル2007でＶＢＡを使用しての一覧表を作りたく質問させていただきます。 名簿 001　あいう 002　かきく 003　さしす　 上記の様な一覧表のシートから 別のシートで Ａ　　　　　Ｂ　　　　　Ｃ　　　　　Ｄ 002　　　かきく 001 Ａ列に指定のコード002等を入れると名簿のシートから「かきく」とＢ列の「かきく」を表示する様に させたいと考えています。 ＶＬＯＯＫＵＰで行おうと試行錯誤しましたが、 Ａ列の上段に002と入れた時に001が読み出せなかったり 再度002と入れても表示されないためにやりたいことが上手く出来ずに困っています。 Ａ　　　　　Ｂ　　　　　Ｃ　　　　　Ｄ 002　　　かきく 002　　　かきく 002　　　かきく 001　　　あいう 001　　　あいう 001　　　あいう 002　　　かきく 003　　　さしす 理想は上記のような形で表示できるようにしたい為、 マクロボタンを押すと一括でＡ列に対応したＢ列の文字を名簿シートから 表示（貼付？）させれば可能なのかとも考えていますが、 正直勉強不足でそこまでの式が書けずに、 ネットで検索してそれらしいコードも探していますが、 修正して使えるようなコードが見つけられません。 この関数を使えばとか、このコードが使えますといった物を教えて頂けないでしょうか？ 宜しく願いいたします。

VBAの初心者です。マクロを使った同一処理を各列ブロック(３列が１単位)毎に 繰り返して列方向に多数のブロックまで行うVBAはどのようなものになるのでしょうか。 具体的には添付図のような表で、Ｂ2店について品名・数量・金額を、4行目～10行目まで、金額の多い順に並べかえた後、金額の合計をセルＤ2　に記入するマクロ（この記述は下記のようになりましたが）、この処理をＥ5店、Ｈ8店……と３列ずつ例えば2０ブロック処理するプログラムはどのようにしたらよいでしょうか（20ブロック目の列番号はＢＧ，ＢＨ，ＢＩです）。どなたか教えていただけないでしょうか。 Sub 多い順と合計() Range("B3:D10").Select Selection.Sort Key1:=Range("D4"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin Range("D2").Select ActiveCell.FormulaR1C1 = "=SUM(R[2]C:R[18]C)" Range("B2").Select End Sub

よろしくお願いします。 将来データベース化する情報を先ずはエクセルで作成していくのですが、データベース化した時にレコードを検索しやすい様に欲しい値をドロップダウンでの選択形式にして、”検索漏れ”が起こらないようにしたいと思っています。 例えば、田中という１人に属性がa,b,c,d,eと５個位の属性があり、鈴木という１人にa,c,dと３つの属性がある。 データベース化した時にa,cの２つの属性を持つ人をピックアップしたい時、ドロップダウン形式にすると田中さんの場合レコードが５行必要になり、５行作る理由はアルファベット列の値を増やしたいだけなのに、検索にヒットさせるためには他の４行のレコードにも田中…と他の値も入力しなければなりません。 そういうものなので、みんな５行まともに作っているということなら私そうしますが、エクセルの達人の方であれば「”本来はこうする”、そうするとレコードは１行で済む」という知識をお持ちかもしれないと思ってお聞きしています。 要領を得ていない質問かもしれませんが、よろしくお願いします！

いつもお世話になっています。 約半年ほど前よりエクセルのVBAを勉強し始めまして 機会がありVisualBasicを覚える事になりました。 会社の先輩が作ったVB6のコードを見ていたのですが やっている事が何となくわかる様なわからない様な・・・ という感じです。。 例えばエクセルでは(A1～A20までのセル)、VBでは同じようにグリッドにデータが入力してあり 選択しているセル(A1)のデータと一致するセルを含む行又はレコードを選択するという処理があったとします。(あくまでも例です) エクセルでもVBでもFor～Nextが使える事はわかったのですが 対象とする目印？的なものの(基準というか考え方というか）が理解出来ないのです・・・・。。 エクセルだとcells(rows.count,1).end(xlup).rowで最終行を取得して For～NextでIf Range("A1").value = cells(i,1).value then・・・ で処理できますがVBではどうなのかとか・・・・ (説明がめちゃくちゃですみません。。泣) 同じようにVBAからVisualBasicを始めた方！ VBAでのプログラミングの考え方とVisualBasicの考え方の違いや どういう風に勉強していけば良いか等、アドバイスや経験談等を教えて頂きたいです。 宜しくお願い致します。

Excel VBA でAccess接続します 今までは Sub aaa() Set cn = CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=aaa.mdb;" End Sub のように使っていましたが（単一プロシージャ） Set cn = CreateObject("ADODB.Connection") の部分をパブリックにして Sub bbb() cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=aaa.mdb;" End Sub 別のプロシージャからも、使えるためには パブリックにするための方法を教えて下さい