[[20210401132125]] 『関数でアルファベットの連番3』(すたーち) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『関数でアルファベットの連番3』(すたーち)

いつもお世話になってます。

前回

 [[20201225132350]]
 [[20210125090225]]

で、
上のセルがアルファベット以外(数字や漢字)、又は空白なら、
Aを表示して、Aが入っていたら、Bを表示、Bが入っていたらCを
表示する関数を教えて頂いたのですが、

 =IF(ABS(CODE(INDIRECT("R[-1]C",FALSE)&"@")-77)<13,CHAR(CODE(INDIRECT("R[-1]C",FALSE))+1),"A")

教えて頂いた関数に、更に条件を追加したいです。

内容として、
上のセルがアルファベット以外(数字や漢字)、又は空白であり、
右隣のセルが、0や空白以外に何かしら入力されているなら、
Aを表示して、Aが入っていたら、且つ、右隣のセルに入力があればBを表示、
Bが入っていたらCを表示する関数を教えて頂きたいです。

 A B C D

2  
3  A 青 ←B3に関数で、上が空白であり右隣り(C3)に入力があるので     
4  B     B3にAを表示   

 A B C D

2  55
3  A 青   ←B3に関数で、上が数字であり右隣り(C3)に入力が     
4  B      あるので、B3にAを表示

  A B C D
1
2   A  赤 
3   B 青   ←B3に関数で、上がAで右隣り(C3)に入力あるので、     
4   C         B3にBを表示
5

みたいな感じで、
 ・上のセルがアルファベット以外や空白であり、右隣りに入力あるならA
 ・上のセルがアルファベット以外や空白であり、右隣り入力無いなら空白
 ・上のセルにAが入っており、右隣りに入力あるあらB
 ・上のセルにBが入っており、右隣りに入力無いなら、空白
です。
宜しくお願い致します。

< 使用 Excel:Excel2016、使用 OS:Windows10 >


前回の流れはちょっとわからないので単純にIF関数を追記しただけですが

=IF(OR(INDIRECT("RC[1]",FALSE)="",INDIRECT("RC[1]",FALSE)=0),"",IF(ABS(CODE(INDIRECT("R[-1]C",FALSE)&"@")-77)<13,CHAR(CODE(INDIRECT("R[-1]C",FALSE))+1),"A"))
(田中) 2021/04/01(木) 14:37


田中さん

コメントありがとうございます。
お教え頂いた関数で、上手く動作しましたが、
私の条件が間違ってました。すみません。。。
上のセルが空白であり、右隣りに入力あるなら空白でした。

 ・上のセルがアルファベット以外の文字や数値であり、右隣りに入力あるなら、A
 ・上のセルがアルファベット以外の文字や数値であり、右隣りに入力無いなら、空白
 ・上のセルにAが入っており、右隣りに入力あるあらB
 ・上のセルにBが入っており、右隣りに入力無いなら、空白
 ・上のセルが空白であり、右隣りに入力あるなら、空白
 ・上のセルが空白であり、右隣りに入力無いなら、空白

でした。
宜しくお願いします。
(すたーち) 2021/04/01(木) 14:51


上か右のセルどちらかが空白なら空白になるようにしてます
右のセルが0の場合の記述を消しました

=IF(OR(INDIRECT("RC[1]",FALSE)="",INDIRECT("R[-1]C",FALSE)=""),"",IF(ABS(CODE(INDIRECT("R[-1]C",FALSE)&"@")-77)<13,CHAR(CODE(INDIRECT("R[-1]C",FALSE))+1),"A"))

上か右のセルどちらかが0の場合も同じ処理をするならこっちです

=IF(OR(INDIRECT("RC[1]",FALSE)="",INDIRECT("RC[1]",FALSE)=0,INDIRECT("R[-1]C",FALSE)="",INDIRECT("R[-1]C",FALSE)=0),"",IF(ABS(CODE(INDIRECT("R[-1]C",FALSE)&"@")-77)<13,CHAR(CODE(INDIRECT("R[-1]C",FALSE))+1),"A"))
(田中) 2021/04/01(木) 15:16


田中さん

コメントありがとうございます。
また、お手数お掛けしてすみません。
早速試させて頂きましたが、完璧に理想の動作が確認出来ました。
本当にありがとうございます!助かりました!
(すたーち) 2021/04/01(木) 15:40


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.