"立替"と入力すると自動で中央揃えになる方法を教えて下さい。

質問

皆さん、教えて下さい。
I4からI300までのセルの範囲で、
"立替"と入力した時だけ中央揃えになる方法を教えて頂けないでしょうか。
（他に数値も入力しますが、立替と入力された時だけです）
タブやエンターでセルを動かしたときには
中央揃えになっているようにしたいです。

回答No.1

merlionXX

以下の手順でやってみてください。

１．設定したいシートのタブ（下のSheet1とか書いてある部分）を右クリックし、「コードの表示」を選択。
２．出てきたVisualBasicEditor（白い部分）に下記のコードをコピペ。

'*****ここから下をコピペ*****

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("I4:I300")) Is Nothing Then Exit Sub

For Each r In Target
If r.Value = "立替" Then
r.HorizontalAlignment = xlCenter
Else
r.HorizontalAlignment = xlGeneral
End If
Next

End Sub

'*****ここより上までをコピペ*****

３．AltキーとF11キーを同時に押してワークシートへもどります。

これでそうなると思います。