特定のセルを選択すると入力が消えるセルを作りたい

エクセル上で以下のような表を作っています。

　　　　Ａ　Ｂ　Ｃ　Ｄ
項目１　×　×　×　×
項目２　×　×　×　×

この状態で例えば"項目１のＢ"をクリックすると
同項目の他の列の表示を消えるようにする方法はないでしょうか？

　　　　Ａ　Ｂ　Ｃ　Ｄ
項目１　　　×　　　　
項目２　×　×　×　×

何かよい方法がありましたらご教授ください。

No.1 ベストアンサー 回答者： S-Fuji 回答日時： 2006/04/14 17:06

どなたも書き込まないので。

VBAを使えば可能です。
ダブルクリックのイベントでVBAを走らせればOKでしょう。
表示を減すと言うより、文字の色を白にしてしまうやり方で
一寸、泥臭いかもしれませんが

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim k As Integer, c As Integer, i As Integer
k = ActiveCell.Row: c = ActiveCell.Column
For i = 2 To 5
Cells(k, i).Select
Selection.Font.ColorIndex = 2
Next i
Cells(k, c).Select
Selection.Font.ColorIndex = 0
End Sub
取りあえず、これをVBAに登録してみてください。
後は、ダブルクリックをすればOK
取りあえずセル範囲は、BからFまでです。

この回答へのお礼

出来ました！感謝です。
どうもありがとうございました。

お礼日時：2006/04/14 17:19