hallo-2007 の回答履歴

マイホームを建てることになったのですが、キッチンを、Ｉ型にするかＬ型にするか悩んでます。 皆さんのキッチンは、Ｉ型・Ｌ型どちらですか？？？

excel2003で以下の様に記述しました。 Sub clear() Range("A1", "B3").Value = "" End Sub 上記でフォームボタンをクリックして、指定したセルの内容を空白にすることはできたのですが、 ctrl+zで元の内容を戻そうとしたところ、できませんでした。 なにか方法があれば、ご教示お願いします。

こんばんは ExcelVBAで教えてください。 配列のデータをセルに貼り付ける方法です。 一つ一つ行う方法は解ります。 しかし、これでは件数が多いと時間がかかってしまいます。 まとめて貼り付ける方法を教えてください。 例えば次のように100列1000行のデータのとき、一つ一つでは10万回も貼り付けることになります。 これを1行単位で1000回とか全部まとめて1回とかでできないでしょうか。 配列データを用意する都合で1行単位もお願いします。 For Row = 1 To 1000 For Column = 1 To 100 Cells(Row, Column).Value = 配列(Row - 1, Column - 1) Next Next

1月分の各店舗の集計したシートが数枚入ったファイルがあります 各シートはほぼ同じです。 1/1日　100　200　300 1/2月　200　300　400 　　・ 　　・ 　　・ 1/31火　200　300　400 集計　　1000　2000　3000 ２月分のファイルを作成したいのですが、ファイルをコピーして日付を一気に変える方法はありますか？ あれば教えてください。

VBAで別BOOKからシートノの一部をコピペさせようとしています。 ところが、コピー元とコピー先の両方のBOOKに同じ「名前の定義」があります。 そうすると添付のような確認メセージが出ます。 すべて「はい」（コピー先の「名前の定義」を使用する。）でVBAを先にすすめるためにはどのようなコードを書けばいいのでしょうか？ よろしくお願いします。

vba初心者です。 エクセルにボタンを作成して、クリックすると保存したいのですが、 ボタンを作成して、マクロの登録を開き Sub 保存() ActiveWorkbook.Save End Sub と作成したのですが実行できません。 どうしたらいいのでしょうか？ よろしくお願いします。

こんばんは。VBAを勉強中ですが、参考書等を見ながら簡単なプログラムを作ってみましたが、もっと簡単な記述やベテランの方から見た改善点等があれば教えていただければと思います。（EXCEL2000を使用しています）。 ★内容 ・inputboxを使用し印刷枚数を入力し、印刷するものです（印刷枚数は1枚以上31枚以下）。 ・（K23)のセルには通し番号が入っており、印刷した枚数分だけ通し番号に1ずつ足していく。 Sub 印刷() Dim aaa As Integer aaa = InputBox("印刷枚数を入力してください", "印刷枚数", "") If 1 <= aaa And aaa <= 31 Then MsgBox "印刷を開始します" ElseIf aaa = "" Then MsgBox "キャンセルされました" ElseIf IsNumeric(aaa) = False Then MsgBox "入力内容が違います" ElseIf aaa <= 31 Then MsgBox "31日までの範囲で入力してください" Else For i = 0 To aaa Worksheets(1).PrintOut Worksheets(1).Range("k23").Value = Range("k23") + 1 Next i End If End Sub 一応、動きますが、勉強中なのでご教授をお願いいたします。

TOTOの陶器製洗面ボウルに瓶を落として割ってしまいました。 早急に交換したいと思いますが、住宅メーカーに連絡してもなかなか返事がありません。 やむなく、ホームセンターで見てきたところ、タカラスタンダード製品の洗面台を勧められました。 正直なところ、タカラスタンダードの製品は使ったことがないのでよくわかりません。 しかし、耐久性やお手入れのよさに魅かれました。 それで以下のことを教えてください。 1．洗面ボウルのみの交換は可能？ 　　他社への製品の交換は洗面化粧台（ボウル、下部収納、3面鏡台収納） 　　全交換しかないですか？ 　　3面両開き鏡台収納は問題なく使えます。正直なところ、もったいないです・・・ ２．割れない機能性を最優先したい 　　TOTOの修理部門に問い合わせたところ、 　　割れないと言い切れる洗面ボウルはない、といわれたので、（我が家の75センチ幅サイズでは） 　　TOTOはもうあきらめようかと思っています。 　　もし、タカラよりお勧めの他社製品で75センチ幅高さ180センチ対応の 　　割れないシャワー付き洗面台がありましたら教えてください。 ３．タカラスタンダードオンディーヌの製品をお使いの方、いらっしゃいましたら 　　よい点、悪い点教えてください。 　　できましたらショートミラー対応の方、シャワーの使い心地など教えてください。 ４．ホーローの使用感など 　　陶器に比べて見劣りしますか？ 　　（ショールームだとそう思わなかったのですが） 　　その他、錆の心配や、扉の重さ、本当に傷が付かないのか、などぜひ教えてください。 　私は良いものであるなら、TOTOやINAXなどにこだわりません。 　逆に、2006年にリフォームしたばかり？だったので、簡単に割れたことがショックで 　陶器製に戻る気がしません。 　ただ、ホーローの使い心地が全くわからないので迷っています。 　どうぞよろしくお願いします。

質問させていただきます。 エクセルのIF関数とAND関数を使って数式を作ったのですが どうしてもうまくいかないので質問します。 ±0.005以内であれば良、それ以外は不良としたいので =IF(AND(-0.005<=A,A<=0.005),"良","不良") Aにはべつのセルで計算した値が入り A=(1000.0-999.9)/2000*100 この場合だとA=0.005なのに不良となります。 A=0.1/2000*100 これだと良となります。 同じ0.005なのになにが違うのでしょうか？ よろしくお願いします。

どなたかご存じでしたら回答をお願いします。 数字選択式宝くじロト６、ミニロトの抽選結果をエクセルにつけております。 それを利用して、『最新抽選回数から指定した範囲迄の抽選結果を別シートに表示させる。』 方法が知りたいです。 【抽選結果シート】　※631回を最新抽選回数とする。 抽選回　第1数字　第2数字　第3数字　第4数字　第5数字　第6数字　ボ数字　　　　　　　　　　　　　　　 619　　　　　　2　　　　11　　　　　29　　　　　31　　　　33　　　　　38　　　　　14 620　　　　　　7　　　　10　　　　　13　　　　　19　　　　31　　　　　38　　　　　12 621　　　　　　6　　　　15　　　　　16　　　　　28　　　　36　　　　　40　　　　　20 622　　　　　　7　　　　16　　　　　18　　　　　20　　　　27　　　　　36　　　　　41 623　　　　　　7　　　　　8　　　　　16　　　　　35　　　　39　　　　　42　　　　　9 624　　　　　　4　　　　　8　　　　　12　　　　　22　　　　25　　　　　30　　　　43 625　　　　　　5　　　　17　　　　　26　　　　　37　　　　39　　　　　42　　　　20 626　　　　　　6　　　　13　　　　　14　　　　　22　　　　26　　　　　28　　　　10 627　　　　　　2　　　　　4　　　　　7　　　　　　19　　　　34　　　　　42　　　　30 628　　　　　　7　　　　13　　　　　15　　　　　18　　　　29　　　　　38　　　　30 629　　　　　　6　　　　16　　　　　21　　　　　30　　　　34　　　　　43　　　　36 630　　　　　　3　　　　　7　　　　　13　　　　　18　　　　19　　　　　41　　　　38 63１　　　　　　2　　　　　5　　　　　7　　　　　　10　　　　36　　　　　40　　　　12 【抽出回数】　6 【抽出シート】　※最新抽選回から６回前迄の抽選結果を表示。 抽選回　第1数字　第2数字　第3数字　第4数字　第5数字　第6数字　ボ数字　 626　　　　　　6　　　　13　　　　　14　　　　　22　　　　26　　　　　28　　　　10 627　　　　　　2　　　　　4　　　　　7　　　　　　19　　　　34　　　　　42　　　　30 628　　　　　　7　　　　13　　　　　15　　　　　18　　　　29　　　　　38　　　　30 629　　　　　　6　　　　16　　　　　21　　　　　30　　　　34　　　　　43　　　　36 630　　　　　　3　　　　　7　　　　　13　　　　　18　　　　19　　　　　41　　　　38 63１　　　　　　2　　　　　5　　　　　7　　　　　　10　　　　36　　　　　40　　　　12 ◎注意事項 　・抽選結果シートは第１回抽選から最新抽選回まで入力されています。 　・最新抽選回は毎回抽選結果を追加入力します。 　・抽出回数には１～999までの数字が入ります。 　・抽出シートには、最新抽選回から抽出回数で指定した回数まで遡り、 　　その範囲の抽選結果シートの内容が表示されます。 　・エクセルは2007です。　 以上、ご回答よろしくお願いします。　

こんにちは。 職場に理解しがたい不思議な人がいるので、みなさんの周りにもそのような人がいるかどうか を知りたく、お尋ねします。 その人は４０代後半で、中途入社で３年ほど前に職場に来ました。 なんでも大きな会社から相当の実績を 作っていたという触れ込みで来たらしく（私の職場は中小です） 営業部門の長として役員候補のポジションについているのですが 仕事の仕方、コミュニケーションの仕方がめちゃくちゃなのです。 例えば １）仕事が雑で、仕事が一つ増えると一つ忘れるといった具合で 期限の直前になってあわてて変な仕事をし、お客を怒らせる。または期限の延期を申し出る。 ２）とにかく自分のミスは認めない。お客や上司に仕事のミスを指摘されると その場にいない人の名前を挙げて、色々でっちあげてその人のせいにする。 ３)指示したことを覚えていない。または指示をしていないことを指示していたと思いこみ 「まだやってないの！怠慢だ！！」と怒る。 など、日常茶飯事です。 スケジュール管理もできないようで お客への訪問の約束を忘れて社内で女子社員とのトークに夢中。 あるいは外出中にアポを取ったという訪問客多数。 そんな調子なので何一つ成果はあげていないのですが他人のミス （本当は、上の１～3にあるように本人の責任逃れ）を大声で役員に報告し 「俺は頑張っているのに、周りが無能で苦労している」と訴え、 今のところそのごまかしがきいているようで、まだ責任は追求されていません。 それどころか上の信頼を得ていると本人は手応えを得たようで 「リストラ候補者のリストアップを提案してみようかな」等とつぶやいています。 営業先から直帰した人に嫌みを言う。（自分が直帰回数No１だということは忘れている） 自分に無関係な他部署の些細なミスまで大声で騒ぎたてる→上に報告。 などなど、他人を落とすことに余念がないようで 最初は腹が立ちましたが、最近は人間心理の研究対象として興味深いとすら思えてきました。 どうでしょう。職場にこんな人って一人はいるものでしょうか。 ご意見を頂戴したく、宜しくお願いします。

宜しくお願いします。 私の下で働いている派遣さんについてご相談します。 先々週、この派遣さんの仕事のやり方について関係会社（親会社）からクレームが来てしまいました。 クレームと言っても、厳しい内容ではなくて、注意して欲しいという程度のものでしたし、言い方もソフトでした。 その時期、これから仕事量が増えますと伝えてあったのですが（まだ増えてはいない状態）、クレーム時期と重なって、本人はパニックになってしまっているようで、この派遣さんが小さなミスを連発するようになりました。 私の会社は基本的に、派遣さんへの残業はさせない流れでやってきており、今までも残業をお願いした事はありません。 ところが、この小さなミスの連発で、今まで就業時間内に終わらせられていたはずの仕事が終わらず残業となっています。 （例：朝やるべき仕事を忘れていて、帰り間際に思い出し残業等） 私が社内に要る時は、帰るように伝えるのですが、私が出かけている日に限って残業しています。 これから仕事も忙しくなってくるのに、このままでは回らなくなってしまうのではと懸念しています。 仕事の効率化など、私の教えられる事は教えてみました。 やるべきリストを作成して、片付いたら消して行くやり方を提案しましたが、実践していません。 仕事を効率的にこなして欲しいのですが、それも出来ない上にテンパってパニックになっているのではとても困ります。 このような場合、どのように対処したら良いでしょうか？

自分は現在製造部門の一部を任されています。（管理職ではありません） 現在受け持っている製品が不具合だらけですが、営業は出荷するように指示してきます。 なので、出荷すればするほど不具合で返却されてきます。 不具合原因は設計要因（営業も周知）ですが、設計者たちはみんな逃げてしまいました。 先日、普段現場に来たことが無い営業部長が、私に『早く不具合解析をしろ！　人はいっぱいいるし、代わりもいるから。』などと、1時間近く私に説教紛いの脅しをしてきました。 私だって、こんな直ぐ不具合が出る製品を出荷したくありません。 ちなみに、『人がいないと私の部長は言っています。』 さらにその部長の下の営業課長も『おまえのところの課長（私の直々の上長）どうにかしてくれよ』と言って、私の座っている椅子を数回蹴ってきたこともあります。 営業部長に言われたことは録音していません。椅子を蹴られたのは部下が見ています。 これらは、パワハラとして判断されるのでしょうか？

アイダ設計で新築を購入予定です。 『8,504,000円(建物価格)+2,173,000円(諸費用)=10,677,000円（合計）』 詳細を書きますので、この買い物が安いかどうか住宅販売関係のお詳しい方判断よろしくお願いします。 購入予定先：アイダ設計 購入金額：8,504,000円(建物価格)+2,173,000円(諸費用)=10,677,000円（合計） 屋根：コロニアルクァッド 外壁：サイデイング 構造：木造在来工法(オール電化) 規模：２階建 排水：本下水 床面積：１階13.81坪 ２階12.25坪 合計26.06坪 間取り：4LDK(1階、2階間取り図を貼り付けておきましたので参考にして下さい。) 当方まったくの素人なので良し悪しがわかりません。住宅関係の詳しい方この買い物の料金が安いか高いか、良いか悪いかご判断よろしくお願いします。 あと担当の営業の方はぎりぎりまで値下げしたとおっしゃってました。

こんばんは。 新築戸建を検討中で、現在の年収でどの程度の借り入れが 妥当（無理なく返済できる）なのか読めずに困っています。 家族構成は、 私が３１歳、妻、子供（４歳と１歳）の４人家族です。 ３人目の子供も想定しています。 現在の年収は７５０～８００万程度です（妻は主婦）。 現状、子供が小さいので、お金がかからないため、 月に20万くらいは貯蓄できる状態です。 ただ、ローンを組んだ際に読めないと感じているのが、 子供が大きくなってきたときに（つまり一番家計が苦しくなる時期に）、 どの程度返済ができるのか読み切れないでいます。 年収８００万弱として、子供が大きくなると、 一体どのくらい返済できるものなのでしょうか？ （妻は子供がある程度大きくなるまで（この先10年少し）は、 働かずに家にいるようにしようと考えています。 それ以降は、多少の収入のために働きに出ることも考えています。） 家それぞれということは重々承知していますが、 ある程度の相場のようなものを教えて頂けますでしょうか。 宜しくお願いします。

こんにちは。 私の質問に関心を持って下さりありがとうございます。 教えて頂いてばかりで恐縮ですが、エクセルVBAに詳しくて親切な方がいらっしゃいましたら教えていただけないでしょうか。 例えば、Sheet1のセルA1をダブルクリックして、Sheet2のセルC10にSheet1のセルA1の値を入力する場合、以下のコードで処理できます。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target = Range("A1") Then Cancel = True Worksheets("Sheet2").Range("C10") = Worksheets("Sheet1").Range("A1") End If End SUB でも、このコードだと、Sheet1のセルA1を何度ダブルクリックしてもSheet2のセルC10にしか入力されません。 Sheet2のセルC10に入力されている場合、それを判別して、C10の下のセルC11に入力され、更にC11に入力されている場合にはC12に入力されるようにしたいのですが、よく分かりません。 ご存知の方がいらっしゃいましたら、どうかご教授いただけないでしょうか。 宜しくお願い致します。

各セルの中に、山田、田中、斎藤、小川などの名前が縦横１０セル×１０セルのように入っている場合（実際はもっと大きいセルです）で、それぞれ山田さん、田中さんなどが何回出現したかを簡単にカウントするにはどうしたら良いでしょうか？ ピボットテーブルでは出来ないような・・ヒントを頂ければ幸いです。

環境はwin７、オフィス2007です。 デスクトップに置いてあるマクロ付きのブックを開くと 画像のようにエラーになる時があります。 閉じて開きなおすと通常通り開けます。 エラー内容は「プログラムにコマンドを送信しているときに、エラーが発生しました」 エラーになるのはパソコンを起動して1回だけです。 毎回パソコンを起動する度にエラーになるわけではありません。 何が原因なのでしょうか？ よろしくお願いします。

エクセル2003です。 ある集計表において 4行目のH列からAM列まで 数値データがあります。 最終行は常に変化します この表内にてセルの値が0のセルは セル内を空白にしたいです。 以下のマクロを作成しましたが If Cells(処理行, 8).Value = 0 Then Cells(処理行, 8).ClearContents をあと(処理行, 13)から(処理行,31) まで記述しなければなりません。 構文的にも処理的にも不利？ と思うので、なにかいい方法を教えてください。 Sub 数字0クリア() '2012年2月3日節分 Dim 最終行 '最終列をG列で求めます 最終行 = Cells(Rows.Count, 7).End(xlUp).Row Application.ScreenUpdating = False For 処理行 = 4 To 最終行 If Cells(処理行, 8).Value = 0 Then Cells(処理行, 8).ClearContents End If If Cells(処理行, 9).Value = 0 Then Cells(処理行, 9).ClearContents End If If Cells(処理行, 10).Value = 0 Then Cells(処理行, 10).ClearContents End If If Cells(処理行, 11).Value = 0 Then Cells(処理行, 11).ClearContents End If If Cells(処理行, 12).Value = 0 Then Cells(処理行, 12).ClearContents End If If Cells(処理行, 13).Value = 0 Then Cells(処理行, 13).ClearContents End If Next 処理行 Application.ScreenUpdating = True MsgBox "終了しました" End Sub

エクセル2003です。 ある集計表において 4行目のH列からAM列まで 数値データがあります。 最終行は常に変化します この表内にてセルの値が0のセルは セル内を空白にしたいです。 以下のマクロを作成しましたが If Cells(処理行, 8).Value = 0 Then Cells(処理行, 8).ClearContents をあと(処理行, 13)から(処理行,31) まで記述しなければなりません。 構文的にも処理的にも不利？ と思うので、なにかいい方法を教えてください。 Sub 数字0クリア() '2012年2月3日節分 Dim 最終行 '最終列をG列で求めます 最終行 = Cells(Rows.Count, 7).End(xlUp).Row Application.ScreenUpdating = False For 処理行 = 4 To 最終行 If Cells(処理行, 8).Value = 0 Then Cells(処理行, 8).ClearContents End If If Cells(処理行, 9).Value = 0 Then Cells(処理行, 9).ClearContents End If If Cells(処理行, 10).Value = 0 Then Cells(処理行, 10).ClearContents End If If Cells(処理行, 11).Value = 0 Then Cells(処理行, 11).ClearContents End If If Cells(処理行, 12).Value = 0 Then Cells(処理行, 12).ClearContents End If If Cells(処理行, 13).Value = 0 Then Cells(処理行, 13).ClearContents End If Next 処理行 Application.ScreenUpdating = True MsgBox "終了しました" End Sub