私は VBA にかなり慣れていないので、他の投稿を見てもこの質問に対する答えがわかりません。
VBA を使用して、セル A18:A153 のテキストが値「非表示」に等しい行をすべて非表示にし、これらのセルが値「非表示」に等しい行を再表示したい。したがって、セル A22 = 「非表示」の場合、行 22 を非表示にする必要があります。また、セル A23 = "Unhide" の場合、行 23 の非表示を解除する必要があります。
このコードでセルを非表示にしようとしましたが、うまくいかなかったので、セルの非表示を解除しようとしませんでした:
With Worksheets("Report")
For i = 18 To 153
If Cells(i, 1).Value <> "" And Cells(i, 1).Value = "Hide"
Then Cells(i, 1).EntireRow.Hidden = True
End If
Next i
End With
前もって感謝します!
あなたは使用していないwith
とif-then
、正しく、次のコードは動作するはずです:
With Worksheets("Report")
For i = 18 To 153
If .Cells(i, 1).Value <> "" And .Cells(i, 1).Value = "Hide" Then
.Cells(i, 1).EntireRow.Hidden = True
End If
Next i
End With
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加