今まで行と列を別々に非表示にしてきましたが、今回は行列まとめて非表示
にします。
最初にユーザーフォームにコマンドボタンを追加します。
追加のコマンドボタンには次のVBAコードを入力します。
Private Sub CommandButton6_Click()
Range(Cells(1, Int(TextBox1.Value)), Cells(1, Int(TextBox2.Value))).Select
Selection.EntireColumn.Hidden = True
Range(Cells(Int(TextBox4.Value), 1), Cells(Int(TextBox3.Value), 1)).Select
Selection.EntireRow.Hidden = True
End Sub
今までの行の非表示と列の非表示のVBAコードを一つにまとめただけです。
解除のコマンドボタンには次のVBAコードを入力します。
Private Sub CommandButton5_Click()
Range(Cells(1, Int(TextBox1.Value)), Cells(1, Int(TextBox2.Value))).Select
Selection.EntireColumn.Hidden = False
Range(Cells(Int(TextBox4.Value), 1), Cells(Int(TextBox3.Value), 1)).Select
Selection.EntireRow.Hidden = False
End Sub
こちらも同じくまとめただけ。
実行結果です。
非表示にした場合。
非表示を解除した場合。
月曜日は久しぶりに家族でボーリング。
ハイスコア202ですが、月曜日は最高で120。
やっぱスペアが取れないとスコアは伸びないなあ・・・
最近は年に何度かしかしないからうまくはなりません。
本日も最後までお読み頂きありがとうございます。
