Excel VBA質問箱 IV

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

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


15 / 13315 ツリー ←次へ | 前へ→

【80887】autofilter エラー 初心者 19/6/7(金) 7:27 質問[未読]
【80888】Re:autofilter エラー Jaka 19/6/7(金) 16:19 発言[未読]
【80889】Re:autofilter エラー 初心者 19/6/7(金) 17:47 発言[未読]

【80887】autofilter エラー
質問  初心者  - 19/6/7(金) 7:27 -

引用なし
パスワード
   Private Sub ComboBox1_Change()
  
  Dim CbB1 As String
  Dim nodeID As Integer
  Dim x As Long
  
  CbB1 = ComboBox1.Value
  
  With Worksheets("list")
  For x = 2 To .Range("b65536").End(xlUp).Row
  If .Cells(x, 2).Value = CbB1 Then
  nodeID = .Cells(x, 2).Offset(, -1).Value
  Exit For
  End If
  Next
  End With
  
  Worksheets("sheet1").Activate
  
  If ActiveSheet.FilterMode Then
  ActiveSheet.ShowAllData
  End If
  
  >Range("A1").AutoFilter field:=3, Criteria1:=nodeID

ここでrangeクラスのautofilterメゾッドが失敗しましたと出ます
しかしautofilter絞り込みはnodeIDの値で絞り込めてます
なのにエラーが出る原因がわかりません
わかる方いたらお願いします!

  Range("A1").CurrentRegion.Copy Sheets("list").Range("e1")
  Range("a1").AutoFilter


End Sub

【80888】Re:autofilter エラー
発言  Jaka  - 19/6/7(金) 16:19 -

引用なし
パスワード
   数式多くないですか?
ShowAllData を通った後にエラーになるのでしょうか?
 
>  If ActiveSheet.FilterMode Then
    msgbox "ShowAllData"       ←ここに入れて確認
>  ActiveSheet.ShowAllData
>  End If
>  
>  >Range("A1").AutoFilter field:=3, Criteria1:=nodeID

どっちにしろ、このIf分の前に再計算を手動にしてみてはどうでしょうか?
全て終わったら、元に戻すことを忘れずに・・・。

おまけ
フィルターモード解除
Sheets("Sheet1").AutoFilterMode = False

【80889】Re:autofilter エラー
発言  初心者  - 19/6/7(金) 17:47 -

引用なし
パスワード
   ▼Jaka さん:
>数式多くないですか?
>ShowAllData を通った後にエラーになるのでしょうか?
> 
>>  If ActiveSheet.FilterMode Then
>    msgbox "ShowAllData"       ←ここに入れて確認
>>  ActiveSheet.ShowAllData
>>  End If
>>  
>>  >Range("A1").AutoFilter field:=3, Criteria1:=nodeID
>
>どっちにしろ、このIf分の前に再計算を手動にしてみてはどうでしょうか?
>全て終わったら、元に戻すことを忘れずに・・・。
>
>おまけ
>フィルターモード解除
>Sheets("Sheet1").AutoFilterMode = False

showalldataを通ってautofilterはnodeIDの値で掛かっているのに
エラーが出てしまいます
アドバイスありがとうございます
再計算を手動にしてみる件 検討中です

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