Excelマクロ文字列に基づいて列を非表示

Question

Excel 2016で、異なるセルに含まれる文字列に基づいて列を自動的に非表示にするマクロを作成しようとしています。現在、範囲R1：GJU1は、XにIF式を取り込む式です。すべてのヘルプは高く評価され

Run-time error '13': 

Type mismatch 

：

Sub Hide_Columns_Containing_Value() 

    Dim c As Range 

    For Each c In Range("R1:GJU1").Cells 
     If c.Value = "X" Then 
      c.EntireColumn.Hidden = False 
     End If 
    Next c 

End Sub 

が、私はこのエラーを取得する：

これは私のコードです！

Answer 1

私はそれをテストすることはできませんので、自分の携帯電話からこれを入力するが、これをやっている：

Columns(c.column).EntireColumn.Hidden = True 

は動作します。基本的には、あなたがしようとしているのはちょうどCell.Hideと言うだけで動作しません。 EntireColumn.Hiddenは、列を参照するときに機能します。だから、このcells' columnのcolumnを非表示にする必要があります。

私はまた、あなたが、意味Falseにそれを設定している再表示気づきました。私はあなたが実際にそれを見た目にしようとしていない限り、間違って行われたと推測しています。

完全なコードは次のようになります。

Sub Hide_Columns_Containing_Value() 

Dim c As Range 

For Each c In Range("R1:GJU1").Cells 
    If c.Value = "X" Then 
     Columns(c.column).EntireColumn.Hidden = True 
    End If 
Next c 

End Sub 

は、それが動作するかどうか、私に教えてください！