Excel VBA質問箱 IV

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

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


9006 / 13644 ツリー ←次へ | 前へ→

【29753】Autofilterの使い方 takatuki 05/10/13(木) 6:37 質問[未読]
【29754】Re:Autofilterの使い方 YN62 05/10/13(木) 7:12 発言[未読]
【29755】Re:Autofilterの使い方 かみちゃん 05/10/13(木) 7:15 発言[未読]
【29866】Re:Autofilterの使い方 takatuki 05/10/15(土) 8:36 お礼[未読]
【29800】Re:Autofilterの使い方 YN62 05/10/13(木) 20:54 回答[未読]
【29867】Re:Autofilterの使い方 takatuki 05/10/15(土) 8:39 お礼[未読]

【29753】Autofilterの使い方
質問  takatuki  - 05/10/13(木) 6:37 -

引用なし
パスワード
   EXCELの表から1列目と3列目から2つの条件で検索したいのですが
実行時エラー’1004’ Rangeメソッドは失敗しました。Globalオブジェクト
と表示されます。これの改善策をお教えください。
Private Sub sitenkensaku_click()

With Range("sheet1")
.AutoFilter field:=1, Criteria1:="7029"
.AutoFilter field:=3, Criteria2:="イワテ"
End With

End Sub

【29754】Re:Autofilterの使い方
発言  YN62  - 05/10/13(木) 7:12 -

引用なし
パスワード
   ▼takatuki さん:
おはようございます。
with range("A1:C1")とすれば、いけるのでは。

>EXCELの表から1列目と3列目から2つの条件で検索したいのですが
>実行時エラー’1004’ Rangeメソッドは失敗しました。Globalオブジェクト
>と表示されます。これの改善策をお教えください。
>Private Sub sitenkensaku_click()
>
>With Range("sheet1")
> .AutoFilter field:=1, Criteria1:="7029"
> .AutoFilter field:=3, Criteria2:="イワテ"
> End With
>
>End Sub

【29755】Re:Autofilterの使い方
発言  かみちゃん  - 05/10/13(木) 7:15 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>EXCELの表から1列目と3列目から2つの条件で検索したい

まず、その操作を「マクロの記録」で記録してみましたか?
その記録したコードと比較してみてください。
おかしいところがわかると思います。

>With Range("sheet1")

「sheet1」というセル範囲が指定してあるのでしょうか?
「Sheet1」というシートを示していることにはなっていません。

> .AutoFilter field:=1, Criteria1:="7029"
> .AutoFilter field:=3, Criteria2:="イワテ"

Criteria2:= の使い方が変です。

「マクロの記録」で記録できますから、答えは、今の時点で書きません。
がんばってみてください。

【29800】Re:Autofilterの使い方
回答  YN62  - 05/10/13(木) 20:54 -

引用なし
パスワード
   ▼takatuki さん:

間違っていました。失礼しました。

A1〜C1・・・に項目があるとしますと・・・

Sub Auto_Fil()
With Range("a1")
 .AutoFilter
 .AutoFilter Field:=1, Criteria1:="7029"
 .AutoFilter Field:=3, Criteria1:="イワテ"
End With
End Sub

これで、一度試してみてください。

>EXCELの表から1列目と3列目から2つの条件で検索したいのですが
>実行時エラー’1004’ Rangeメソッドは失敗しました。Globalオブジェクト
>と表示されます。これの改善策をお教えください。
>Private Sub sitenkensaku_click()
>
>With Range("sheet1")
> .AutoFilter field:=1, Criteria1:="7029"
> .AutoFilter field:=3, Criteria2:="イワテ"
> End With
>
>End Sub

【29866】Re:Autofilterの使い方
お礼  takatuki  - 05/10/15(土) 8:36 -

引用なし
パスワード
   ▼かみちゃん さん:本当にいいアドバイスをいただきました。
作成しているプログラム内容がはっきりでますので、参考になりました。
criteria 2の使い方がおかしいといのは理解できませんでした。お教えいただけませんでしょうか?


>こんにちは。かみちゃん です。
>
>>EXCELの表から1列目と3列目から2つの条件で検索したい
>
>まず、その操作を「マクロの記録」で記録してみましたか?
>その記録したコードと比較してみてください。
>おかしいところがわかると思います。
>
>>With Range("sheet1")
>
>「sheet1」というセル範囲が指定してあるのでしょうか?
>「Sheet1」というシートを示していることにはなっていません。
>
>> .AutoFilter field:=1, Criteria1:="7029"
>> .AutoFilter field:=3, Criteria2:="イワテ"
>
>Criteria2:= の使い方が変です。
>
>「マクロの記録」で記録できますから、答えは、今の時点で書きません。
>がんばってみてください。

【29867】Re:Autofilterの使い方
お礼  takatuki  - 05/10/15(土) 8:39 -

引用なし
パスワード
   ▼YN62 さん:なんどもお知らせいただき有難うございます。さっそくためさせていただきます。
>▼takatuki さん:
>
>間違っていました。失礼しました。
>
>A1〜C1・・・に項目があるとしますと・・・
>
>Sub Auto_Fil()
>With Range("a1")
> .AutoFilter
> .AutoFilter Field:=1, Criteria1:="7029"
> .AutoFilter Field:=3, Criteria1:="イワテ"
>End With
>End Sub
>
>これで、一度試してみてください。
>
>>EXCELの表から1列目と3列目から2つの条件で検索したいのですが
>>実行時エラー’1004’ Rangeメソッドは失敗しました。Globalオブジェクト
>>と表示されます。これの改善策をお教えください。
>>Private Sub sitenkensaku_click()
>>
>>With Range("sheet1")
>> .AutoFilter field:=1, Criteria1:="7029"
>> .AutoFilter field:=3, Criteria2:="イワテ"
>> End With
>>
>>End Sub

9006 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free