◇-?データ抽出について-バニュ-PC初心者-PC不慣れ-11/27-23:02(3195)-No.512850 ┗?!Re:データ抽出について...-ZONE-11/28-07:39(3186)-No.512851 ┗?!!Re:データ抽出について...-ぱみゅ-11/28-21:57(3172)-No.512853 ┗?!!!Re:データ抽出について...-ZONE-11/29-07:32(3162)-No.512854
| 512850 | データ抽出について | バニュ-PC初心者-PC不慣れ | 2013/11/27-23:02 |
メーカー名：自作PC 作ってもらった OS名：Windows7 パソコン名：ce151 -- エクセルでD7セルに支店名を入れると、その支店名の注文データのみが 抽出されるマクロがありコートは下記の通りなのですが、 XPのパソコンでは動きません。 どこを直したらいいのか教えてください。 よろしくお願いいたします。 Pricate Sub Worksheet_Change(ByVal Target As Range) Dim myRng As Range Dim myRow As Long Dim myCol As Integer Set myRng=Range("F12:G30000") myRow=Target.Row myCol=Target.Column Application.EnableEvents=False Application.ScreenUpdating=False If Range("D7").Value=""And Range("D8").Value=""Then If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode=False End If Else If myRow=7And myCol=4 Then With myRng .AutoFilter .AuteFilter Field:=1, Criteria 1:="=" & Range("D7").Value End With Range("D8").Value="" End If End If Application.EnableEvents=True Application.ScreenUpdating=True End Sub | |||
| 512851 | Re:データ抽出について | ZONE | 2013/11/28-07:39 |
記事番号512850へのコメント バニュ-PC初心者-PC不慣れさんは No.512850「データ抽出について」で書きました。 貼られたコードをExcel 2007のSheet1のコードに貼り付けると、 そのうちの2行が赤(エラー)表示となります。 どこが間違っているかは簡単ですので自分で調べてください。 エラー部を修正しても動作しない場合は、両OSで使用しているExcelのバージョンが 同じか調べてください。 バージョンが違うと使える関数が違ったりします。 | |||
| 512853 | Re:データ抽出について | ぱみゅ | 2013/11/28-21:57 |
記事番号512851へのコメント 説明不足と入力ミスがありすみません。 コードは下記の通りです。 別のシートに支店の一覧があり、 通常、入力する際はその一覧をリストとして選べるようになっています。 また、いろいろなパソコンで試してみたのですが、 やはり、ＸＰだけはどのパソコンでも動きませんでした。 すみませんが、ご回答をお願いいたします。 Private Sub Worksheet_Change(ByVal Target As Range) Dim myRng As Range Dim myRow As Long Dim myCol As Integer Set myRng=Range("F12:G30000") myRow=Target.Row myCol=Target.Column Application.EnableEvents=False Application.ScreenUpdating=False If Range("D7").Value=""And Range("D8").Value=""Then If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode=False End If Else If myRow=7And myCol=4 Then With myRng .AutoFilter .AutoFilter Field:=1, Criteria 1:="=" & Range("D7").Value End With Range("D8").Value="" End If End If Application.EnableEvents=True Application.ScreenUpdating=True End Sub | |||
| 512854 | Re:データ抽出について | ZONE | 2013/11/29-07:32 |
記事番号512853へのコメント ぱみゅさんは No.512853「Re:データ抽出について」で書きました。 ・投稿方法の説明 http://pasokoma.jp/setumei ハンドル名の変更は禁止されています。 さて、本題。 >コードは下記の通りです。 まだ一箇所間違っています。 そのまま実行すると「構文エラー」が出て実行できませんがどう対処されていますか？ たぶん書き写されているのだと思いますので、実際のコードをコピーして貼り付け されることをお勧めします。 >別のシートに支店の一覧があり、 >通常、入力する際はその一覧をリストとして選べるようになっています。 コードを見る限り、別のシートを参照しているとは思えませんが。 >また、いろいろなパソコンで試してみたのですが、 >やはり、ＸＰだけはどのパソコンでも動きませんでした。 前にも書きましたが、Excelのバージョンは同じですか？ XPはOSのことで、Office XP(Excel 2002)のことじゃないですよね？ 使用されている全てのExcelのバージョンを書き出してください。 特定のバージョンだけで動作しないのであれば、そのバージョンでは使えない関数を 使っていたり、構文の解釈が変更になっている可能性があります。 その場合は、どのバージョンでも動作する関数の使用と構文の記述を行ってください。 うちの環境(Excel 2007)では間違っている一箇所を修正するとちゃんと動作します。 追記 ひょっとして、Excelでマクロを有効にする設定をしていなくて動かないってこと じゃないですよね。 追記２ Windows XP Professional SP3 ＋ Excel 2003 SP3でもちゃんと動作しましたよ。 どのように動作しないか詳しく書かれたほうが良いかも。 | |||