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

質問

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

回答No.2

hallo-2007 · ベストアンサー

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列で、＊　だったら
隣に配達と入れて　入力規則で　配達　のみしか入力できない（他へは変更できない）
それ以外であれば、隣の列を空白にして、入力規則を解除
といった感じです。

お礼

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

回答No.1

gyouda1114

これでいかがですか
C1　=IF(B1="※","配達","")
C2以下にオートフィル

補足

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