Excel Maniacs

関数で出来ますか～？ 第304回 回文ですか～？ 解答例

Office365です。でも４５文字は思いつきません。

で、ヤケのやんパチ。当初は目新しい関数はCONCATしか使っていなかったのですがSEQUENCEなんてのも使ってみました。

「毒を食らわば皿まで」です(^^ゞ

 

=JIS(A1)=CONCAT(MID(JIS(A1),SEQUENCE(LEN(A1),,LEN(A1),-1),1))

６１文字

 

あ、Office365をお持ちでない方のためにOffice TANAKAの記事のをリンクを張っておきます。

SEQUENCE関数

関数で出来ますか～？ 第304回 回文ですか～？

【問】

セルA1に文字列を入力したとき、それが回文であればTRUE、そうでなければFALSEをセルB1に表示せよ。

但し、文字列の長さは１００文字未満とする。

 

 

補足）

1.「竹藪焼けた」などの漢字交じりの文字列は判定対象外です。

2.「タケヤブヤケタ」など片仮名または平仮名のみが判定対象です。

3.「ﾀｹﾔﾌﾞﾔｹﾀ」のような半角片仮名は判定対象です。

4.下記ア、イはFALSE。

　　ア.　じじとし゛し゛
　　イ.　ははとハハ

　　アの後の「し゛し゛」は「し+　゛」。
　　イは読みは同じだけど平仮名と片仮名。

 

***********************************************************************

解答発表は02/22（土）の２０：００です。それまでは直接数式を

書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。

***********************************************************************

 

関数で出来ますか～？ 第303回 のり子

色々な漢字の「のりこ」さんがいます（全て2文字で◯子さん）
しかし上手く書けず＊だらけになってしまいました
そこでこの隙間を取り除いてください
ただし「◯子」と「◯子」の間には＊1つ残してください
また何処であろうと＊が1番多い所はそのまま残してください
若し＊が多い同数が複数あってもそのそのまま残してください
それ以外の＊は全て消し去ってください
＜例＞
典子＊紀子＊矩子＊＊＊＊＊＊＊倫子　　　（最大が1ヶ所の時）
典子＊紀＊＊＊＊＊子＊＊＊＊＊矩子＊倫子　 （最大が2ヶ所の時）
残す＊はそのまま同じ所です

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（からくちさん）

解答用参考ファイル： 20190701をダウンロード

解答用参考ファイル(y sakudaさん提供)： 20190701VBAをダウンロード 

***********************************************************************

解答発表は07/06（土）の２０：００です。それまでは直接数式を

書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。

***********************************************************************