お題：魚の数を数えろ！

ちゅん🐤 @KotorinChunChun

@penguincomcom せっかくなので、Togetterまとめで読みたい。 と、最近ハマってる人（？）より。

reime @_reime

一部はけたさんのパクりだけど←、これなんかどう？ pic.twitter.com/9GpjXQeVqQ

拡大

空腹おやじ @Z1000R_LR

@_reime @hoehoe1234 あと出ていないのは、配列？

reime @_reime

@hoehoe1234 かといって、エレガントな解答も思いつかないです……

ほえほえ＠スプシマン @hoehoe1234

@_reime だね。Dictつかったらこの問題、負けな気がするわｗ。

遊牧家族/yuuboku @yuuboku

@KotorinChunChun なんかパフォーマンスよりもコードの短さで競っている雰囲気だったので、そちらを優先しました。

xb @xbtomoki

ForNextでmid使って、 1セル1文字に分けて、 配列数式で鯵と鯖を数える twitter.com/penguincomcom/…

ペンギン屋＠技術とVBA好き。 @penguincomcom

プログラミングで解決してね！！❤️ お題：魚の数を数えろ！ / 鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵 \ さあ何が何匹いるでしょう？？ ヒント：鯵（あじ）、鯖（さば）しかいません。 #VBA #つながりたい #VBA仲間募集 #今日の積み上げ #プログラミング初心者 #駆け出しエンジニアと繋がりたい

2020-01-28 07:44:00

reime @_reime

Dictionary以外で解答したい……。 twitter.com/penguincomcom/…

ペンギン屋＠技術とVBA好き。 @penguincomcom

プログラミングで解決してね！！❤️ お題：魚の数を数えろ！ / 鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵 \ さあ何が何匹いるでしょう？？ ヒント：鯵（あじ）、鯖（さば）しかいません。 #VBA #つながりたい #VBA仲間募集 #今日の積み上げ #プログラミング初心者 #駆け出しエンジニアと繋がりたい

遊牧家族/yuuboku @yuuboku

文字の種類がわからなくても出せるやつ twitter.com/penguincomcom/… pic.twitter.com/9g5HgNKNCQ

拡大

はけた＠できるExcel2021 @excelspeedup

@penguincomcom いえいえ。 こちらこそ、ありがとうございます！

はけた＠できるExcel2021 @excelspeedup

失敗作。 ・片方の文字で、splitで分割して、UBoundで、もう片方の文字数を把握 　→　先頭、末尾に空文字列の要素が付加される場合があってダメ ・WorksheetFunction.Countifsで件数カウント 　→　第一引数がRangeでないとダメ

はけた＠できるExcel2021 @excelspeedup

決め打ちじゃない系。再帰型。 一気にソースが長くなりました。 pic.twitter.com/g9ymrtiwGK

拡大

空腹おやじ @Z1000R_LR

@excelspeedup 全く同じ方法を投稿しようとしていましたw あまりに同じで、目を疑いました。 s$ = "鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵" Debug.Print "鯵 :" & Len(s$) - Len(Replace(s$, "鯵", "")) Debug.Print "鯖：" & Len(s$) - Len(Replace(s$, "鯖", ""))

はけた＠できるExcel2021 @excelspeedup

決め打ち系。 Sub test() Dim Fish Fish = "鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵" Debug.Print "鯖:" & Len(Fish) - Len(Replace(Fish, "鯖", "")) Debug.Print "鯵:" & Len(Fish) - Len(Replace(Fish, "鯵", "")) End Sub twitter.com/penguincomcom/…

はけた＠できるExcel2021 @excelspeedup

@Z1000R_LR Dictionaryを使うお手本な感じですね。