第69問目 数値を列アドレスに 解答例

=SUBSTITUTE(ADDRESS(1,B3,4,1),1,"")

 

その後、回答者ジョー３・・・・・３２にしかならなかった。・・・同じのでちょっと減量だけ・・・・あまり意味ないか、、

 

２）９９文字でした。

 

=IF(B3>702,CHAR((B3-27)/676+64),"")&IF(B3>26,CHAR(MOD((B3-1)/26-1,26)+65),"")&CHAR(MOD(B3-1,26)+65)

 

なんか、美しくないし、、、

良い考えが浮かばなかった。

 

９５にはなるが、、、８０台、７０台は、、出来なかった。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん談）

Comments

[投稿情報: y sakuda]

意外と早く帰りました。
正式版はジョー３とほとんど同じですが、９５です
=IF(B5>702,CHAR((B5-703)/676+65),)&IF(B5>26,CHAR(MOD((B5-27)/26,26)+65),)&CHAR(MOD(B5-1,26)+65)

で、これを手抜きすると本来は正しくないのですが１~16384の範囲では正解をだしてくれます。
89
=IF(B5>702,CHAR(B5/676+64),)&IF(B5>26,CHAR(MOD((B5-27)/26,26)+65),)&CHAR(MOD(B5-1,26)+65)

[投稿情報: からくち]

＞３２にしかならなかった
=LEFT(ADDRESS(1,B3,4),(B3>26)+1)

＞=SUBSTITUTE(ADDRESS(1,B3,4,1),1,"")
何故、、、=SUBSTITUTE(ADDRESS(1,B3,4),1,)

序に、、、=MID(ADDRESS(1,B3),2,(B3>26)+1)

＞７０台は、、出来なかった。
=SUBSTITUTE(CHAR(B5/676+64)&CHAR(MOD(B5/26,26)+64)
&CHAR(MOD(B5,26)+64),"@",)

[投稿情報: y sakuda]

あれっジョー3の2003版私と違う
32でした
=LEFT(ADDRESS(1,B3,4),1+(B3>26))

[投稿情報: y sakuda]

2003はからくちさんとかぶりましたね。
しかし、76はすごい・・・脱帽です。

[投稿情報: くまぷー]

みなさん、こんばんは。
やっぱり、常連さんはきちんと仕上げてきますね～

えっ？　おまえはどうかって？！
おいらは・・・

あやまっちゃいます　(^^ゞ

[投稿情報: ジョー3]

うむーーーーー
・・・・・
・・・・
単純と思って作ったが、，，
・・・・・・・・・・・・・・・・・
自分の問題で、自分が、，，結構、，苦しんだ・
・・・・・・・・・・・・・・・・・・・・・・・
７９・・・・むむーーーーー、、、ぐたっ、、、、

[投稿情報: ジョー3]

＞７９・・・・むむーーーーー、、、ぐたっ、、、、
ん、、、７６かーーーー・・・・・・・・・・・・・・・

[投稿情報: y sakuda]

>やっぱり、常連さんはきちんと仕上げてきますね～
まだ、二人きり出てきてませんがｗ

[投稿情報: ジョー3]

＞　　=SUBSTITUTE(CHAR(B5/676+64)&CHAR(MOD(B5/26,26)+64)
&CHAR(MOD(B5,26)+64),"@",)

・・・・・・・・・・・・
うーーー、、、、、
同じ構想はあったが、，，・・・・・・・・
・・・・・・・・・・・・・・・
まとまらなかった、、、、・・・・・・
・・・・・・・・・・・・

[投稿情報: む印]

76を探してみましたが？？？
1300番台とかこれでいいの？

私の2007番最短は89がやっとでした
=RIGHT(CHAR((B5-27)/676+64)&CHAR(MOD(B5-27,676)/26+65),
(B5+649)/676)&CHAR(90-MOD(-B5,26))

[投稿情報: ジョー3]

1300番台とかこれでいいの？
１３５２とか？
・・・・・・
あたまがーーーー、、、

[投稿情報: y sakuda]

からくちさんの76とむ印さんの89ジョー3の99をテストしてみました。
１～16384の範囲では両方共OKでした^^
さすがです。

なお、テストの方法はマクロでB5を１~16384で回し、結果を
=LEFT(ADDRESS(1,B5,4),1+IF(B5702,2,1)))
と比較しました。

[投稿情報: y sakuda]

すみません。テストプログラムずっこけてました。
結論から言うと私の89も1352でアウトですね。
からくちさんのは26がAになっちゃった^^;
む印さんの89はOKです

[投稿情報: む印]

すみません、、
ちゃんと見直したらこれでよかったみたいです、、^^;
85=RIGHT(CHAR((B5-27)/676+64)&CHAR(MOD(B5-27,676)/26+65),B5/703+1)&CHAR(90-MOD(-B5,26))

[投稿情報: min]

>89がやっとでした
たいしたもんんですね～
特に、、
>(B5+649)/676
理にかなっていますね。

SUBSTITUTEもやろうと思ったんですけどねえ。

CHAR(B5/676+63.9・・
でやろうと思ったりもしたんですけどね。

ひど、、

で次の問題はいつでしょ。

[投稿情報: min]

＞B5/703+1
でいいのか？

[投稿情報: y sakuda]

む印さんの85は１~26がダメじゃないですか？
自分の改造あきらめてケチつけるの専門に徹してますｗ

[投稿情報: む印]

>でいいのか？
やっと出てきた、、

やっぱり、良くないですよね～^^;;;

[投稿情報: min]

B5/703+B5/27
なら、、

B5/676+0.961
とかだとどうなんだろ？

[投稿情報: む印]

>自分の改造あきらめてケチつけるの専門に徹してますｗ
ごめんなさい、ごめんなさい、、ごめんなさい、、、
恐れ入りましたm(__)m

[投稿情報: む印]

>B5/676+0.961
これ、同じことやってましたが
文字数おなじだったので・・・

[投稿情報: y sakuda]

>B5/703+B5/27
これはOKでも結果オーライって感じでしょ
結局
1+26+676・・・・
ですからあくまで割り算するのは１、27、703を引いて１，26、676だと思いますよ
手抜きとして、１~16384の範囲で大丈夫にするのは悪児さんの黒魔術に頼るｗ

[投稿情報: む印]

>B5/703+B5/27
これはOKですか？

[投稿情報: min]

＞これはOKでも結果オーライって感じでしょ
ほんと？？

[投稿情報: y sakuda]

>B5/703
だって、三桁になる703以上では676毎にA⇒Bと繰り上がって行きますから
703で割ると先のほうでは繰り上がりが遅れることになります。
ただ、この問題では16384の範囲でOKならそれでも良いかと思いますけどね。

[投稿情報: jyo3]

むむーーーー
私の頭は、・・・・混乱･･･
・・・・自分の問題なのにー・・・

[投稿情報: くまぷー]

>で次の問題はいつでしょ。

>くまぷーさーーん、、、
>おねがいーーー
>70回も、,,同時進行してくださいーーーー

では、今日あたり・・・