![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.1ベストアンサー
- 回答日時:
If ActiveSheet.Range("a10").EntireRow.Hidden = True Then
こうではないでしょうか?
No.2
- 回答日時:
こんばんは。
私には、質問が良く理解できません。
オートフィルタでフィルタリング後に、表示されない行にある(コマンド)ボタンを消すということは、どういうことなのか理解できません。
おそらく、
ボタンのオブジェクトの書式が、
セルにあわせて移動やサイズ変更をする
にチェックが入っていることだと思います。
しかし、こういう状態がデフォルトで成立するとしたら、Excel 2002 でしょうか?
通常は、ありえませんね。通常の設定では、ボタンは、行と連動していませんから、非表示ということはありません。
行が非表示だから、その上で、ボタンが隠れた状態のものを、以下のようにボタンを削除することでしょうか?
Sub Test1()
'フォームのボタン
With ActiveSheet
If .AutoFilterMode Then
If .Buttons(1).TopLeftCell.Rows.Hidden Then
.Buttons(1).Delete
End If
End If
End With
End Sub
Sub Test2()
'コントロールツールのボタン
With ActiveSheet
If .AutoFilterMode Then
If .CommandButton1.TopLeftCell.Rows.Hidden Then
.CommandButton1.Cut
End If
End If
End With
End Sub
なお、ボタンはワークシート上に、それぞれ1個の場合です。2個目は、名称やインデックスが変わりますから、このままのマクロでは使えません。
回答ありがとうございます。
No1さんの回答で解決しました。質問の仕方が悪く申し訳ありません。
エクセル2000で作成中です。意図は行ごとに行に対するボタンがあるので行が表示されない場合はボタンが必要なくなります。消すというのはDELETEではなくHIDDENです。
わざわざプログラムを書いていただきありがとうございました。
又機会がありましたらよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/06/19 10:08
- Visual Basic(VBA) ExcelのVBAコードについて教えて下さい。 2 2022/06/25 14:04
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/08 15:45
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 13:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
PPTのコマンドボタンがクリック...
-
ShowAllDataのエラーを回避したい
-
エクセルVBA
-
Accessユーザーフォームでコマ...
-
Accessのコマンドボタンの立体...
-
スクロールしてもボタンを常に...
-
EXCELのシート名を指定してその...
-
チェックボックスで「いずれか1...
-
押したボタンの位置取得(共通の...
-
Excel VBA --- コマンドボタ...
-
コマンドボタンで「終了ボタン...
-
Wordでドラッグした文字列を括...
-
エクセルVBAでOptionButtonのオ...
-
コマンドボタンがあるかどうか...
-
[ExcelVBA] コマンドボタンを押...
-
ROCKET MOUSEの使い方
-
Excel VBA 複数のコマンドボ...
-
実行中の作業を中止させるコマンド
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
押したボタンの位置取得(共通の...
-
スクロールしてもボタンを常に...
-
エクセルVBAでOptionButtonのオ...
-
ShowAllDataのエラーを回避したい
-
PPTのコマンドボタンがクリック...
-
エクセルVBA
-
Excel VBA --- コマンドボタ...
-
エクセルVBA シート上にあるコ...
-
Accessのコマンドボタンの立体...
-
コマンドボタンで「終了ボタン...
-
エクセルのコマンドボタンの位...
-
コマンドボタンがあるかどうか...
-
チェックボックスで「いずれか1...
-
EXCELでNo.を変えて印刷したい
-
Wordでドラッグした文字列を括...
-
MS_AccessからPDFファイルを開...
-
Accessユーザーフォームでコマ...
-
[ExcelVBA] コマンドボタンを押...
おすすめ情報