ExcelのVBAで法人格を取りたい
エクセルのシート1の1行に1企業の情報があります。
セルを一つ選択し、クリックボタンを押すと、UserForm4がたちあがるコードを入れています。
------------------------------------
gyo = ActiveCell.Row
retu = ActiveCell.Column
Cells(gyo, retu).Select
UserForm4.TextBox4.Text = Cells(gyo, "w") '法人名
UserForm4.TextBox5.Text = Replace(Cells(gyo, "r").Value, "-", "") '郵便番号
UserForm4.TextBox6.Text = Cells(gyo, "s") '企業住所
UserForm4.TextBox7.Text = Replace(Cells(gyo, "aa").Value, "-", "") '電話番号
UserForm4.TextBox8.Text = Replace(Cells(gyo, "z").Value, " ", "") '氏名
UserForm4.TextBox9.Text = Replace(Cells(gyo, "y").Value, " ", "") '氏名カナ
UserForm4.Show
End Sub
------------------------------------
UserForm4.TextBox4に法人名を表示し、法人名は「株式会社」や「有限会社」のように法人格がついていますので、
法人格を取りたいと思い下記コードを作ってみました。
------------------------------------
With Selection
Selection.Replase what:="株式会社", Replasement:=""
Selection.Replase what:="有限会社", Replasement:=""
Selection.Replase what:="合資会社", Replasement:=""
Selection.Replase what:="合名会社", Replasement:=""
Selection.Replase what:="社団法人", Replasement:=""
Selection.Replase what:="財団法人", Replasement:=""
End With
------------------------------------
これをどのように上のコードに入れたらいいのでしょうか・・・・
どなたか教えていただけますでしょうか。
宜しくお願い致します。
お礼
教えてくれてありがとうございました。