OtenkiAme の回答履歴

すみませんが、BOOK1に複数のファイルから部分的にコピーして貼り付けるという作業をしたいのですが、ど素人なもんでわかりません。マクロで記録したモノをいじってみてるのですが、根本的にコードが分かっていなくギブアップです。 　やりたいことは、フォルダーの中の970305日報1、970305日報2、970306日報1、970306日報2のようなファイルが山ほどあるのですが、 この970305の日報１と２を開き、それぞれファイルの決まった列を順番にをBook1の行へ行列を入れ替えて貼りつけていき（1日が1行）保存して閉じてから、次の日970306のデータをBOOK1の2行目に貼り付けるということをしたいのですが、どなたか教えていただければ助かります。よろしくお願いします。 Sub Macro2() Dim MyFile As String, MyPath As String Dim wb As Workbook, tb As Workbook Set tb = ThisWorkbook MyPath = tb.Path & "\" MyFile = Dir(MyPath & "*.xls", vbNormal) Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Do While MyFile <> "" If MyFile <> tb.Name Then Set wb = Workbooks.Open(MyPath & MyFile) With ActiveSheet Windows("970305日報1.xls").Activate Range("B34:B38").Select Application.CutCopyMode = False Selection.Copy Windows("日報リスト.xls").Activate Range("C1").Select Selection.PasteSpecial Paste:=xlPasteAll, 　　　 　　　　Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Windows("970305日報1.xls").Activate Range("C33:C38").Select Application.CutCopyMode = False Selection.Copy Windows("日報リスト.xls").Activate Range("H1").Select Selection.PasteSpecial Paste:=xlPasteAll, 　 　　　　Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False ActiveWorkbook.Save Windows("970305日報1.xls").Activate ActiveWindow.Close Windows("970305日報2.xls").Activate Range("B31:B36").Select Selection.Copy Windows("日報リスト.xls").Activate Range("N1").Select Selection.PasteSpecial Paste:=xlPasteAll, 　　Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Windows("970305日報2.xls").Activate Range("D31:D36").Select Application.CutCopyMode = False Selection.Copy Windows("日報リスト.xls").Activate Range("T1").Select Selection.PasteSpecial Paste:=xlPasteAll, 　　Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False ActiveWorkbook.Save Windows("970305日報2.xls").Activate ActiveWindow.Close Windows("970306日報1.xls").Activate Range("B34:B38").Select Application.CutCopyMode = False Selection.Copy Windows("日報リスト.xls").Activate Range("C2").Select Selection.PasteSpecial Paste:=xlPasteAll, 　　Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Windows("970306日報1.xls").Activate Range("C33:C38").Select Application.CutCopyMode = False Selection.Copy Windows("日報リスト.xls").Activate Range("H2").Select Selection.PasteSpecial Paste:=xlPasteAll, 　　Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True Application.CutCopyMode = False ActiveWorkbook.Save Windows("970306日報1.xls").Activate ActiveWindow.Close -----------------------------------------

EXCELのピボットテーブルの表をデータ化したいのです。 ピボットテーブルは便利でよく利用するのですが、 出来た表は大区分、中区分、小区分と区分が同じものはｸﾞﾙｰﾌﾟ化され、 最初の１行目にのみ表示があり、同じものは何も表示されていません。 例えば 　　得意先１　ｼﾞｬﾝﾙ１　区分１　売上高 　　　　　　　　　　　 区分２　売上高 　　　　　　　ｼﾞｬﾝﾙ２　区分１　売上高 　　　　　　　　　　　 区分２　売上高 　　　　　　　　　　　 区分３　売上高 のようになっています。 でも、このピボットテーブルをデータとして別の分析をしたいのです。 ですが、データとして使用するには 　　得意先１　ｼﾞｬﾝﾙ１　区分１　売上高 　　得意先１　ｼﾞｬﾝﾙ１　区分２　売上高 　　得意先１　ｼﾞｬﾝﾙ２　区分１　売上高 　　得意先１　ｼﾞｬﾝﾙ２　区分２　売上高 　　得意先１　ｼﾞｬﾝﾙ２　区分３　売上高 となっていてほしいのです。 例えば大量にある売上データを集計する際も、生データを持つと容量も増えますので 第一段階で得意先・ｼﾞｬﾝﾙ・商品・売上月・金額　のように要点別に集計したピボットテーダルを 作成し、それがﾃﾞｰﾀ化できれば元データを削除してそれをデータとして 色々なピボットテーダル作成で分析が出来ると思うのです。 宜しくお願いいたします。

ピボットグラフについてわからないことがあります。 ピボットテーブルのデータをグラフにするとき新しいシートにもっていくようにしたいのですが、学校でやった方法だとその新しいシートの名前がGraph1と自然についていて、また、背景がセルではなく水色一色になっています。 このやり方がわかりません。 回答よろしくお願いします。 Officeは2007です。 よろしくお願いします。

普段Office2000を使っているのですが、新しくOffice2007の入ったパソコンが導入されて、以前に作ったマクロを走らせてみたのですが、なぜか処理が非常に重くなります。 何か仕様変更か何かで、文法やルールが変わったとかあるのでしょうか？ちなみに問題のマクロは以下の通りです。 Sub 空白セルに右下がりの斜線() 　'選択したすべてのセルに対して、データがnullだった場合、 　'右下がりの斜線を引きます。 　Dim r As Range 　'選択範囲の斜線をクリア 　Selection.Borders(xlDiagonalDown).LineStyle = xlNone 　If TypeName(Selection) = "Range" Then 　　For Each r In Selection 　　　If r.Value = "" Then 　　　　With r.Borders(xlDiagonalDown) 　　　　　.LineStyle = xlContinuous 　　　　　.Weight = xlHairline 　　　　　.ColorIndex = xlAutomatic 　　　　End With 　　　End If 　　Next r 　End If End Sub ちなみにOffice2000では正常に動きます。（それ以外のバージョンではためしていません。）

エクセル2007です。セルの塗りつぶしを自動に実行するＶＢＡについて教えてください。システム日付でＶＢＡを使用したいのですが横軸に日付（2010/1/1～2015/12/31）、縦軸に時間（0～24まで）があるシートです。日付と時間がマッチしたところのセルを緑色に塗りつぶしたいと思います（スケジュール表を作成中です）。ＶＢＡ初心者ですが、記述等教えていただきたいと思います。よろしくお願いします。

新しい台帳を作ろうとしています。 2つのシートを用いてデータベース（シート1）そのデータを日別に抽出したもの（シート2）を使い作業をしたいと思ってます。 1ブックにつき、一ヶ月分を入力するが月末には約1000件にもデータが増えてしまう。シート1には一ヶ月通して全件表示（+随時追加可能）。しかし、シート1には未入力セルがある。シート2には日付毎に抽出転記。入力内容の変更・訂正や更新は、シート2で行いたい。シート2では入力内容が判明し次第、随時入力しシート1へ反映させたい。 シート1 A B C D E 1　No.　日付　顧客　商品名　依頼先 2　1　　1/2　**商店　N-01　(　　) 3　2　　1/4　**商店　M-50　(　　) 4　3　　1/5　++販売　O-04　(　　) 5　4　　1/4　--産業　H-07　(　　) 6　5　　1/6　##商事　M-50　(　　) 7 6　　1/4　++販売　A-30　(　　) ※そこへ日付「1/4」を選択する シート2 A B C D E 1　No.　日付　顧客　商品名　依頼先 2　2　　1/4　**商店　M-50　(　　) 3　4　　1/4　--産業　H-07　(　　) 4 6　　1/4　++販売　A-30　(　　) 5 ※依頼先が決まりこれを少し編集，追加し シート2 A B C D E 1　No.　日付　顧客　商品名　依頼先 2　2　　1/4　**商店　M-500 "○○店" 3　4　　1/4　--産業　H-07 "▲▲会社" 4 6　　1/4　++販売　A-300 "○○店" 5 終了… シート1 A B C D E 1　No.　日付　顧客　商品名　依頼先 2　1　　1/2　**商店　N-01 　(　　) 3　2　　1/4　**商店　M-500 "○○店" 4　3　　1/5　++販売　OS-04　(　　) 5　4　　1/4　--産業　H-07 "▲▲会社" 6　5　　1/6　##商事　M-500　(　　) 7 6　　1/4　++販売　A-300 "○○店" 　"日付を操作できるマクロボタンがある" ボタンをクリックするとシート1の内容をシート2へ再更新するようになっている。 日付を記載しているセルがあり、マクロボタン1をクリックすると日付が進み、マクロボタン2だと戻るように なっている。 　現行VBA Sub ReturnDate() Dim myRow1 As Long, myRow2 As Long myRow1 = Sheets("運行台帳").Range("C65536").End(xlUp).Row myRow2 = Sheets("日別抽出").Range("C65536").End(xlUp).Row Sheets("日別抽出").Range("F4").Value = Format(DateValue(Sheets("日別抽出").Range("F4").Value) _ - 1, "yyyy/mm/dd") If myRow2 >= 6 Then Sheets("日別抽出").Range("C6:AB" & myRow2).ClearContents End If Sheets("運行台帳").Range("C6：AB" & myRow1).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("F3：F4"), CopyToRange:=Range("C6"), Unique:=False End Sub 上記フォームを用いたうえで追加処理は次のとおりです（出来ないところ） 　(1)上記載のシート2からコピーしてシート1へ貼り付けたいときにどのようにしたらいいのか? ※(2)シート1→シート2のフィルタコピペでは抜粋するだけだが逆の時には行番号が不確定である。不確定の行を指定できる方法は? 長々と申し訳ございません。宜しくお願いします。

新しい台帳を作ろうとしています。 2つのシートを用いてデータベース（シート1）そのデータを日別に抽出したもの（シート2）を使い作業をしたいと思ってます。 1ブックにつき、一ヶ月分を入力するが月末には約1000件にもデータが増えてしまう。シート1には一ヶ月通して全件表示（+随時追加可能）。しかし、シート1には未入力セルがある。シート2には日付毎に抽出転記。入力内容の変更・訂正や更新は、シート2で行いたい。シート2では入力内容が判明し次第、随時入力しシート1へ反映させたい。 シート1 A B C D E 1　No.　日付　顧客　商品名　依頼先 2　1　　1/2　**商店　N-01　(　　) 3　2　　1/4　**商店　M-50　(　　) 4　3　　1/5　++販売　O-04　(　　) 5　4　　1/4　--産業　H-07　(　　) 6　5　　1/6　##商事　M-50　(　　) 7 6　　1/4　++販売　A-30　(　　) ※そこへ日付「1/4」を選択する シート2 A B C D E 1　No.　日付　顧客　商品名　依頼先 2　2　　1/4　**商店　M-50　(　　) 3　4　　1/4　--産業　H-07　(　　) 4 6　　1/4　++販売　A-30　(　　) 5 ※依頼先が決まりこれを少し編集，追加し シート2 A B C D E 1　No.　日付　顧客　商品名　依頼先 2　2　　1/4　**商店　M-500 "○○店" 3　4　　1/4　--産業　H-07 "▲▲会社" 4 6　　1/4　++販売　A-300 "○○店" 5 終了… シート1 A B C D E 1　No.　日付　顧客　商品名　依頼先 2　1　　1/2　**商店　N-01 　(　　) 3　2　　1/4　**商店　M-500 "○○店" 4　3　　1/5　++販売　OS-04　(　　) 5　4　　1/4　--産業　H-07 "▲▲会社" 6　5　　1/6　##商事　M-500　(　　) 7 6　　1/4　++販売　A-300 "○○店" 　"日付を操作できるマクロボタンがある" ボタンをクリックするとシート1の内容をシート2へ再更新するようになっている。 日付を記載しているセルがあり、マクロボタン1をクリックすると日付が進み、マクロボタン2だと戻るように なっている。 　現行VBA Sub ReturnDate() Dim myRow1 As Long, myRow2 As Long myRow1 = Sheets("運行台帳").Range("C65536").End(xlUp).Row myRow2 = Sheets("日別抽出").Range("C65536").End(xlUp).Row Sheets("日別抽出").Range("F4").Value = Format(DateValue(Sheets("日別抽出").Range("F4").Value) _ - 1, "yyyy/mm/dd") If myRow2 >= 6 Then Sheets("日別抽出").Range("C6:AB" & myRow2).ClearContents End If Sheets("運行台帳").Range("C6：AB" & myRow1).AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("F3：F4"), CopyToRange:=Range("C6"), Unique:=False End Sub 上記フォームを用いたうえで追加処理は次のとおりです（出来ないところ） 　(1)上記載のシート2からコピーしてシート1へ貼り付けたいときにどのようにしたらいいのか? ※(2)シート1→シート2のフィルタコピペでは抜粋するだけだが逆の時には行番号が不確定である。不確定の行を指定できる方法は? 長々と申し訳ございません。宜しくお願いします。

普段Office2000を使っているのですが、新しくOffice2007の入ったパソコンが導入されて、以前に作ったマクロを走らせてみたのですが、なぜか処理が非常に重くなります。 何か仕様変更か何かで、文法やルールが変わったとかあるのでしょうか？ちなみに問題のマクロは以下の通りです。 Sub 空白セルに右下がりの斜線() 　'選択したすべてのセルに対して、データがnullだった場合、 　'右下がりの斜線を引きます。 　Dim r As Range 　'選択範囲の斜線をクリア 　Selection.Borders(xlDiagonalDown).LineStyle = xlNone 　If TypeName(Selection) = "Range" Then 　　For Each r In Selection 　　　If r.Value = "" Then 　　　　With r.Borders(xlDiagonalDown) 　　　　　.LineStyle = xlContinuous 　　　　　.Weight = xlHairline 　　　　　.ColorIndex = xlAutomatic 　　　　End With 　　　End If 　　Next r 　End If End Sub ちなみにOffice2000では正常に動きます。（それ以外のバージョンではためしていません。）

EXCEL2003を使用しています。 以下のようなデータがあるとします。これをピボットテーブルで集計すると、 　　　　A　　　　　　B　　　　　　　C 1　　タイプ　　商品番号　　　値段　 2　　タイプ1　　　　452　　　　300　　 3　　タイプ2　　　　675　　　　400　　 4　　タイプ1　　　　675　　　　200　　 これをピボットテーブルで集計すると、行のフィールドにタイプと商品番号、データアイテムに値段を入れると、以下のようになります。 　　タイプ　　　　商品番号　　集計 　タイプ1 　　　452 　　300 　【空白セル】　　 675 　　200 　タイプ2 　　　675 　　400 　総計 　　900 このような配列にするとタイプ1の2行目は【空白セル】になってしまいます。 これを回避し、この空白セルに上のセルと同じタイプ1と表示させるには、 なにか方法があるのでしょうか？ ちなみに、現在は表をコピーし手作業で埋めています。 よろしくお願いいたします。

ピボットテーブルの機能・操作について お世話になります。 業務でどうしても（緊急で）必要なため、EXCELの機能・操作について教えてください。 Microsoft Office Excel 2007になります。 以下、EXCELのシートを簡略化したものとしてお考えください。 （一番上の行は見出し） 申込日　　　担当営業　　　機器 １／１　　　山田　　　　　コピー機１ １／２　　　佐藤　　　　　プリンター１ １／３　　　山田　　　　　パソコン１ １／４　　　斉藤　　　　　プリンター１ １／５　　　斉藤　　　　　パソコン１ １／５　　　斉藤　　　　　パソコン２ １／６　　　佐藤　　　　　プリンター２ １／７　　　山田　　　　　コピー機２ １／８　　　山田　　　　　パソコン２ １／９　　　山田　　　　　コピー機１ このようなデータをピボットテーブルで（もしくは他の方法があればそれで） 集計したいと思います。 山田　　　コピー機１　　　○件 斉藤　　　パソコン１　　　×件 …… （以下略） というところまではピボットテーブルで何とかできました。 ここで、コピー機１に「８ポイント」　コピー機２に「５ポイント」…… というように点数をつけて、山田　計○ポイント　斉藤　計×ポイント という集計も同時におこないたいのですが、どのようにおこなうのが 最もよい方法でしょうか？ 基本中の基本の質問で、まことに申し訳ありませんが、 よろしくお願いいたします。

はじめまして 業務でピボットテーブルを使うことが多々あるのですが、マクロ化したいものの、なかなかできない状況です。 お助けいただけませんか？ 以下のような２列のデータがあります。（行数は毎回異なります, また１列目の数字も無数にあります） 1列目は数字と文字によるもの ２列目は正負の数値 100 t 40 200 t 60 100 t -50 300 t -20 300 t -10 200 t 10 100 t -10 200 t -90 300 t 50 100 t 20 300 t 30 200 t -10 これらのデータを２列目の正負によって場合わけして、１列目の文字列別に集計したいです。 つまり今回の場合は 100 t 60 200 t 70 300 t 80 100 t -60 200 t -100 300 t -30 のようになります。 手作業で行うと正負の場合わけをした後に、ピボットテーブルを２回使用しなければなりません。 よろしくお願いいたします。

はじめまして 業務でピボットテーブルを使うことが多々あるのですが、マクロ化したいものの、なかなかできない状況です。 お助けいただけませんか？ 以下のような２列のデータがあります。（行数は毎回異なります, また１列目の数字も無数にあります） 1列目は数字と文字によるもの ２列目は正負の数値 100 t 40 200 t 60 100 t -50 300 t -20 300 t -10 200 t 10 100 t -10 200 t -90 300 t 50 100 t 20 300 t 30 200 t -10 これらのデータを２列目の正負によって場合わけして、１列目の文字列別に集計したいです。 つまり今回の場合は 100 t 60 200 t 70 300 t 80 100 t -60 200 t -100 300 t -30 のようになります。 手作業で行うと正負の場合わけをした後に、ピボットテーブルを２回使用しなければなりません。 よろしくお願いいたします。

はじめまして 業務でピボットテーブルを使うことが多々あるのですが、マクロ化したいものの、なかなかできない状況です。 お助けいただけませんか？ 以下のような２列のデータがあります。（行数は毎回異なります, また１列目の数字も無数にあります） 1列目は数字と文字によるもの ２列目は正負の数値 100 t 40 200 t 60 100 t -50 300 t -20 300 t -10 200 t 10 100 t -10 200 t -90 300 t 50 100 t 20 300 t 30 200 t -10 これらのデータを２列目の正負によって場合わけして、１列目の文字列別に集計したいです。 つまり今回の場合は 100 t 60 200 t 70 300 t 80 100 t -60 200 t -100 300 t -30 のようになります。 手作業で行うと正負の場合わけをした後に、ピボットテーブルを２回使用しなければなりません。 よろしくお願いいたします。

はじめまして 業務でピボットテーブルを使うことが多々あるのですが、マクロ化したいものの、なかなかできない状況です。 お助けいただけませんか？ 以下のような２列のデータがあります。（行数は毎回異なります, また１列目の数字も無数にあります） 1列目は数字と文字によるもの ２列目は正負の数値 100 t 40 200 t 60 100 t -50 300 t -20 300 t -10 200 t 10 100 t -10 200 t -90 300 t 50 100 t 20 300 t 30 200 t -10 これらのデータを２列目の正負によって場合わけして、１列目の文字列別に集計したいです。 つまり今回の場合は 100 t 60 200 t 70 300 t 80 100 t -60 200 t -100 300 t -30 のようになります。 手作業で行うと正負の場合わけをした後に、ピボットテーブルを２回使用しなければなりません。 よろしくお願いいたします。

はじめまして 業務でピボットテーブルを使うことが多々あるのですが、マクロ化したいものの、なかなかできない状況です。 お助けいただけませんか？ 以下のような２列のデータがあります。（行数は毎回異なります, また１列目の数字も無数にあります） 1列目は数字と文字によるもの ２列目は正負の数値 100 t 40 200 t 60 100 t -50 300 t -20 300 t -10 200 t 10 100 t -10 200 t -90 300 t 50 100 t 20 300 t 30 200 t -10 これらのデータを２列目の正負によって場合わけして、１列目の文字列別に集計したいです。 つまり今回の場合は 100 t 60 200 t 70 300 t 80 100 t -60 200 t -100 300 t -30 のようになります。 手作業で行うと正負の場合わけをした後に、ピボットテーブルを２回使用しなければなりません。 よろしくお願いいたします。

office2007でIME2007を使用しています。最新辞書のバージョンを調べてみると、『12.0,908,0』となっています。最新のものだとは思っているのですが、少し自信がありません。あっているのでしょうか。

Excel2007を使用しています。商品別売り上げ表から複数のピボットテーブルを作成し、各々のピボットからグラフを作成しています。 あるピボットは、２００９年全体の商品別売り上げを示しています。 そして、あるピボットは2009年の月別の売り上げを示しています。 データを更新した際に、月別のグループ化を再度行ったところ、 すべてのピボットが、月別表示に変わってしまいました。連動しているのでしょうか？以前のバージョンではそんなことは起きませんでした。 各ピボットテーブル毎にグループ化の内容を変えたいのですが、すべてが連動しているようです。どうしたらよろしいのでしょうか？教えてください。

　人からもらったエクセルの金銭出納簿で記帳し、ピボットテーブルによる集計表から各費目の合計額を出し、それがそのまま中間決算や年度末決算書の数字になるという便利なものを使っています。 　ピボットテーブルは実用で使ったことが無く、本を読んだり、色々いじったりして仕組みを確かめています。 　今回、どうしてもまだ解明できないのは、ピボットテーブルの集計表のためのデータ範囲選択は日付、適用、細目、収入、支出だけなのに、集計後、どこの金額でも詳細表示をさせると、その費目の予算額が集計表に表示されるのです。 　どのように予算額が反映されるようになるのでしょうか。よろしくお願いいたします。

Excel2007を使用しています。商品別売り上げ表から複数のピボットテーブルを作成し、各々のピボットからグラフを作成しています。 あるピボットは、２００９年全体の商品別売り上げを示しています。 そして、あるピボットは2009年の月別の売り上げを示しています。 データを更新した際に、月別のグループ化を再度行ったところ、 すべてのピボットが、月別表示に変わってしまいました。連動しているのでしょうか？以前のバージョンではそんなことは起きませんでした。 各ピボットテーブル毎にグループ化の内容を変えたいのですが、すべてが連動しているようです。どうしたらよろしいのでしょうか？教えてください。

Excel2007を使用しています。商品別売り上げ表から複数のピボットテーブルを作成し、各々のピボットからグラフを作成しています。 あるピボットは、２００９年全体の商品別売り上げを示しています。 そして、あるピボットは2009年の月別の売り上げを示しています。 データを更新した際に、月別のグループ化を再度行ったところ、 すべてのピボットが、月別表示に変わってしまいました。連動しているのでしょうか？以前のバージョンではそんなことは起きませんでした。 各ピボットテーブル毎にグループ化の内容を変えたいのですが、すべてが連動しているようです。どうしたらよろしいのでしょうか？教えてください。