Windows7 の過去ログです　検索窓で過去ログ検索できます

パソコントラブル解決・過去ログ  >  Windows7 ログ　;>　他OSの検索

データ抽出について

 ◇-?データ抽出について-バニュ-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でもちゃんと動作しましたよ。 どのように動作しないか詳しく書かれたほうが良いかも。

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

「何か一言」を書く

A1.本ページは参考になりましたか？　又はアドバイスがありますか？ 解決　参考になった　参考にならなかった　アドバイスする A2.何度目の訪問ですか？ 初めて　　数度目　５回以上来ている　　 管理人: A3.何か一言どうぞ(アドレスは書くことができません) A4.アドレスがあればどうぞ(１つまで) ↑↑↑↑よろしければ押してください↑↑↑↑

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

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

Facebookコメントを書く/読む