kero1192kero の回答履歴

はじめまして。 Excel 2007を使用しています。 10日締めで、11日～翌月10日までの日付の自動入力の式を教えて頂きたいです。 C4、D4、E4…と横に11日から10日まで31列。 なのですが、２月や４月で31日までない月は、ない日付は空白にして1日、2日と続くようにしたいです。 C4に例えば2014/2/11と入れたら、自動的に入力されるようにしたいのですが、空白が入るようにしたいです。 説明が分かりにくかったら申し訳ないです！ よろしくお願いいたします。

はじめまして。 Excel 2007を使用しています。 10日締めで、11日～翌月10日までの日付の自動入力の式を教えて頂きたいです。 C4、D4、E4…と横に11日から10日まで31列。 なのですが、２月や４月で31日までない月は、ない日付は空白にして1日、2日と続くようにしたいです。 C4に例えば2014/2/11と入れたら、自動的に入力されるようにしたいのですが、空白が入るようにしたいです。 説明が分かりにくかったら申し訳ないです！ よろしくお願いいたします。

期間を指定するとデータを引っ張ってきます データは1000～2000件程存在します Aセル=名前 Bセル=略号 Cセル=日時 Dセル=場所 Eセル=不良合計 名前　 　　略号 　 　　　 日時 　　　 　 　　　 　場所 　　　不良合計 A0001　　　　 AA 　　2014/06/01 00:04:28 　　1 　　　　7 A0010 　　　　BB 　　2014/06/01 00:18:10 　　2 　　　　3 A0011 　　　　DD 　　2014/06/01 00:29:35 　　4 　　　　8 A0001 　　　　EE 　　2014/06/01 00:24:55 　　2 　　　　9 A0005 　　　　CC 　　2014/06/01 00:29:35 　　3 　　　　4 A0010 　　　　BB 　　2014/06/01 00:27:09 　　2 　　　　6 A0020 　　　　AA 　　2014/06/01 00:32:13 　　1 　　　　4 A0001 　　　　AA 　　2014/06/01 00:33:26 　　3　　 3 A0020 　　　　EE 　　2014/06/01 00:37:31 　　5　 17 A0016 　　　　FF 　　2014/06/01 00:47:22 　　6　　 7 A0030 　　　　BB 　　2014/06/01 00:54:35 　　2　　 3 A0015 　　　　AA 　　2014/06/01 01:01:11 　　1　　 2 A0001 　　　　DD 　　2014/06/01 01:03:01 　　4　　 8 A0020 　　　　EE 　　2014/06/01 01:06:21 　　5　　 11 A0011 　　　　BB 　　2014/06/01 01:08:19 　　2　　 4 A0005 　　　　DD 　　2014/06/01 01:17:20 　　4 　　　　13 A0011 　　　　BB 　　2014/06/01 01:22:41 　　2　　 8 A0016 　　　　AA 　　2014/06/01 01:23:47 　　1　　 2 A0010 　　　　CC 　　2014/06/01 01:25:08 　　3　　 11 .... 名前が同じ物でも、場所が異なると略号が変わってしまいます。 流れとしてはA001の物が場所1→2→3と進んで行きます。 　　 名前 　　略号 　 　　 　　　日時 　 　　 　　　場所 　 　　　不良合計 A0001 　　AA 　　2014/06/01 00:04:28 　　1 　　2 A0001 　　BB 　　2014/06/01 01:04:28 　　2 　　4 A0001 　　CC 　　2014/06/01 02:04:28 　　3 　　8 A0001 　　DD 　　2014/06/01 03:04:28 　　4 　　10 不良合計に関しては、前の物が加算されていく形になっています。 数千あるこのようなデータを今手計算で、場所毎の不良数を求めています。 例を挙げますと、上の4つのデータの場合 DDの不良合計とCCの不良合計を引いて、DDの不良合計は2 CCの不良合計とBBの不良合計を引いて、CCの不良合計は4 BBの不良合計とAAの不良合計を引いて、BBの不良合計は2 A0001 　　AA 　　2014/06/01 00:04:28 　　1　　 2 A0001 　　BB 　　2014/06/01 01:04:28 　　2　　 2 A0001 　　CC 　　2014/06/01 02:04:28 　　3　　 4 A0001 　　DD 　　2014/06/01 03:04:28 　　4　　 2 と言う形に手計算で置き換えてします。 ただ、数が膨大であり、名前に関しても同じ名前が1つではなく複数使われている事もあり計算が大変です。 何とか楽に計算する方法はないでしょうか？ VBA？を使用してでもいいので、短時間で出来る集計方法があれば教えてください。

VLOOKUP関数ですが。 １から順に連番を振っていき4595までは、普通に反映され 4596番以降になると反映されなくなります。 表の選択範囲は10,000以上してありますので、原因が分かりません。 よろしくお願いします。

sheet１に一覧表を作って特定の文字（数字）だけsheet２（送付状も兼ねている文書）の特定の場所に抽出したいのですができるような関数なのどありますでしょうか？ sheet１↓ 番号　　名前　　　　　　　郵便番号　　　住所 １　　　　あべ　なつみ　〒000-0000　　　東京都○○区 ２　　　　なかざわ　ゆうこ　　〒000-0000　　山梨県○○市　　 ３ sheet２↓ またsheet２のA1に番号を入れるとその３つ（A3に郵便番号　B5に住所　C6に名前）といった感じに反映するようにしたいんですができますでしょうか？１つ１つ関数で設定する方法もわかれば教えていただきたく思います。 ご回答いただけましたらと思います。初心者なものですがよろしくお願い致します。

VBAの素人です。 以下のようなVBAを実行しようと、何とか形にしました。 単独のBOOKではうまくいくのですが、同時に他のBOOKを開くと 「インデックスが有効範囲にありません」とエラーになります。 エラー箇所は、With Sheets("Sheet1").Range("B1")部分です。 修正をご教示頂ける方、何卒よろしくお願い致します。 全くVBA無知なのにすみません。 Private Sub Workbook_Open() test01 test02 Application.OnTime Now + TimeValue("00:10:00"), "終了" End Sub Sub 終了() Application.OnTime Now + TimeValue("0:00:02"), "test01", , False ThisWorkbook.Close Savechanges:=False Application.Quit End Sub Sub test01() With Sheets("Sheet1").Range("B1") .Value = Time .NumberFormatLocal = "mm:ss" End With Application.OnTime Now + TimeValue("0:00:02"), "test01" End Sub Sub test02() With Sheets("Sheet1").Range("B2") .Value = Time .NumberFormatLocal = "mm:ss" End With End Sub

仕事の引継ぎということでマクロ実行するシートをもらいました。 そのシートにデータシートを貼り付けてマクロ実行したらふりわけてくれるというものです。 振り分けというのは ケース入り数５０だとして、発注数が５６とします、 マクロ実行をすると元々バラ、ケースという行があるので、バラに６、ケースに１と振り分けられるというものです。 商品によってケース入り数、発注数は違います。 マクロ実行することでバラとケースに全部が振り分けられるはずなのですが、 出来ているものはできているのですが、出来ていないものは発注数はあるのに、バラ・ケースどちらも数が０になっているという結果になります。 シート作成者の人のパソコンでは出来るのに、私のパソコンでは不具合がでるという感じです。 ＯＳは作成者ＸＰ　私セブンで、エクセルはどちらも２００３です・・・ このへんなにか関係ありますか？ なにが原因でこのような事になるのでしょうか？ 分かり難い文章になってしまい申し訳ないのですが、、よろしくお願いします。

※長文になります 現在、社員数が30名弱の企業で技術職として働いている、 30代前半の男性社員です。 現職に近い分野から中途採用されて半年経過していますが、 人間関係がこじれてしまい、職場の空気がかなり悪い状態です。 経過は以下の様になっています。 ＜経過内容＞ 1.私が業務でミスを犯した。（これから新規に実施することのテストだったので、顧客への被害はなし） 2.上司から作業手順について、問い詰められる。 3.私が「○○という目的で××という手順を行いました」と答える。 4.上司が「どうしてそんな理屈でやったんだ」と怒鳴る。 5.私が「先程も言いましたが○○という目的のために××という手順を選びました」と答える。 6.3～4の問答が数回繰り返された結果、上司の監督下以外での作業実施を禁止される。 7.監視下での作業において、上司の指示通りに作業したにもかかわらず、作業実施後に 　「何でそんなやり方をしたと」詰問される。 8.私が「さっき言われた指示に従いました」と答えると、上司は「そんな意味で言ったわけじゃない」と言い返される。 9.私：「指示に従いました」、上司：「そんな意味で言ってないから、間違っている」という言い合いが起こる。 10.上司から担当業務を外され、ミスした件について社長に告げ口に近い形で報告がなされる。 11.社長やほかの社員はそこを上手く指導するのが上司の役目だということで、しばらく静観する姿勢をとる。 12.上司が感情的になったままで、何か問題が発生するたびに私を疑うようになる。 13.上司は何かにつけて、私の悪評を報告するため、「上司からの情報だけでは判断できない」という見解から、社長指示で私を含めた中堅、同僚の社員らに状況確認が行われる。 14.人間関係の破綻という認識で社内に認知される。 15.担当業務を外されて以降、同僚や中堅社員の作業手伝いもさせてもらえない状態が続く。 16.上司から「給料出してやっているんだから、成果出せ」などと嫌味を言われるようになる。 17.中堅社員が私を業務に戻すように仲裁に入るようになる。 18.同僚の一人（1歳年上）から「上司と上手くやるか就職活動するかの二択だ」「自分は関係ないから構わないが、中堅社員に負担をかけるのは会社のためにならない」と言われる。 19.第三者から見て、私が精神的に参っている様子だという報告が役員まであがる。 20.精神科の受診を勧められる。 21.処方された薬を服用しながら出勤、業務時間帯は中堅社員の指示で、部署で使う事務書類作成、技術書を読んで自習、全般雑用のどれかを実施する。 22.最近2ケ月半位、21の状態が続く。 ＜経過内容ここまで＞ 上司との和解ができなければ、業務に復帰できない現状、 中堅社員、同僚の方達に余計な仕事を増やしてしまった申し訳なさ等から、 自分がいなくなれば会社としては全て上手くいくように思えてきています。 他社に勤めている友人に上記のことを話した際には自分を追い詰めすぎて、 早まるようなことはするなと釘を刺されましたが、 八方ふさがりのような状態にしてしまった自分が許せなくて仕方がありません。 似たような状況を経験された方はどのように状況を打破したのでしょうか。 経験談を教えていただきたく思います。 最後まで読んでいただいた方、ありがとうございました。

お世話になります。 現在EXCELで、表の中から特定のセル（行）を抽出するマクロを組んでいます。 マクロの内容は次の通です。 Sub 条件検索() ' Rows("12:9000").Select Selection.ClearContents Range("G10").Select Dim myCriteria As Range Set myCriteria = Worksheets("データ検索用").Range("B4").CurrentRegion ' Sheets("積算データ").Range("A1:O9000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=myCriteria, CopyToRange:=Range("B12"), Unique:=False 「データ検索用」シートにセルB4～G8まで検索条件入力用のセルがあり（入力内容の有無によって条件範囲が可変します）、入力された条件を「積算データ」というシート（A列～O列までの表で約9000行あります）で検索し、セルB12から下に検索結果を表示するというものです。 なお、検索する際にはコマンドボタンを押す事で検索を掛けています。再検索時には既存の検索結果が削除されるようになっています。 このマクロの「検索条件」に於いて、質問があります。 たとえば次のような場合です。 検索対象データ ・コンセントボックス ・コンセントプラグ ・露出コンセント ・埋込コンセント ・防爆コンセント 検索条件：コンセント 検索結果 ・コンセントボックス ・コンセントプラグ となってしまい、検索対象の先頭に検索条件の文字列が無いものは検索されません。 検索対象の文字列に検索条件の文字列が入っていれば、その位置にかかわらず検索結果に反映されるにはどうすればいいでしょうか？

お世話になります。 現在EXCELで、表の中から特定のセル（行）を抽出するマクロを組んでいます。 マクロの内容は次の通です。 Sub 条件検索() ' Rows("12:9000").Select Selection.ClearContents Range("G10").Select Dim myCriteria As Range Set myCriteria = Worksheets("データ検索用").Range("B4").CurrentRegion ' Sheets("積算データ").Range("A1:O9000").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=myCriteria, CopyToRange:=Range("B12"), Unique:=False 「データ検索用」シートにセルB4～G8まで検索条件入力用のセルがあり（入力内容の有無によって条件範囲が可変します）、入力された条件を「積算データ」というシート（A列～O列までの表で約9000行あります）で検索し、セルB12から下に検索結果を表示するというものです。 なお、検索する際にはコマンドボタンを押す事で検索を掛けています。再検索時には既存の検索結果が削除されるようになっています。 このマクロの「検索条件」に於いて、質問があります。 たとえば次のような場合です。 検索対象データ ・コンセントボックス ・コンセントプラグ ・露出コンセント ・埋込コンセント ・防爆コンセント 検索条件：コンセント 検索結果 ・コンセントボックス ・コンセントプラグ となってしまい、検索対象の先頭に検索条件の文字列が無いものは検索されません。 検索対象の文字列に検索条件の文字列が入っていれば、その位置にかかわらず検索結果に反映されるにはどうすればいいでしょうか？

エクセル2010。 折れ線グラフで横に長い場合、 グラフの右側に縦軸の値がないため、 値が分かりにくいです。 グラフの右側に縦軸の値を入れるには？？？ 現状は、図形でテキストで書いて、グラフの右に張り付けています。

お世話になります。 エクセルで関数によって色づけをしたいのですが やり方がわからないのでどなたか教えて頂けないでしょうか。 ----------------- 以下のような列があります。 A列 B列 C列 D列 ID サイズ 在庫数 判定結果 IDは商品番号を示していて、データは以下のようになります。 A列 B列 C列 D列 ID サイズ 在庫数 判定結果 A 70cm 5 A 80cm 4 A 90cm 2 B 110cm 4 B 120cm 4 C 90cm 3 C 100cm 3 C 110cm 3 C 120cm 3 C 130cm 3 上記が示しているのは ・Aという商品はサイズが３サイズあり、在庫数はそれぞれ5,4,2着ずつ。 ・Bという商品はサイズが２サイズあり、在庫数はそれぞれ4,4着ずつ。 ・Cという商品はサイズが５サイズあり、在庫数はそれぞれ3,3,3,3,3着ずつ。 今回抽出したいのはBやCのように、各サイズの数が同一のものです。 つまり、「各サイズの在庫が同一ということは多分1着も売れてない」という 性質の商品を抽出したいわけです。 (※各サイズが等しく売れているものも抽出されますがそこは目視で判断します) 商品によって、サイズ分布が違うので行数が変わってきますし、 仕入れ数も違うため、「この数字と等しいということは売れていない」という 判断も出来ません。 この状況で関数を使ってD列にB商品やC商品のような性質の商品に 色付けをしたいと考えているのですが、適切な関数はありますでしょうか？ ご回答、どうぞ宜しくお願いいたします。

ワード201を購入しましたが、XPとの違いに戸惑ってています。 XPではファイルでは、ページ設定がありました。 ワード2010ではページ設定をするにはどうしたrさいいのでしょうか。 ハガキの文面を作りたいのです。

エクセルファイルの複数のシートの中から１シートだけ他のファイルにしたい（移したい）のですが、どうやったらいいのでしょうか。同じファイル内での移動やコピーはやったことがあるのですが、他のファイルへコピーとか移動、またはそのシートだけ新たにファイル化するということをやったことがないので、どなたか詳しい方、教えてください。お願いいたします。