Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2630 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【66834】AdvancedFilterについて yasu 10/10/9(土) 22:22 質問[未読]
【66835】Re:AdvancedFilterについて kanabun 10/10/10(日) 0:47 発言[未読]
【66836】Re:AdvancedFilterについて yasu 10/10/10(日) 9:25 質問[未読]
【66837】Re:AdvancedFilterについて kanabun 10/10/10(日) 10:11 発言[未読]
【66838】Re:AdvancedFilterについて yasu 10/10/10(日) 11:27 質問[未読]
【66839】Re:AdvancedFilterについて kanabun 10/10/10(日) 11:48 発言[未読]
【66840】Re:AdvancedFilterについて yasu 10/10/10(日) 12:35 お礼[未読]
【66834】AdvancedFilterについて
質問  yasu  - 10/10/9(土) 22:22 -
引用なし
パスワード
   AdvancedFilterを次のようにして実行しましたがコピー先をB3でしているのですが
結果がC3の位置から貼り付けられてしまいます　原因を調べているのですがさっぱり検討がつきません　調べかたを教えていただきたいのでお願いいたします
　　CopyToRange:=sht1.Range("B3"),ーーC3からになってしまいます


' sht1 = Workbooks(Ex_Name).Worksheets(ShtName1)
' Ex_Name="NEW製造記録.xls"
' sht1 ShtName1 =　"検索結果"
' sht2 ShtName2 =　"検索"
' sht3 ShtName3 =　 "29-2"
'-------------------------------------------------------------------------
　　sht1.Activate
　　sht1.Cells.Clear
　　sht3.Range("B3").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
　　CriteriaRange:=sht2.Range("B3:L4"), _
　　CopyToRange:=sht1.Range("B3"), Unique:=False
【66835】Re:AdvancedFilterについて
発言  kanabun  - 10/10/10(日) 0:47 -
引用なし
パスワード
   ▼yasu さん：
>コピー先をB3でしているのですが
>結果がC3の位置から貼り付けられてしまいます

MsgBox sht3.Range("B3").CurrentRegion.Address

とすると、どのような範囲になってますか？
【66836】Re:AdvancedFilterについて
質問  yasu  - 10/10/10(日) 9:25 -
引用なし
パスワード
   お世話になります
　$A$3:$M$139
となっています
' sht3 ShtName3 =　 "29-2"
のA列が空白になっていません
範囲指定のとき　列も空白でないといけないのでしょうか
よろしくお願いいたします


▼kanabun さん：
>▼yasu さん：
>>コピー先をB3でしているのですが
>>結果がC3の位置から貼り付けられてしまいます
>
> MsgBox sht3.Range("B3").CurrentRegion.Address
>
>とすると、どのような範囲になってますか？
【66837】Re:AdvancedFilterについて
発言  kanabun  - 10/10/10(日) 10:11 -
引用なし
パスワード
   ▼yasu さん：

> sht3　のA列が空白になっていません

では、フィルタ範囲↓
>　 sht3.Range("B3").CurrentRegion
から
A列を除外してください。

　Dim r As Range

　Set r = sht3.Range("B3").CurrentRegion
　Set r = Intersect(r, r.Offset(,1))
　r.AdvancdedFilter xlFilterCopy, _
　　 CriteriaRange:=sht2.Range("B3:L4"), _
　　 CopyToRange:=sht1.Range("B3")
【66838】Re:AdvancedFilterについて
質問  yasu  - 10/10/10(日) 11:27 -
引用なし
パスワード
   お世話様です
以下を実行しましたら
オブジェクトはメソッド、プロパテイをサポートしていません
のエラーメッセイジがでました


▼kanabun さん：
>▼yasu さん：
>
>> sht3　のA列が空白になっていません
>
>では、フィルタ範囲↓
>>　 sht3.Range("B3").CurrentRegion
>から
>A列を除外してください。
>
>　Dim r As Range
>
>　Set r = sht3.Range("B3").CurrentRegion
>　Set r = Intersect(r, r.Offset(,1))
>　r.AdvancdedFilter xlFilterCopy, _
>　　 CriteriaRange:=sht2.Range("B3:L4"), _
>　　 CopyToRange:=sht1.Range("B3")
【66839】Re:AdvancedFilterについて
発言  kanabun  - 10/10/10(日) 11:48 -
引用なし
パスワード
   ▼yasu さん：

>以下を実行しましたら
>オブジェクトはメソッド、プロパテイをサポートしていません
>のエラーメッセイジがでました

すみません。直打ちのため、タイプミスです。

　　　AdvancedFilter
　　　 ↑
>>　r.AdvancdedFilter xlFilterCopy, _
>>　　 CriteriaRange:=sht2.Range("B3:L4"), _
>>　　 CopyToRange:=sht1.Range("B3")
【66840】Re:AdvancedFilterについて
お礼  yasu  - 10/10/10(日) 12:35 -
引用なし
パスワード
   有難うございました
見事解決しました
また、何かありましたらよろしくお願いいたします

▼kanabun さん：
>▼yasu さん：
>
>>以下を実行しましたら
>>オブジェクトはメソッド、プロパテイをサポートしていません
>>のエラーメッセイジがでました
>
>すみません。直打ちのため、タイプミスです。
>
>　　　AdvancedFilter
>　　　 ↑
>>>　r.AdvancdedFilter xlFilterCopy, _
>>>　　 CriteriaRange:=sht2.Range("B3:L4"), _
>>>　　 CopyToRange:=sht1.Range("B3")
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2630 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free