[[20021031172525]]　『空白のセルに自動的に文字を書き込む関数を作りた』（みぐ）　ページの最後に飛ぶ

『空白のセルに自動的に文字を書き込む関数を作りたい』（みぐ）

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

例えば　A1のセルに『あ』A2のセルに『い』とあって

A3以降の空白セルに『空１』『空２』・・・と入れたいのです

『あ』『い』は月によって、『か』まで増えたり減ったりします

『か』まで増えてもその後の空白セルに『空１』・・・と

入れていく関数はできますか？

説明不足かも知れませんが宜しくお願い致します

 A1のセルに『あ』A2のセルに次の式をコピーして、貼り付けます。

 =IF(AND(CODE(A1)>=9250,CODE(A1)<=9331),"空1","空"&RIGHT(A1,1)+1)

この式を下方コピーします。「空1～空10」まで表示します。

A2に『い』と入力するとA3以降が『空１』『空２』・・・となります。

必要に応じて、式を下方コピーします。

【注意】入力値は「ぁあぃい･････ん」のひらがな入力に限定してあります。

 (シニア)

シニアさんレスありがとうございます

 『空11』以降を入力できるようにするにはどうすればいいのでしょうか？

【注意】書にある入力値というのはA1のセルに入れる『あ』『い』の事ですか？

入力値をカタカナ、漢字、数字等（混在して）入れるにはどうすればいいのでしょうか？

また、お暇がありましたら、今回の関数の説明をして頂けませんでしょうか？

宜しくお願い致します

（みぐ）

 A1の入力値がカタカナ、漢字、数字等（混在して）入れる場合はA2に次の式を入力します。

 =IF(CODE(A1)=13941,"空"&MID(A1,2,3)+1,"空1")

この式を下方コピーします。「空1～空1000」まで表示します。

A2の『空1』に入力値を上書きするとA3以降が『空１』『空２』・・・となります。

【説明】漢字『空』のコードは1394です。

 IF(CODE(A1)=13941,"空"&MID(A1,2,3)+1

もし、上のセルの先頭が「空」であれば、二文字目から3文字取り出して1を加えなさい、

 ,"空1")

それ以外は「空1」としなさい。

この式では入力値に「空気」とすると、エラー値 #VALUE! が返されます。

この文字列の前に空白を入れてやれば「空気」正常に表示されます。

【注意】入力値の先頭文字に「空」は使用できない制限式です。

【文字列関数 CODE と CHAR の実験】

A1に文字列を入力します。B1に =code(A1) と入力、C1に =char(B1) とすれば、

B1にA1の文字列の最初の文字のコードが表示され、C1でB1のコードをキャラクタに変換します。

A1の値を変更して、コード調べをしてみて下さい。

【文字列関数 CODE と CHAR の活用実験】

A1に①と入力します。A2に =CHAR(CODE(A1)+1) と入力して下方コピーすれば、①～⑳まで表示できます。

A1に A と入力するとこの式でA～Zまで表示できます。

ちょっと、お遊びが、長くなりました。これで失礼します。

 (シニア)

シニアさん返答ありがとうございました

ちょっと、読んだだけでは私の頭では？？？というカンジなのですが

エクセルを使いながら、ちょっとづつ理解していこうと思います

（みぐ）

コメント返信：