第１０９回 最大値は？

A1の数字の最大値を求めてください

A1が 11333333338888 とあった場合 11と33333333と8888の3つの数値として
その最大値である 33333333 を求めてください

同じ数字の連続を1つの数値とみなしてください

ただし、求める値が最大値（数値）なので15桁をこえる数字がA1にあった場合
答えはエラーでも違う数値でも構いません
つまり、その場合は無視してください

A1の文字数は50～８００位と思います（F9）

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（からくちさん出題）

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

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

尚、解答締め切りは１２／１０（土）の午後８時の予定です。状況によっては

変更される可能性があります。

また、解答発表までは直接数式を書き込むこと・ポイントとなる関数名を

書き込むことはご遠慮ください。

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

Comments

[投稿情報: jyo-3]

ありゃりゃーーーー
こりゃまた。・・・・・・
破天荒な、、、

[投稿情報: からくち]

＞破天荒な、、、
［名・形動］前人のなしえなかったことを初めてすること。
また、そのさま。前代未聞。未曽有(みぞう)。

そんな大それたものではありません
問題が無くなってしまった、、、と言うことなので
ただ、思いついたままの問題ですので

因みに現在、、、８２

[投稿情報: jyo-3]

うーーん、、、、
まず、、、
nomuka,,,,,

[投稿情報: くまぷー]

う～ん、またまた難解なり・・・

[投稿情報: む印]

う～～～ん、、
今のところ何も閃かない、、、

[投稿情報: む印]

ＰＣ使わせてもらえたので、とりあえずやってみました。
･･･で、とりあえずありきたりな８４です、、、

[投稿情報: y sakuda]

今日は遅く帰って来て、さっきみただけですが・・・・
ひらめきはなしです^^;

[投稿情報: y sakuda]

私も何とかやるだけやったら、ありきたりの上長い・・・・89です。
どっちかっていうとエラーなんかになるのも含めて検証方法が問題ですね。
明日にでも何か作ろうかな？

[投稿情報: y sakuda]

結局私も84む印さんと多分同じだと思われます。

[投稿情報: りす]

う～ん、８６で出来たけど、たまに間違いが表示される。数十回～数百回に1回？
それを修正すると、９０。

[投稿情報: jyo-3]

みなさんすごいです。
私はまだ方向が定まってません
時々、ふっと、、、眺めてるだけ・・・・・

で、、、なんとなく興味が出てること・・・・
９が３０個ぐらい出る確率はどうなんだろう・・・・とか・・・・
変なことが、、、興味深い・・・・

で、
９が１８個あったり、、
８が１９個あったりは、、考えなくて良いのですね、、
・・・・・・・・・・・・・・・・

[投稿情報: y sakuda]

>う～ん、８６で出来たけど、たまに間違いが表示される。
合ってるのかどうか不明ながら、現在80です。

[投稿情報: jyo-3]

できたーーー・・・・・ながいーーーー・・・・
・・・・・・・・・・・・・・・・・・・

[投稿情報: jyo-3]

お昼作った式で、ｆ９・・・・・
押してたら、・・・・・へーーーーーー
７が２０個以上並んだり・・・・・
・・・・・・・・・・・・・・・・・・
むむーーーーー
１５個以上でも、、、正確に出す式は、、、、、大変かーーーー
、、、
なんて、気になったり、、、

[投稿情報: 春]

参りましたね(+_+)
どうやってこれを・・・

[投稿情報: りす]

脳内では、完璧な式を書いているけど、たまに、下のように、
0が含まれた結果が出てくる。
こんな結果がでるような式じゃないんだけどな。

44444444444444400000

あれ？ちなみに、結果をLENで監視すると、ほとんど15桁以内
なんだけど、良いんだよね？(上記のようなエラーだけ20桁になる)

[投稿情報: jyo-3]

>７が２０個以上並んだり・・・・・
あ、、これは、元データの目視でのことです。
式の結果は、、７が１５個です。

[投稿情報: jyo-3]

みなさん、、すごいなーーー
何でも、すぐ答えが出て・・・・・・
うまくいきません、、、
１）長くて、２）不完全的ケース発見（理由も：１００回に1回ぐらい）、、
・・・・・・・・・・・・・・・・・

１）15個以上でも、、、答えを出したい・・・、、だが、、、無理そう。
２）15個以内での、、、短手数・・・・なんかありそうで、、だが、、無理そう。
・・・・・・・・・・・
てことで、今のところ、、、がっくり、、、・・・・
・・・・駄目駄目モード・・・なのだジョー、、、

[投稿情報: min]

面白い方法が思いつきません。。
しょうがないから単純にやってみました。
結果は８０文字でした。

[投稿情報: y sakuda]

本題そっちのけで、検証プログラム作ってますが・・・・
うまく行かない^^
答え合わせまでにできるかなｗ

[投稿情報: くまぷー]

>本題そっちのけで、検証プログラム作ってますが・・・・
>うまく行かない^^

えーっ？！
それで何でワークシート関数でできるんだろう？！
?(・_。)?(。_・)?

[投稿情報: y sakuda]

>それで何でワークシート関数でできるんだろう？！
そういう意味じゃなく、Calculateイベントで捕まえる必要があるんですが、
そこを考えてやっているつもりなんですが、結果が変わっちゃうんで、上手く正解
を捉えられないんです。

[投稿情報: くまぷー]

>Calculateイベントで捕まえる必要があるんですが

単純に･･･
ワークシートの下のプロシージャを利用するだけでは
ダメなんですね？

Private Sub Worksheet_Calculate()

End Sub

[投稿情報: くまぷー]

職場に到着してちょっと実験してみました。

＞結果が変わっちゃうんで

なるほど・・・
そういうことですか・・・
Excelに結果を残そうとするとCalculateイベントの嵐が・・・
・・・とすると結果はメモ帳でも起動してそちらに残すしかないのかな・・・

これから期末試験の監督です・・・

[投稿情報: y sakuda]

>Excelに結果を残そうとするとCalculateイベントの嵐が・・・
それは初めからわかってるので実行中EnableEventsをFalseにしてるんですが、それでも同じにならないので、次の手を考えてます^^;

[投稿情報: y sakuda]

チェック用プログラムを作りました。
使用方法は次の通りです。

１．標準モジュールを一つ入れる
２．そこに↓を丸ごと貼り付け

Function Check(ByVal pStr As String)
Dim wLen As Long, wBChar As String, wChar As String
Dim I As Long, J As Long, K As Long, wMax As Double
Dim wAry() As Double
wLen = Len(pStr)
J = 0
K = -1
wBChar = Left(pStr, 1)
For I = 1 To wLen
wChar = Mid(pStr, I, 1)
If wChar = wBChar Then
J = J + 1
If I = wLen Then
K = K + 1
ReDim Preserve wAry(K)
wAry(K) = CDbl(String(J, wBChar))
End If
Else
K = K + 1
ReDim Preserve wAry(K)
wAry(K) = CDbl(String(J, wBChar))
wBChar = wChar
J = 1
End If
Next
wMax = 0
For I = 0 To UBound(wAry)
If wMax < wAry(I) Then
wMax = wAry(I)
End If
Next
If wMax ＞ 1E+15 Then
Check = "error"
Else
Check = wMax
End If
End Function

３．計算式のあるシートで好きな所に
=check(A1)
と入れてください。正解が表示されます。
なお、数字の並びが16桁以上の場合はerrorと表示するようにしてあります。
正解？と式の結果を比較したい場合は
A4に上記の式が入っており、回答式がA7に入っているとして
=IF(ISERR(A4+0),A4,A4+0)=A7
見たいにします。
多分大丈夫なような気がしますが、保障の限りでは・・・・・

[投稿情報: jyo-3]

あ、、、
不具合は修正しましたが、、、
皆さんより・・・だいぶ・・・・長いです。
で、、
９が、複数の場合が、、、一番多いですよね。

[投稿情報: y sakuda]

本題の方は、別法は何も思いつかない^^;

[投稿情報: min]

2007以上が許されるなら、75でした。

[投稿情報: y sakuda]

>2007以上が許されるなら、75でした。
×２

[投稿情報: min]

>2007以上が許されるなら、75でした。
どうやらsakudaさんも同じ式のようですね。
ちなみに、2007以上なら、もう1文字減って74になりませんか？

[投稿情報: y sakuda]

>ちなみに、2007以上なら、もう1文字減って74になりませんか？
さて・・・・
正直なところ、2007、2010で増えた関数はあまり使う習慣がないので見落としている
可能性大ですｗ

[投稿情報: からくち]

う～～ん、、、
皆さんのコメントを見ていると
全員同じ式の可能性。。。＜＜＜大＞＞＞

つまらない問題でした。。。すみません
最小値（ゼロを除く）の方が面白かった、、、かも

[投稿情報: y sakuda]

>最小値（ゼロを除く）の方が面白かった、、、かも
そういえば、オールゼロのストリングが出てくるってのは考えてなかったな・・・・
でも結果おーらいでゼロのみのストリングの場合、0って表示されます^^

[投稿情報: からくち]

＞現在80です。
＞結果は８０文字でした。
＞2007以上なら、もう1文字減って74になりませんか？
この流れからしてどう見てもみな同じ式
そして出題者解答例もまた同じ

これは出題者責任で
最大値を求める関数の使用禁止
で急遽作った式（117）を出題者解答例とするつもりです

そうでもしないと皆さんが回答式を出せなくなってしまう
反省。。。

[投稿情報: jyo-3]

>この流れからしてどう見てもみな同じ式
へーーー
わかってないジョーもいる。

>そういえば、オールゼロのストリングが出てくるってのは考えてなかったな・・・・
>でも結果おーらいでゼロのみのストリングの場合、0って表示されます^^

では、これを、、、文字列のまま・・・・出してみた。
000000000000000000000000
とか、、出してみました。

[投稿情報: y sakuda]

>最大値を求める関数の使用禁止
どこまで禁止したんだろ？
何種類か使えそうなものがありますが、すべて禁止かな？

[投稿情報: min]

>最大値を求める関数の使用禁止
愚問ですが。。
最大値を求める関数を禁止ということですので
最小値を求める関数も禁止ですよね。

ま、やってないんですが。

[投稿情報: からくち]

＞すべて禁止かな？
＞最小値を求める関数も禁止ですよね。
この手の関数はSMALLを使っています
ただしSMALL(範囲,135)の様に数値を得る使い方では無く
並び替えに使っています

あっ、、、これはヒントになってしまうかな
関係無いか、、、誰もこんバカバカしい式書かないから

[投稿情報: くまぷー]

からくちさんから出題者解答例を頂きました。
ありがとうございます。

[投稿情報: む印]

アレから減らせたのは２文字だけ、、
さっぱり閃きませんでした^^;

せめて連続する数字の境目に区切り文字でも入っていてくれれば、
もう少し短縮出来そうにおもうのですが…