のExcel VBA - その値の色行

Question

このマクロのループ検索は「 W 」列の値NULLを見つけ、それが色でNULLで見つかった行を描くことになっています。しかし、同じ列（私がそこに存在することが分かっている）の数値を検索しようとすると値が見つからないようです。どんな助けもありがとう。

Sub e() 

MsgBox "some question?", , "Marvin The Paranoid Android" 

Dim fNameAndPath As Variant, wb As Workbook 
Dim LastRow As Long, i As Long, sht As Worksheet 
Dim myValue As Variant 

fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLSX), *.XLSX", Title:="Èçáåðåòå ôàéë ñ èìå /Ðåâîëâèíãè/") 
If fNameAndPath = False Then Exit Sub 

Set wb = Workbooks.Open(fNameAndPath) 
Set sht = wb.Worksheets("Sheet1") 
X = wb.Name 

Windows(X).Activate 

'Macro optimization 
Application.ScreenUpdating = False 
Application.EnableEvents = False 
Application.DisplayAlerts = False 
Application.Calculation = xlCalculationManual 
'000000000 
ActiveWindow.Zoom = 85 
Rows("1:1").Select 
With Selection 
    .HorizontalAlignment = xlCenter 
    .VerticalAlignment = xlCenter 
    .WrapText = True 
    .Orientation = 0 
    .AddIndent = False 
    .IndentLevel = 0 
    .ShrinkToFit = False 
    .ReadingOrder = xlContext 
    .MergeCells = False 
End With 
Range("A1:W1").Select 
With Selection.Interior 
    .Pattern = xlSolid 
    .PatternColorIndex = xlAutomatic 
    .color = 65535 
    .TintAndShade = 0 
    .PatternTintAndShade = 0 
End With 
Range("A:E,L:N").EntireColumn.AutoFit 
Columns("F:F").ColumnWidth = 6.14 
Columns("G:G").ColumnWidth = 6.43 
Columns("H:K").ColumnWidth = 5.43 
Range("O:R,T:V").ColumnWidth = 4.71 
Columns("S:S").ColumnWidth = 14.71 
Rows("1:1").RowHeight = 54.54 
Range("A1").Select 

myValue = InputBox("Give me some input") 

LastRow = sht.Cells(sht.Rows.Count, "W").End(xlUp).row 

For r = 1 To LastRow 
    If Cells(r, Columns("W").Column).Value = myValue Then 
     Rows(r).Select 
     With Selection.Interior 
      .Pattern = xlSolid 
      .PatternColorIndex = xlAutomatic 
      .color = 65535 
      .TintAndShade = 0 
      .PatternTintAndShade = 0 
     End With 
    End If 
Next r 

Range("A1").Select 
Application.Calculation = xlCalculationAutomatic 

wb.Close SaveChanges:=True 'or false 

'Reverse macro optimization 
Application.EnableEvents = True 
Application.ScreenUpdating = True 
Application.DisplayAlerts = True 

MsgBox "Îáðàáîòèõ ôàéë /Ðåâîëâèíãè/...", , "Marvin The Paranoid Android" 

End Sub 

Answer 1

Autofilter（）メソッドは、両方の番号として「23」を検出することができますし、テキスト：

With sht 
    With .Range("W1", .Cells(.Rows.Count, "W").End(xlUp)) '<--| consider column "W" values down to its last non empty row 
     .AutoFilter field:=1, Criteria1:=myValue '<--| filter column "W" on 'myValue' 
     If Application.WorksheetFunction.Subtotal(103, .Cells) > 1 Then '<--| if any values match... 
      With .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Interior '<--|... consider only filtered values, and apply formatting 
       .Pattern = xlSolid 
       .PatternColorIndex = xlAutomatic 
       .Color = 65535 
       .TintAndShade = 0 
       .PatternTintAndShade = 0 
      End With 
     End If 
    End With 
    .ShowAllData '<--| show all rows back... 
End With 

Answer 2

あなたが言う： -

を、私は同じ列の数を検索しようとした場合（私はそこに存在することがわかっていることを）値に

を見つけるように見えるしません。

あなたのコードから以下の行を参照して、trueを返しておらず、Ifステートメント内でコードを実行しているとします。要するに

If Cells(r, Columns("W").Column).Value = myValue Then 

その一致が見つからない場合は、そこ試合はありませんが、時々見に難しいことができます。

• セルが12.12121212が含まれていますが、（あなたはそれが一致するだろうと思うよう）あなたが12.12を検索する場合、12.12としてそれを表示するようにフォーマットされている場合、それは - ：あなたはそれがあるべきだと考えたときに一致していないの

  例一致しません。あなたは（末尾にスペースなし）12.12を検索する場合、細胞は、'12.12 '（末尾のスペース）、スペースを先頭または末尾が含まれている場合

• それが一致しません。

あなたはあなたの質問にマッチすると思う内容や考えられる内容を見ることができますが、上記はあなたのコンテンツから回答を出すために必要な情報です。

コメントに基づいて、以下にあなたのコードを変更してみてください、私はその失敗理由を理解するために、いくつかのデバッグ行を追加しました： -

'If the value is null it will skip trying to check it, this mean no type mismatch error 
If Not IsNull(Cells(r, Columns("W").Column).Value) then 

    'This prints the value in the cell, the searched value, and if its seen as a match 
    Debug.Print "'" & Cells(r, Columns("W").Column).Value & "' ,'" & myValue & "', " & (Cells(r, Columns("W").Column).Value = myValue) 

    'Compares them both as Long data types 
    If CLng(Cells(r, Columns("W").Column).Value) = CLng(myValue) Then 
     'Your code 
    End If 

End If 

Answer 3

は、以下のコードの一部を使用してForループを交換してみてください。 あなたはDecimal値を使用して、または整数より大きい値している場合は、CInt関数から自分のニーズに変更を加える：Rangeオブジェクトの

For r = 1 To LastRow 
    If sht.Cells(r, "W").Value = CInt(myValue) Then 
     sht.Rows(r).Select 
     With Selection.Interior 
      .Pattern = xlSolid 
      .PatternColorIndex = xlAutomatic 
      .color = 65535 
      .TintAndShade = 0 
      .PatternTintAndShade = 0 
     End With 
    End If 
Next r 

Answer 4

は、これであなたのループを交換してみてください：

Dim tempFind 
Set tempFind = ActiveSheet.Columns("W").Find(What:=myValue, LookIn:=xlValues, LookAt:=xlWhole, _ 
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) 
If Not tempFind Is Nothing Then 
    With Range(tempFind.Address).Interior 
     .Pattern = xlSolid 
     .PatternColorIndex = xlAutomatic 
     .color = 65535 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 
Else 
    MsgBox "Not Found!" 
End If