データ抽出について

 ◇-?データ抽出について-バニュ-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

「何か一言」を書く Facebookコメントができます

▲このページのトップに戻る

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でもちゃんと動作しましたよ。どのように動作しないか詳しく書かれたほうが良いかも。

パソコントラブル解決・過去ログTOP > ログTOP > データ抽出について

何か一言(本ページで参考になったならないを含めて残してあります)
◎：解決　○：参考になった　×：参考にならなかった　！：アドバイスあり

参考	回数	投稿日時	何か一言