特定の文字の条件をつける(画像有

A列のn行目のセルに特定の文字（例："サバ"）があった場合、Bnには=B2、Cnには＝C2の命令をして、
特定の文字（サバ）が無かった場合のBnやCnは自由に入力できるようにする方法をご教授願います。

※画像の（ｆｒｅｅ）は自由に入力できることを意味します

No.2 回答者： MarcoRossiItaly 回答日時： 2013/10/29 01:36

(1) 1 行目の上に 1 行を挿入、(2)新たな 1 行目の各列に適当な項目名を記入、(3) A1:C5 のセル範囲を選択してオ

ートフィルタを取り付け、(4) A 列のボタンのテキストフィルタ「指定の値を含む」にて「サバ」と入力、(5)絞り込み後に表示されている B2:B4 のセル範囲を選択して「0b3」とタイプし次いで Ctrl を押しながら Enter、(6)同じ範囲を選択した状態で置換のダイアログ（Ctrl+H）により「0」→「=」と「すべて置換」、(7)同じ範囲を選択した状態で右方向にドラッグし C2:C4 をオートフィル、(8) A 列での絞り込みを解除

No.1 回答者： tom04 回答日時： 2013/10/28 18:43

こんばんは！

関数でなく、VBAになってしまいますが・・・

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストして、A列にデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Range("A:A")) Is Nothing Or Target.Count <> 1 Then Exit Sub
With Target
If InStr(.Value, "サバ") > 0 Then
.Offset(, 1) = Range("B2")
.Offset(, 2) = Range("C2")
End If
End With
End Sub 'この行まで

※　こういう感じで良いのでしょうかね？m(_ _)m