OtenkiAme の回答履歴

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

エクセルのピボットテーブルとアクセスのピボットテーブル、 どちらが見やすい、レイアウトしやすいと思いますか？ 私は断然エクセルなのですが 人によってはアクセスの方が見やすい！という人がいるか今後の業務において気になりました。 教えてください。よろしくお願いします。

ＸＰのＶＢＡで、シフトを組もうとしています。 登録者の中から5名を１組とし、班長を固定して4通り。 それを毎月、４組作成したいのです。 繰返しが多いので、簡単な方法がありそうなのですができません。 どうぞよろしくお願いいたします。 Sub 名簿() Dim a As Range ‘名簿シートの1行目に＝RAND()関数を入れる。2行目に名簿を作成する。 ‘組合せシートの$AI$1, $AI$3, $AC$1, $AC$3の4つのセルに”組1”という名前を定義 ‘名簿シートのB2セルの人を班長として固定。組合せシートの”組１”（4箇所）に貼り付ける Sheets("名簿").Select Range("B2").Select Selection.Copy Sheets("組合せ").Select For Each a In Range("組１") a.Select ActiveSheet.Paste Next a ‘名簿シートのC2セルから2行の最後までのデータをランダムに並べ替え、C2からF2をコピー、貼付け For Each a In Range("組１") a.Select Selection.Offset(0, -4).Select Sheets("名簿").Select Range("C1:I2").Select Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal Range("C2:F2").Copy Sheets("組合せ").Select ActiveSheet.Paste Next a ‘名簿シートの全てのデータをランダムに並び替え。 Sheets("名簿").Select Range("B1:I2").Select Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal End Sub 以上の作業を”組２”、”組３”、”組４”においても繰り返したいのです。 できれば、組の中で同じ組合せがないほうが嬉しいのですが。 できれば班長も同じ組が出来ないほうがよいのですが。 ややこしいお話で申し訳ありませんが、よろしくおお願いいたします。

お世話になります。 仕事で、アンケート集計をすることになり文字列のみの内容を分析するにはピボットテーブルが有効と聞きましたがこの機能を使用するのは初めてですのでどのような手順で進行して良いのか？判りません。 ピボットテーブルがどういったものでどのような時に活用できるのか？を知りたいのですが、時間がない為どなたかネット上で上記の詳しい説明を閲覧出来るサイトをご存知の方・・是非アドバイスを御願いいたします。

ＸＰのＶＢＡで、シフトを組もうとしています。 登録者の中から5名を１組とし、班長を固定して4通り。 それを毎月、４組作成したいのです。 繰返しが多いので、簡単な方法がありそうなのですができません。 どうぞよろしくお願いいたします。 Sub 名簿() Dim a As Range ‘名簿シートの1行目に＝RAND()関数を入れる。2行目に名簿を作成する。 ‘組合せシートの$AI$1, $AI$3, $AC$1, $AC$3の4つのセルに”組1”という名前を定義 ‘名簿シートのB2セルの人を班長として固定。組合せシートの”組１”（4箇所）に貼り付ける Sheets("名簿").Select Range("B2").Select Selection.Copy Sheets("組合せ").Select For Each a In Range("組１") a.Select ActiveSheet.Paste Next a ‘名簿シートのC2セルから2行の最後までのデータをランダムに並べ替え、C2からF2をコピー、貼付け For Each a In Range("組１") a.Select Selection.Offset(0, -4).Select Sheets("名簿").Select Range("C1:I2").Select Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal Range("C2:F2").Copy Sheets("組合せ").Select ActiveSheet.Paste Next a ‘名簿シートの全てのデータをランダムに並び替え。 Sheets("名簿").Select Range("B1:I2").Select Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal End Sub 以上の作業を”組２”、”組３”、”組４”においても繰り返したいのです。 できれば、組の中で同じ組合せがないほうが嬉しいのですが。 できれば班長も同じ組が出来ないほうがよいのですが。 ややこしいお話で申し訳ありませんが、よろしくおお願いいたします。

お世話になります。 仕事で、アンケート集計をすることになり文字列のみの内容を分析するにはピボットテーブルが有効と聞きましたがこの機能を使用するのは初めてですのでどのような手順で進行して良いのか？判りません。 ピボットテーブルがどういったものでどのような時に活用できるのか？を知りたいのですが、時間がない為どなたかネット上で上記の詳しい説明を閲覧出来るサイトをご存知の方・・是非アドバイスを御願いいたします。

マクロ初心者です。 どなたか下記内容のマクロを組みたいのですが、ご教授いただけますでしょうか？ 内容 ファイルBのK列には、F・G・Pの記号がランダムに入力されています (各記号は入力されて無い場合があり) 1.ファイルAとファイルBを開き、ファイルBのK列に文字Pが含まれない検索をかけ、該当した場合2へ　該当無しの場合2’へ　 2.条件　K列にPを含まないでオートフィルターかけます。 表示されているA2以下の内容をファイルAのA2に貼り付ける 2’.次の処理に移行する 3.ファイルBのK列に文字Pが含まれるで検索をかけ、 該当した場合4へ　該当無しの場合4’へ　 4.条件　K列にPを含むでオートフィルターかけます。 表示されているA2以下の内容をファイルAのA58に貼り付けるマクロを終了する 4’マクロを終了する 下記プログラムを組んでみましたがうまくいきません。 Sub() Dim row As Integer row = Range("A" & Rows.Count).End(xlUp).row Book_B.Activate Columns("K").Select If InStr(ActiveCell, "P") = 0 Then ' Pが含まれない 　 Range("A2").Select 　 Selection.AutoFilter 　 Selection.AutoFilter Field:=11, Criteria1:="<>*P*", Operator:=xlAnd 　Range("B2:E" & row).Select 　Selection.Copy 　Book_A.Activate 　Range("C4").Select 　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 　Book_B.Activate 　Selection.AutoFilter End If Book_B.Activate Columns("K").Select If InStr(ActiveCell, "P") > 0 Then ' Pが含まれる 　Range("A2").Select 　Selection.AutoFilter 　Selection.AutoFilter Field:=11, Criteria1:="=*P*", Operator:=xlAnd 　Range("C2:C" & row).Select 　Application.CutCopyMode = False 　Selection.Copy 　Book_A.Activate 　Range("E58").Select 　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If End Sub

マクロ初心者です。 どなたか下記内容のマクロを組みたいのですが、ご教授いただけますでしょうか？ 内容 ファイルBのK列には、F・G・Pの記号がランダムに入力されています (各記号は入力されて無い場合があり) 1.ファイルAとファイルBを開き、ファイルBのK列に文字Pが含まれない検索をかけ、該当した場合2へ　該当無しの場合2’へ　 2.条件　K列にPを含まないでオートフィルターかけます。 表示されているA2以下の内容をファイルAのA2に貼り付ける 2’.次の処理に移行する 3.ファイルBのK列に文字Pが含まれるで検索をかけ、 該当した場合4へ　該当無しの場合4’へ　 4.条件　K列にPを含むでオートフィルターかけます。 表示されているA2以下の内容をファイルAのA58に貼り付けるマクロを終了する 4’マクロを終了する 下記プログラムを組んでみましたがうまくいきません。 Sub() Dim row As Integer row = Range("A" & Rows.Count).End(xlUp).row Book_B.Activate Columns("K").Select If InStr(ActiveCell, "P") = 0 Then ' Pが含まれない 　 Range("A2").Select 　 Selection.AutoFilter 　 Selection.AutoFilter Field:=11, Criteria1:="<>*P*", Operator:=xlAnd 　Range("B2:E" & row).Select 　Selection.Copy 　Book_A.Activate 　Range("C4").Select 　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 　Book_B.Activate 　Selection.AutoFilter End If Book_B.Activate Columns("K").Select If InStr(ActiveCell, "P") > 0 Then ' Pが含まれる 　Range("A2").Select 　Selection.AutoFilter 　Selection.AutoFilter Field:=11, Criteria1:="=*P*", Operator:=xlAnd 　Range("C2:C" & row).Select 　Application.CutCopyMode = False 　Selection.Copy 　Book_A.Activate 　Range("E58").Select 　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If End Sub

こんばんわ！ VBAを実行すると、画面がちかちかします。 シートを行ったり来たりしているせいでしょうね？ 自分で、色々やってみたのですが、エラーばかりで全然できません。 シートを行ったり来たりしなくてもいいＶＢＡを作るには、どこを直せばいいでしょうか。 教えて頂けませんか？ （現在のＶＢＡ） (1)「Data!FB63376,FG63376,FI63376」を「拾い出し!K4」にコピー＆ペースト 値が入っている場合、下の行に貼付け。 Sub Macro1() Range("FB63376,FG63376,FI63376").Select 　 Range("FI63376").Activate Selection.Copy Sheets("拾い出し").Select If Range("K4").Value = "" Then Range("K4").Select Else Range("K" & Rows.Count).End(xlUp).Offset(1).Select　 End If ActiveSheet.Paste Sheets("Data").Select (2)「Data!FO63367:FQ63372」を「拾い出し!O4」に値のみをコピー＆ペースト 値が入っている場合、下の行に貼付け。 Range("FO63367:FQ63372").Select Selection.Copy Sheets("拾い出し").Select If Range("P4").Value = "" Then Range("P4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Else Range("P" & Rows.Count).End(xlUp).Offset(1).Select End If Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Data").Select Application.CutCopyMode = False End Sub 以上です。 お分かりになる方教えて頂けませんか？ 宜しくお願いします。

マクロ初心者です。 どなたか下記内容のマクロを組みたいのですが、ご教授いただけますでしょうか？ 内容 ファイルBのK列には、F・G・Pの記号がランダムに入力されています (各記号は入力されて無い場合があり) 1.ファイルAとファイルBを開き、ファイルBのK列に文字Pが含まれない検索をかけ、該当した場合2へ　該当無しの場合2’へ　 2.条件　K列にPを含まないでオートフィルターかけます。 表示されているA2以下の内容をファイルAのA2に貼り付ける 2’.次の処理に移行する 3.ファイルBのK列に文字Pが含まれるで検索をかけ、 該当した場合4へ　該当無しの場合4’へ　 4.条件　K列にPを含むでオートフィルターかけます。 表示されているA2以下の内容をファイルAのA58に貼り付けるマクロを終了する 4’マクロを終了する 下記プログラムを組んでみましたがうまくいきません。 Sub() Dim row As Integer row = Range("A" & Rows.Count).End(xlUp).row Book_B.Activate Columns("K").Select If InStr(ActiveCell, "P") = 0 Then ' Pが含まれない 　 Range("A2").Select 　 Selection.AutoFilter 　 Selection.AutoFilter Field:=11, Criteria1:="<>*P*", Operator:=xlAnd 　Range("B2:E" & row).Select 　Selection.Copy 　Book_A.Activate 　Range("C4").Select 　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 　Book_B.Activate 　Selection.AutoFilter End If Book_B.Activate Columns("K").Select If InStr(ActiveCell, "P") > 0 Then ' Pが含まれる 　Range("A2").Select 　Selection.AutoFilter 　Selection.AutoFilter Field:=11, Criteria1:="=*P*", Operator:=xlAnd 　Range("C2:C" & row).Select 　Application.CutCopyMode = False 　Selection.Copy 　Book_A.Activate 　Range("E58").Select 　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End If End Sub

ＸＰのＶＢＡで、シフトを組もうとしています。 登録者の中から5名を１組とし、班長を固定して4通り。 それを毎月、４組作成したいのです。 繰返しが多いので、簡単な方法がありそうなのですができません。 どうぞよろしくお願いいたします。 Sub 名簿() Dim a As Range ‘名簿シートの1行目に＝RAND()関数を入れる。2行目に名簿を作成する。 ‘組合せシートの$AI$1, $AI$3, $AC$1, $AC$3の4つのセルに”組1”という名前を定義 ‘名簿シートのB2セルの人を班長として固定。組合せシートの”組１”（4箇所）に貼り付ける Sheets("名簿").Select Range("B2").Select Selection.Copy Sheets("組合せ").Select For Each a In Range("組１") a.Select ActiveSheet.Paste Next a ‘名簿シートのC2セルから2行の最後までのデータをランダムに並べ替え、C2からF2をコピー、貼付け For Each a In Range("組１") a.Select Selection.Offset(0, -4).Select Sheets("名簿").Select Range("C1:I2").Select Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal Range("C2:F2").Copy Sheets("組合せ").Select ActiveSheet.Paste Next a ‘名簿シートの全てのデータをランダムに並び替え。 Sheets("名簿").Select Range("B1:I2").Select Selection.Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormal End Sub 以上の作業を”組２”、”組３”、”組４”においても繰り返したいのです。 できれば、組の中で同じ組合せがないほうが嬉しいのですが。 できれば班長も同じ組が出来ないほうがよいのですが。 ややこしいお話で申し訳ありませんが、よろしくおお願いいたします。

　エクセル2007でピボットテーブルのフィルタラベルをよく使っているのですが、値フィルタ等は使えるものの、ラベルフィルタが使えなくなることがよくあります。 　感覚的にはデータ量が多くなった場合にその症状が出る気がするんですが、正直なところはっきりと分りません。 　ラベルフィルタを使えるのはデータ量などで制限があるのでしょうか？ 　あるいは保存する際に何かの誤りがあるんでしょうか？　 　お分かりでしたら教えてください。

データの入っている行だけを繰り返し処理したく以下マクロ記述しましたが上手くいきません。宜しく御願いします。 E列に空白列を挿入。 E3に「月」と入力しE4にD4の年月日から年月だけを取り出すように組みたく下記記述したのですがエラーになってしまいました。 どのように記述したら良いでしょうか？ ..A..B..C...D.........E.......F 1 2 3 * * * 納期 月 　　 * 4 09.10/08　 09.10 5 　　　記 Sub 年月test() ' ' 年月test Macro ' マクロ記録日 : 2009/11/15 ユーザー名 : TH ' ' Columns("E:E").Select Selection.Insert Shift:=xlToRight Range("E3").Select ActiveCell.FormulaR1C1 = "月" ActiveCell.Characters(1, 1).PhoneticCharacters = "ツキ" Range("E4").Select Do Until ActiveCell.Offset(0, -1).Value = "" With ActiveCell .Value = .FormulaR1C1 = "=LEFT(RC[-1],5)" End With Loop End Sub

マクロを使い、ピボットテーブル上でＡ列の任意の文字をクリックすると、 Ａ列を検索して同じ文字があれば抽出した行を反転？(青くなる奴です)したいです。 　　Ａ　　　　Ｂ　　　　Ｃ　　・・・ １　大阪　　５０ ２　静岡　　１５ ３　東京　　３３ ４　大阪　　１４ ５　大阪　　０５ ６　東京　　８８ この場合、セルＡ５の"大阪"をクリックするとＡ列の１行目と４,５行目の"大阪"の文字をキーワードに、１・４・５行を反転させたいのですが可能でしょうか？ 当方エクセル、ＶＢＡともに初心者です。よろしくお願いします。 補足　Ａ６セルをクリック(Ａ６セルの上にカーソルがある状態)すれば３・６行を反転という事です。

Office2003を使用しています。 Excelのセルに別のセルへのリンクを張りたいのですが、リンク元となるセルにアンカー(下線ありの青文字になる状態)を付けたくありません。 リンク元のセルにいろいろな書式の情報を書いてているからです。 リンク元のセルの書式をそのままに、アンカーを付けずに、リンクを張る方法ってありませんか？ できればVBAを使った方法で教えていただけると助かります。

マクロを使い、ピボットテーブル上でＡ列の任意の文字をクリックすると、 Ａ列を検索して同じ文字があれば抽出した行を反転？(青くなる奴です)したいです。 　　Ａ　　　　Ｂ　　　　Ｃ　　・・・ １　大阪　　５０ ２　静岡　　１５ ３　東京　　３３ ４　大阪　　１４ ５　大阪　　０５ ６　東京　　８８ この場合、セルＡ５の"大阪"をクリックするとＡ列の１行目と４,５行目の"大阪"の文字をキーワードに、１・４・５行を反転させたいのですが可能でしょうか？ 当方エクセル、ＶＢＡともに初心者です。よろしくお願いします。 補足　Ａ６セルをクリック(Ａ６セルの上にカーソルがある状態)すれば３・６行を反転という事です。

データの入っている行だけを繰り返し処理したく以下マクロ記述しましたが上手くいきません。宜しく御願いします。 E列に空白列を挿入。 E3に「月」と入力しE4にD4の年月日から年月だけを取り出すように組みたく下記記述したのですがエラーになってしまいました。 どのように記述したら良いでしょうか？ ..A..B..C...D.........E.......F 1 2 3 * * * 納期 月 　　 * 4 09.10/08　 09.10 5 　　　記 Sub 年月test() ' ' 年月test Macro ' マクロ記録日 : 2009/11/15 ユーザー名 : TH ' ' Columns("E:E").Select Selection.Insert Shift:=xlToRight Range("E3").Select ActiveCell.FormulaR1C1 = "月" ActiveCell.Characters(1, 1).PhoneticCharacters = "ツキ" Range("E4").Select Do Until ActiveCell.Offset(0, -1).Value = "" With ActiveCell .Value = .FormulaR1C1 = "=LEFT(RC[-1],5)" End With Loop End Sub

マクロを使い、ピボットテーブル上でＡ列の任意の文字をクリックすると、 Ａ列を検索して同じ文字があれば抽出した行を反転？(青くなる奴です)したいです。 　　Ａ　　　　Ｂ　　　　Ｃ　　・・・ １　大阪　　５０ ２　静岡　　１５ ３　東京　　３３ ４　大阪　　１４ ５　大阪　　０５ ６　東京　　８８ この場合、セルＡ５の"大阪"をクリックするとＡ列の１行目と４,５行目の"大阪"の文字をキーワードに、１・４・５行を反転させたいのですが可能でしょうか？ 当方エクセル、ＶＢＡともに初心者です。よろしくお願いします。 補足　Ａ６セルをクリック(Ａ６セルの上にカーソルがある状態)すれば３・６行を反転という事です。

Ｅｘｃｅｌのピポットテーブルで、たとえばＡ列に「2009年」、Ｂ列に「10月」、Ｃ列に「10月1日」、「10月2日」、「10月3日」、「10月4日」、「10月5日」と表記させた場合、通常、Ａ列の「2009年」表記の下の行は空白が続き、Ｂ列の「10月」表記の下の行も空白になり、Ｃ列のみそれぞれ「10月1日」、「10月2日」、「10月3日」、「10月4日」、「10月5日」とタテに表記されます。この空白部分、たとえば1行目の「2009年」表記の下の2行目～5行目までも「2009年」と表記させること、同じく「10月」表記の下の2行目～5行目までも「10月」と表記させることは可能でしょうか。可能であればやり方を教えてください。よろしくお願いします。

XP使用、Excel2000です。 No. 仕入先　部品番号　金額　　納品月 1　　Ａ社　　1001　　　100円　　4月 2　　Ｂ社　　1002　　　200円　　4月 3　　Ａ社　　1001　　　100円　　5月 ・ ・ 上記のような元データを使用してピボットテーブルを作成しましたが、 ピボットテーブル内に[部品番号]フィールドを挿入すると [部品番号]のドロップダウンリストに 　すべて 　1001 　1002 　1001 　・ 　・ といったように重複して表示される番号が出てきます。 元データの[部品番号]が半角全角の間違いやスペースが入っているのでは、と チェックしてみましたが、そのようなことはありませんでした。 （実際、確認のため元データにオートフィルタをかけてみると 　リスト内に1001の重複は見られませんでした） 何か思いつく原因がありましたら教えていただけませんでしょうか？ データ自体がシンプルなものだけに 何をもって別物と判断されてしまっているのか分からず困っております。