Date:  Thu, 28 Nov 2013 21:57:02 +0900
From:  no@ann.co.jp
Subject:  [pasml 01627] Re: データ抽出について 
To:  pml@ann.co.jp
Message-Id:  <201311281257.rASCv249006489@ns.pas2.jp>
X-Mail-Count: 01627

名前: ぱみゅ BBSから
質問:http://pasokoma.jp/51/lg512850#512853
携帯:http://pasokoma.jp/m?num=512853&ope=v
--
説明不足と入力ミスがありすみません。
コードは下記の通りです。
別のシートに支店の一覧があり、
通常、入力する際はその一覧をリストとして選べるようになっています。
また、いろいろなパソコンで試してみたのですが、
やはり、ＸＰだけはどのパソコンでも動きませんでした。
すみませんが、ご回答をお願いいたします。

Private Sub Worksheet_Change(ByVal Target As Range)

 Dim myRng As Range
 Dim myRow As Long
 Dim myCol As Integer

 Set myRng=Range(&quot;F12:G30000&quot;)
 myRow=Target.Row
 myCol=Target.Column

 Application.EnableEvents=False
 Application.ScreenUpdating=False

 If Range(&quot;D7&quot;).Value=&quot;&quot;And Range(&quot;D8&quot;).Value=&quot;&quot;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:=&quot;=&quot; &amp; Range(&quot;D7&quot;).Value
 End With
 Range(&quot;D8&quot;).Value=&quot;&quot;
 End If
 End If
 Application.EnableEvents=True
 Application.ScreenUpdating=True
 End Sub 


 

--
== 掲示板ＵＲＬ： http://pasokoma.jp/bbs ==
   配信の停止： http://pasokoma.jp/taikai
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===