エクセルであるB列に”※”が入力されると、C列に”配達”という文字が入るようにしたい。

エクセルであるB列に”※”が入力されると、C列に”配達”という文字が入るようにしたい。但し、B列がなにも入力されなければC列は入力可能なセルにしておきたい。
A：B：C
-----------------------
：※：配達
------------------------
： ：ああああ
------------------------
： ：いうえお

No.2 ベストアンサー 回答者： hallo-2007 回答日時： 2008/11/29 17:37

VBA使用しますが、よろしいでしょうか

シートの名前のタブを右クリックして、コードの表示をクリック、VBエディターが開きますので
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Value = "＊" Then
Target.Offset(0, 1).Value = "配達"
Target.Offset(0, 1).Validation.Add Type:=xlValidateList, Formula1:="配達"
Else
Target.Offset(0, 1).Value = ""
Target.Offset(0, 1).Validation.Delete
End If
End If
End Sub
をコピィして閉じます。
概略は、変更されたセルがB列で、＊　だったら
隣に配達と入れて　入力規則で　配達　のみしか入力できない（他へは変更できない）
それ以外であれば、隣の列を空白にして、入力規則を解除
といった感じです。

この回答へのお礼

回答ありがとうございました。
大変勉強になりましたが、他の方法で解決させました。

お礼日時：2008/11/29 19:06

No.1 回答者： gyouda1114 回答日時： 2008/11/29 17:27

これでいかがですか

C1　=IF(B1="※","配達","")
C2以下にオートフィル

この回答への補足

C列は入力可能な状態であることが条件ですので、Ｃ列に数式を入れないことを条件にしています。
回答とは別途に他の方法で表自体は完成させましたのご回答ありがとうございました。

補足日時：2008/11/29 18:57