Excelについて

質問

教えて下さい
(1)A1のセル（株式会社）に、A２のセルデータ（株式会社）から「（株）」に置き換える関数の設定の仕方
そしてA3のセルにＡ２のセルデータのふりがなの設定の仕方

(2)ＩＦやＡＮＤを使用した際に「FALSE」の表示を何も表示しない関数の設定の仕方

知識不足でごめんなさい…教えて頂きたいです。

回答No.1

kigoshi · ベストアンサー

(1)
A1の式　　=IF(LEFT(B1,4)="株式会社","（株）"&RIGHT(B1,LEN(B1)-4),IF(RIGHT(B1,4)="株式会社",LEFT(B1,LEN(B1)-4)&"（株）",B1))
A3の式　　=PHONETIC(B1)

(2)

例
=IF(A3="東京","都内","")
=AND(B3<=250,C3<=20,"合格","")

回答No.5

tom04

こんばんは！
A2セルの数式はすでに回答が出ていますので、参考程度で、

=IF(COUNTIF(A1,"*"&"株式会社"&"*"),SUBSTITUTE(A1,"株式会社","株"),"")
としてみてはどうでしょうか？

尚、A3セルの「ふりがな」に関してですが、数式によって表示されているセルを参照し、
PHONETIC関数を使っても何も表示されないと思います。
（直接入力したセルを参照するのであれば大丈夫だと思います）

そこで一例ですが、VBAのコードを載せておきます。

画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてみてください。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'この行から
If Range("A2") = "" Then
Range("A3") = ""
Exit Sub
End If
Dim str As String
str = WorksheetFunction.Phonetic(Range("A1"))
str = StrConv(str, vbHiragana)
Range("A3") = WorksheetFunction.Substitute(str, "かぶしきかいしゃ", "かぶ")
End Sub 'この行まで

A2セルの数式はそのまま入れておいてA1セルのデータのみの入力をしてみてください。

参考になれば良いのですが・・・m(__)m

回答No.4

kagakusuki

御質問文の状況説明が解り難いのですが、お知りになりたいのは以下の様な事でしょうか？

(1)
A2セルに「株式会社○○」或いは「□□株式会社△△支店」等と入力されている場合、
A1セルに「(株)○○」或いは「□□(株)△△支店」という様に、
「株式会社」の部分を「(株)」に置換した文字列を表示させる方法

(2)
A2セルに何も入力されていない場合に、FALSEという表示が出ない様にする方法

　もし、そうだとすれば、置換を行う場合には、LEFT関数やRIGHT関数を組合せるよりも、SUBSTITUTE関数を使用する方が一般的です。

=IF(A2="","",SUBSTITUTE(A2,"株式会社","(株)"))

回答No.3

kigoshi

> ただどうしても、
> IFの時に当てはまらない場合何も表示したくないんですが、
> 「FALSE」と出てしまうんです...

No.1の（２）の様にしてもダメですか？

基本は「表示させない」のではなく、""を表示させる、というふうに考えてみてください。

回答No.2

kigoshi

失礼しました。
訂正します。

(1)
A1の式　　=IF(LEFT(A2,4)="株式会社","（株）"&RIGHT(A2,LEN(A2)-4),IF(RIGHT(A2,4)="株式会社",LEFT(A2,LEN(A2)-4)&"（株）",A2))
A3の式　　=PHONETIC(A2)

お礼

ありがとうございます☆
ただどうしても、
IFの時に当てはまらない場合何も表示したくないんですが、
「FALSE」と出てしまうんです...
パソコンによっては出てきてしまうんですかね…