表による体積の計算

　　　Ａ　　　　　　　 Ｂ　　 Ｃ　 　Ｄ　　 Ｅ　　 Ｆ　 　Ｇ　　Ｈ
１　　　　　　　　　 延長　縦１　縦２　縦３　横１　横２　横３
２　四角　　　　　　 ３　　３　　　　　　　　１
３　台形　　　　　　 ４　　４　　　　　　　　２　　３
４　四角－四角　　５　　５　　　２　　　　４　　１
このようなデ－タシ－トを作成することにあたり

Ａ列に四角と入力した場合Ｃ1、Ｆ1のみにセルの移動の仕方を教えてください。
尚、台形及び四角－四角（くりぬき）同様にお願いします。
エクセル2003です。

No.1 回答者： mitarashi 回答日時： 2008/07/03 22:53

タイトルを工夫されないと、素通りしてしまう回答者さんが多いかも。

色々方法は考えられますが、マクロで、非保護セルしか選択できないようにする方法で実現してみました。シートモジュールに記述してください。
なお、Ａ列及び、他のエリアで操作したいセルはあらかじめロックを外しておかないと、操作不能となります。なお、コードの解説はいたしかねますのであしからず。（当方XL2000）
（注）当該シートがactiveになったとき、セルの移動に制限をかけていますので、下記コードを記述後、一旦他のシートを選択して、戻らないと、制限が有効にならないかもしれません。
Private Sub Worksheet_Activate()
Me.EnableSelection = xlUnlockedCells
End Sub

Private Sub Worksheet_Change(ByVal target As Range)
If target.Cells.Count > 1 Then Exit Sub
If Intersect(target, ActiveSheet.Columns("a:a")) Is Nothing Then Exit Sub
Select Case target.Text
Case "四角"
Call lockCell(target, 1, 2, 4)
Case "台形"
Call lockCell(target, 1, 2, 4, 5)
Case "四角－四角"
Call lockCell(target, 1, 2, 3, 4, 5)
End Select
End Sub

Private Sub lockCell(ParamArray args() As Variant)
Dim target As Range
Dim i As Long

Me.Unprotect
Set target = args(0)
target.Offset(0, 1).Resize(1, 7).Locked = True
For i = 1 To UBound(args)
target.Offset(0, args(i)).Locked = False
Next i
Me.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
＜念のため、シートモジュールへの貼り付け方＞
ALT+F11でVBE画面に切り替え、たいてい左上にあるプロジェクト-VBA Projectというフレーム？で、Sheet1（例えば）をWクリックし、右側に表示されるメインの広いフレームに貼り付けて下さい。

この回答へのお礼

タイトルの工夫に関してご指摘ありがとうございました。
今後、工夫します。

上記のマクロを試してみます。

ありがとうございました。

お礼日時：2008/07/04 09:00