Excel VBA質問箱 IV

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

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


72 / 75309 ←次へ | 前へ→

【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

48 hits

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

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