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

▲このページのトップに戻る
512851Re:データ抽出についてZONE 2013/11/28-07:39

記事番号512850へのコメント
バニュ-PC初心者-PC不慣れさんは No.512850「データ抽出について」で書きました。

貼られたコードをExcel 2007のSheet1のコードに貼り付けると、
そのうちの2行が赤(エラー)表示となります。
どこが間違っているかは簡単ですので自分で調べてください。

エラー部を修正しても動作しない場合は、両OSで使用しているExcelのバージョンが
同じか調べてください。
バージョンが違うと使える関数が違ったりします。

▲このページのトップに戻る
512853Re:データ抽出についてぱみゅ 2013/11/28-21:57

記事番号512851へのコメント
説明不足と入力ミスがありすみません。
コードは下記の通りです。
別のシートに支店の一覧があり、
通常、入力する際はその一覧をリストとして選べるようになっています。
また、いろいろなパソコンで試してみたのですが、
やはり、XPだけはどのパソコンでも動きませんでした。
すみませんが、ご回答をお願いいたします。

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




▲このページのトップに戻る
512854Re:データ抽出についてZONE 2013/11/29-07:32

記事番号512853へのコメント
ぱみゅさんは No.512853「Re:データ抽出について」で書きました。

・投稿方法の説明
http://pasokoma.jp/setumei
ハンドル名の変更は禁止されています。

さて、本題。

>コードは下記の通りです。

まだ一箇所間違っています。
そのまま実行すると「構文エラー」が出て実行できませんがどう対処されていますか?
たぶん書き写されているのだと思いますので、実際のコードをコピーして貼り付け
されることをお勧めします。

>別のシートに支店の一覧があり、
>通常、入力する際はその一覧をリストとして選べるようになっています。

コードを見る限り、別のシートを参照しているとは思えませんが。

>また、いろいろなパソコンで試してみたのですが、
>やはり、XPだけはどのパソコンでも動きませんでした。

前にも書きましたが、Excelのバージョンは同じですか?
XPはOSのことで、Office XP(Excel 2002)のことじゃないですよね?
使用されている全てのExcelのバージョンを書き出してください。
特定のバージョンだけで動作しないのであれば、そのバージョンでは使えない関数を
使っていたり、構文の解釈が変更になっている可能性があります。
その場合は、どのバージョンでも動作する関数の使用と構文の記述を行ってください。

うちの環境(Excel 2007)では間違っている一箇所を修正するとちゃんと動作します。

追記
ひょっとして、Excelでマクロを有効にする設定をしていなくて動かないってこと
じゃないですよね。

追記2
Windows XP Professional SP3 + Excel 2003 SP3でもちゃんと動作しましたよ。
どのように動作しないか詳しく書かれたほうが良いかも。

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

 
「何か一言」を書く

A1.本ページは参考になりましたか? 又はアドバイスがありますか?
解決 参考になった 参考にならなかった アドバイスする

A2.何度目の訪問ですか?
初めて  数度目 5回以上来ている   管理人:

A3.何か一言どうぞ(アドレスは書くことができません)

A4.アドレスがあればどうぞ(1つまで)


↑↑↑↑よろしければ押してください↑↑↑↑

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

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

Facebookコメントを書く/読む

パソコン困りごと相談
現行掲示板を見る

積極的なご意見を
お待ちしています

「何か一言」を書く

Facebookコメントを書く/読む

(社)日本お助け隊

ホームページを簡単に作る!

和魂カウンセラー認定講座

全国イベントスケジュール