ボタンを使用してテーブルのデータを含む最後の行を非表示にする - VBA Excel

Question

ボタンを使用してデータを含む最後の行を非表示/非表示にするコードを探しています。

私は一番上の行に質問があり、下の行に1〜10個の応答があると予想されるテーブルを作成しました。 テーブル内の10行すべてを非表示にし、回答者にボタンを使用して一度に1行ずつ表示するように求めます。

私は以下のコードを試しましたが、すべての行を再表示しますが、各クリックごとに1つの行を並べ替える必要があります。

Dim startRow As Long: startRow = 1 
Dim lastRow As Long: lastRow = ActiveSheet.UsedRange.Rows.Count 

ActiveSheet.Rows(startRow & ":" & lastRow).Hidden = False 

私は、事前に感謝の意を表するコミュニティからの良い反応を得ることを望むでしょう。

Answer 1

startRowからlastRowまでの範囲を使用することはできません。それは常にすべての行を開始行から最後の行まで表示します。

ボタンをクリックするたびに1つの行を表示する場合は、ボタン上でこのマクロを試してください。既に非表示の行は無視され、最初から非表示の行が表示されます。

Sub test() 
Dim startRow As Long: startRow = 1 
Dim lastRow As Long: lastRow = ActiveSheet.UsedRange.Rows.Count 

Do While startRow < lastRow + 1 
    If ActiveSheet.Rows(startRow & ":" & startRow).Hidden = True Then 
     ActiveSheet.Rows(startRow & ":" & startRow).Hidden = False 
     startRow = lastRow + 1 
    End If 
    startRow = startRow + 1 
Loop 


End Sub 

VBA以外のアプローチでは、行を表示したままにして、テキストを非表示にするために書式設定を使用することがあります。条件付き書式設定ルールでチェックされたセルにトリガ値を入力すると、その値が表示されるように書式設定されます。そうすれば、回答を再表示する順序を選択することができます。