-
penguincomcom
- 732
- 0
- 0
- 0
-
- いいね！0
ヤスス(本田康志)🐼介護×ICT
@hy_11
うわ〜💦 もくもく会で仲間とVBAコーディングすると、独りでしてた時よりもスピード感が有って凄く刺激を頂ける これまた発想がそれぞれ違っていて、それがまた良い刺激になる 自分のまだまださにも焦るが、そんな事より凄く楽しい！ 本当に感謝です！ ペンギン屋さん@penguincomcom ！！
2020-02-02 23:19:45
タクヤ|YouTube登録者11万名突破メンタエクセル|Excelコンサルタント
@911_takuya
@penguincomcom @kiwa83 楽しかったですね^ ^ ペンギン屋さんにも感謝してます！ありがとうございます＾＾ またよろしくお願いいたします！
2020-02-02 08:51:41
信天翁🪶
@Kabura_net14831
今日着手してみた普通に数えることは簡単なのに、他の方法を考えるとなるとなかなか難しい。今の私で頑張っても数種類が限界…まあ実行ステップ数さえ増やせば色んな実装方法あるんだけどさ！ twitter.com/penguincomcom/…
2020-01-31 17:44:42
ペンギン屋＠技術とVBA好き。
@penguincomcom
プログラミングで解決してね！！❤️ お題：魚の数を数えろ！ / 鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵 \ さあ何が何匹いるでしょう？？ ヒント：鯵（あじ）、鯖（さば）しかいません。 #VBA #つながりたい #VBA仲間募集 #今日の積み上げ #プログラミング初心者 #駆け出しエンジニアと繋がりたい
2020-01-28 07:44:00
ペンギン屋＠技術とVBA好き。
@penguincomcom
@sakutan2020 さくたんさん！ ありがとうございます。😆😆😆😆 これ私じゃかけない(笑) すごすぎ🌟😆👍🌟😆🌟🌟🌟🌟🌟 早くさくたんさんみたいにコード書けるようになりたいです👍😁 また問題出すのでよかったら遊んでください🤣🤣🤣🐧
2020-01-31 18:11:46
ちゅん🐤
@KotorinChunChun
@sakutan2020 @penguincomcom 鯏はVBE非対応の文字なんじゃないかな。 VBE上では？に見えるんですが、ちゃんと認識はできているので＝で比較したり、AscW関数で文字コードにしたり、そのデータをセルに書き出すことで確認出来ると思います。 ただしソースコード上にリテラルを書きたい場合は無理なので、CharW(文字コード)で代用
2020-01-29 20:14:06
ペンギン屋＠技術とVBA好き。
@penguincomcom
お題：魚の数を数えろ！ の答えの例はたぶん月曜日につぶやきます。 よかった見てください！！ 私よりキレイなコードもたくさんあります(笑)👍
2020-01-29 18:25:59
さくたん@エクセルVBAとAI
@sakutan2020
@penguincomcom 魚編の漢字をディクショナリーに入れようとすると、まず「あさり」がないし「?」が入ります。鯵(Item1)と鯖(Item25)はセーフ。でもずれます。 pic.twitter.com/VMOOcphDSX
2020-01-29 20:00:07
拡大
さくたん@エクセルVBAとAI
@sakutan2020
Excel VBA/Access VBA/VBS/Power Query/GAS 生成AI ChatGPT使ってる人
はけた＠できるExcel2021
@excelspeedup
@penguincomcom そう言って頂けるならなによりです。 引き続き、よろしくお願いします！
2020-01-29 19:54:32
はけた＠できるExcel2021
@excelspeedup
@akashi_keirin ごめんなさい。 それにしても、私の周りの人々の反応を見ていると、敢えて、本命の手法以外の手法を追求している人が多いのが、なんだかなぁという感じですね。
2020-01-29 19:33:23
ちゅん🐤
@KotorinChunChun
@Z1000R_LR @excelspeedup @_reime @hoehoe1234 遅ればせながら私も参戦。 そして呼ばれた気がする。 Sub test() Dim arr arr = Evaluate("TRANSPOSE(MID(""" & Fish & """,ROW(A1:A" & Len(Fish) & "),1))") Debug.Print "鯵:" & UBound(Filter(arr, "鯵")) + 1 Debug.Print "鯖:" & UBound(Filter(arr, "鯖")) + 1 End Sub pic.twitter.com/ghiIFY4p2e
2020-01-29 00:46:58
拡大
はけた＠できるExcel2021
@excelspeedup
@penguincomcom そうですね。 長いといえば長いですが。 ムダもないですし平易なので、当然アリだと思います。
2020-01-28 23:49:36
空腹おやじ
@Z1000R_LR
@excelspeedup @_reime @hoehoe1234 Byte配列なら、簡単に入りますけど １文字２要素になってしまいます。 Dim b() As Byte b = "鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵鯖鯵"
2020-01-28 23:45:22
としじ
@toshi81350036
こういうカウント系は決め打ちなら type 使うのも良さげかなー。セルの色とか数えたい時にこうする時ある。 type tCount 鯵 as long 鯖 ad long end type sub main() dim cnt as tCount cnt.鯵 = cnt.鯵 + 1 end sub みたいな。まあ type 使う局面あんまないけども。 twitter.com/penguincomcom/…
2020-01-29 00:09:12
ペンギン屋＠技術とVBA好き。
@penguincomcom
@excelspeedup ちなみに用意してた解答例がこちらです 長いんですよねー(笑) pic.twitter.com/k7zaqXZbUc
2020-01-28 23:03:57
はけた＠できるExcel2021
@excelspeedup
@Z1000R_LR @_reime @hoehoe1234 文字列を1文字ずつの配列に変形できたら。 Filter＋UBoundで行けるっぽいんですけど。 手軽に配列化する手段が思い浮かびません。
2020-01-28 23:38:10
さくたん@エクセルVBAとAI
@sakutan2020
@penguincomcom 画像で失礼します。一般化して全力で解いてみました。魚かどうかは調べて記入しましたｗ 読みが複数ある漢字が想定外にややこしくしてくれる良問で、やりがいがありました。 pic.twitter.com/R0gdKLNpO9
2020-01-30 22:24:20
拡大
拡大
拡大
拡大
さくたん@エクセルVBAとAI
@sakutan2020
@penguincomcom 画像で失礼します。一般化して全力で解いてみました。魚かどうかは調べて記入しましたｗ 読みが複数ある漢字が想定外にややこしくしてくれる良問で、やりがいがありました。 pic.twitter.com/R0gdKLNpO9
2020-01-30 22:24:20
拡大
拡大
拡大
拡大