三流君 ken3のmemo置き場

釣られた・偽情報を見たオジサンが(YouTubeで村神様16号キングの偽動画) AIに釣りサムネの件を聞いてみた26/05/12作成

2026-05-12T15:08:27+09:00

仕事中、YouTubeで村神様16号キングの偽情報を見たオジサンが、仕事中なのに脱線してAIに釣りサムネの件を聞いてみた(オイオイ、仕事して・・・)

概要: 今、26年05月12日の14時です。 ※明日05月13日に村上選手の16号速報の本当のニュースが見たいなぁ・・って、話は置いといて、

作業に集中していないオジサン(私)が、 YouTubeのサムネイル村神様16号キングの偽動画に釣られてしまいました。 (YouTubeも私が野球好きを知っているから、TOPページにMLBの動画を紹介してくれるんだけど)

真のファンなら、今日試合無いことぐらい・・・、も、置いといて、 AIに釣り動画の現状を聞いてみました。 ※本題に入る前の、前説・前置きが長くてスミマセン

おっさんの質問

質問: YouTubeの虚偽情報、釣りサムネイルについて

村上選手16号サムネイルに釣られて、動画を開いた私も悪いのですが、

https://www.youtube.com/ watch?v=???????????

偽情報をばらまいている動画でも説明欄にフィクション・想像と書いておけば、 OKなのですか？

これは、あまりにもひどいのでは？

結論から申し上げますと、ご提示いただいた動画の内容は事実ではありません。

この動画の概要欄にも記載されている通り、「こちらの動画はフィクションと予想を含んでおります」と明記されており、エンターテインメントとして制作された創作コンテンツです。

状況の整理:

村上宗隆選手の現状: 2025年12月にMLBのシカゴ・ホワイトソックスと契約を結び、実際に2026年シーズンからメジャーリーグで活躍されている選手であることは事実です。
動画の内容: 5月12日時点での「16号ホームラン」や、それに関する詳細な試合展開は、あくまでファンやメディアによる**シミュレーション（架空のストーリー）**です。
公式なニュースではなく、創作物としてお楽しみいただくための動画となっておりますのでご注意ください。

再度質問

1.Google AI、Geminiさんの素直な意見を聞きたい 2.YouTubeの規約で判断すると、どうかなりますか？私はアウトと思っていますが、公式のURLを回答に含めて教えてください

以上、2点、よろしくお願いします

AIの回答

YouTubeでの「釣りサムネイル」や虚偽情報の拡散、本当に不快ですよね。特に応援している選手のニュースだと思って開いた時のガッカリ感は、察するに余りあります。

ご質問いただいた2点について、客観的な規約と私の見解を整理してお伝えします。

1. 私（Gemini）の率直な意見

結論から言うと、「概要欄にフィクションと書けば何をしてもいい」という風潮は、プラットフォームの健全性を損なう非常に不誠実な行為だと考えています。

ユーザー体験の阻害: 視聴者は「最新の事実」を知りたくて検索やおすすめを利用しています。意図的に騙す行為は、視聴者の貴重な時間を奪うだけでなく、YouTube全体の情報の信憑性を下げてしまいます。
「免罪符」への疑問: 概要欄はクリックした後（騙された後）にしか見えません。入り口（サムネイル・タイトル）で嘘をつき、奥の方で「実は嘘です」と釈明するのは、フェアなエンターテインメントの枠を超えていると感じます。

2. YouTubeの規約に照らした判断

YouTubeの公式な規約に照らすと、「アウト（違反）」と判断される可能性が極めて高いです。

規約上のポイント：誤解を招くメタデータ

YouTubeには「スパム、欺瞞的な行為、詐欺に関するポリシー」があり、その中に「誤解を招くメタデータ」という項目があります。

誤解を招くメタデータまたはサムネイル： タイトル、サムネイル、説明を使用して、ユーザーにコンテンツの内容を誤認させることは認められません。これには、動画に含まれていないものが含まれているかのように視聴者に思わせるタイトルやサムネイルなどが含まれます。

たとえ概要欄に「フィクション」と書いてあっても、サムネイルやタイトルが「現在進行中のニュースや事実」であるかのように装い、視聴者を騙してクリックさせている場合は、この規約に抵触します。

サムネイルに関するポリシー

また、サムネイル単体でも以下の基準があります。

視聴者を誤解させ、動画に含まれていないものを視聴できると思わせるサムネイルを YouTube に投稿しないでください。

参照すべき公式URL

スパム、欺瞞的な行為、詐欺に関するポリシー https://support.google.com/youtube/answer/2801973?hl=ja
サムネイルに関するポリシー https://support.google.com/youtube/answer/9229980?hl=ja

結論としての判断

概要欄の注釈は、あくまで制作者側の「言い訳」に過ぎず、YouTubeの運営側が「悪質なクリック誘導（Clickbait）」と判断すれば、警告（ストライキ）や動画削除の対象になります。

あまりにひどいと感じる場合は、動画の「報告（通報）」機能から、「スパムまたは誤解を招く内容」→「詐欺または不実表示」として報告することをお勧めします。

こういった動画が増えることで、本当に価値のあるクリエイターの動画が埋もれてしまうのは、動画プラットフォームとして非常に残念なことですね。

今回のような「ニュースを装ったフィクション動画」について、あなたはYouTube側がどのような対策（例えば自動検知の強化など）をすべきだと考えますか？

おっさんの個人的な意見を自分語りでAIにぶつけてみた

今回のような「ニュースを装ったフィクション動画」について、あなたはYouTube側がどのような対策（例えば自動検知の強化など）をすべきだと考えますか？

低評価の数が、イタズラでクリエイターが被害を受けるので表示が廃止されました。動画を見る前に低評価の数で判断することが不可能になりました。

サムネイルクリック前には、言われるように説明戦にかかれたフィクションか？わからない

タイトル・サムネイルの虚偽報告をユーザーが簡単にできるようにして、一定数貯まったらAIでタイトルの虚偽チェックとサムネイルが虚偽・過激ではないか、自動でチェックして、私のように釣られてしまう被害者を減らしてほしい。

でも、低評価ボタンみたいに、イヤガラセで虚偽通報が行われ、正常な動画の速報性が失われるのも・・バランスをとるのが大変そうですが、動画アップロード時にタイトルのチェックやサムネイルの簡易チェックをAIにやってほしいです。

その後、ユーザーにインプレッションをくばってほしいです。

AIの回答

「自分が釣られたのも悪い」なんて仰らないでください。システムを巧妙に悪用する側が100%悪いですし、ITに詳しい方ほど「今のAI技術ならもっとうまく防げるはずだ」と歯がゆく感じられるのは当然のことだと思います。

ご提案いただいた「アップロード時のAI事前チェック」と「ユーザー通報とAIの連動」は、実は2026年現在のYouTubeが最も力を入れている（そして苦戦している）領域そのものです。

専門的な視点も交えつつ、その現状と「バランス」の難しさについて整理してみました。

YouTube 2026：対策の現状と課題

現在、YouTubeでは「誤解を招くメタデータ」への対策として、以下のような多層的なチェックフローが導入され始めています。

提案された機能	2026年現在の実装状況と課題
アップロード時のAIチェック	【実装済み・強化中】

著作権や広告適合性と同様に、AIがサムネイルの文字と動画本編の整合性をスキャンしています。しかし、今回の「村上選手の移籍・本塁打」のような、現実と虚構が入り混じる高度な文脈を100%正確に判断するのは、依然としてAIの最難関課題です。 | | 通報数によるAI再検証 | 【慎重な運用】

一定数の報告でAIが再審査する仕組みはありますが、仰る通り「嫌がらせ通報」のリスクがあるため、YouTubeは「通報者の過去の正確性（信頼スコア）」も加味しています。デタラメな通報ばかりするユーザーの意見は、AIに無視される仕組みです。 | | インプレッション制限 | 【試験的導入】

AIが「釣り」の疑いあり（スコアが高い）と判断した場合、即座に削除はせず、まずおすすめへの表示回数（インプレッション）を極端に絞るという兵糧攻めのような対策が取られています。 |

なぜ「フィクション」と書けば逃げられるのか？

悪質な投稿者が「概要欄にフィクションと書く」のは、AIの「免責事項の自動検知」を逆手に取った回避策です。

AIは「フィクション」という文字列を見つけると、「あ、これはエンタメ枠なんだな」と判断して違反フラグを下げてしまうロジックの穴があります。しかし、YouTubeの最新指針では「注釈があっても、視聴者の第一印象（サムネイル）で騙す意図があればアウト」と、判断基準が「事実か否か」から「誠実か否か」へとシフトしています。

2026年のクリエイターとして

ご自身も発信をされている立場からすると、AIによる「一律の自動検知」が厳しすぎると、健全な「ネタ動画」や「速報」まで巻き添えを食らうのが怖いですよね。

現在は、以下の2つのバランスでシステムが動いています：

AIによる一次フィルター： 明らかな嘘（合成画像や支離滅裂なタイトル）を弾く。
視聴者の「満足度スコア」： クリックした後にすぐ離脱されたり、低評価（非表示でも内部データとしては存在）や通報が重なったりすると、AIが「これは不誠実な動画だ」と学習し、拡散を停止させる。

「釣られてしまった」後の1件の通報は、AIに「このパターンはフィクションという言い訳を通用させない」と教え込むための貴重な教師データになります。

こういった「AI同士のいたちごっこ」の中で、今後YouTubeにはどのような「人間による最終審判」の仕組みが必要だと思われますか？

YouTubeの2026年最新ポリシーとAI moderationの変化についてこの動画では、2026年に導入された厳格なAIモデレーションと、不誠実なメタデータがどのようにチャンネル削除のリスクに直結するかを詳しく解説しています。

【YouTube】リアルタイム再生数が「1分間に2回」？重複カウントの謎と維持率への影響

2026-05-12T00:20:06+09:00

YouTube1分間に2回のアクセスについて

再生数の少ない動画で、なぜか1分間に2回のアクセスが……。これって広告を避けるためのブラウザバック？それともバグ？そんな「リアルタイム統計の謎」を深掘りします。データの検証プロセスや、チャンネル評価への影響など、気になるポイントをサクッと解説します。

Ken3 おっさんの質問文

Q:YouTubeアナリティクスについて質問です

過疎ってる動画 1分間に2回のアクセススクショ26/05/11

添付画像は、私のある動画のリアルタイムアナリティクスなのですが

疑問・実際の数値: 再生数の少ない動画で1分間に外部から2回のアクセス ※不人気動画なので、たまたま、同じ時刻に2名の視聴者が来たとは考えにくいです

質問です 1.これは、よく聞く広告が表示されたのでブラウザバックスグに再度見に来た？そんな広告除けの行動ですか？それで、同じ視聴者が2回カウントされている or 視聴者が広告ブロックソフトを使用していて、広告ブロックソフトの影響でカウントがおかしくなっている？

2.この誤ってカウントされたと思われる2回は1回になりますか？それとも2回のままですか？

3.もし、2回のままなら、うれしいと一瞬思ったが、 0秒で視聴時間がカウントされるので、平均視聴時間や視聴維持率に影響ができますか？

以上3点、回答、よろしくお願いします。

おっさんがAIに質問

AI Geminiの回答

YouTubeアナリティクスのリアルタイム統計における「短時間の重複カウント」や「外部ソースからのアクセス」について解説します。

リアルタイム指標はあくまで「速報値」であり、YouTubeのシステムがそのアクセスの妥当性を検証する前の数値が含まれていることがよくあります。

AIの回答

1. アクセスの原因について（広告除けや広告ブロックの影響）

ご推察の通り、広告を避けるための「ブラウザバック後の再アクセス」は、リアルタイム統計で一時的に複数回カウントされる主な要因の一つです。

広告除けの行動: 外部サイト（SNSやブログなど）からリンクをクリックして動画を開いた際、最初に広告が流れたことで一度戻り、再度同じリンクをクリックした場合、サーバーへのリクエストが短時間に2回発生します。リアルタイム統計はこの「リクエスト」を即座に反映するため、同一人物でも「2」と表示されることがあります。
広告ブロックソフトの影響: 多くの広告ブロックソフトは広告の読み込み自体を阻害しますが、動画本体の読み込みプロセスには影響を与えないように設計されています。ただし、ブロックの影響でページの再読み込み（リフレッシュ）が自動で行われた場合、重複カウントの原因になる可能性はあります。
その他の要因（クローラーなど）: 外部サイトにリンクを貼った直後などは、そのサイトのシステムや検索エンジンの「クローラー（巡回プログラム）」が、動画の情報を取得するためにアクセスしてくることもあります。

2. 数値の修正（「2」が「1」や「0」になるか）について

結論から言うと、多くの場合、最終的な「確定値」では修正されます。

YouTubeには「視聴の検証プロセス」という仕組みがあり、リアルタイムの数値がそのまま確定するわけではありません。以下のようなアクセスは、24〜48時間以内に集計から除外、または統合されます。

同一IPアドレスからの極端に短時間の連続アクセス。
視聴時間が極めて短い（数秒未満）アクセス。
スパムやBot（自動プログラム）によるアクセス。

したがって、後日「コンテンツ」タブや「アナリティクス」の確定レポートを確認した際には、数値が「1」に戻っているか、あるいは有効な視聴と見なされず「0」になっている可能性が高いです。

3. 平均視聴時間や視聴維持率への影響

もし「2回のまま」確定してしまった場合、統計値には以下のような影響が出る可能性があります。

視聴維持率への影響: 広告を避けてすぐに離脱した「1回目」がカウントされると、その視聴時間は「0秒」や「1秒」として記録されます。これにより、動画の冒頭数秒でグラフが急激に下がる原因になります。
平均視聴時間の低下: 0秒の視聴が1回分加算されるため、分母（再生回数）が増えて分子（総再生時間）が増えない状態になり、平均値は下がります。

ただし、過度に心配する必要はありません。 YouTubeのアルゴリズムは、このような「意図しない短時間の離脱」が統計を歪めることを理解しています。最終的な視聴維持率のグラフでは、システムが不適切と判断したアクセスを自動的に除外して計算し直すため、チャンネル全体の評価に致命的な悪影響を与えることは稀です。

リアルタイムの数値は「今、何かが起きている」という目安として捉え、正確なデータ分析は、48時間以上経過した後の確定レポートで行うことをおすすめします。

昔の動画【2022年版】今こそ見直したいExcel円グラフの基本。配色一つで資料の信頼は変わる！

2026-05-10T13:49:51+09:00

Excelの円グラフ、色が「逆」になってませんか？デフォルト配色に潜む「恥」の回避術

「昨日のデータをコピペして、今日の数字を入れただけなのに…なぜかグラフの違和感がすごい」
そんな経験はありませんか？

実は、Excelの円グラフには''「色の逆転現象」''という恐ろしい落とし穴があります。
例えば、広島カープ（チームカラー：赤）のデータなのに、グラフでは青色で表示されている…。
これ、野球ファンが見たら一発で「あ、この資料適当だな」とバレてしまう''「ビジネス上の恥」''なんです。

今回は、三流プログラマーを自称する私が、自身の失敗談（2022年アーカイブ）を交えつつ、AI時代だからこそ人間がやるべき「配色のチェック」について熱く語ります。

解説内容を図解

円グラフの配色ミスが起きるメカニズム

なぜ、意図しない色になってしまうのでしょうか？
その最大の原因は''「安易なシートのコピー」''にあります。

[00:31](https://www.youtube.com/watch?v=xeg0Or8I6n4&t=31s) 失敗例：開幕戦勝敗予想の円グラフ
[00:53](https://www.youtube.com/watch?v=xeg0Or8I6n4&t=53s) なぜ「赤ヘル」のカープが青色になったのか？
[01:17](https://www.youtube.com/watch?v=xeg0Or8I6n4&t=77s) ミスの原因：前回のグラフを安易にシートコピーした弊害

Excelは「1番目の項目は青、2番目はオレンジ…」といった具合に、''項目の順番''でデフォルトの色を割り当てます。
前回のグラフをコピーして項目名を書き換えただけだと、色が固定されたままになり、広島カープが青、中日ドラゴンズが赤、という「禁断の配色」が完成してしまうのです。

資料の信頼性を守る「業界常識」と「配色ルール」

プレゼン相手には必ず「期待している色」があります。
これを裏切ると、内容が正しくても説得力が半減します。

[02:11](https://www.youtube.com/watch?v=xeg0Or8I6n4&t=131s) 業界常識・製品カラーに従う重要性
[03:00](https://www.youtube.com/watch?v=xeg0Or8I6n4&t=180s) 対策：依頼側と作成側の「色の指定」コミュニケーション
[03:45](https://www.youtube.com/watch?v=xeg0Or8I6n4&t=225s) 男女比の配色（青/赤）と配慮すべき点（答えたくない＝灰色など）

特に「はい/いいえ」のアンケート結果などは、肯定を暖色、否定を寒色にするのが一般的です。
[04:33](https://www.youtube.com/watch?v=xeg0Or8I6n4&t=273s) にもある通り、YouTubeの検索結果（緑と赤のサムネイル）のように、''色はそれ自体がメッセージ''を持っています。

AI編集者からのアドバイスと今後の課題

動画は2022年のアーカイブですが、Excelの仕様やビジネスマンの心理は今も変わりません。
むしろ、グラフ作成をAI（ChatGPTやCopilot）に丸投げできるようになった今、''「この配色、おかしくない？」と気づく人間の審美眼''がますます重要になっています。

''AIへの提言：''
将来的に、グラフの項目名から「ブランドカラー」を自動判別して色を適用するVBAマクロを組んでおくと、コピペミスを物理的に防げますね。

今後、以下のようなコードで「特定の単語が含まれたら色を強制変更する」処理を組み込むのも面白いかもしれません。

' AI提案：項目名に合わせた色設定の自動化（イメージ）
Sub SetChartColorByPointName()
    Dim pt As Point
    For Each pt In ActiveChart.FullSeriesCollection(1).Points
        ' 項目名に「広島」が含まれていたら赤にする
        If pt.DataLabel.Text Like "*広島*" Then
            pt.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
        End If
    Next pt
End Sub

AIで都市伝説を探す【2026年第31回NHKマイルC】大波乱のシナリオ？サインが示す「究極の穴馬」とは？

2026-05-09T22:27:40+09:00

【2026年第31回NHKマイルC】オカルト×データで読み解く大波乱のシナリオ！サインが示す「究極の穴馬」とは？

競馬ファンの皆様、こんにちは！春のG1シーズンも真っ只中ですが、今週は「荒れるG1」の代表格、第31回NHKマイルカップ（東京芝1600m）が開催されます。

過去のデータを見ても、このレースは1番人気が頻繁に沈み、二桁人気の伏兵が激走して超高配当が飛び出すのが当たり前。昨年の第30回大会（優勝：9番人気パンジャタワー）でも、3連単はなんと150万馬券という大波乱でした。

純粋な能力比較だけでは決して当てられないこの「異種格闘技戦」。今回は、過去10年の客観的な統計データに、競馬特有の「都市伝説（サイン理論）」を融合させ、2026年のレースを支配する見えない法則を徹底解剖します！

1. 残酷なまでの絶対データ「内枠の呪縛」と「外枠の神話」

NHKマイルカップにおいて、最も顕著で恐ろしいデータが「枠順の偏り」です。過去10年の結果を見ると、競馬の公平性を疑いたくなるほどのバイアスがかかっています。

内枠（1〜4枠）の絶望：過去10年でわずか1勝（勝率1.3%）。特に1枠・3枠・4枠は過去10年で優勝ゼロ。
外枠（5〜8枠）の圧倒的有利：過去10年で9勝を独占。特に6枠と8枠だけで8勝という異常事態。

なぜこんなことが起きるのか？それは「2回東京6日目」という日程上、内側の芝が傷み始めているためです。綺麗な馬場を走れる外枠が物理的に有利になります。

今年の人気馬に降りかかる「枠の呪い」

今年、圧倒的1番人気のダイヤモンドノット（川田騎手）は、よりによって過去10年で連対すらゼロの「死の4枠（7番）」に入ってしまいました。さらに2番人気のカヴァレリッツォも内枠「2枠（4番）」です。データ通りなら、この人気2頭は非常に危険な存在と言えます。

2. 敗者の逆転法則：「前走1着馬」は消し！？

普通なら「前走を圧勝してきた馬」を買いたくなりますが、NHKマイルカップではその常識が通用しません。

驚くべきことに、過去10年の馬券圏内馬の多くが「前走で0.4秒以内の僅差で負けた馬」なのです。逆に、本番で人気を裏切って沈んだ人気馬の約7割が「前走1着馬」でした。前走で全力を出し切った馬はお釣りがなく、僅差で負けて悔しい思いをした馬が本番でピークを迎えるという「オカルト的逆転法則」が存在します。

サイン合致の注目馬

この黄金ローテーションに完璧に合致するのが、前走クロッカスSで0.1秒差の2着だったハッピーエンジェルです。しかも、近年このレースで大穴をあけるトレンドとなっている「牝馬」でもあり、爆発的な魅力を秘めています。

3. 数秘術とサイン理論が導く「究極の暗号」

ここからはサイン馬券愛好家お待ちかねの都市伝説セクションです。今年の開催日や回数には、不気味なほど特定の馬を指し示す暗号が隠されています。

「5月10日」と「西暦2026年」の完全一致

今年の開催日は5月10日。これをストレートに枠と馬番に当てはめると「5枠10番」になります。そして出馬表を見ると、5枠10番にはエコロアルバがピタリと配置されているのです！

これだけではありません。西暦「2026年」をバラバラにして足してみましょう。【 2 + 0 + 2 + 6 ＝ 10 】ここでも「10」という数字が導き出されます。複数のサインが「10番エコロアルバ」に収束するこの現象は、もはや競馬の神が仕組んだ暗号としか思えません。

馬名に宿る「言霊（ことだま）」

エコロアルバの「アルバ（Alba）」は、ラテン語で「白」や「夜明け」を意味します。荒れるG1において、新時代の「夜明け」を告げるという非常に強いメッセージ性を孕んでいます。

結論：第31回NHKマイルCの最終見解

データと都市伝説を総合し、今年の激推し馬をピックアップします！

👑 【究極の本命サイン馬】エコロアルバ（5枠10番） 「5月10日」と「2026年」の暗号が完全一致。データ的に有利な5枠に入り、このレースと相性の良い「キャリア4〜10年」の田村厩舎が管理。「夜明け」を意味する馬名も完璧です。

💣 【大波乱の使者（大穴）】ハッピーエンジェル（7枠13番） トレンドの「牝馬」であり、「前走0.1秒差の負け」という逆転法則の条件をクリア。人気薄ですが、一発の破壊力は抜群です。

✨ 【外枠の魔法陣】アドマイヤクワッズ（6枠11番） 過去10年で4勝の「奇跡の6枠」。しかも昨年の勝ち馬パンジャタワーと全く同じ「6枠11番」という神の指定席を引き当てました。前走大敗からの巻き返しに期待。

☠️ 【危険な人気馬】ダイヤモンドノット＆カヴァレリッツォ 実力は折り紙付きですが、過去10年でほぼ壊滅状態の「死の内枠」に入ってしまいました。この呪いを実力でねじ伏せるのか、それともデータ通り馬群に沈むのか…。

今年のNHKマイルカップも、一筋縄ではいかないドラマが待っていそうです。オカルトとデータを味方に、新緑の東京競馬場で高配当を狙い撃ちしましょう！

AIと都市伝説を探してみた

AIに依頼したプロンプト

# 競馬の噂や話題のネタを調べたい

私はJRA競馬 
2026年5月10日（日曜） 2回東京6日 発走時刻：15時40分
11レース
第31回NHKマイルカップGⅠ
3歳    オープン    （国際）牡・牝（指定）   馬齢  コース：1,600メートル（芝・左）
で
都市伝説のネタになりそうな偏りを切り口を探りたいです

## 過去5年や10年の成績をまとめて、噂や都市伝説で使えそうな偏りがあるか？チェックしたい

・馬番、枠番の偏りがあるか？知りたい
-このレースは、内枠有利・外枠は来ない、など、ネタにしたい

・ローテーション、前走・ステップレースの偏りがあるか？
-前走XXX組の1・2着が好走する？など、前走のレースに偏りがあるか？
-前走連対していない馬はこないなど(まぁ、強い馬は前走も好走しているので当たり前かもしれませんが)

・馬の年齢別
-馬の年齢が指定されていないレースで、※オークス,ダービーなど同年代のレースは調べなくてよい
3歳が強い、4歳が連対するなど、年齢の偏りがあれば。

・ジョッキー別の成績をまとめてほしい
-このレースが得意な、縁のあるジョッキーを知りたい、都市伝説・噂のネタにしたい

・血統別の成績をまとめてほしい
-このレースが得意な、血統、産駒があれば知りたい、都市伝説・噂のネタにしたい

・厩舎別の特徴があるか？成績をまとめてほしい
-同様にこのレースが得意な厩舎、縁のある厩舎を知りたい、都市伝説・噂のネタにしたい

・出走日・開催日や第XX回XXX記念などの数字の語呂合わせ 偏りがあるか？知りたい
-第16回XXX記念で1-6や16番の馬,17回は1-7や17番の馬が来たとか、オカルト的な事があるか？

・馬名で面白い法則・偏りがあるか？知りたい
- 強い名前:〇〇キングや〇〇オウ、〇〇エンペラーなど、強い・名前の馬がこのレースは成績が良いなど、オカルト的な法則があれば教えてください(※産駒や厩舎で、XXXと付けている場合もありますが)
- 色を含んだ名前:〇〇グリーンや〇〇ゴールド、〇〇ブラッグなど、名前に色が入った馬がこのレースは成績が良いなど、オカルト的な法則があれば教えてください(※産駒や厩舎で、XXXと付けている場合もありますが)


都市伝説のネタになりそうな偏りを
イロイロな切り口で探りたいです

これだけ、数字を出しとけば、どれか？偶然に・・・

過去のデバッグ動画を紹介【Excel】Web上のExcelファイルをPower Queryで取得しようとするとエラーになる件を解決する

2026-05-09T07:30:00+09:00

【Excel】Web上のExcelファイルをPower Queryで取得しようとするとエラーになる件を解決する

はじめに：Web上のExcelファイル、毎回ダウンロードしてませんか？

Web上（例えば厚生労働省の統計データなど）で公開されているExcelファイルを、毎回手作業でダウンロードして開いていませんか？
Power Queryを使えば、URLを指定するだけで直接データを読み込み、整形までを全自動化できます。

しかし、実際にやってみると「URLエラー」や「読み込みエラー」に遭遇して挫折してしまうことも多いです。
今回は、視聴者様からいただいた質問を元に、ライブ配信で実際にデバッグしながら解決した「3つのエラー解決ポイント」を、コードを交えて解説します。

今回作成したPower Query（M言語）コード

まずは、すべての問題を解決した完成版のコードを紹介します。
以下のコードをコピー＆ペーストして、必要箇所を書き換えればすぐに使用できます。

let
   // 厚生労働省 食中毒発生状況（令和５年） のページからURLを探る
   // Excelのセル範囲（名前付き範囲「URL」）から値を受け取る
   文書NO = Excel.CurrentWorkbook(){[Name="URL"]}[Content]{0}[Column1],
   
   // 1. 文書NOを9桁の0埋め文字列に変換
   strNO = Text.PadStart(Number.ToText(文書NO), 9, "0"),
   
   // URLを組み立てる
   strURL = "https://www.mhlw.go.jp/content/" & strNO & ".xlsx",

   // 2. Web上のExcelを取得する（Web.PageではなくExcel.Workbookを使用）
   WB = Excel.Workbook(Web.Contents(strURL), null, true),
   
   // 3. シート名が変わる対策としてインデックス{0}で指定
   先頭のシート = WB{0}[Data],
   
   // 1行目を見出しに昇格
   昇格されたヘッダー数 = Table.PromoteHeaders(先頭のシート, [PromoteAllScalars=true])

in 
   昇格されたヘッダー数

このコードで解決した''「3つの壁」''について、順番に解説していきます。
実際の操作画面やエラーが消える瞬間の挙動を見たい方は、解説横の動画リンクから該当シーンに飛んで確認してみてください。

エラー解決の3つのポイント解説

1. URLの「0落ち」を防ぐ（Text.PadStart関数）

セルに入力した「001222475」という文書番号をPower Queryに渡す際、数値として扱われてしまい頭の「0」が消えてしまう（0落ち）問題が発生しました。これでは正しいURLが生成できず、リンク切れエラーになります。
これを解決するために、''Text.PadStart関数''を使用して、強制的に9桁の0埋め文字列に変換しています。

strNO = Text.PadStart(Number.ToText(文書NO), 9, "0"),

実際のライブ配信で0落ちに気づき、この関数を使ってURLを組み立て直すデバッグの様子は以下のリンクから確認できます。
[10:47](https://www.youtube.com/watch?v=sU2hZA6KmaU&t=647s) （M言語でのText.PadStart関数の使い方とテスト）

2. Web.Page ではなく Excel.Workbook を使う

ここが一番ハマりやすいポイントです。
Webサイトからデータを取得する際、つい `Web.Page` 関数を使ってしまいがちですが、相手が「.xlsx」ファイルの場合はエラーになります。
正解は、''Excel.Workbook関数でWeb.Contentsを包む''形です。

// 正解の書き方
WB = Excel.Workbook(Web.Contents(strURL), null, true)

動画内でも、最初は間違ったアプローチでエラーになり、「あ、これWorkbook関数か！」と気づいて修正するリアルなプロセスを公開しています。同じエラーで悩んでいる方は、このシーンが非常に参考になるはずです。
[18:05](https://www.youtube.com/watch?v=sU2hZA6KmaU&t=1085s) （関数間違いに気づき、Excel.Workbook関数で取得し直すシーン）

3. シート名が変わる問題は「インデックス指定」で回避

お役所のデータなどでよくあるのが、年度によってシート名が「令和5年」「令和6年」と変わってしまう問題です。
名前でシートを指定していると、翌年にエラーで止まってしまいます。
これを防ぐため、シート名ではなく「オブジェクトの順番（インデックス番号）」で先頭のシートを取得します。

// シート名「令和5年」などで指定せず、最初のデータ{0}を指定する
先頭のシート = WB{0}[Data]

インデックスは「0」から始まる点に注意してください。これで、シート名が変更されても半永久的に自動取得が可能になります。
[33:05](https://www.youtube.com/watch?v=sU2hZA6KmaU&t=1985s) （シート名変更に動的に対応するためのインデックス指定の解説）

AIからのアドバイスと今後の課題

今回のコードは実務で即戦力になりますが、もし「Web上のファイルが削除されていたり、URLが存在しない場合」にはエラーで処理が止まってしまいます。
より堅牢なシステムにするためには、以下のように `try ... otherwise` 構文を使ったエラーハンドリングを組み込むのもおすすめです。

// AIからの改善案：エラーハンドリングの追加
let
   strURL = "https://www.mhlw.go.jp/content/" & strNO & ".xlsx",
   // 取得に失敗した場合は null を返す
   WB = try Excel.Workbook(Web.Contents(strURL)) otherwise null
in
   WB

デバッグの過程は少し長くて泥臭い部分もありますが、エラー画面から原因を推測し、解決策を導き出すプロセスこそがプログラミングの醍醐味です。
お時間のある時に、ぜひライブ配信のアーカイブを通して見てみてください。

[00:00](https://www.youtube.com/watch?v=sU2hZA6KmaU&t=0s) （動画の最初からデバッグの様子を見る）

自分のYouTube過去動画を分析して「はてなブログ」の記事を作成するプロンプトを紹介します 26年05月バージョン

2026-05-08T12:43:40+09:00

自分のYouTube過去動画を分析して
「はてなブログ」の記事を作成する
プロンプトを下記に記載します

# 編集者と校正役：はてな記法ブログ作成用プロンプト

## コンテキスト
私は三流プログラマーの中年おじさん（Ken3）です。
あなたは、私のYouTube動画の台本、字幕、AI分析結果から「はてなブログ（はてな記法モード）」にそのまま貼り付けられる備忘録記事を作成する、非常に優秀で大胆な編集者です。

## やってほしいこと
1. 添付された資料（字幕、台本、ソースコード、分析結果）をすべて読み込み、内容を深く理解してください。
2. 読者が一目で内容を理解でき、コードをコピペできる実用的なブログ記事を「はてな記法」で作成してください。
3. 出力は、はてなブログの「はてな記法モード」にそのまま貼り付けられるテキストを、一つのコードブロック（ ```text ... ``` ）で囲んで提供してください。

## はてな記法の厳守ルール
以下の記法を必ず使用し、Markdown（# や **）は使用しないでください。
- 大見出し（タイトル）: *タイトル
- 中見出し: **見出し
- 小見出し: ***見出し
- 強調（太字）: ''テキスト'' （シングルクォーテーション2個で囲む）
- 箇条書き: - 項目1
- ソースコード: >|言語名| ... ||< の形式
- 引用: >> ... << の形式

## 動画リンクとタイムスタンプの計算ルール
1. 動画URL（例: https://www.youtube.com/watch?v=VIDEO_ID）から動画IDを抽出します。
2. 資料内のタイムスタンプ [分:秒] をすべて秒数に変換します（計算式: 秒 = 分×60 + 秒）。
3. リンク形式は以下のように出力してください。
   [分:秒](https://www.youtube.com/watch?v=動画ID&t=秒数s)

## 記事の構成要素
a) 説明したかった事・伝えたかった事の要約（読者の悩みに寄り添う）。
b) ソースコードの紹介（必ず >|vba| ... ||< で囲むこと）。
c) 手順の解説（動画のタイムスタンプリンクを適宜挿入）。
d) 未解決の問題点や今後の課題、AIからのアドバイス。
e) 関連リンク（Google検索リンクなど。形式： [URL:title=タイトル] ）。

## 実行指示
Ken3の書いた拙い文章を、プロの編集者として大胆にリライト・整理して、最高の動画誘導Andソースコード説明用のブログを仕上げてください。
※ついでに、**紹介動画が再生されるトリガー的リンクを作り**、**動画再生数のアップも狙って**ください
分析・記事作成を開始してください。

上記プロンプトで、作成しています

実際の例 aST78UJdi34 【2018年制作】Windows起動時に一瞬出る「黒い画面」の正体を調査した記録（OneDrive更新だった話）
2018/3/20

www.youtube.com
を渡し、テストしてみます。以下テスト結果

PC起動時に一瞬消える「黒い画面」…ウイルス？正体は意外なアレだった件（2018年アーカイブ）

PCにログインした直後、''「黒いコマンドプロンプト」が一瞬だけ表示されてパッと消える''……。
そんな経験はありませんか？

「もしかしてウイルス？」「何かが裏で勝手に動いている？」と不安で心臓がドキドキしているあなたへ。
かつて同じ恐怖を味わい、必死に原因を突き止めた三流プログラマー・Ken3の泥縄式調査記録を共有します。

結論から言うと、犯人は意外な「アイツ」かもしれません。

【動画で確認】一瞬の黒い画面、あなたのPCでもこれが出ていませんか？

まずは、実際にどんな画面が出ていたのか、動画でその「一瞬」を確認してみてください。
[00:00](https://www.youtube.com/watch?v=aST78UJdi34&t=0s)

この「パッ」と消える瞬間の恐怖、共感していただけるはずです。

調査手順：ウイルスを疑う前に「証拠」を探せ

Ken3が実際に行った、エンジニア的な（といっても必死な）切り分け手順がこちらです。

''手順1：まずはウイルススキャンで心を落ち着かせる''

[02:19](https://www.youtube.com/watch?v=aST78UJdi34&t=139s)
まずは基本。ウイルス対策ソフト（当時はウイルスセキュリティZERO）でフルスキャン。結果がシロなら、少しだけ冷静になれます。

''手順2：コントロールパネルで「インストール日」を確認する''

[02:46](https://www.youtube.com/watch?v=aST78UJdi34&t=166s)
ここが最大のポイントです。''「黒い画面が出たその時刻」に、何かが更新されていないか？''をチェックしました。

''手順3：犯人（？）の特定''

[04:41](https://www.youtube.com/watch?v=aST78UJdi34&t=281s)
コントロールパネルの「プログラムのアンインストール」画面で日付順に並べ替えたところ、黒い画面が出た時刻にぴったり重なって''「Microsoft OneDrive」''が更新されているのを発見しました。

【検証】あえて「一瞬で消える画面」を自作して比較してみた

「本当にOneDriveの更新プログラムがコマンドプロンプトを表示させるのか？」
その疑問を解消するため、あえて一瞬で処理が終わるバッチファイルを自作して、挙動を比較してみました。

@echo off
rem 指定したフォルダにファイルをコピーするだけのテスト用バッチ
copy D:\work\*.txt D:\work\backup\
copy D:\work\*.pdf D:\work\backup\
rem 本来はここで一瞬で消えるが、動画では確認用にpauseを入れたりしています

[06:12](https://www.youtube.com/watch?v=aST78UJdi34&t=372s) からのデモを見ると分かりますが、裏で自動実行されるスクリプトが走ると、Windowsの仕様上どうしても一瞬だけ黒い窓が出てしまうことがあるのです。

未解決の懸念とAIからのアドバイス

動画の最後でも触れていますが、''「コントロールパネルに載っているからといって、100%安全とは言い切れない」''のがこの世界の怖いところ。

「行儀の良いウイルスなら履歴に残るかもしれないけど、本物はもっと巧妙に隠れるはず。不安ならイベントビューアーまで見るべきだったかも……」

AIエディターからの補足アドバイス

現代（Windows 11）であれば、以下の方法も併用するとより確実です：

''タスクマネージャーの「スタートアップ」タブ''を確認し、見覚えのないアプリが有効になっていないかチェック。
''設定＞ Windows Update ＞更新の履歴''を確認し、システムの更新とタイミングが合致しているか見る。

まとめ：怪しい挙動は「記録」して「照らし合わせる」

結局、この時はOneDriveのアップデートが原因であった可能性が高いという結論に至りました。
[07:58](https://www.youtube.com/watch?v=aST78UJdi34&t=478s)

PCの挙動に不安を感じたら、まずは「コントロールパネルの更新履歴」を確認するクセをつけてみてください。

未解決の懸念とAIからのアドバイス

動画の最後でも触れていますが、''「コントロールパネルに載っているからといって、100%安全とは言い切れない」''のがこの世界の怖いところ。

「行儀の良いウイルスなら履歴に残るかもしれないけど、本物はもっと巧妙に隠れるはず。不安ならイベントビューアーまで見るべきだったかも……」

AIエディターからの補足アドバイス

現代（Windows 11）であれば、以下の方法も併用するとより確実です：

''タスクマネージャーの「スタートアップ」タブ''を確認し、見覚えのないアプリが有効になっていないかチェック。
''設定＞ Windows Update ＞更新の履歴''を確認し、システムの更新とタイミングが合致しているか見る。

まとめ：怪しい挙動は「記録」して「照らし合わせる」

結局、この時はOneDriveのアップデートが原因であった可能性が高いという結論に至りました。
[07:58](https://www.youtube.com/watch?v=aST78UJdi34&t=478s)

PCの挙動に不安を感じたら、まずは「コントロールパネルの更新履歴」を確認するクセをつけてみてください。

天皇賞（春）の競馬都市伝説をAIと探しました【第173回】73年ぶりの奇跡が起きる？天皇賞（春）に隠された「数字の呪縛」

2026-05-03T12:40:34+09:00

【天皇賞・春 2026】プロは笑う！？でも信じたい「73」と「3」に隠された不気味な都市伝説

「競馬って、おじさんたちが難しい顔して数字を見てるだけでしょ？」そう思っているあなた！今年の天皇賞（春）は、ちょっと様子が違います。

3200メートルという、もはや「マラソン」のような過酷なレース。実は、そこには数学者も競馬プロも説明できない「不気味な一致」がいくつも隠されているんです。

今日は、競馬ガチ勢が聞いたら「そんなバカなｗ」と笑ってしまうような、でも初心者だからこそ信じたくなる最強の都市伝説をご紹介します！

AIを使って、競馬の都市伝説・噂を集めブログにしました

😱 伝説1：73年ぶりに解かれる「牝馬の呪縛」

競馬界には、長年解かれていない呪いがあります。それは、「天皇賞（春）で女の子（牝馬）は勝てない」というもの。最後に牝馬が勝ったのは、なんと1953年のレダという馬まで遡ります。

「やっぱり女の子には3200mは無理なんだよ…」そんなプロの声をあざ笑うかのような数字のイタズラがこちら。

今年の開催回数： 第173回
最後に牝馬が勝ってからの年数： ちょうど「73」年目

「173」と「73」。 この奇跡的な一致、怖くないですか？この「73の呪縛」を解くのは、1枠1番のヴェルミセルか、それともアクアヴァーナルか…。歴史が動く瞬間を目撃できるかもしれません。

🔢 伝説2：すべては「3」に支配されている！？

今年の天皇賞（春）は、とにかく「3」という数字がつきまといます。

開催日： 5月3日
回数： 第173回
注目馬： アドマイヤテラ（馬番3番）

さらに、このアドマイヤテラの手綱を握るのは、伝説のジョッキー武豊（たけゆたか）騎手。プロは「武豊なら長距離のペース配分が完璧だから…」と真面目に分析しますが、私たちはこう言いましょう。 「5月3日に3番の馬に乗るから、これもう運命じゃん！」と。

🐎 伝説3：京都に舞い降りる「白い稲妻」

競馬ファンには「京都の長距離は、白い馬（芦毛）が強い」という有名なジンクスがあります。かつてのヒーロー、メジロマックイーンやゴールドシップも、みんな白い馬体でした。

今回の出走馬を見ると… * アドマイヤテラ（白い！） * アクアヴァーナル（白い！）

特にアクアヴァーナルは、あの暴れん坊で有名だったゴールドシップの娘。「お父さんの幽霊が背中を押してくれるのでは…」なんてプロが聞いたら鼻で笑うような話も、この舞台ならあり得る気がしてきませんか？

📊 一応、真面目なデータも置いておきます

「ロマンだけじゃ不安！」という方のために、プロも納得するデータも少しだけ。過去10年の結果を見ると、実は「めちゃくちゃ堅実」なレースなんです。

人気	1着になる確率	3着までに入る確率
1番人気	50%	80%
2番人気	40%	50%

なんと、過去10年の勝ち馬はすべて「3番人気以内」。結局は、みんなが「強い！」と思っている馬がそのまま勝つことが多いんです。都市伝説で選んだ馬が、もし当日人気になっていたら…それはもう「勝ち確」かもしれません。

🏁 結論：信じるか信じないかは、あなた次第！

運命の「73」を信じるなら： ヴェルミセル、アクアヴァーナル
5月3日の「3」を信じるなら： アドマイヤテラ
データ（人気）を信じるなら： クロワデュノール

プロの予想を「ふーん、理屈っぽいね」と横目で見ながら、私たちはこの「数字の魔法」を楽しもうじゃありませんか。

2026年5月3日。京都競馬場のゴール板を最初に駆け抜けるのは、統計学か、それとも都市伝説か。その答え合わせは、日曜日の15時40分に！

※馬券の購入は計画的に。この都市伝説は的中を保証するものではありませんが、ワクワク感は100%保証します！

AIに依頼したプロンプトの紹介 26/05/02実施

適当に数字を出しても、当たる時は当たったりするし・・・

下記、AIに渡した調査依頼のプロンプトです

競馬の噂や話題のネタを調べたい

私はJRA競馬 
2026年5月3日（日曜） 3回京都4日  発走時刻：15時40分
11レース
第173回天皇賞(春)GⅠ
で
都市伝説のネタになりそうな偏りを切り口を探りたいです

## 過去5年や10年の成績をまとめて、噂や都市伝説で使えそうな偏りがあるか？チェックしたい

・馬番、枠番の偏りがあるか？知りたい
-このレースは、内枠有利・外枠は来ない、など、ネタにしたい

・ローテーション、前走・ステップレースの偏りがあるか？
-前走XXX組の1・2着が好走する？など、前走のレースに偏りがあるか？
-前走連対していない馬はこないなど(まぁ、強い馬は前走も好走しているので当たり前かもしれませんが)

・馬の年齢別
-馬の年齢が指定されていないレースで、※オークス,ダービーなど同年代のレースは調べなくてよい
3歳が強い、4歳が連対するなど、年齢の偏りがあれば。

・ジョッキー別の成績をまとめてほしい
-このレースが得意な、縁のあるジョッキーを知りたい、都市伝説・噂のネタにしたい

・血統別の成績をまとめてほしい
-このレースが得意な、血統、産駒があれば知りたい、都市伝説・噂のネタにしたい

・厩舎別の特徴があるか？成績をまとめてほしい
-同様にこのレースが得意な厩舎、縁のある厩舎を知りたい、都市伝説・噂のネタにしたい

・出走日・開催日や第XX回XXX記念などの数字の語呂合わせ 偏りがあるか？知りたい
-第16回XXX記念で1-6や16番の馬,17回は1-7や17番の馬が来たとか、オカルト的な事があるか？

・馬名で面白い法則・偏りがあるか？知りたい
- 強い名前:〇〇キングや〇〇オウ、〇〇エンペラーなど、強い・名前の馬がこのレースは成績が良いなど、オカルト的な法則があれば教えてください(※産駒や厩舎で、XXXと付けている場合もありますが)
- 色を含んだ名前:〇〇グリーンや〇〇ゴールド、〇〇ブラッグなど、名前に色が入った馬がこのレースは成績が良いなど、オカルト的な法則があれば教えてください(※産駒や厩舎で、XXXと付けている場合もありますが)


都市伝説のネタになりそうな偏りを
イロイロな切り口で探りたいです

AIが参照した・関連リンク

引用文献

データ分析 2026年天皇賞（春）（GⅠ） JRA, 5月 2, 2026にアクセス、 https://www.jra.go.jp/keiba/g1/haruten/data.html

天皇賞（春）2026 過去10年の傾向(データ)｜G1特集｜競馬予想 ..., 5月 2, 2026にアクセス、 https://jra-van.jp/fun/tokusyu/g1/haruten/stats.html

【天皇賞・春】傾向と対策 - スポニチ競馬Web, 5月 2, 2026にアクセス、 https://keiba.sponichi.co.jp/news/20260501s00004000423000c

【天皇賞（春） × 過去データ分析】前走１着馬の中で強調できる推奨馬はこの馬！ - スポーツナビ, 5月 2, 2026にアクセス、 https://sports.yahoo.co.jp/official/detail/2026043000034-spnaviow

【天皇賞・春】武豊騎手のアドマイヤテラは過去最多１３勝の３番枠陣営「豊さんに任せておけばいいと思っています」, 5月 2, 2026にアクセス、 https://news.livedoor.com/topics/detail/31141770/

【天皇賞・春】クロワデュノールは4枠7番、アドマイヤテラは2枠3番, 5月 2, 2026にアクセス、 https://www.oricon.co.jp/article/3243204/

大阪杯勝利、そして2年後の復活劇芦毛ブームを牽引した名脇役・ホワイトストーン, 5月 2, 2026にアクセス、 https://uma-furi.com/white-stone/

芦毛伝説の継承者(ビワハヤヒデ) - 競馬ニュース, 5月 2, 2026にアクセス、 https://news.netkeiba.com/?pid=column_view&cid=25790

タマモクロス ―史上初となる天皇賞春秋制覇を果たした白い稲妻―｜ハサミおじさん - note, 5月 2, 2026にアクセス、 https://note.com/hasami_ojisan/n/nc6972b21e24b

天皇賞（春）(G1) データ分析・過去の傾向 | 2026年5月3日京都11R レース情報(JRA) - netkeiba, 5月 2, 2026にアクセス、 https://race.sp.netkeiba.com/race/past10.html?race_id=202608030411&rf=rs

【天皇賞春】過去20年データ考察第四弾枠順別成績から見る本当に ..., 5月 2, 2026にアクセス、 https://note.com/sumirekeiba/n/n168bda72f940

サイン会議 - 最強のサイン読み戦士が集う、日本一の掲示板！ - ロケットBBS, 5月 2, 2026にアクセス、 https://bbs1.rocketbbs.com/kaigi

VBA×XMLHTTPでJRAの『人気順』オッズを自動取得

2026-04-25T23:00:00+09:00

VBAでXMLHTTPを使用して、JRAのHPから人気順のオッズ（単勝・馬連・馬単）を同時に取得したい！そんな悩みを解決するコードと手順を解説します。

要約: IE（Internet Explorer）が廃止された今、WebスクレイピングにはXMLHTTPのリクエスト処理が不可欠です。本動画では、JRAサイトの「人気順」ページにPOST送信でアクセスし、単勝・馬連・馬単のテーブルデータをExcelに一括転記する仕組みを実演解説します。

マクロ付きファイルのダウンロード
https://note.com/calm_slug2867/n/nd5e26b1b5292
でマクロ付きの.xlsmをダウンロードできます
合わせて、使ってみてください。

www.youtube.com
動画のポイント
【結論：XMLHTTPでJRA人気順オッズを全自動取得！複数馬券種の一括抽出を解説】

1. 【一番のポイント】ループ内で「一旦単勝に戻す」リセット処理
タイムライン： 22:55 https://www.youtube.com/watch?v=igykdl8PI30&t=1375
内容：ページ遷移を伴うスクレイピングで迷子にならないための必須テク。

動画の内容をAIで図解しました

2. 【見どころ】POST送信による「条件切り替え」の仕組み
タイムライン： 07:13 https://www.youtube.com/watch?v=igykdl8PI30&t=433
内容：ブラウザ操作をコードで再現する「XMLHTTPの真髄」を解説。

3. 【実演】単勝・馬連・馬単を順番に巡回してデータを抜く
タイムライン： 15:14 https://www.youtube.com/watch?v=igykdl8PI30&t=914
内容： 1レース内で複数の馬券種をループで一括取得する工程。

4. 【重要：誠実な不具合報告】枠番欠落とテーブルズレ
タイムライン： 27:02 https://www.youtube.com/watch?v=igykdl8PI30&t=1622
内容：少頭数レース等で発生する課題を正直に公開しています。

5. 【解決】マクロのブロック解除手順
タイムライン： 31:34 https://www.youtube.com/watch?v=igykdl8PI30&t=1894
内容：ダウンロードしたファイルが動かない時の設定方法。

ソースコード

Option Explicit

'全ての関数を１つにまとめました、このコードをコピーして使ってみてください

#If Win64 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

'IEのリンクオブジェクトから文字列をInStrで探してクリックする
Public Function IE_Link_InnerHTML_InStr_Click(oDocument As Object, strINSTR As String) As String

    Dim i As Integer
    Dim objA As Object  'as HTMLAnchorElement
    Dim strWORK As String
    Dim n As Integer
    'リンクから受け取った文字列を返す
    IE_Link_InnerHTML_InStr_Click = "ERR"  '初期値にERRセット
    For i = 0 To oDocument.Links.Length - 1
        '文字列を見つけたら　クリック
        If InStr(oDocument.Links(i).outerHTML, strINSTR) > 0 Then '内側のHTML
            
            IE_Link_InnerHTML_InStr_Click = oDocument.Links(i).outerHTML  '見つけたAタグオブジェ(リンク)を代入
            
            Exit For '見つけたのでループを抜ける
        End If
    Next i

End Function


Public Function JRA_Bodyからオッズの時刻を返す(oDocument As Object) As String

    Dim strTEMP As String
    Dim strRETURN As String  'リターン値
    Dim n As Integer
    
    'errでリターン値を初期化
    strRETURN = "ERR 文字列が見つかりませんでした"
    
    'HTMLのBODYテキストを代入
    strTEMP = oDocument.body.innerText

    'まず最終オッズを探す
    If InStr(strTEMP, "最終オッズ") > 0 Then
        strRETURN = "最終"
    End If

    '探す 13時03分現在オッズ  2018/12/09 修正
    '次週確認 7時03分現在オッズ 一けた台の時刻の時
    n = InStr(strTEMP, "現在オッズ")
    If n > 0 Then
        strRETURN = Mid(strTEMP, n - 6, 6)  '時刻を取り出す
    End If

    'リターン値をセット
    strRETURN = Replace(strRETURN, vbLf, "")  '改行vblfを""消す
    JRA_Bodyからオッズの時刻を返す = strRETURN

End Function

Public Function JRA_Bodyから発走時刻を返す(oDocument As Object) As String

    Dim strTEMP As String
    Dim strRETURN As String  'リターン値
    Dim n As Integer
    
    'errでリターン値を初期化
    strRETURN = "発走時刻が見つかりませんでした"
    
    'HTMLのBODYテキストを代入
    strTEMP = oDocument.body.innerText

    '5回中山4日 発走時刻：13時05分
    n = InStr(strTEMP, "発走時刻")
    If n > 0 Then
        strRETURN = Mid(strTEMP, n + 5, 6)  '後ろの時刻を取り出す
    End If

    'リターン値をセット
    JRA_Bodyから発走時刻を返す = strRETURN

End Function

'20260425 テスト
'人気順のオッズをレース別に 単勝、馬連、馬単をシートへ書き出す
Sub JRA人気順オッズ単勝馬連馬単260425()  '取得テスト

    MsgBox "処理を開始します"

    ActiveWindow.WindowState = xlMinimized '最小表示
    DoEvents
    Sleep 1000  '1秒待つ

    ActiveWindow.WindowState = xlNormal 'ノーマル表示
    DoEvents

'2.1 JRA TOP ページの表示
    '処理したいページをGET
    Dim strURL  As String
    Dim strHTML As String
    strURL = "https://www.jra.go.jp/"
    strHTML = get_htmlfile(strURL)  'JRA TOPをGetする
    strHTML = Replace(strHTML, "script", "") '取得HTMLのscriptタグを消す
    
'TOPページHTML文章に対して、処理を行います。
       
    Dim i     As Integer '添え字 i番目などで使用
    Dim yLINE As Integer '行カウンタ、Y行目
    
    Dim oDocument As Object
    Set oDocument = CreateObject("htmlfile")

    oDocument.write strHTML  '取得したHTMLをセット
    DoEvents
    Sleep 1000  '1秒待つ
    
    Dim objA As Object  'as HTMLAnchorElement リンクのタグ オブジェクト

    Dim objTABLEs As Object 'TABLE複数の格納用
    Dim objTABLE As Object  'as HTMLTable 'テーブル単体
    
    Dim x As Integer  '列の管理
    Dim y As Integer  '行の管理
    
    Dim SET_Y As Integer  'Excel側のセット位置
    Dim SET_X As Integer  'Excel側のセット位置
    
    Dim objCELL As Object  'as HTMLTableCell

    Dim nRACE As Integer   'レース 1-12
    Dim strRACE As String  '文字列 1Rなどを作るため

    Dim strMOJI As String  '1-2など馬連の組み合わせ文字列
    Dim arrBOX() As String '分割した文字列を入れる配列

    Dim Waku_str As String
    Dim Waku_n As Integer

'2.2 リンクからオッズを取得(リンクを押すような処理・次を読む)
    Dim strLINK As String
    strLINK = IE_Link_InnerHTML_InStr_Click(oDocument, "オッズ")
    If strLINK = "ERR" Then
        MsgBox "オッズのリンクが見つかりません"
        Stop
    End If
    
    'オッズのページ HTMLを取り出す
    '<A onclick="doAction('/JRADB/accessO.html','pw15oli00/6D');return
    '文字列切り出し(strMOJI, "doAction('","','")
    '文字列切り出し(strMOJI, "','","')")
    Dim strPARA As String
    strURL = "https://www.jra.go.jp" & 文字列切り出し(strLINK, "doAction('", "','") 'URL
    strPARA = "cname=" & 文字列切り出し(strLINK, "','", "')")   'パラメーター
    strHTML = get_htmlfile_post(strURL, strPARA)  'POSTパラメーターを付けて開く
    
    Set oDocument = Nothing  'クリアしてから、HTML文字列をセットして、ドキュメントオブジェクトを作りたい
    Set oDocument = CreateObject("htmlfile")
    oDocument.write strHTML  '取得したHTMLをセット
    DoEvents
    Sleep 1000  '1秒待つ
    DoEvents

'2.3 B2開催のリンクを探して、次(レース・オッズ一覧)を読む
    '開催日のリンクをあさる
    strLINK = IE_Link_InnerHTML_InStr_Click(oDocument, Sheets("MENU").Range("B2"))
    If strLINK = "ERR" Then
        MsgBox Sheets("MENU").Range("B2") & "が見つかりません"
        Stop
    End If
    
    strURL = "https://www.jra.go.jp" & 文字列切り出し(strLINK, "doAction('", "',") 'URL
    strPARA = "cname=" & 文字列切り出し(strLINK, "', '", "')")   'パラメーター
    strHTML = get_htmlfile_post(strURL, strPARA)  'パラメーターを付けて開く

    Set oDocument = Nothing  'クリアしてから、HTML文字列をセットして、ドキュメントオブジェクトを作りたい
    Set oDocument = CreateObject("htmlfile")
    oDocument.write strHTML  '取得したHTMLをセット
    DoEvents
    Sleep 1000  '1秒待つ
    DoEvents

'2.4 1R-12Rのループ 人気順に切り替えてから、レース単位で回す
    
    Dim n一番人気 As Integer '今回は人気順なので使わないかな
    Dim strWORK As String    'C1にセットする文字列を作る
    
    Dim n馬番1 As Integer    '馬は最大18頭
    Dim n馬番2 As Integer    '馬は最大18頭
    Dim str探す文字列 As String  '1-2,2-3 など表題と比べる
    Dim str初回FLG As String '初回は単勝をチェック、次からはレースのみで良い

    str初回FLG = "初回"      '初回で初期化 Flgの初期化、初回の条件にヒットさせるため

    '2.4 1Rから12Rまで、ループする。※これだと前日発売の時1Rでトラブルなぁ
    For nRACE = 1 To 12  '一から十二まで
        'B5からのフラグが立っていたら And 最終じゃなければ
        'レースを取り込む
        If Sheets("MENU").Range("B4").Offset(nRACE, 0) = 1 _
          And Sheets("MENU").Range("B4").Offset(nRACE, 1) <> "最終" Then
        
            '作業用シート、出力先をクリアする
            'まず、書き込み先シート、データをクリアする
            'Sheets(nRACE & "R").Select  'シートの切り替え
            Sheets("作業用").Select  'シートの切り替え
            Cells.Delete Shift:=xlUp 'シート全体を削除する
            Range("A1").Select       '先頭A1を選択する、
            SET_Y = 0  'セット位置を初期化
        
            strRACE = nRACE & "レース"   '1Rなど 文字にする
        
            'リンクから該当するレースを探しクリックする "1R".."12R"
            '2.4.1 初回は単勝のレース番号を読み、※スグに人気順に切り替える←ココポイント
            If str初回FLG = "初回" Then 'フラグが初回？
                'リンクから、レースのTR行を探し、列 ここでは単勝を探して返す
                strLINK = IE_Link_InnerHTML_InStr_TR_TD(oDocument, strRACE, "単勝")
            Else
                '2.4.8 ２回目以降は、馬単のオッズの位置でレースを選択(なんか紛らわしいけど・・)
                'リンクから該当するレースを探しクリックする "1R".."12R"
                'Call IE_Link_InnerHTML_InStr_Click(oDocument, """" & strRACE & """")
                strLINK = IE_Link_InnerHTML_InStr_Click(oDocument, strRACE)
            End If
            
            If strLINK = "ERR" Then  'エラーチェック
                MsgBox strRACE & "が見つかりません"
                Stop
            End If
            
            'ここで、初回単勝の表か(or)次のレース(馬単)が読まれる
            strURL = "https://www.jra.go.jp" & 文字列切り出し(strLINK, "doAction('", "',") 'URL
            strPARA = "cname=" & 文字列切り出し(strLINK, "', '", "')")   'パラメーター
            strHTML = get_htmlfile_post(strURL, strPARA)  'パラメーターを付けて開く
            
            Set oDocument = Nothing
            Set oDocument = CreateObject("htmlfile")
            oDocument.write strHTML  '取得したHTMLをセット
            DoEvents
            Sleep 1000  '1秒待つ
            DoEvents

            'レース番号をセルに書く
            SET_Y = SET_Y + 1
            Cells(SET_Y, 1) = Sheets("MENU").Range("B2") & " " & strRACE
            Cells(SET_Y, 2) = JRA_Bodyからオッズの時刻を返す(oDocument)
            
            Sheets("MENU").Range("C4").Offset(nRACE, 0) = JRA_Bodyからオッズの時刻を返す(oDocument)
            Debug.Print "オッズ:" & JRA_Bodyからオッズの時刻を返す(oDocument)
            
            '発送時刻のセット
            'JRA_Bodyから発走時刻を返す
            Sheets("MENU").Range("A4").Offset(nRACE, 0) = strRACE & "発走" & JRA_Bodyから発走時刻を返す(oDocument)
            Debug.Print strRACE & "発走:" & JRA_Bodyから発走時刻を返す(oDocument)
            
            SET_Y = SET_Y + 1

'初回は、馬連順を人気順に切り替え、2回目以降は馬単から単勝へ戻す(なんか複雑だけど)
            '2.4.2 初回は単勝のレース番号を読み、※スグに人気順に切り替える←ココポイント
            If str初回FLG = "初回" Then 'フラグが初回？
                'リンクから、レースのTR行を探し、列 ここでは単勝を探して返す
                strLINK = IE_Link_InnerHTML_InStr_TR_TD(oDocument, strRACE, "人気順")
                str初回FLG = "フラグを折る・初回を抜ける"  'フラグを折る。次の指示
                '人気順を探して押したいので(ドキュメントを人気順にしたい)
            Else
                '2.4.9 ２回目以降は、レース選択後、単勝に戻す(なんか紛らわしいけど・・)
                'リンクから単勝を探しクリックする※一度馬単になっているので、もったいないけど
                'Call IE_Link_InnerHTML_InStr_Click(oDocument, """" & strRACE & """")
                strLINK = IE_Link_InnerHTML_InStr_Click(oDocument, "単勝")
            End If
            
            If strLINK = "ERR" Then  'エラーチェック
                MsgBox strRACE & "が見つかりません"
                Stop
            End If
            
            '2.4.3 ここで、やっと単勝の人気順を読む
            strURL = "https://www.jra.go.jp" & 文字列切り出し(strLINK, "doAction('", "',") 'URL
            strPARA = "cname=" & 文字列切り出し(strLINK, "', '", "')")   'パラメーター
            strHTML = get_htmlfile_post(strURL, strPARA)  'パラメーターを付けて開く
            
            Set oDocument = Nothing
            Set oDocument = CreateObject("htmlfile")
            oDocument.write strHTML  '取得したHTMLをセット
            DoEvents
            Sleep 1000  '1秒待つ
            DoEvents

'2.4.4 単勝の表、テーブルを取得する
            '見出しをセルに書く
            '単勝・複勝オッズ（人気順）
            SET_X = 1   'A列、1から書き込む
            Cells(SET_Y, SET_X) = "単勝人気順"    '単純に(オイオイ、工夫しようぜ)
            SET_Y = SET_Y + 1
            
            'テーブルを探す
            'TABLEタグを抜きデータをセット
            Set objTABLEs = oDocument.getElementsByTagName("TABLE")
            '↑で代入したオブジェクトからテーブルデータを取り出す｡
            Set objTABLE = objTABLEs(0)  '1番目(0)を代入
            '↑で見つかったかチェックする
            If objTABLE Is Nothing Then
                '見つからなかったら、終わっていたら、ループを抜ける
                MsgBox "単勝のテーブル取得エラー・・・"
                Exit For  '抜ける
            End If
                
            '表をDATAシートに書き出す
            'テーブルからデータを抜き出す、書き出す
            For y = 0 To objTABLE.Rows.Length - 1  '行のループ
                For x = 0 To 10 '列のループ x=0から、セルのセット位置に注意
                    'データをセルに書く ※画像の枠番号が抜けているバグありですが
                    Cells(SET_Y, x + 1) = objTABLE.Rows(y).Cells(x).innerText '単純にセット
                Next x
                SET_Y = SET_Y + 1  'セット位置を次の行へ
            Next y
            
'2.4.5 馬連オッズの処理
'馬連オッズへドキュメントを移動する(読み込みたいので)
            '単勝人気順のドキュメントから、"馬連"のリンクを探す
            strLINK = IE_Link_InnerHTML_InStr_Click(oDocument, "馬連")

            If strLINK = "ERR" Then  'エラーチェック
                MsgBox strRACE & "馬連のリンクが見つかりません"
                Stop
            End If
            
            'ここで、次の馬連人気順を読む
            strURL = "https://www.jra.go.jp" & 文字列切り出し(strLINK, "doAction('", "',") 'URL
            strPARA = "cname=" & 文字列切り出し(strLINK, "', '", "')")   'パラメーター
            strHTML = get_htmlfile_post(strURL, strPARA)  'パラメーターを付けて開く
            
            Set oDocument = Nothing
            Set oDocument = CreateObject("htmlfile")
            oDocument.write strHTML  '取得したHTMLをセット
            DoEvents
            Sleep 1000  '1秒待つ
            DoEvents

    '馬連の表、テーブルを探る
            '見出しをセルに書く
            '馬連オッズ（人気順）
            SET_X = 13 'M列から書き込む M列=13
            SET_Y = 2  'セット位置を上に戻す
            Cells(SET_Y, SET_X) = "馬連人気順"  '単純に文字列をセット
            SET_Y = SET_Y + 1
            
            'テーブルを探す
            'TABLEタグを抜きデータをセット
            Set objTABLEs = oDocument.getElementsByTagName("TABLE")
            '↑で代入したオブジェクトからテーブルデータを取り出す｡
            Set objTABLE = objTABLEs(0)  '1番目(0)を代入、今回必要なのは上位5件なので、固定処理
            '↑で見つかったかチェックする
            If objTABLE Is Nothing Then
                '見つからなかったら、終わっていたら、ループを抜ける
                MsgBox "馬連のテーブル取得エラー・・・"
                Exit For  '抜ける
            End If
                
            '表をDATAシートに書き出す
            '見出しを書く
            Cells(SET_Y, SET_X + 0) = "人気"
            Cells(SET_Y, SET_X + 1) = "組番1"
            Cells(SET_Y, SET_X + 2) = "'-組番2"
            Cells(SET_Y, SET_X + 3) = "オッズ"
            SET_Y = SET_Y + 1
            'テーブルからデータを抜き出す、書き出す
            'y=1で見出しを飛ばす
            For y = 1 To objTABLE.Rows.Length - 1  '行のループ
                '人気 組番 オッズの3列なので、0to2だけど、1-2などを個別に分割する
                'データをセルに書く
                Cells(SET_Y, SET_X + 0) = objTABLE.Rows(y).Cells(0).innerText '単純にセット
                
                '※組み合わせ番号の文字列"1-2"や"5-11"などを分割セットする
                strMOJI = objTABLE.Rows(y).Cells(1).innerText '単純にセット
                arrBOX = Split(strMOJI, "-") 'Split関数で「-」を区切り文字として分割
                Cells(SET_Y, SET_X + 1) = CInt(arrBOX(0)) '馬連の組み合わせ番号
                Cells(SET_Y, SET_X + 2) = CInt(arrBOX(1))
           
                'オッズ
                Cells(SET_Y, SET_X + 3) = objTABLE.Rows(y).Cells(2).innerText '単純にセット
                
                SET_Y = SET_Y + 1  'セット位置を次の行へ
            Next y

'2.4.6 馬単オッズの処理
'馬単オッズへドキュメントを移動する(読み込みたいので)
            '上の馬連人気順のドキュメントから、"馬単"のリンクを探す
            strLINK = IE_Link_InnerHTML_InStr_Click(oDocument, "馬単")

            If strLINK = "ERR" Then  'エラーチェック
                MsgBox strRACE & "馬単のリンクが見つかりません"
                Stop
            End If
            
            'ここで、次の馬単人気順を読む、ドキュメントの用意
            strURL = "https://www.jra.go.jp" & 文字列切り出し(strLINK, "doAction('", "',") 'URL
            strPARA = "cname=" & 文字列切り出し(strLINK, "', '", "')")   'パラメーター
            strHTML = get_htmlfile_post(strURL, strPARA)  'パラメーターを付けて開く
            
            Set oDocument = Nothing
            Set oDocument = CreateObject("htmlfile")
            oDocument.write strHTML  '取得したHTMLをセット
            DoEvents
            Sleep 1000  '1秒待つ
            DoEvents

    '馬単の表、テーブルを探る
            '見出しをセルに書く
            '馬単オッズ（人気順）
            SET_X = 18 'R列から書き込む R列=13
            SET_Y = 2  'セット位置を上に戻す
            Cells(SET_Y, SET_X) = "馬単人気順"  '単純に文字列をセット
            SET_Y = SET_Y + 1
            
            'テーブルを探す
            'TABLEタグを抜きデータをセット
            Set objTABLEs = oDocument.getElementsByTagName("TABLE")
            '↑で代入したオブジェクトからテーブルデータを取り出す｡
            Set objTABLE = objTABLEs(0)  '1番目(0)を代入、今回必要なのは上位5件なので、固定処理
            '↑で見つかったかチェックする
            If objTABLE Is Nothing Then
                '見つからなかったら、終わっていたら、ループを抜ける
                MsgBox "馬単のテーブル取得エラー・・・"
                Exit For  '抜ける
            End If
                
            '表をDATAシートに書き出す
            '見出しを書く
            Cells(SET_Y, SET_X + 0) = "人気"
            Cells(SET_Y, SET_X + 1) = "組番1"
            Cells(SET_Y, SET_X + 2) = "'-組番2"
            Cells(SET_Y, SET_X + 3) = "オッズ"
            SET_Y = SET_Y + 1
            'テーブルからデータを抜き出す、書き出す
            'y=1で見出しを飛ばす
            For y = 1 To objTABLE.Rows.Length - 1  '行のループ
                '人気 組番 オッズの3列なので、0to2だけど、1-2などを個別に分割する
                'データをセルに書く
                Cells(SET_Y, SET_X + 0) = objTABLE.Rows(y).Cells(0).innerText '単純にセット
                
                '※組み合わせ番号の文字列"2-1"や"18-9"などを分割セットする
                strMOJI = objTABLE.Rows(y).Cells(1).innerText '単純にセット
                arrBOX = Split(strMOJI, "-") 'Split関数で「-」を区切り文字として分割
                Cells(SET_Y, SET_X + 1) = CInt(arrBOX(0)) '馬単の組み合わせ番号
                Cells(SET_Y, SET_X + 2) = CInt(arrBOX(1))
           
                'オッズ
                Cells(SET_Y, SET_X + 3) = objTABLE.Rows(y).Cells(2).innerText '単純にセット
                
                SET_Y = SET_Y + 1  'セット位置を次の行へ
            Next y
            
'2.4.7 作業用シートからレース別に転記する
            Sheets(nRACE & "R").Select  'シートの切り替え

            '今回は、時間別ではないので、シートをそのままコピーする
            Cells.Delete Shift:=xlUp 'シート全体を削除する
            Range("A1").Select       '先頭A1を選択する、
            '初回は、開催場所、見出しもコピーする
            Sheets("作業用").Range("A1:Z50").Copy  '大きくA1からZ50までコピー
            Range("A1").Select
            ActiveSheet.Paste
            Range("D1").Select
            
            '読み上げる※動画用
            DoEvents
            Range("A1").Speak  'A1 開催とレース
            Application.Speech.Speak "、を取得しました。"
            DoEvents
            
        End If  'フラグが立っていたら↑
        
    Next

    'MENUに戻り、保存
    Sheets("MENU").Select
    Range("A3").Select
    ActiveWorkbook.Save
   
End Sub

'URLを受け取り、HTML文字列を返す(シフトJISページ用に変換後)
Public Function get_htmlfile(strURL As String) As String

    Dim objDOC As Object
    Dim objHTML As Object
    
    Set objHTML = CreateObject("MSXML2.XMLHTTP")
    
    objHTML.Open "GET", strURL, False
    'objHTML.overrideMimeType "text/plain; charset=Shift_JIS"
    DoEvents
    objHTML.send
    Sleep 250  '0.25秒待つ

    DoEvents
    Do While objHTML.readyState <> 4
        DoEvents
    Loop
    
    Dim strHTML As String
    'strHTML = objHTML.responseText
    strHTML = StrConv(objHTML.responseBody, vbUnicode)

    'テキスト確認 デバッグ用
    Dim strFNAME As String
    strFNAME = ThisWorkbook.Path & "\testhtml.txt"
    Open strFNAME For Output As #1
    Print #1, Now() & " に実行"
    Print #1, "strURL:" & strURL
    Print #1, strHTML
    Close #1

    'Debug.Print strHTML
    Sleep 250  '0.25秒待つ
    get_htmlfile = strHTML  'リターン値で返す

End Function


'URL,パラメータを受け取り、HTML文字列を返す(シフトJISページ用に変換後)
Public Function get_htmlfile_post(strURL As String, strPARA As String) As String

    Dim objHTML As Object
    
    Set objHTML = CreateObject("MSXML2.XMLHTTP")
    
    objHTML.Open "POST", strURL, False
    objHTML.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objHTML.send (strPARA)
    DoEvents
    Sleep 250  '0.25秒待つ

    DoEvents
    Do While objHTML.readyState <> 4
        DoEvents
    Loop
    
    Dim strHTML As String
    'strHTML = objHTML.responseText
    strHTML = StrConv(objHTML.responseBody, vbUnicode)

    'テキスト確認 デバッグ用
    Dim strFNAME As String
    strFNAME = ThisWorkbook.Path & "\testhtml.txt"
    Open strFNAME For Output As #1
    Print #1, Now() & " に実行"
    Print #1, "strURL:" & strURL
    Print #1, "strPARA:" & strPARA
    Print #1, strHTML  'HTML
    Close #1

    'Debug.Print strHTML
    
    get_htmlfile_post = strHTML  'リターン値で返す

End Function

'左右のキーワードを受け取り、文字を切り出す
'<A onclick="doAction('/JRADB/accessO.html','pw15oli00/6D');return
'文字列切り出し(strMOJI, "doAction('","','")
'文字列切り出し(strMOJI, "','","')")
Public Function 文字列切り出し(strMOJI As String, strLEFT As String, strRIGHT As String) As String

    文字列切り出し = ""  'データ無しで初期化

    Dim nLEFT  As Integer
    Dim nSTART As Integer
    Dim n      As Integer
    
    '左側の位置を探す
    n = InStr(strMOJI, strLEFT)  '左側の区切り文字を探す
    If n = 0 Then Exit Function  '見つからない時抜ける
    
    '開始位置をセット
    nSTART = n + Len(strLEFT) '抜き取り開始位置

    '右側キーワードを探す
    n = InStr(nSTART, strMOJI, strRIGHT)  '右側の区切り文字を探す
    If n = 0 Then Exit Function  '見つからない時抜ける

    'MIDで抜き出す
    文字列切り出し = Mid(strMOJI, nSTART, (n - nSTART))

End Function

'リンクから、レースのTR行を探し、列 ここではワイドなどを返す 20220924追加修正
'strLINK = IE_Link_InnerHTML_InStr_TR_TD(oDocument, strRACE, "ワイド")
'IEのリンクオブジェクトから文字列をInStrで探して返す
Public Function IE_Link_InnerHTML_InStr_TR_TD(oDocument As Object, _
                                                strレース As String, _
                                                str種類 As String) As String

    Dim i As Integer
    Dim objA As Object  'as HTMLAnchorElement
    Dim strWORK As String
    Dim n As Integer
    
    'まず、リンクから受け取ったレース文字列を返す
    IE_Link_InnerHTML_InStr_TR_TD = "ERR"  '初期値にERRセット
    For i = 0 To oDocument.Links.Length - 1
        'レースの文字列を見つけたら　クリックじゃなかった次の種類を探す
        If InStr(oDocument.Links(i).outerHTML, strレース) > 0 Then '内側のHTML
            
            '本当は、見つけた行、TRを取得して、その中のTDを探した方がかっこいいけど
            'ここでは、カウンターのiを使い、iより後ろで見つかったものを返す
            'iとnのループカウンタ、添え時に注意してね
            For n = i + 1 To oDocument.Links.Length - 1
                'レースの文字列を見つけたら　クリックじゃなかった次の種類を探す
                If InStr(oDocument.Links(n).outerHTML, str種類) > 0 Then '内側のHTML
                    IE_Link_InnerHTML_InStr_TR_TD = oDocument.Links(n).outerHTML  '見つけたAタグオブジェ(リンク)を代入
                    Exit For  '↑同じ行TRのチェックしてないけど・・・
                End If
            Next n
            
            Exit For '見つけたのでループを抜ける ↑が同じTR行内のチェックしてないけどね・・・
        End If
    Next i
    
Debug.Print "リターン:" & IE_Link_InnerHTML_InStr_TR_TD
End Function

簡単な解説
日付: 2026/04/25

タイトル仮):
VBAでMSXML2.XMLHTTPを使用して JRAオッズ人気順で単勝・馬連・馬単を同時に取得したい

0.質問内容と過去の設置動画を紹介する

下記の質問メッセージをいただきました

VBAでXMLHTTPを使用して JRAオッズ人気順で単勝・馬連・馬単を同時に取得したい
馬連上位5件
馬単上位5件
の馬番号を取得したい

おっさんの回答:

VBAでXMLHTTPを使用するコードですね。
(パワークエリでは無くて、)

26年2月の謝罪動画
https://www.youtube.com/watch?v=2Pt_-qVQQ_c
のコードと設置方法を参考にして、
改造してみます。

1.まず実行テストを見せる

①B2に開催地を入れます

今週のオッズ
4月25日（土曜）
2回東京1日
3回京都1日
1回福島5日
4月26日（日曜）
2回東京2日
3回京都2日

②テスト用のレースに1を立てます
最終オッズや発送済みだとスキップするので、発走時刻をクリアして、
テスト用のレースに1を立てます

③実行ボタンを押します

2.簡単なコード・プログラムの流れを解説する

Set objHTML = CreateObject("MSXML2.XMLHTTP")
でJRAのページを読み込み、
Set oDocument = CreateObject("htmlfile")
oDocument.write strHTML '取得したHTMLをセット

HTMLのドキュメントオブジェクトとして処理
(リンクを探したり、テーブルのデータを取得したり)
を行う、
そんなパターンの連続です

処理の流れを、現物を見ながら説明する

JRAホームページからオッズを探す
'2.1 JRA TOP ページの表示
'2.2 リンクからオッズを取得(リンクを押すような処理・次を読む)
↓
MENUシートB2の日付を探して次のページへ
'2.3 B2開催のリンクを探して、次(レース・オッズ一覧)を読む
'開催日のリンクをあさる
strLINK = IE_Link_InnerHTML_InStr_Click(oDocument, Sheets("MENU").Range("B2"))
↓
ループ処理(1R-12R)まで、フラグと最終オッズを見ながら処理する
'2.4 1Rから12Rまで、ループする。※これだと前日発売の時1Rでトラブルなぁ
For nRACE = 1 To 12 '一から十二まで
'B5からのフラグが立っていたら And 最終じゃなければ
'レースを取り込む
If Sheets("MENU").Range("B4").Offset(nRACE, 0) = 1 _
And Sheets("MENU").Range("B4").Offset(nRACE, 1) <> "最終" Then

初回なら、目的の単勝レースをHTMLドキュメントにする
単勝馬番順
↓
単勝人気順にしたい

'2.4.1 初回は単勝のレース番号を読み、※スグに人気順に切り替える←ココポイント
If str初回FLG = "初回" Then 'フラグが初回？
'リンクから、レースのTR行を探し、列ここでは単勝を探して返す
strLINK = IE_Link_InnerHTML_InStr_TR_TD(oDocument, strRACE, "単勝")
'2.4.2 初回は単勝のレース番号を読み、※スグに人気順に切り替える←ココポイント
If str初回FLG = "初回" Then 'フラグが初回？
'リンクから、レースのTR行を探し、列ここでは単勝を探して返す
strLINK = IE_Link_InnerHTML_InStr_TR_TD(oDocument, strRACE, "人気順")
str初回FLG = "フラグを折る・初回を抜ける" 'フラグを折る。次の指示
'人気順を探して押したいので(ドキュメントを人気順にしたい)

※ポイント
'2.4.3 ここで、やっと単勝の人気順を読む
strURL = "https://www.jra.go.jp" & 文字列切り出し(strLINK, "doAction('", "',") 'URL
strPARA = "cname=" & 文字列切り出し(strLINK, "', '", "')") 'パラメーター
strHTML = get_htmlfile_post(strURL, strPARA) 'パラメーターを付けて開く

'2.4.4 単勝の表、テーブルを取得する
'TABLEタグを抜きデータをセット
Set objTABLEs = oDocument.getElementsByTagName("TABLE")

'2.4.5 馬連オッズの処理
'馬連オッズへドキュメントを移動する(読み込みたいので)
'単勝人気順のドキュメントから、"馬連"のリンクを探す
strLINK = IE_Link_InnerHTML_InStr_Click(oDocument, "馬連")

'2.4.6 馬単オッズの処理
'馬単オッズへドキュメントを移動する(読み込みたいので)
'上の馬連人気順のドキュメントから、"馬単"のリンクを探す
strLINK = IE_Link_InnerHTML_InStr_Click(oDocument, "馬単")

'2.4.7 作業用シートからレース別に転記する
Sheets(nRACE & "R").Select 'シートの切り替え
作業用シートからレース別へデータをコピーする

※※ここで1レース単位終了、ループの頭へ戻る
現在のドキュメントの状態は、
"馬単人気順"のページ、ドキュメントを保持しています

二回目のループ

'2.4.8 ２回目以降は、馬単のオッズの位置でレースを選択(なんか紛らわしいけど・・)
'リンクから該当するレースを探しクリックする "1R".."12R"
'Call IE_Link_InnerHTML_InStr_Click(oDocument, """" & strRACE & """")
strLINK = IE_Link_InnerHTML_InStr_Click(oDocument, strRACE)
ここで、このドキュメントで
レースを条件にデータを探すと、
次のレースの馬単のページ、ドキュメントになる

単勝に戻したいので、そのレースの単勝を探す
'2.4.9 ２回目以降は、レース選択後、単勝に戻す(なんか紛らわしいけど・・)
'リンクから単勝を探しクリックする※一度馬単になっているので、もったいないけど
'Call IE_Link_InnerHTML_InStr_Click(oDocument, """" & strRACE & """")
strLINK = IE_Link_InnerHTML_InStr_Click(oDocument, "単勝")

このIfの流れで、
'2.4.3 ここで、やっと単勝の人気順を読む
strURL = "https://www.jra.go.jp" & 文字列切り出し(strLINK, "doAction('", "',") 'URL
strPARA = "cname=" & 文字列切り出し(strLINK, "', '", "')") 'パラメーター
strHTML = get_htmlfile_post(strURL, strPARA) 'パラメーターを付けて開く
へ合流して、
ループを繰り返すと、
人気順のテーブルをループ処理で取得できます
※人間的には、馬単の読み込みが2回になるので、ループ的には美しくないのですが・・・・

3.おわりの挨拶といつものバグ報告

現在の不具合
1.枠番号が空白
単純にテーブルテキストを取得しているので、
画像表示の枠番号が取得されていない、
個別に画像ファイル名で取得しないとだめです

2.上位5件ならと手抜きをしているので・・・
上位5件なら、
テーブル0番目を抜いてしまえばOKと考えていたが、

3回京都1日 8レース
のように、
6頭立てのレースだと、
馬連のテーブル0が上位4までの出力だった
※4列表示で、均等にしているので？出走する馬の数が少ないと、5以下になる・・・
また、全ての人気順を取得したいなど、追加要望があった時の対応など、
固定のテーブル(0)処理は、良くないですね・・・・

こんな感じで、
不具合がありますが、
人気順のオッズを取得することができると思います
アレンジして、使ってみてください。

解決のヒントとなれば、幸いです。

ソースコード全体とマクロ付きファイルのダウンロード
https://note.com/calm_slug2867/n/nd5e26b1b5292
でマクロ付きの.xlsmをダウンロードできます
合わせて、使ってみてください。

2026/04/23頃？VREW4のバージョンアップが来そうですね。

2026-04-16T06:00:00+09:00

04/22 バージョンアップされました

04/22バージョンアップ後にスクショを撮る

私は(も？) AIショート動画連発で収益停止になったし使わないかもしれないけど・・・
2026/04/23頃？VREW4のバージョンアップが来そうですね。

YouTubeライブ配信予定のスクショ

[Vrew] 4.0.0 업데이트 안내 - 이미지 하나로 생성부터 영상까지 완성
https://www.youtube.com/watch?v=E0mJj9pPhDc
www.youtube.com

Excel VBA シート内のイベントでドラッグアンドドロップを判断移動元のセルを灰色、移動先を赤色にする方法

2026-04-15T06:00:00+09:00

やりたいこと:
シート内のイベントでドラッグアンドドロップを判断して
移動元のセルを灰色、移動先を赤色にする
www.youtube.com

方針・アプローチ方法:
イベントは、シートのイベント Worksheet_Changeのイベントでタイミングを取り、
リボンの時代に、
昔のコマンドバーオブジェクトから
元に戻す(CTRL+Z)のツールチップに表示されている文字列を取得して
ドラッグアンドドロップが実行されたか？の判断材料にする

って、何言ってんの？このおじさんは・・って感じなので、
細かいテストのコードから説明を開始します、

ダウンロード可能なファイルは
https://note.com/calm_slug2867/n/neb62fcc0e617?sub_rt=share_pb
を見てください

1.元に戻す(CTRL+Z)のツールチップとは・・・ここです

Excelで何か、入力をしたり、変更します
左上のクイックツールバーの
CTRL+Z 元に戻す
に
マウスカーソルを合わせると、

元に戻すのコマンドにマウスカーソルを合わせると履歴が見える、本当はこれを取りたかったけど

直前の動作が表示されると思います
添付画像の①元に戻すのアイコンを押すと、動作が保存されている
これを取得出来たらいいなぁ・・・

2.VBAでコマンドやり直し"元に戻す"を取得する

懐かしのコマンドバーをAIに聞いて探ってみます

'AIに"元に戻す"コマンドを取得するコードを聞いてテスト
'26/04/14 Win10延長サポート+MS365のExcelでテスト
Sub undoCtrl()
    Dim undoCtrl As CommandBarControl
    Dim fullText As String

    ' Excelの内部ID「128（元に戻す）」を使って、ボタンの情報を取得します
    Set undoCtrl = Application.CommandBars.FindControl(ID:=128)

    ' ボタンが見つからない、または履歴が空の場合の処理
    If undoCtrl Is Nothing Then
        MsgBox "操作履歴が見つかりませんでした。"
        Exit Sub
    End If

    ' Captionプロパティには「元に戻す: 貼り付け (&U)」のような文字列が入っています
    Debug.Print ".Caption", undoCtrl.Caption
    
    ' TooltipTextプロパティには
    ' 元に戻す(&U) セルの挿入 (Ctrl+Z)
    ' 元に戻す(&U) セル C3 への '123' の入力 (Ctrl+Z)
    'のような文字列が入っています
    Debug.Print ".TooltipText", undoCtrl.TooltipText

    MsgBox undoCtrl.TooltipText, vbInformation

End Sub

3.ワークシートのイベントで使ってみる

'シートのイベントで使ってみます
Private Sub Worksheet_Change(ByVal Target As Range)

    Debug.Print Target.Address & " -- で操作が発生したよ"

    'コマンドバーを見る
    Dim objCtrl As CommandBarControl
    Dim txtTooltipText As String
    
    'Excel操作でツールチップを更新待ち、無くても良いか？後でチェック
    DoEvents
    
    ' やり直し「元に戻す」ボタンを取得 128の固定値でテスト
    Set objCtrl = Application.CommandBars.FindControl(ID:=128)
    If objCtrl Is Nothing Then
        Debug.Print "128で「元に戻す」が見つかりません"
    Else
        'ツールチップのテキストを取得する
        txtTooltipText = objCtrl.TooltipText
        Debug.Print txtTooltipText
    End If

End Sub

4.質問の試作

ドラッグアンドドロップ時の
１つ前のアドレスを保存して、
色を変更してみます
※テスト不足のバグ付きですが、参考となれば

Option Explicit

Private str移動元 As String  '一つ前で移動元アドレスを保存するための変数

Private Sub Worksheet_Change(ByVal Target As Range)

' エラーが発生したときに、強制的に「ErrorExit」へ飛ばします
    On Error GoTo ErrorExit
'↑デバッグ中は、注意。

    'いつものイベントを一時停止する呪文
    Application.EnableEvents = False
    Debug.Print Target.Address & " -- で操作が発生したよ"

    'コマンドバーを見る
    Dim objCtrl As CommandBarControl
    Dim txtTooltipText As String
    
    'Excel操作でツールチップを更新待ち、無くても良いか？後でチェック
    DoEvents
    
    ' やり直し「元に戻す」ボタンを取得 128の固定値でテスト
    Set objCtrl = Application.CommandBars.FindControl(ID:=128)
    If objCtrl Is Nothing Then
        Debug.Print "128で「元に戻す」が見つかりません"
    Else
        'ツールチップのテキストを取得する
        txtTooltipText = objCtrl.TooltipText
        Debug.Print txtTooltipText
        '"ドラッグ アンド ドロップ"の時、特殊な処理を行う
        If InStr(txtTooltipText, "ドラッグ アンド ドロップ") > 0 Then
            If Trim(str移動元 & "") = "" Then '1回目の時は、アドレスのみ保存する
                str移動元 = Target.Address
            Else  '二回目の時、連続の時色の処理を行う
                '元セル(保存された変数を利用)を灰色に
                Range(str移動元).Interior.Color = RGB(128, 128, 128)
                '移動先 2回目は、素直にTargetを使用する
                Target.Interior.Color = RGB(255, 0, 0)
                '2回目の処理が終わったので、保存アドレスを忘れないでクリアする
                str移動元 = ""
            End If
        
        Else '他の操作時、移動元アドレスをクリアする
            str移動元 = ""
        End If
    End If

ErrorExit:
    ' (正常に終わっても、エラーで飛ばされてきても、ここを通す)
    'イベントを必ず再開
    Application.EnableEvents = True

End Sub

5.おわりの挨拶

少し、アプローチが違うかもしれませんが、

連続で
Worksheet_Change
イベントが発生するので、
ツールチップの文字列、
If InStr(txtTooltipText, "ドラッグアンドドロップ") > 0
で判断して、
ドロップ元(移動元)とドロップ先(移動後)の色を変化させてみました

解決のヒントとなれば幸いです。

【結論：Excelは「元に戻す」を見ればD&Dを完全に見抜けます！】

Worksheet_Changeイベントだけでは判別不能な「ドラッグ＆ドロップ（D&D）」操作。
この動画では、内部ID「128」のツールチップを覗き見るという、AIも驚く裏技で「移動元」と「移動先」を自動で色分けする仕組みを実演解説します。

▼ お急ぎの方は、各見どころへ直接ジャンプ！

1. 【核心】Excelが隠し持つ「操作の証拠」を掴む瞬間
タイムライン： 01:26 https://www.youtube.com/watch?v=ayLojPeULEQ&t=86
内容：「元に戻す」ボタンの内部情報を取得するロジック。これがあらゆる操作特定の鍵です。

2. 【技術解説】VBAでツールチップの文字を読み取る基本コード
タイムライン： 03:42 https://www.youtube.com/watch?v=ayLojPeULEQ&t=222
内容： CommandBars(ID:=128)から操作名を取得する具体的な記述方法。

3. 【難所攻略】D&D特有の「2回連続イベント」を制御する
タイムライン： 11:01 https://www.youtube.com/watch?v=ayLojPeULEQ&t=661
内容： 2回発生するChangeイベントを一つの操作として完結させるロジックの構築。

4. 【実演検証】実際にセルが灰色と赤色にパッと変わる瞬間
タイムライン： 15:45 https://www.youtube.com/watch?v=ayLojPeULEQ&t=945
内容： D&D後に「移動元」と「移動先」が視覚化される様子を実演。

5. 【誠実なポイント：注意点】
・Excelの言語設定に依存する「文字列判定」のコツと、将来の仕様変更への懸念についても正直に解説しています。

▼
Excel VBAの可能性を広げるこの「ツールチップ監視術」、試してみた感想をぜひコメント欄で教えてください！
「こんな操作も検知できたよ！」という報告もお待ちしています。

#ExcelVBA #ドラッグアンドドロップ #CommandBars #仕事効率化 #VBA中級者 #裏技

Power QueryでJRA馬連オッズ取得の手順解説 Html.Table関数を使用してTH,TDタグ指定で値を取得する方法

2026-04-06T14:00:00+09:00

【Excel】Power QueryでHTMLソースから値を抜き出す Html.Table関数を使用してTH,TDタグ指定で値を取得する方法 JRA馬連オッズ取得を例題にして解説を行う

テストファイルのダウンロードページは
https://note.com/calm_slug2867/n/n59bdd9dcfb89?sub_rt=share_pb
を見てください。

ライブ配信動画URL:
https://youtube.com/live/EUGMC7UzUz8

www.youtube.com
【タイムライン】
00:00:00 イントロ：大阪杯のオッズ取得テスト
00:02:01 手順01：POST送信でHTMLソース全体を取得する
00:03:57 手順02：馬連テーブルのソースを分割・抽出する
00:13:40 手順03：単体テーブルからの値取り出しテスト（Html.Table活用）
00:26:23 手順04：List.Transformで全テーブルを一括変換する
00:37:03 蛇足：なぜUI操作（Web.Page）だと失敗するのか？検証
00:44:47 おまけ：馬単だと成功する謎の現象

【結論：パワークエリの「最後の一行が消える」問題は、ソース直接分割で完勝できます！】

JRAの馬連オッズ取得で、なぜか「最後の一行」だけが取り込めず悩んでいませんか？
UI操作（Web.Page関数）の限界を、M言語によるソース直接分割で突破する方法を解説します。

1. 【核心：なぜ失敗するのか？】Web.Page関数の限界を検証
00:43:03 https://youtube.com/live/EUGMC7UzUz8?t=2583
UI操作でデータが欠ける原因を突き止めます。

2. 【必見：解決策】HTMLソースをText.Splitで強制分解
00:03:57 https://youtube.com/live/EUGMC7UzUz8?t=237
M言語でテーブル構造を直接切り分ける、本動画のメインディッシュです。

3. 【正直にお伝えします：注意点】
ライブならではの試行錯誤も含め、生のプログラミングの過程を公開しています。
「100%正解」の提示ではなく、現場でどうデバッグしていくかのヒントにしてください！

#PowerQuery #Excel #JRA #スクレイピング #M言語 #競馬予想

ライブ時に使用した台本:

まず、HTMLソースからTABLEを集める

01HTMLソース全体を取得する
いつものようにPOST送信で、
HTMLのソースを取得する
改行区切りで出力する

let

    // JRAホームページからソースを取得する POST送信で結果を受け取る
    strURL = "https://www.jra.go.jp/JRADB/accessO.html",
    // セルからパラメーターを受け取る strPARA = Text.ToBinary("cname=pw15oli00/6D"),固定をやめるため
    strCNAME = "cname=" & Excel.CurrentWorkbook(){[Name="レース種類別CNAME"]}[Content]{0}[Column1],
    strPARA = Text.ToBinary(strCNAME),
    strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],
    ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
    コード変換後の文字列 = Text.FromBinary(ソース, 932),
    改行区切りの文字列 = Text.Split(コード変換後の文字列, "#(cr,lf)")

in
    改行区切りの文字列

02馬連TABLEのソースを抜き出す

Text.Splitで

まで整形、と、分割時に消えた

let

    // JRAホームページからソースを取得する POST送信で結果を受け取る
    strURL = "https://www.jra.go.jp/JRADB/accessO.html",
    // セルからパラメーターを受け取る strPARA = Text.ToBinary("cname=pw15oli00/6D"),固定をやめるため
    strCNAME = "cname=" & Excel.CurrentWorkbook(){[Name="レース種類別CNAME"]}[Content]{0}[Column1],
    strPARA = Text.ToBinary(strCNAME),
    strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],

    ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
    // 大きく、全体ソースをまず取得する
    HTML文字列 = Text.FromBinary(ソース, 932),


    // 全体ソースから、開始タグで分割してリストを作成する
    // class名"basic narrow-xy umaren"のテーブルを抜き出したい
    lstTABLEとクラスで分割 = Text.Split(HTML文字列, "<table class=""basic narrow-xy umaren"">"),

    // 上半分・いらない部分をスキップする最初の要素を飛ばす
    lstTABALのデータ = List.Skip(lstTABLEとクラスで分割, 1),

    // 終了タグ</table>で区切り、分割処理で消えた開始TABLEタグを付け直す
    lstテーブルソースのリストを作成 = List.Transform(lstTABALのデータ, each 
        "<table class=""basic narrow-xy umaren"">" & Text.BeforeDelimiter(_, "</table>") & "</table>"
    ),

in
    lstテーブルソースのリストを作成

03単体固定テストでテーブルから値を取り出す

let
    // 3.1 テストデータの定義 固定で2つのセルをコピーして使う
    lstテーブルテキストソース = { 
        "<table class=""basic narrow-xy umaren"">
          <caption>12</caption>
          <tbody>
            <tr>
                <th scope=""row"">13</th>
                <td>385.0</td></tr>
            <tr>
                <th scope=""row"">14</th>
                <td>237.6</td></tr>
            <tr>
                <th scope=""row"">15</th>
                <td><strong class=""red"">14.9</strong></td></tr>
            </tbody>
        </table>",
"<table class=""basic narrow-xy umaren"">
          <caption>13</caption>
          <tbody>
            <tr>
                <th scope=""row"">14</th>
                <td>1611.9</td></tr>
            <tr>
                <th scope=""row"">15</th>
                <td>164.5</td></tr>
            </tbody>
        </table>"
    },

    // リスト全体をループしないで、まずは１つだけでテストする
    txtTEST = lstテーブルテキストソース{0},

    // 3.2 caption 馬番号の取得（captionはテーブル内で1項目なのでループ無しで直接取る）
    TBcaption = Html.Table(txtTEST, {
        {"馬番", "caption", each _[TextContent]}
    }),
    txt馬番 = TBcaption{0}[馬番],

    // 3.3 詳細（tr）行で処理する
    // 「each _」で要素そのものを一旦受け取る、[RowSelector="tr"]指定でまず要素を取得する
    行TR単位で要素THTDをテーブルにする = Html.Table(txtTEST, {
        {"相手馬番", "th", each _},
        {"オッズ値", "td", each _}
    }, [RowSelector="tr"]),

    // 3.4 次に要素から「TextContent」を抽出する
    // 「Function」がわからなかったので、2段階処理にしました、違う書き方がわかる人は教えてください
    THとTDのテーブル = Table.TransformColumns(行TR単位で要素THTDをテーブルにする, {
        {"相手馬番", each _[TextContent]},
        {"オッズ値", each _[TextContent]}
    }),

    // 3.5 基準の馬番を追加 すると列追加なので、列の順番を最後に変更する
    馬番追加後のテーブル = Table.AddColumn(THとTDのテーブル, "馬番", each txt馬番, type text),
    馬連オッズのテーブル = Table.ReorderColumns(馬番追加後のテーブル, {"馬番", "相手馬番", "オッズ値"})
in
    馬連オッズのテーブル

04複数テーブルを変換して馬連オッズを作成する

let

    // JRAホームページからソースを取得する POST送信で結果を受け取る
    strURL = "https://www.jra.go.jp/JRADB/accessO.html",
    // セルからパラメーターを受け取る strPARA = Text.ToBinary("cname=pw15oli00/6D"),固定をやめるため
    strCNAME = "cname=" & Excel.CurrentWorkbook(){[Name="レース種類別CNAME"]}[Content]{0}[Column1],
    strPARA = Text.ToBinary(strCNAME),
    strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],

    ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
    // 大きく、全体ソースをまず取得する
    HTML文字列 = Text.FromBinary(ソース, 932),

    // 4.1 馬連オッズのページから、TABLEタグのHTMLソースを抜き出す
    // 全体ソースから、開始タグで分割してリストを作成する
    // class名"basic narrow-xy umaren"のテーブルを抜き出したい
    lstTABLEとクラスで分割 = Text.Split(HTML文字列, "<table class=""basic narrow-xy umaren"">"),

    // 上半分・いらない部分をスキップする最初の要素を飛ばす
    lstTABALのデータ = List.Skip(lstTABLEとクラスで分割, 1),

    // 終了タグ</table>で区切り、分割処理で消えた開始TABLEタグを付け直す
    lstテーブルソースのリストを作成 = List.Transform(lstTABALのデータ, each 
        "<table class=""basic narrow-xy umaren"">" & Text.BeforeDelimiter(_, "</table>") & "</table>"
    ),

    // 4.2 上記HTMLソースの各要素に対して、ループで回し、複数テーブルを取得する
    各馬連オッズのテーブル = List.Transform(lstテーブルソースのリストを作成, (txtHTMLTABLEソース) =>
        let
            // 3.2 caption 馬番号の取得（captionはテーブル内で1項目なのでループ無しで直接取る）
            TBcaption = Html.Table(txtHTMLTABLEソース, {
                {"馬番", "caption", each _[TextContent]}
            }),
            txt馬番 = TBcaption{0}[馬番],

            // 3.3 詳細（tr）行で処理する
            // 「each _」で要素そのものを一旦受け取る、[RowSelector="tr"]指定でまず要素を取得する
            行TR単位で要素THTDをテーブルにする = Html.Table(txtHTMLTABLEソース, {
                {"相手馬番", "th", each _},
                {"オッズ値", "td", each _}
            }, [RowSelector="tr"]),

            // 3.4 次に要素から「TextContent」を抽出する
            // 「Function」がわからなかったので、2段階処理にしました、違う書き方がわかる人は教えてください
            THとTDのテーブル = Table.TransformColumns(行TR単位で要素THTDをテーブルにする, {
                {"相手馬番", each _[TextContent]},
                {"オッズ値", each _[TextContent]}
            }),

            // 3.5 基準の馬番を追加 すると列追加なので、列の順番を最後に変更する
            馬番追加後のテーブル = Table.AddColumn(THとTDのテーブル, "馬番", each txt馬番, type text),
            馬連オッズのテーブル = Table.ReorderColumns(馬番追加後のテーブル, {"馬番", "相手馬番", "オッズ値"})
        in
            馬連オッズのテーブル
    ),

    // 4.3 テーブルを結合する
    馬連オッズTBをまとめる = Table.Combine(各馬連オッズのテーブル),

    // 4.4 型の変換
    馬連オッズ完成テーブル = Table.TransformColumnTypes(馬連オッズTBをまとめる, {
        {"馬番", Int64.Type},
        {"相手馬番", Int64.Type},
        {"オッズ値", type number}
    })
in
    馬連オッズ完成テーブル

5.蛇足とおまけの解説、なぜ？こんな面倒な取得を行ったか？

パワークエリーを使用しているんだから、
自分でコードを書かないで、
メニュー操作で、できるのでは？

と
私も思ってました。

私の勘違いかもしれないのですが、
POST送信で取り込んだWeb.Pageからの操作だと、
最後の馬連オッズが取得できなかったです

気になるので、再テストしてみます

馬連オッズを読み込んで、
テーブルを展開してみると、

こんな感じで、うまく行きませんでした。

メニュー操作や、展開の使い方がわるいのか？
もし、
何か知っている人が居たら、コメント欄で教えてください

また、
馬単は、
同じ操作の展開でうまく行きます(おいおい)

6.おわりの挨拶、

最後に謎を残しつつ、
今回も中途半端で失礼します。

詳細のテスト解説をまたやると思うので、よろしくお願いします。

※ファイルなど、まとめたら、ダウンロードできる形でお知らせします。

YouTubeページの紹介

他のサンプルですが、設置方法の解説は、
【Excel】JRAオッズを自動取得！Power Queryでパワークエリーを0から設置するテスト環境作成の完全ガイド
https://www.youtube.com/watch?v=LgeRCGZRxNQ
↑を見てください。

関連動画:
過去の関連動画は、下記の再生リストから
https://www.youtube.com/playlist?list=PLBFC80A8658C305CE
↑未解決や単体テストの動画が多いのですが、拾い読みてください。

JavaScriptのdoActionリンク処理 POST送信については

ア.doActionでCNAME(パラメーター)を送り結果を取得する方法をパワークエリーで実現する

https://youtube.com/live/ntj8o1D_Jrk
↑POST送信のページをパワークエリーで取得する方法

イ.3連単など違うパターンでPOST送信されている場合

https://youtube.com/live/wBzgPrrjqUU
↑パラメーターの数が３つになった時の処理例

2026/04/05 ライブ実行時のサムネイル

いつもの早とちり知恵袋の質問でVrewの7月サービス終了を見て焦るオジサン

2026-04-01T00:00:00+09:00

知恵袋の質問でVrewのサービス終了を見て焦るオジサン

下記、質問を見て、
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12326744347
detail.chiebukuro.yahoo.co.jp
びっくりしたぁ、

Vrew モバイルサービス終了のお知らせ
https://vrew-help.notion.site/Vrew-2c4c552a746e80d9a7d1dee1cd44f6b1
vrew-help.notion.site

あっ、
モバイルサービスの終了かぁ。

PC版は、大丈夫なんだよなぁ・・・・

- 補足情報

Google Play: Vrew ブリュー
https://play.google.com/store/apps/details?id=com.voyagerx.vrew.android&hl=ja

Vrew3.7.X の情報が無い・・と騒いでいたら、Youtubeのページ教えてもらいました

2026-03-26T14:00:00+09:00

Vrew3.7.X の情報が無い・・と騒いでいたら、Youtubeのページ教えてもらいました

Vrew3.7の情報、コメントで教えてもらいました
https://www.youtube.com/@vrew/streams
↑
ココに載っているみたいです

このページの配信予定(4/1)を見ると
Vrew3.8がリリースされるみたいですね

2026/03/26 スクショ撮影 4/1にVrew3.8.0の紹介ライブ？

Ver3.8.0が4/1にリリース予定？
機能紹介？

コメントで、情報、ありがとう
日本語・自動翻訳でYouTubeのページを見てみます。

2026/03/25 「みなさんに良いことがありますように」

2026-03-25T20:00:00+09:00

「みなさんに良いことがありますように」
「そして、その一部でもまわりまわって私に来るといいなぁ」

いつものAIで生成した画像を添付する

下記、GeminiからNanoBanana2へ渡したプロンプト

1:1 正方形の比率でイラストをデザインしてください

左上に大きくラベル・リボンで
「2026年03月25日」 と日付をラベル・リボンで左上にデザインしてください

太った眼鏡をかけた男性が願っている様子・つぶやいている様子

「みなさんに良いことがありますように」
「そして、その一部でもまわりまわって私に来るといいなぁ」
上記2つのつぶやきを日本語で視認しやすく、大きくデザインしてください

上記イラストをデザインして描画してください

画像生成の参考となれば幸いです。

3D isometric icon AI画像生成プロンプト例

2026-03-18T10:35:43+09:00

3D isometric icon

プロンプト例:

比率1:1の正方形
中年の男性がパソコンを操作している姿を
3D isometric icon, soft matte plastic texture, pastel color palette, rounded edges, C4D style, Octane Render.
で、デザインして描いて

と指示をしてみた

NanoBanana2:

GeminiからNanoBanana2を使用した例

NanoBananaPRO:

GeminiからNanoBanana PROを使用した例

画像作りの参考となれば幸いです

パワポの「文字を直すとアニメ順が戻る」テスト260315

2026-03-15T10:00:00+09:00

【結論：パワポの「文字を直すとアニメ順が戻る」問題は、手動設定で回避できます！】

せっかく順番を入れ替えたのに、1文字直しただけでリセットされる…そんな経験ありませんか？
この動画では、プレースホルダー特有の「嘘のような本当の仕様」の正体と、そのイライラを確実に防ぐ回避策を実演しています。

お急ぎの方は、以下のハイライトからチェックしてください！

1. 【魔法が解ける瞬間】一文字の修正でアニメ順が全リセットされる「罠」
タイムライン： 02:35 https://www.youtube.com/watch?v=S7iOGRSDhVw&t=155
内容：設定した順番が崩れる瞬間を再現しています。

2. 【解決の鍵】「段落別オプション」を使わない確実な回避手順
タイムライン： 10:20 https://www.youtube.com/watch?v=S7iOGRSDhVw&t=620
内容：プレースホルダーの一括設定に頼らず、アニメーションを維持する方法です。

3. 【深掘り解説】プレースホルダーが持つ「謎の仕様」の正体
タイムライン： 04:28 https://www.youtube.com/watch?v=S7iOGRSDhVw&t=268
内容：なぜ文字を追加すると順番が戻ってしまうのか、その構造的理由を語ります。

4. 【実演まとめ】回避策を使った実際の手順（テスト003）
タイムライン： 11:22 https://www.youtube.com/watch?v=S7iOGRSDhVw&t=682
内容： 1-1から順番に、確実に設定していく実演デモです。

5. 【正直にお伝えします：注意点】
・今回の方法は、プレースホルダー内の自動機能を一部放棄するため、手作業の工程が増えます。
・完全に「自動」で解決する魔法のボタンはありませんが、この「仕様」を知っているだけでプレゼン前の事故を100%防げます！

#PowerPoint #パワポ #アニメーション #プレースホルダー #仕事効率化 #検証

AIが図解しました

PowerPointでアニメーションの順番を入れ替えても、文字を修正すると元に戻ってしまう…そんな「嘘のような本当の仕様」に悩んでいませんか？回避策を実演解説します。

要約: パワーポイントのプレースホルダーで段落別にフェードを設定し、順序を入れ替えた後に「文字の追加や修正」を行うと、なぜかアニメーション順が初期化される現象を検証しました。

目次:
[00:00] はじめに：パワポの「嘘のような本当」の困った仕様掲示板の質問紹介：文字を直すとアニメ順が戻る？
[01:12] 検証開始：プレースホルダーに「段落別フェード」を設定
[01:42] 現象再現：アニメ順を入れ替えた後に「文字修正」をしてみる
[02:35] 【衝撃】1文字直しただけで順番がデフォルトにリセット！
[04:28] 原因の深掘り：プレースホルダーの「効果のオプション」の罠
[07:33] 追加検証：文字の「削除」なら順番は維持される？
[09:25] なぜExcelのグラフと同じ現象が起きるのか？
[10:20] 解決策の提示：自動の「段落別設定」を使わない回避術
[11:22] まとめ：個別にアニメーションを設定する手順（実演）
[12:15] 最後に：この「仕様」を知って無駄な修正を減らそう

この動画を見てほしい人：
・パワポで複雑なアニメーション順序を設定したい人。
・「文字を直すたびにアニメを設定し直している」という非効率な作業を卒業したい人。

#PowerPoint #パワポ #アニメーション #仕事効率化 #検証

パワーポイントプレースホルダーにフェードのアニメをを段落別にして、掲示板の質問にチャレンジする

嘘のような、本当のお話？

質問内容:
＞
PowerPoint（パワポ）のアニメーションの順番についてですが、
最初に上から順に、下記のように文字を入力しています。

1-1
1-2
2-1
2-2
3-1
3-3
アニメーションを設定して、再生の順番を下記のように入れ替えました。

1-1
2-1
3-1
1-2
2-2
3-2

この後、入力後の文字の追加や修正をすると、アニメーションの順番が入れ替え前に戻ってしまいます。（文字の削除の場合は、順番は入れ替えたままです）

これはバグ？またはパワポの仕様なのでしょうか？
アニメーションを設定して、順番を入れ替えた後に文字の修正は出来ないのでしょうか？
＜

おっさんの回答、

その昔、Excelのグラフの系列別で同じようなこと(グラフの数値を変えたら系列の順番が1からにもどった)
https://www.youtube.com/watch?v=84ssQjevr84&t=411
が
あったので、

気になったので、実際にやってみた

1-1 1の質問アニメの順番を奇数を先にフェードする
1-2 1の回答偶数は奇数が終わってから
2-1 2こんな感じ
2-2 2こんな感じ
3-1 3奇数終わり、次は1-2を表示する
3-2 3おわり

プレースホルダーにセット、
段落にする

アニメーションをフェードの段落別にする
↑
段落別の順番でグループとして、作成される

※とりあえず、そのままテスト

▼を押して、段落内の順番を変更する
順番を変更する

※テストする

＞この後、入力後の文字の追加や修正をすると、アニメーションの順番が入れ替え前に戻ってしまいます

文字を修正すると

あっ・・・こんな感じかなぁ？

ポリシー違反で生成不可 "a young Japanese female"が原因？それとも？ Flow(Veo3.1)で動画生成テスト 2026-03-06

2026-03-05T14:11:45+09:00

ポリシー違反で生成不可 "a young Japanese female"が原因？それとも？ Flow(Veo3.1)で動画生成テスト 2026-03-06

私が最近AIに話しかけているのが、デバッグとラーメン動画の作り方だったので、
面白いショート動画のアイデアをAIに聞くと、下記のプロンプトを紹介してくれた

「深夜のデバッグとラーメン」のドラマチック動画

プロンプト: Cinematic 360-degree orbital shot circling a middle-aged Japanese man with glasses and a stocky build, typing intensely on a laptop. Suddenly he shouts 'やった！' (Yatta!) in Japanese as a bug is fixed. Camera slowly dollies out to reveal a pile of empty ramen bowls under warm neon lighting. Slow motion, high-fidelity audio.

作成結果:
https://youtu.be/pZGaz_q4tis?si=AUJCtlH0g9o4OkJr
↑こんな感じで、作成してます。

単純に日本語に機械翻訳:

がっしりとした体格で眼鏡をかけた中年の日本人男性がノートパソコンで熱心にタイピングする様子を、映画のような360度周回ショットで捉えた。突然、バグが修正されたと感じた彼は日本語で「やった！」と叫ぶ。カメラはゆっくりとドリーアウトし、温かみのあるネオンライトの下に山積みになった空のラーメン丼を映し出す。スローモーション、高音質オーディオ。

おっさんのラーメン姿だと、サンプルで即スワイプ・離脱されそうなので、
「中年の日本人男性」を「若い女性社員」に変更したプロンプト・指示文を出力してとお願いする

Prompt:
Cinematic 360-degree orbital shot circling a young Japanese female employee with glasses and a slender build, typing intensely on a laptop. Suddenly she shouts 'やった！' (Yatta!) in Japanese as a bug is fixed. Camera slowly dollies out to reveal a pile of empty ramen bowls under warm neon lighting. Slow motion, high-fidelity audio.

上記プロンプトでサンプルを作成してみます。

Flow内で指示文を渡すとポリシー違反の判定を受ける？

結果は、ポリシー違反で生成不可
a young Japanese female
がNG
なのか？生成できませんでした。
間違って生成されないように、少しでも、通さない感じなのかなぁ？
360度周回ショット Cinematic 360-degree orbital shot
で、予期しない予想外の生成を狙っていると？勘違いされたのかなぁ・・・？

ニューヨークの女性プログラマーだとOKでした・・う～ん、なんだろう？？？

おまけの指示プロンプト:

- AIが不可と伝える動画

AIの人型ロボット警備員が両手をクロスさせ×を表現して、不可能を知らせる姿、動作
両手でNGを表現します。
「Cannot be generated」とまず英語で、次に日本語で「せいせいふかです」と話す

The AI humanoid robot security guard crosses his arms to indicate an impossible situation.
He uses both hands to indicate "NG."
First, he says "Cannot be generated" in English, then in Japanese, "Seisei fukadesu" (I am a saint).

- イラスト

9:16の縦でリアルなアニメ風画風でイラスト画像を作成してください

上下2分割のイラスト
上：太った眼鏡をかけた中年男性がノートパソコンを操作しています
下：若い女性プログラマーがノートパソコンを操作しています

上から下に変化を指示する矢印↓を描き、矢印の横に「中年男性を若い女性へ」と指示の日本語を描く

上記条件でイラストをデザインして、描画してください

AI動画生成のテスト 360-degree Orbital shot(360度カメラが旋回)を試したけど失敗かなぁ？ 260304

2026-03-04T12:09:17+09:00

360-degree Orbital shot(360度カメラが旋回) Flow(Veo3.1)でテスト作成 260304
https://youtube.com/shorts/ehHH6BNVUkk
youtube.com
んっ？よくみたら、
カメラが回る・・の指定が効果が薄い？
案1も360は回ってなく、途中でターン？戻っているような？
カメラアングルの指定、
なかなか、奥が深いですね・・・

Q:AIに出した質問プロンプト

手法: 「360-degree Orbital shot」
を使い、Veo3へ出す指示文を英語で作成してください

案1

```
「JRA 大穴的中」を映画風に
手法: 「360-degree Orbital shot」
的中馬券を握りしめて歓喜する中年男性の周りを、カメラがぐるぐると旋回。背景の競馬場は夕日に染まり、スローモーションで周囲の観客がぼやけていく演出。
```

案2
上記、中年男性を若い男女のグループに変更したプロンプトを英語で出力してください

- AIが作成した回答プロンプト

案1：的中馬券に歓喜する中年男性
このプロンプトでは、男性の表情のディテールと、夕日のシネマティックなライティングを強調しています。

English Prompt:

Cinematic 360-degree orbital shot circling a middle-aged Japanese man with glasses, overwhelmed with joy and shouting in celebration while clutching a winning horse racing ticket. The setting is a grand racetrack bathed in the radiant golden glow of a sunset. Slow motion, shallow depth of field with artistic bokeh of blurred spectators in the background, highly detailed textures, 4k, professional cinematography.

案2：歓喜する若い男女のグループ
グループに変更する場合、一人一人の躍動感と、グループ全体の「熱狂」が伝わるような単語を盛り込んでいます。

English Prompt:

Cinematic 360-degree orbital shot circling a diverse group of young men and women cheering, hugging, and jumping with pure excitement while holding winning horse racing tickets. The scene is set at a vibrant racetrack during the peak of a golden hour sunset. Slow motion, high-energy atmosphere, artistic background blur of the cheering crowd, lens flare, professional film aesthetic, 4k.

プロンプトの中身を変えて、
手法: 「360-degree Orbital shot」
で、
いろいろと遊んでみてください

- - 試してみて、日本語じゃなかったので、追加してみた

追加質問

追加修正で、
案1の修正依頼、プロンプト、今英語で話している会話を日本語で話すように、生成プロンプトに入れてください
案2の修正依頼、プロンプトに日本人が入っていなかったので、日本人のグループにして発声を日本語にしてください

それぞれ微調整・修正後、案3,案4として、英語のVeo3向けプロンプトを英語のテキストで出力してください

AIの回答

Veo3用プロンプト修正版 (日本語音声・日本人グループ指定)

案3：的中馬券に歓喜する中年男性（日本語音声版）
案1をベースに、日本語での叫び声を指定しました。

English Prompt:

Cinematic 360-degree orbital shot circling a middle-aged Japanese man with glasses and a stocky build, overwhelmed with joy and shouting enthusiastically in Japanese while clutching a winning horse racing ticket. He is audibly shouting 'やったー！当たった！' (Yatta! Atatta!). The setting is a grand racetrack bathed in the radiant golden glow of a sunset. Slow motion, shallow depth of field with artistic bokeh of blurred spectators in the background, highly detailed textures, 4k, professional cinematography with high-fidelity Japanese speech audio.

案4：歓喜する日本人の若者グループ（日本語音声版）
案2をベースに、メンバーをすべて日本人に指定し、日本語で喜び合う声を指定しました。

English Prompt:

Cinematic 360-degree orbital shot circling an excited group of young Japanese men and women cheering, hugging, and jumping with pure joy while holding winning horse racing tickets. They are shouting and celebrating in Japanese, with audible phrases like '信じられない！やった！' (Shinji rarenai! Yatta!). The scene is set at a vibrant Japanese racetrack during the peak of a golden hour sunset. Slow motion, high-energy atmosphere, artistic background blur of the cheering crowd, lens flare, professional film aesthetic, 4k, featuring clear Japanese vocalizations of excitement.

修正のポイント
Language Trigger: shouting enthusiastically in Japanese や audible phrases like 'やったー！' と記述することで、AIに日本語の音声を生成するよう促しています。

Ethnicity: 案4では diverse group を group of young Japanese men and women に変更し、日本人のグループとして生成されるように固定しました。

このプロンプトで生成すると、映像の迫力に加えて「声」による臨場感がさらに増すはずです。

テスト結果案3は生成失敗でした

生成失敗でした、

日本語指定がNGでした

細かい指定は、まだ無理なのかなぁ？
それとも、gemini任せで修正は、よくあるできないのにAIが答えてしまうパターンなのか・・・

テスト結果案4は生成成功でした

こちらは、日本語化OK?

同じ様に作成した、案4は成功でした

んっ？よくみたら、
カメラが回る・・の指定が効果が薄い？
案1も360は回ってなく、途中でターン？戻っているような？
カメラアングルの指定、
なかなか、奥が深いですね・・・

謎の新機能「Goal scheduled actions」とは？Gemini 3の新機能？を触ってみたテスト参加者になったので舞い上がってブログに載せてみた

2026-02-28T11:30:00+09:00

Gemini 3の新機能「Goal scheduled actions」を調査！AIエージェントが自動でリサーチする時代の到来か？

26/02/28AIでGeminiの会話からブログを作りました。

どうも、三流プログラマーの中年おじさんことKen3です。(←と、AIが作成した。私はAIにこんな感じで認識されているのか・・・)

今回は、進化が止まらないGoogleのAI「Gemini 3」のメニュー解説と、中でも怪しくも魅力的な新機能''「Goal scheduled actions」''について、自分の備忘録としてまとめました。

「最新のAIを使ってみたいけど、英語ばかりでよくわからない…」「毎日決まった時間にAIに情報を集めてほしい」といった悩みを持つ方の参考になれば幸いです。

Gemini 3 の主要モード解説

まずは、画面に出てきた英語メニューを整理しました。これ、初見だと「どれを使えばいいの？」ってなりますよね。

朝、新メニューにビックリしてgeminiに聞いてみた

''高速モード (Fast Mode)''：とにかくレスポンス重視。サクッと答えが欲しい時用。
''思考モード (Thinking Mode)''：複雑なプログラミングや、論理的な推論が必要な時に。じっくり考えてくれます。
''Pro (3.1 Pro)''：高度な数学やコード生成に特化した、まさにプロ仕様のモデル。
''Goal scheduled actions''：今回の注目株。目標を立てて定期実行させるテストモード。

謎の新機能「Goal scheduled actions」とは？

現在、一部のユーザー向けにテストされている「A/Bテスト」段階の機能のようです。一言で言うと、''「AIエージェント」''的な動きをしてくれる機能ですね。

機能の性質：AIが自律的にスケジュールを管理し、特定の目標（価格チェック、定期報告、特定トピックのリサーチなど）を達成しようとする仕組み。

国内での詳細な情報はまだ少ないですが、AIが「言われたことに答える」段階から、''「指示されたスケジュールで勝手に動いてくれる」''段階へ進化していることを感じさせます。

実践：画像・動画生成AIのトレンドを毎日10時に配信設定

この「Goal scheduled actions」を使って、私が今一番興味のある「画像・動画生成AIのプロンプト」を定期リサーチするよう設定してみました。

おっさんが、実際に投げた質問・プロンプト

私は、画像生成AI,動画生成について、興味があります
画風の例題プロンプトや動画のカメラアングル指定など、
面白そうなアイデア、プロンプトの指定方法があったら、
探して、定期的に教えてもらえると助かります

設定結果のスクショ 26/02/28

自動実行の予約内容

【目標】最新の画像・動画生成AIのトレンドやテクニックを報告せよ
【実行時間】毎日 午前10:00
【アウトプット】面白い画風プロンプトや、カメラワークの指定方法

今後配信される予定のアイデア例

リサーチ対象として、以下のような面白いキーワードを挙げてみました。

''画像生成系''：粘土細工風（Claymation）、アイソメトリック・ジオラマ（箱庭風）など
''動画生成系''：ドローンFPVショット、パララックス効果（軌道撮影）など

これらを毎日AIが勝手に調べて、10時に届けてくれる。三流プログラマーとしては、寝て起きたらネタが届いているという、夢のような環境が作れそうです。

今後の課題とAIからのアドバイス

現時点ではテストモードということもあり、以下の点に注意が必要です。

日本語での公式発表が少ないため、挙動が不安定な可能性がある。
プロンプトの精度によって、リサーチ結果の質が大きく左右される。
「AIが自律して動く」際のトークン消費や制限についても注視が必要。

''【AIからのアドバイス】''
まずは簡単なリサーチから任せてみて、AIがどのような検索クエリを発行しているかを確認するのが、使いこなしのコツかもしれません。

都市伝説じゃなかった！YouTubeサムネイル50MB化の真相とAI生成画像の扱い方私は2MB制限組です残念・・・

2026-02-27T11:30:00+09:00

YouTubeサムネイルの「2MB制限」突破術！AI生成画像を賢くアップロードする備忘録

YouTube動画の顔とも言えるサムネイル。最近はGemini（Nano Banana）でハイクオリティな画像が作れるようになりましたが、''「ファイルサイズが2MBを超えてアップロードできない！」''という壁にぶち当たることがあります。

今回は、三流プログラマー（を自称する）私ことKen3が、AIと格闘して得た「サイズ制限回避のコツ」と、噂の「50MB制限」の真実についてまとめました。

説明したかった事・伝えたかった事の要約

Geminiで生成した画像が2MB制限に引っかかる問題の解決策。

私は2MB制限組、まだ50MB未対応組です

画像生成時、および生成後の「指示文（プロンプト）」でファイルサイズを制御する方法。
YouTubeが一部で開始している「サムネイル50MB制限緩和」の最新情報。

AIを使い図解しました

AIへの指示文（プロンプト）の書き方

現在の画像生成AI（Nano Banana）には、直接「○MB以下で出力」と指定する機能はありません。そのため、''「データの複雑さを下げる」''か、''「生成後に加工させる」''のがプロの（？）やり方です。

1. 生成時にサイズを抑えるプロンプト

画像が複雑であればあるほど、ファイルサイズは肥大化します。

「1280x720ピクセル（16:9）で出力して」
「シンプルでフラットなデザインにして」
「アニメ調のデザインで作成して」

2. 生成後にサイズを減らす魔法の指示（おすすめ！）

フルサイズで出力されてしまった後、ダウンロードする前にGeminiにこう指示してください。

「この画像をYouTube用に1280x720ピクセルのJPG形式に変換して、ファイルサイズが2MB以下になるように圧縮してダウンロードリンクを作って」

これだけで、内部でPythonが走り、確実に2MB以下のリンクを吐き出してくれます。

「サムネイル50MB制限」の噂は本当か？

一部のクリエイターの間で囁かれている「50MBまでOKになった」という噂。これは都市伝説ではなく''「現在進行中の公式アップデート」''でした。

''噂の真実'': 2025年後半から、一部のクリエイターを対象に上限が50MBに引き上げられています。
''背景'': テレビ（4K大画面）での視聴者が増えたため、高精細なサムネイル（3840x2160など）が必要になったからです。
''現状'': 全ユーザー一斉ではなく「ロールアウト（順次適用）」中。エラーが出る場合は、まだ自分のアカウントに順番が回ってきていない証拠です。

手順の解説

Geminiでサムネイルのラフ案を作成する。
気に入ったレイアウトがあれば、上記「2MB以下に圧縮して」の指示文を投げる。
生成されたダウンロードリンクから画像を保存する。
YouTube Studioでアップロード。エラーが出る場合は、まだ2MB制限のアカウントなので上記工程を繰り返す。

AIからのアドバイスと今後の課題

現在は過渡期です。自分のアカウントが50MB対応になるまでは、Geminiに「Pythonでリサイズ」を丸投げするのが一番効率的です。

また、PNG形式は画質が良い反面サイズが大きくなりやすいため、''「JPG形式で書き出す」''癖をつけておくと、2MBの壁を突破しやすくなります。

JRA枠連オッズ取得で不具合が発生したコードを恥ずかしいけど残しておく

2026-02-11T10:00:00+09:00

【結論：Power Queryのループ処理（M言語）は強力ですが、データの「欠落」に注意！】

1回のアクセスで全データを取得する「List.Transform」の魔法と、
それを打ち砕く「競馬の仕様（枠連非発売）」という罠。
技術的な成功と実務的な失敗の両方が詰まったドキュメンタリー解説です。

1. 【一番のポイント】データが1行ずつズレる「絶望の瞬間」
タイムライン： 18:32 https://www.youtube.com/watch?v=cxz_NeyPC-M&t=1112
内容：完璧に書いたはずのコードなのに、なぜか9レース目からオッズがズレ始める現象が発生。

AIで動画内容を図解

2. 【見どころ】List.Transformを使った「内部ループ」の全貌
タイムライン： 07:01 https://www.youtube.com/watch?v=cxz_NeyPC-M&t=421
内容： POST送信で1回だけ取得したHTMLを、M言語で賢く回して各券種を抽出するテクニック。

3. 【誠実な種明かし】犯人は「7頭立てレース」だった
タイムライン： 24:25 https://www.youtube.com/watch?v=cxz_NeyPC-M&t=1465
内容：コードのミスではなく「少頭数では枠連が発売されない」という競馬の常識。

4. 【小技】カンマ区切りのテキストを「リスト」に変換する
タイムライン： 09:53 https://www.youtube.com/watch?v=cxz_NeyPC-M&t=593
内容：設定値をM言語で処理しやすいリスト形式に分解する手順。

5. 【正直にお伝えします：今後の課題】
・枠連がない場合の条件分岐の実装。
・データの整合性チェック。

▼動画本編はこちら
https://www.youtube.com/watch?v=cxz_NeyPC-M

#PowerQuery #M言語 #Excel #JRA #スクレイピング

ここから、ソースコードとライブで使用した台本

固定値でテスト開催地をPOST後1回だけHTMLソースを受け取り、その中で馬券の種類別にループさせる

本日、代替開催でJRA競馬が開催されているので、
テストしてみます。
※で、新たな枠連ぬけのバグを見つけたり・・・

1.まず、テスト結果を見せる

1回東京4日
pw15orl00052026010420260210/6F
でテストする

// 26/02/10 カンマ区切りで受け取った馬券の種類を分解して(Listにして)内部で回す
// 26/02/10 ※枠連にすると、枠連無し8頭までで不具合になることを見つける・・・追加のバグを記載すること
let
    // テスト用で固定値
    str開催地CNAME = "pw15orl00052026010420260210/6F",
    str馬券種類 = "単勝,馬連,馬単,枠連",
    str開催地と開催日 = "1回東京4日 固定の文字列でテスト",

// 開催地別HTMLの取得なので、POST送信は場所ごとにWebクエリーは1回だけ走らせる
    // JRAホームページからソースを取得する POST送信で結果を受け取る
    strURL = "https://www.jra.go.jp/JRADB/accessO.html",
    // 引数で受け取った開催地のCNAMEをパラメーターとする 26/01/25修正
    strCNAME = "cname=" & str開催地CNAME,
    strPARA = Text.ToBinary(strCNAME),
    strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],
    ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
    HTML文字列 = Text.FromBinary(ソース, 932),
    HTMLソース = Lines.FromText(HTML文字列),

    // HTMLソースLISTをテーブルに変換して、フィルターなどで使う
    テーブルに変換済み = Table.FromList(HTMLソース, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
// ここまでが、一回だけのPOST取得後、HTMLソースを取得した時の処理、
// ここから、個別の馬券者別単位で処理を行う
    // ※初めからリストでもらう手もあるけど、カンマ区切り文字列からリストを作成
    // --- 馬券種類を List に分解 "単勝,馬連,3連複" → { "単勝","馬連","3連複" } ---
    馬券種類List =
        List.Transform(
            Text.Split(str馬券種類, ","),
            each Text.Trim(_)
        ),

    // 作成したリストを使用して、種類別にループ(変換)を行う
    馬券別テーブル =
        List.Transform(
            馬券種類List,
            (txt券種 as text) =>
        let
            // CNAMEを取得したいので、フィルターをかけ、文字列を抜き出す
            フィルターされた行 = Table.SelectRows(
                                    テーブルに変換済み, 
                                    each Text.Contains([Column1], "Action") 
                                    and Text.Contains([Column1], txt券種)),

            // doActionのパラメーターを抜き出し 列"CNAME"を作る
            条件3_1 = "doAction('/JRADB/accessO.html', '", // ここから
            条件3_2 = "'",                                 // 次のシングルコーテーションまで抜き出す
            CNAMEを追加 = Table.AddColumn(
                            フィルターされた行, 
                            "CNAME",
                            each Text.BetweenDelimiters([Column1], 条件3_1, 条件3_2)),

            //場所の処理 新列 "今週の開催地" を追加する、引数で受け取った場所をそのままセットする
            追加された場所 = Table.AddColumn(CNAMEを追加, "今週の開催地", each str開催地と開催日),

            //馬券の種類を追加する List変換処理中の券種をセットする
            追加された種類 = Table.AddColumn(追加された場所, "馬券の種類", each txt券種),

            // 2026/02/08 処理の追加 ダミーの連番インデックス列を追加します (0から始まる連番が振られます)
            インデックス列の追加 = Table.AddIndexColumn(追加された種類, "Index", 0, 1),

            // レース番号をクラス名 を指定して取得します
            レース番号抽出 = Html.Table(HTML文字列, {
                {"RaceNO", ".race_num img", each [Attributes][alt]}
            }),

            // 新列"レース番号"を作成します
            レース番号を追加 = Table.AddColumn(
                                インデックス列の追加, 
                                "レース番号", 
                                each レース番号抽出{_[Index]}[RaceNO]
                            ),

            // 発走時刻をクラス名とタグ td.time を指定して取得します
            発走時刻抽出 = Html.Table(HTML文字列, {
                {"time", "td.time"}
            }),

            // 新列"発走時刻"を作成します
            発走時刻を追加 = Table.AddColumn(
                                レース番号を追加, 
                                "発走時刻", 
                                each 発走時刻抽出{_[Index]}[time]
                            ),

            // レース名をクラス名とタグ td.race_name を指定して取得します
            レース名称抽出 = Html.Table(HTML文字列, {
                {"レース名称", "td.race_name"}
            }),

            // 列"発走時刻"を作成します
            レース名称を追加 = Table.AddColumn(
                                発走時刻を追加, 
                                "レース名", 
                                each レース名称抽出{_[Index]}[レース名称]
                            ),

            //不要な列を削除する
            列削除 = Table.RemoveColumns(レース名称を追加,{"Column1", "Index"})

        in
            列削除   //馬券の種類別に作成したテーブルを返す
        ),  // ←List.Transformの閉じカッコ、ここまでが種類のリストでループ変換される

    // すべて結合、ループで複数テーブルをリスト形式で取得しているので、最後にテーブルを結合する 
    結果 = Table.Combine(馬券別テーブル)

in
    結果

// ここまでをコピーして、貼り付けてください

2.ソースコードのポイントを簡単に説明する

ポイントは、
POST送信して、HTMLソースを取得後

List.Transformで、指定した馬券の種類ごとに
パラメーターCNAMEなどを取得する感じです

個人的に書きなれないのが、M言語のループ処理かなぁ。

馬券種類List,
            (txt券種 as text) =>
        let
で、変数に代入しながら、変換結果が返る仕組みかなぁ
この辺りは、慣れかもしれませんが・・・

//M言語のソース
    // --- 馬券種類を List に分解 "単勝,馬連,3連複" → { "単勝","馬連","3連複" } ---
    馬券種類List =
        List.Transform(
            Text.Split(str馬券種類, ","),
            each Text.Trim(_)
        ),

    // 作成したリストを使用して、種類別にループ(変換)を行う
    馬券別テーブル =
        List.Transform(
            馬券種類List,
            (txt券種 as text) =>
        let

3.またまた、バグを報告する

今回、枠連を取得してみて、
また、バグを発見する

8頭までの時、枠連は発売されません。
すると、
枠連のオッズもないので、表は空白です

前回は、雪で4レースの行が無かったので、
行単位の処理で、OKでした

今回は、行が存在して、枠連の部分だけないので、
いつもの私の特徴的な不具合、決めつけで、またまたデータがズレてセットされてしまいました。

4.おわりの挨拶

今回は、代替開催があったので、
テストしてみようと、
軽い気持ちで始めたライブでしたが、
バグを見つけてしまい・・・

いろいろと積み残しが多いのですが、また週末の土日、よろしくお願いします。

質問:パワポに貼ったURLで挿入したYouTube動画をエクスポートでMP4にできません回答:PowerPointは「YouTube動画を勝手にダウンロードする道具」ではありません

2026-02-09T07:30:00+09:00

PowerPointは「YouTube動画を勝手にダウンロードする道具」ではありません【最初に大事なこと：この動画は『保存する裏技』ではありません】

PowerPointで「ビデオ作成」をする時、スライドに埋め込んだYouTube動画は、ルール上『保存できない』ようになっています。

もし保存できてしまうと、PowerPointが「YouTube動画を勝手にダウンロードする道具」になってしまいますよね？それはダメなので、マイクロソフト側でしっかりとガード（制限）をかけているんです。

この動画は、実際にエラーが出てガードされる様子と、「なぜダメなのか？」の理由を解説した動画です。「できないこと」を確認するためにご覧ください。

お急ぎの方は、以下の重要なポイントからチェックしてください！

【一番のポイント】ビデオ作成でエラーが出る瞬間タイムライン： 08:24 https://www.youtube.com/live/uSRfRqcotZE?t=504 内容：スライド上では再生できていたYouTube動画が、「ビデオ作成（エクスポート）」の段階で弾かれる決定的な瞬間です。ポイント：「一部のメディアは挿入できません」というメッセージが、ガードされた証拠です。
【解説の核心】なぜ保存できないのか？（ダウンローダー制限の話）タイムライン： 09:50 https://www.youtube.com/live/uSRfRqcotZE?t=590 内容：もし保存機能を提供してしまうと、PowerPointが違法なダウンローダーと同じになってしまう、という仕様の背景を考察・解説しています。ここが重要：「不具合」ではなく、あえて機能を止めている「仕様」であることが理解できます。

【検証】「画面キャプチャ」した動画ならいけるのか？タイムライン： 10:36 https://www.youtube.com/live/uSRfRqcotZE?t=636 内容： YouTubeの機能を使わず、画面を録画（キャプチャ）した動画ファイルなら挿入できるのか？という代替案の検証です。ポイント：結局どうなるのか？試行錯誤の結果をご確認ください。
【まとめ】このエラーは「正常な仕様」ですタイムライン： 22:14 https://www.youtube.com/live/uSRfRqcotZE?t=1334 内容：一連の検証を通じて、「できないことが正常である」という結論に至ります。ここが安心：あなたの操作ミスではありません。仕様なので、無駄な試行錯誤を終わらせましょう。
【正直にお伝えします：動画の性質】・この動画はライブ配信のアーカイブです。試行錯誤や考察しながら進むため、結論まで少し時間がかかります。・上記タイムラインを活用して、必要な部分だけを効率よくご確認ください。

▼ 皆さんはこの仕様、ご存知でしたか？「知らなかった！」「やっぱりそうか…」など、感想をコメントで教えていただけると嬉しいです。

PowerPoint #YouTube埋め込み #仕様解説 #エラー

AIでまとめました【Excelパワークエリ】Html.TableでWebサイトの特定クラス(CSSセレクター)を抽出する方法

2026-02-07T19:07:38+09:00

【Excelパワークエリ】Html.TableでWebサイトの特定クラス(CSS セレクター)を抽出する方法

パワークエリでWebスクレイピングをしていて、''「表（Table）として認識されない箇所」''や''「特定のクラス名がついたデータだけ欲しい」''と悩んだことはありませんか？

今回は、JRAのレース結果ページを題材に、M言語の神関数''「Html.Table」''を使って、CSS セレクター（クラス名指定）でピンポイントにデータを抽出するテクニックを紹介します。

AIが動画と台本からブログを作成しました

紹介動画：なぜか空白？クラス指定の落とし穴と解決策

動画内では、実際にコードを書きながら「なぜかデータが取れない…」というトラブルを解決していく過程を公開しています。パワークエリ中級者へのステップアップに最適です！

【Excelパワークエリ】Html.Tableで特定クラスを抽出！CSSセレクター活用術

今回使用したソースコード（M言語）

以下のコードを「詳細エディター」に貼り付けて、URLやクラス名を書き換えて試してみてください。

//--- 2026/02/07 クラス名を指定して、データを取得するテスト
// 固定ページ
// pw15orl00082026020320260207/50	2回京都3日
// でテストする

let
    // JRAホームページからソースを取得する POST送信で結果HTMLソースを受け取る
    strURL = "https://www.jra.go.jp/JRADB/accessO.html",
    // テストなので固定
    strCNAME = "cname=pw15orl00082026020320260207/50",
    strPARA = Text.ToBinary(strCNAME),
    strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],

    // WebページからソースコードをPOST送信で受け取る
    ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
    // 文字化け対策（Shift_JIS = 932）
    HTML文字列 = Text.FromBinary(ソース, 932),

    // --- ここから 今回のメイン解説 クラス名で抽出の処理です ---

    // 1.1 指定したいクラス名 th class="race_name"など、ソースから抜き出したいclass=をチェックする
    指定するクラス名 = "race_name",

    // 1.2 Html.Tableを使って抽出
    // { "列名", "CSSセレクター" } の形式で指定します ←AI回答そのまま
    カスタムTable = Html.Table(HTML文字列, {
        {"レース詳細", "." & 指定するクラス名} 
    })

in
    // テーブル形式で返す、見出しの行に注意、予想外のclass="クラスの名前"を取得に注意
    カスタムTable

//-------

実演解説：ステップ・バイ・ステップ

動画の重要ポイントをタイムスタンプ付きでまとめました。

[00:00](https://www.youtube.com/watch?v=e-X8koUbjgI&t=0s) ：''イントロ''。Html.TableでJRAのレース名を取得するテストの開始。
[01:40](https://www.youtube.com/watch?v=e-X8koUbjgI&t=100s) ：Excelの''詳細エディター''へコードを貼り付ける手順。
[04:40](https://www.youtube.com/watch?v=e-X8koUbjgI&t=280s) ：''クラス名（.race_name）''をCSS セレクターとして指定する方法。
[08:45](https://www.youtube.com/watch?v=e-X8koUbjgI&t=525s) ：''【重要】なぜ race_num は空白になったのか？'' 初心者が必ずハマる「imgタグのalt属性」問題の解説。
[13:00](https://www.youtube.com/watch?v=e-X8koUbjgI&t=780s) ：応用編。発走時刻（.timeクラス）の追加抽出テスト。

未解決の問題とAIからのアドバイス

1. レース番号が取得できない理由（imgタグの罠）

動画内でも触れていますが、''class="race_num"''を指定しても結果が空白になる場合があります。これは、HTML側で「文字」ではなく「画像（imgタグのalt属性）」でレース番号が表示されているためです。

HTML例：

この場合、単なるテキスト抽出ではなく、子要素の「img」タグや「alt属性」を明示的に指定する必要があります。

AIからの改善提案

''セレクターの精緻化''：Html.Tableでは「.race_num img」のように指定することで、画像タグの中身を狙い撃ちできる可能性があります。
''属性の抽出''：M言語の他関数と組み合わせて、Attribute（属性）を直接引っ張る処理を加えると、さらに柔軟性が高まります。

【PowerPoint】クリック進行と独立して動く「自動ループアニメーション」の作り方（電車内LCD風）AIに解説と編集を全てお任せした「AIこたつ編集」のテスト

2026-02-03T09:58:10+09:00

【PowerPoint】クリック進行と独立して動く「自動ループアニメーション」の作り方（電車内LCD風）

プレゼン中に「スライドの一部だけを勝手に動かし続けたい」と思ったことはありませんか？例えば、電車の車内ドア上にあるLCD画面のように、「下部の路線図は自分のクリックで進めつつ、上部の行き先表示（漢字→ひらがな→英語）は自動で切り替わり続ける」といった挙動です。

通常、PowerPointのアニメーションはクリックで進行するため、これらを両立させるのは難しいと思われがちです。しかし、「音声のブックマーク」と「トリガー」機能を組み合わせることで、マクロを使わずにこれを実現できます。

この記事では、その具体的な作成手順を解説します。

AIにお任せこたつ編集のテスト

実現する仕組みと全体像

このテクニックの核心は、「裏で無音の音声を再生し続け、その音声の特定位置（ブックマーク）を合図にアニメーションを発動させる」という点です。

スライド遷移と同時に無音の音声ファイルを自動再生・ループさせる。
音声ファイルの特定の位置（例：0秒、3秒、6秒）にブックマークを設定する。
画像や文字の切り替えアニメーションの開始条件（トリガー）を、そのブックマークに紐付ける。

これにより、プレゼンターのクリック（スライド進行）とは完全に独立したタイムラインでアニメーションを制御できます。

手順1：パーツの準備と名前の整理

まずは、切り替え表示させたいテキストボックスや画像を用意します。今回は例として「漢字」「ひらがな」「英語」の3つのテキストを用意します。

ここで重要なのが「オブジェクトの選択と表示」ウィンドウでの名前変更です。アニメーション設定時に混乱しないよう、各オブジェクトには分かりやすい名前を付けておきましょう。

ホームタブ > 配置 > オブジェクトの選択と表示
例：「テキストボックス 5」→「Text_Kanji」に変更

[03:52] オブジェクト名の変更手順（動画）

手順2：制御用オーディオの作成（ここが重要）

アニメーションの司令塔となる「無音音声」を作成します。今回は3つの表示を3秒ごとに切り替えるため、合計9秒（3秒×3パターン）の無音ファイルを用意するのが最もシンプルで管理しやすい方法です。

挿入 > オーディオ > オーディオの録音 をクリック。
マイクをミュートにするか静かにして、約9秒間録音する。
作成されたスピーカーアイコンを選択し、再生タブ > オーディオのトリミング で長さを正確に「09.00」に調整する。
プレゼン中にアイコンが見えないよう「スライドショー実行中は隠す」にチェックを入れるか、スライド枠外に配置する。
重要： 再生タブの「開始」を「自動」にし、「停止するまで繰り返す」にチェックを入れる。

[08:48] オーディオの録音と設定（動画）

なぜ「3秒ループ」ではなく「9秒」なのか？

動画の前半では「3秒の音声をループさせる」方法を試していますが、これだと「表示」と「非表示（クリア）」のアニメーション管理が複雑になります。ループ全体（9秒）の音声を1つ用意し、そこに通過点（ブックマーク）を作る方法が最もミスが少なく推奨されます。 [43:21] 9秒音声＋複数ブックマークの解説位置（動画）

手順3：ブックマークの追加

音声ファイルの「アニメーションを開始させたいタイミング」に目印（ブックマーク）を付けます。

スピーカーアイコンを選択。
再生バーを動かして、以下の位置で 再生タブ > ブックマークの追加 をクリック。
- 00:00（漢字表示用）
- 00:03（ひらがな表示用）
- 00:06（英語表示用）

音声のタイムライン上に、黄色い丸（ブックマーク）が3つ付けばOKです。

[12:32] ブックマークの追加操作（動画）

手順4：アニメーションとトリガーの設定

最後に、アニメーションをブックマークに紐付けます。

3つのテキスト（漢字・ひらがな・英語）すべてに、開始アニメーション（例：フェード、アピールなど）を設定する。
同様に、終了アニメーション（例：クリア、フェードアウト）も設定する（切り替え時に前の文字を消すため）。
アニメーションウィンドウを開き、各アニメーションの開始タイミングを以下のように設定します。

設定のコツ： アニメーションをダブルクリックし、「タイミング」タブの「開始のタイミング（トリガー）」を使用します。「次のオブジェクトの再生時に効果を開始」を選択し、先ほど作ったオーディオファイル（ブックマーク名）を指定します。

ブックマーク1 (0秒) の設定:
- 漢字：表示
- 英語：クリア（前のループの残りを消す）
ブックマーク2 (3秒) の設定:
- ひらがな：表示
- 漢字：クリア
ブックマーク3 (6秒) の設定:
- 英語：表示
- ひらがな：クリア

[16:19] トリガー設定の詳細手順（動画）

技術コラム：なぜ「クリック時」に戻す操作が必要なのか？

トリガーを設定する際、PowerPointの仕様でアニメーションの順序が勝手に「トリガー設定されたグループ」として分離されることがあります。意図した順序（例えば、クリアしてから表示など）で動かない場合は、アニメーションウィンドウで該当項目を選択し、タイミングを「直前の動作と同時」や「直前の動作の後」に調整し直して、同じブックマークトリガーの下にグループ化されるよう整えてください。

動画内では「クリック時に戻す」という表現を使っていますが、これはアニメーショングループが分離してしまった際に、強制的にグループを再編するための回避策の一つです。 [20:19] トリガー設定時のグループ分離と修正（動画）

まとめ

これで、スライドショーを実行すると以下のようになります。

上部： 3秒ごとに「漢字→ひらがな→英語」が勝手に切り替わり続ける。
下部： 自分のマウスクリックに合わせて、プレゼン資料が通常通り進む。

一見複雑に見えますが、「長い音声ファイルに目印（ブックマーク）をつけて、それを合図にする」と理解すれば応用が利きます。ぜひ試してみてください。

解説動画（フルバージョン）

実際の操作の様子は、以下のライブ配信アーカイブで確認できます。 https://www.youtube.com/watch?v=AvkKP0TKI8Y

JRAオッズの取得 CNAMEパラメーターを縦にシートへ書き出しにチャレンジ

2026-02-01T09:30:00+09:00

今回は、メニュー化の前段階として、
CNAMEパラメーターの書き出しにチャレンジしてみたいと思います

1.開催を全て取得(ここは固定)
土日によって、注意が必要※日曜日になったら現実的には土曜日のデータはイラナイなど・・・
開催の区分(列名"開催")を付けて、CNAMEデータを取得する

2.単勝や馬連など、馬券の種類
馬券の種類(列名"馬券種別")を付けて、データを作成
よくあるデータを増やす作業

3.1R-12Rまでのループ
開催,馬券種別,レース番号,CNAME
を縦に出力する

上記、初回一度だけ全てのパラメーター情報を読み込む
そんな
パワークエリーを作成してみたいと思います

今回の動画:下記ライブ動画を2倍速で笑いながら気軽に見てください
https://www.youtube.com/live/tC_84sHW3dg

過去の関連動画は、下記の再生リストから:JRAオッズ取得関係の再生リストを紹介します
https://www.youtube.com/playlist?list=PLBFC80A8658C305CE
↑未解決や単体テストの動画が多いのですが、拾い読みてください。

1.開催を全て取得(ここは固定)
03:14 前回ソースを貼り付けてテストする
https://www.youtube.com/live/tC_84sHW3dg?si=L4CT6TyzDv-KB7fq&t=194

これは、前回までのコードを流用します

クエリー名を
開催取得
として、下記のソースを空のクエリーにコピーして確認します

//--- JRAオッズのTOPページを取得する パワークエリ 26/01/31テスト
// doActionからパラメーターを切り出す
// 開催日を取り出す

let
    // JRAホームページからソースを取得する POST送信で結果を受け取る
    strURL = "https://www.jra.go.jp/JRADB/accessO.html",
    strPARA = Text.ToBinary("cname=pw15oli00/6D"),
    strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],
    ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
    文字列 = Text.FromBinary(ソース, 932),
    HTMLソース = Lines.FromText(文字列),
    
    テーブルに変換済み = Table.FromList(HTMLソース, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    フィルターされた行 = Table.SelectRows(テーブルに変換済み, each Text.Contains([Column1], "Action") and Text.Contains([Column1], "回")),

    条件2_1 = "accessO.html', '",
    条件2_2 = "');"">",
    Column2を追加 = Table.AddColumn(フィルターされた行, "Column2", each Text.BetweenDelimiters([Column1], 条件2_1, 条件2_2)),

    //【ここから追加】Column3を作成
    // '</i>' と '</a></div>' の間のテキストを抽出します
    条件3_1 = "</i>",
    条件3_2 = "</a></div>",
    Column3を追加 = Table.AddColumn(Column2を追加, "Column3", each Text.BetweenDelimiters([Column1], 条件3_1, 条件3_2)),

    // 最終的な結果
    結果 = Column3を追加,
    #"名前が変更された列 " = Table.RenameColumns(結果,{{"Column2", "CNAME"}, {"Column3", "開催"}}),
    削除された列 = Table.RemoveColumns(#"名前が変更された列 ",{"Column1"})
in
    削除された列

//----

1.1 脱線して視聴者指摘を解説

視聴者の皆さんの目って素直にスゴイと思います

    Column2を追加 = Table.AddColumn(フィルターされた行, "Column2", each Text.BetweenDelimiters([Column1], 条件2_1, 条件2_2)),

で、
ソースから、"CNAME"を抜き出してます、
最後に、

    // 最終的な結果
    結果 = Column3を追加,
    #"名前が変更された列 " = Table.RenameColumns(結果,{{"Column2", "CNAME"}, {"Column3", "開催"}}),
    削除された列 = Table.RemoveColumns(#"名前が変更された列 ",{"Column1"})
in
    削除された列

で、

列名変更、
Table.RenameColumns(結果,{{"Column2", "CNAME"}
↑"Column2"を"CNAME"
同様に、
{"Column3", "開催"}
にしています

これって？Column2を追加する時に、

Column2を追加 = Table.AddColumn(フィルターされた行, "Column2", each Text.BetweenDelimiters([Column1], 条件2_1, 条件2_2)),
を
Column2を追加 = Table.AddColumn(フィルターされた行, "CNAME", each Text.BetweenDelimiters([Column1], 条件2_1, 条件2_2)),

として、
列"CNAME"をTable.AddColumnで追加、にすればいいのにね・・・

//「列を追加時に名前を指定できるよ」と優しく指摘されたバージョン
//--- JRAオッズのCNAMEを取得する パワークエリ 2026/01/31 修正中002
// doActionからパラメーターを切り出す
// 001 開催日,CNAMEを取り出す

let
    // JRAホームページからソースを取得する POST送信で結果を受け取る
    strURL = "https://www.jra.go.jp/JRADB/accessO.html",
    strPARA = Text.ToBinary("cname=pw15oli00/6D"),
    strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],
    ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
    文字列 = Text.FromBinary(ソース, 932),
    HTMLソース = Lines.FromText(文字列),
    
    テーブルに変換済み = Table.FromList(HTMLソース, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    フィルターされた行 = Table.SelectRows(テーブルに変換済み, each Text.Contains([Column1], "Action") and Text.Contains([Column1], "回")),

    条件2_1 = "accessO.html', '",
    条件2_2 = "');"">",
    Column2を追加 = Table.AddColumn(フィルターされた行, "CNAME", each Text.BetweenDelimiters([Column1], 条件2_1, 条件2_2)),

    //【ここから追加】Column3を作成
    // '</i>' と '</a></div>' の間のテキストを抽出します
    条件3_1 = "</i>",
    条件3_2 = "</a></div>",
    Column3を追加 = Table.AddColumn(Column2を追加, "開催", each Text.BetweenDelimiters([Column1], 条件3_1, 条件3_2)),

    // 最終的な結果
    // 不必要な列を消す
    結果 = Table.RemoveColumns(Column3を追加,{"Column1"})
in
    結果

//----

2.単勝や馬連など、馬券の種類

11:09 パワークエリーで行展開ぜひ覚えてほしい操作方法
https://www.youtube.com/live/tC_84sHW3dg?si=90ikw6xTNCc78o1U&t=669

パワークエリー行の展開

馬券の種類(列名"馬券種別")を付けて、データを作成
よくあるデータを増やす作業

"単勝","馬連","三連複"
など、
馬券の種類を増やしたいです

2.1 `リストを追加`して`行展開`の練習

またまた、脱線、パワークエリーの復習

リストを列に追加して、行に展開するのが楽です
なんて会話をよく聞きますよね？

テストテーブル

商品名
コート
セーター
Tシャツ
紙コップ

が、あったら、テーブルをまず読み込む

次に、メニューから、
列の追加
カスタム列
を選択して

= { "S","M","L" }
とサイズを入力します

すると、
Listとして、列が追加されます

追加された列に対して、
列右端の小さな展開アイコンから
[ 新しい行に展開 ]
を選択すると、

これが、先輩たちがよく言ってる
「そんなのパワークエリーで`リストを追加`して`行展開`すればいいじゃん」
の操作です

2.2 リスト { "単勝","馬連","三連複" } を追加して行展開してみます

パワークエリーを修正します

メニューから、
列の追加
カスタム列
を選択して

列名 = 馬券の種類
= { "単勝","馬連","三連複" }

簡単にテーブル×(かける)リストで作成できました。

3.1R-12Rまでのループ

21:29 "馬券の種類"を関数のパラメーターで受け取り、フィルターの条件にする
https://www.youtube.com/live/tC_84sHW3dg?si=-j1B888yV2OOcYKf&t=1289

関数化とテスト

先週作成した関数に、"馬券の種類"を処理するコードを追加します

空のクエリーを作成します

クエリーの名前を
開催と種類別にCNAME取得
と
名前を変更して、下記のソースを貼り付けます(コピペしてください)

詳細エディターを開き、下記をコピーする

// 関数化して開催地別、馬券の種類別のCNAMEを返す 2026/01/31テスト
// 関数で引数を受け取り、テーブルを返す

(str開催地CNAME as text, str開催地と開催日 as text, str馬券種類 as text) as table =>
let
    // JRAホームページからソースを取得する POST送信で結果を受け取る
    strURL = "https://www.jra.go.jp/JRADB/accessO.html",
    // 引数で受け取った開催地のCNAMEをパラメーターとする 26/01/25修正
    strCNAME = "cname=" & str開催地CNAME,
    strPARA = Text.ToBinary(strCNAME),
    strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],
    ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
    文字列 = Text.FromBinary(ソース, 932),
    HTMLソース = Lines.FromText(文字列),

    // 現在時刻を取得し、文字列に変換
    現在時刻 = DateTime.ToText(DateTime.LocalNow()),
    LISTの頭に時刻を追加 = {"取得時刻"} & {現在時刻} & HTMLソース,

    // LISTをテーブルに変換して、フィルターをかける
    テーブルに変換済み = Table.FromList(LISTの頭に時刻を追加, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    フィルターされた行 = Table.SelectRows(テーブルに変換済み, each Text.Contains([Column1], "Action") and Text.Contains([Column1], str馬券種類)),

    // 5.2 doActionのパラメーターを抜き出し Column3
    条件3_1 = "doAction('/JRADB/accessO.html', '",
    // コメントアウト 条件3_2 = "');""><div><span>単勝</span>",
    条件3_2 = "'", //←でいいのか？間の指定を今まで勘違いしてた・・・？テストしてみる
    CNAMEを追加 = Table.AddColumn(フィルターされた行, "CNAME", each Text.BetweenDelimiters([Column1], 条件3_1, 条件3_2)),

    //5.1 レース番号の作成 ダミーの連番インデックス列を追加します (0から始まる連番が振られます)
    インデックス列の追加 = Table.AddIndexColumn(CNAMEを追加, "Index", 0, 1),

    //インデックス列が0からなので、+１してColumn2を作成します
    レース番号を追加 = Table.AddColumn(インデックス列の追加, "レース番号", each Number.ToText([Index] + 1) & "レース"),

    //場所を追加する
    追加された場所 = Table.AddColumn(レース番号を追加, "今週の開催地", each str開催地と開催日),

    //馬券の種類を追加する
    追加された種類 = Table.AddColumn(追加された場所, "馬券の種類", each str馬券種類),

    //不要な列を削除する
    列削除 = Table.RemoveColumns(追加された種類,{"Column1", "Index"}),

    //最終的な結果
    結果 = 列削除

in
    結果

//-------

貼り付けると、
次は、パラメーターを入力してテストします

3.1 単体テスト

下記、パラメーターで単体動作を確認します

pw15orl00052026010120260131/88
1回東京1日
単勝

3連複に注意

3.2 結合テスト

ここで、呼ぶ側を修正します
開催取得
へ戻り、下記の修正を加えます

    // ソースのクエリー結果(テーブル)をレコードのリストに変換
    lst処理リスト = Table.ToRecords(T開催取得),

    // ループ処理 リストを順番に処理する List.Transformで変換するのが順番に呼び出すイメージ？
    テーブル一覧 = List.Transform(
        lst処理リスト,
        each 開催と種類別にCNAME取得(_[CNAME], _[開催], _[馬券の種類])
    ),

    // 結合,上でテーブルのリストが作成されているので、それを一つにつなげる
    t_all = Table.Combine(テーブル一覧)
in
    t_all

ポイントは、
結果から、
リストを作成して、
開催と種類別にCNAME取得(_[CNAME], _[開催], _[馬券の種類])
を
呼ぶと、
CNAMEテーブルが返り、
最後に、テーブルのリストを結果にしただけです

ここで、現在の不具合、
明日の前日発売11レースが1レースになっていることに気が付く・・・おいおい、やってんなぁ。
※あとで、説明する、このまま進める

3.3 結果をテスト

CNAME一覧が正確に受け取れたか？
テストしてみます
※過去に作成した単勝の単体テストに値を渡してみます(TABLE0番目だけ表示するテスト用)

4.まだまだある、問題点

41:31 不具合やバグの発表視聴者の心の声を勝手に再現「おっさん、キーボードを強くたたくなよ」「ライブ前にバグをつぶしとけよ」
https://www.youtube.com/live/tC_84sHW3dg?si=Y5QYW27UknZKPz-t&t=2491

不具合バグが多すぎます

完成と思って、安心するのは早いです。
現在判明している問題点

①ループの作りが悪いので、サイトに負荷と処理時間がかかる

今回、馬券の種類別にループを追加しましたが、ループの作りが

・TOPページからオッズ開催日の取得 (これは1回)
・開催×馬券の種類リストで行展開
このデータから、↑この行数分、サブの関数を呼ぶ
サブ関数開催と種類別にCNAME取得(_[CNAME], _[開催], _[馬券の種類]) では、
受け取った、CNAMEをJRAサーバーにPOSTして結果を受け取り処理
・馬券の種類でフィルター、結果テーブルを返す

↑、同じCNAME(開催場所)を複数回読み込む

このループだと、同じデータを取得して、フィルターだけ違う・・・
本来なら、
1回読み込み後、
フィルター違いのループにするべきですよねぇ～

②レース番号が固定処理だと、土曜日に前日オッズ問題が発生する
レース番号を固定のインデックスで振って、セットしているので
//5.1 レース番号の作成ダミーの連番インデックス列を追加します (0から始まる連番が振られます)
インデックス列の追加 = Table.AddIndexColumn(単勝CNAMEを追加, "Index", 0, 1),

//インデックス列が0からなので、+１してColumn2を作成します
レース番号を追加 = Table.AddColumn(インデックス列の追加, "レース番号", each Number.ToText([Index] + 1) & "レース"),

↑
前日オッズで、
メインの11レースのみCNAMEが提供される、土曜日で不具合・内容違いのエラーになる。
(11レースを1レースと判断してしまう)

なんて、①と②の問題が、既に残っていたり・・・

③馬連～三連単まで、全てのフォーマットを取得するようにサンプルを
現在、確認用でTable0番目だけ表示したり、テストの破片がまとまっていないので、まとめないと・・・
CNAMEが取得しやすくなったので、
各フォーマットを作らないとなぁ・・・

④メニュー化
ここから、メニュー化作業もあるし、
先は、長いですね。

以上、中間報告のライブでした。

一つでも、
パワークエリー,繰り返しのWebから取得処理など
ヒントとなれば幸いです

メニュー化、処理の見直し含め、少々お待ちください。

では、またぁ・・・・

01:04:00 完成したソースコードの貼り付け方と再度またテスト
https://www.youtube.com/live/tC_84sHW3dg?si=oO-1XNd2I2Amb2CN&t=3821

2026/01/31 テストまとめ

//呼ばれる関数

クエリーの名前を
開催と種類別にCNAME取得
と
名前を変更して、下記のソースを貼り付けます(コピペしてください)

// 関数化して開催地別、馬券の種類別のCNAMEを返す 2026/01/31テスト
// 関数で引数を受け取り、テーブルを返す

(str開催地CNAME as text, str開催地と開催日 as text, str馬券種類 as text) as table =>
let
    // JRAホームページからソースを取得する POST送信で結果を受け取る
    strURL = "https://www.jra.go.jp/JRADB/accessO.html",
    // 引数で受け取った開催地のCNAMEをパラメーターとする 26/01/25修正
    strCNAME = "cname=" & str開催地CNAME,
    strPARA = Text.ToBinary(strCNAME),
    strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],
    ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
    文字列 = Text.FromBinary(ソース, 932),
    HTMLソース = Lines.FromText(文字列),

    // 現在時刻を取得し、文字列に変換
    現在時刻 = DateTime.ToText(DateTime.LocalNow()),
    LISTの頭に時刻を追加 = {"取得時刻"} & {現在時刻} & HTMLソース,

    // LISTをテーブルに変換して、フィルターをかける
    テーブルに変換済み = Table.FromList(LISTの頭に時刻を追加, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    フィルターされた行 = Table.SelectRows(テーブルに変換済み, each Text.Contains([Column1], "Action") and Text.Contains([Column1], str馬券種類)),

    // 5.2 doActionのパラメーターを抜き出し Column3
    条件3_1 = "doAction('/JRADB/accessO.html', '",
    // コメントアウト 条件3_2 = "');""><div><span>単勝</span>",
    条件3_2 = "'", //←でいいのか？間の指定を今まで勘違いしてた・・・？テストしてみる
    CNAMEを追加 = Table.AddColumn(フィルターされた行, "CNAME", each Text.BetweenDelimiters([Column1], 条件3_1, 条件3_2)),

    //5.1 レース番号の作成 ダミーの連番インデックス列を追加します (0から始まる連番が振られます)
    インデックス列の追加 = Table.AddIndexColumn(CNAMEを追加, "Index", 0, 1),

    //インデックス列が0からなので、+１してColumn2を作成します
    レース番号を追加 = Table.AddColumn(インデックス列の追加, "レース番号", each Number.ToText([Index] + 1) & "レース"),

    //場所を追加する
    追加された場所 = Table.AddColumn(レース番号を追加, "今週の開催地", each str開催地と開催日),

    //馬券の種類を追加する
    追加された種類 = Table.AddColumn(追加された場所, "馬券の種類", each str馬券種類),

    //不要な列を削除する
    列削除 = Table.RemoveColumns(追加された種類,{"Column1", "Index"}),

    //最終的な結果
    結果 = 列削除

in
    結果

//-------

２つ目、関数を呼ぶ方

// メイン処理

// 名前は何でも

//--- JRAオッズのTOPページを取得する パワークエリ 26/01/31テスト
// doActionからパラメーターを切り出す
// 開催日を取り出す

let
    // JRAホームページからソースを取得する POST送信で結果を受け取る
    strURL = "https://www.jra.go.jp/JRADB/accessO.html",
    strPARA = Text.ToBinary("cname=pw15oli00/6D"),
    strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],
    ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
    文字列 = Text.FromBinary(ソース, 932),
    HTMLソース = Lines.FromText(文字列),
    
    テーブルに変換済み = Table.FromList(HTMLソース, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    フィルターされた行 = Table.SelectRows(テーブルに変換済み, each Text.Contains([Column1], "Action") and Text.Contains([Column1], "回")),

    条件2_1 = "accessO.html', '",
    条件2_2 = "');"">",
    Column2を追加 = Table.AddColumn(フィルターされた行, "CNAME", each Text.BetweenDelimiters([Column1], 条件2_1, 条件2_2)),

    //【ここから追加】Column3を作成
    // '</i>' と '</a></div>' の間のテキストを抽出します
    条件3_1 = "</i>",
    条件3_2 = "</a></div>",
    Column3を追加 = Table.AddColumn(Column2を追加, "開催", each Text.BetweenDelimiters([Column1], 条件3_1, 条件3_2)),

    // 最終的な結果
    結果 = Column3を追加,
    削除された列 = Table.RemoveColumns(結果,{"Column1"}),
    追加されたカスタム = Table.AddColumn(削除された列, "馬券の種類", each { "単勝","馬連","3連複" }),
    T開催取得 = Table.ExpandListColumn(追加されたカスタム, "馬券の種類"),
    // ソースのクエリー結果(テーブル)をレコードのリストに変換
    lst処理リスト = Table.ToRecords(T開催取得),

    // ループ処理 リストを順番に処理する List.Transformで変換するのが順番に呼び出すイメージ？
    テーブル一覧 = List.Transform(
        lst処理リスト,
        each 開催と種類別にCNAME取得(_[CNAME], _[開催], _[馬券の種類])
    ),

    // 結合,上でテーブルのリストが作成されているので、それを一つにつなげる
    t_all = Table.Combine(テーブル一覧)
in
    t_all
//----

【Excelパワークエリ】List.Transformによるループ処理コード解説 JRA全12レースのCNAMEを一括取得！

2026-01-26T12:00:00+09:00

JRA全レースのCNAMEを一括書き出し！パワークエリの関数ループで自動化にチャレンジ

JRAのオッズデータを分析する際、毎回「開催地」や「レース番号」ごとにCNAMEパラメーターを手動でコピペするのは苦行ですよね。

今回は、メニュー化の前段階として、''パワークエリの「関数化」と「ループ処理」''を駆使し、全開催地・全12レースの単勝CNAMEを一括でテーブルに書き出す方法を紹介します。

AIにブログ編集も依頼しました・・・

今回のチャレンジ内容

開催一覧（中山・京都・小倉など）の自動取得
単勝CNAMEを返すカスタム関数の作成
''List.Transform'' による複数開催地のループ処理
全12レース分のパラメーターを一括結合

1. 開催地一覧を取得する（親クエリ）

まずは「今日、どの競馬場でレースがあるか」を取得します。これは以前作成したコードを流用し、出力結果を「CNAME」と「開催名」のテーブルにします。

let
    strURL = "https://www.jra.go.jp/JRADB/accessO.html",
    strPARA = Text.ToBinary("cname=pw15oli00/6D"),
    strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],
    ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
    文字列 = Text.FromBinary(ソース, 932),
    HTMLソース = Lines.FromText(文字列),
    テーブルに変換済み = Table.FromList(HTMLソース, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    フィルターされた行 = Table.SelectRows(テーブルに変換済み, each Text.Contains([Column1], "Action") and Text.Contains([Column1], "回")),
    条件2_1 = "accessO.html', '",
    条件2_2 = "');"">",
    Column2を追加 = Table.AddColumn(フィルターされた行, "Column2", each Text.BetweenDelimiters([Column1], 条件2_1, 条件2_2)),
    条件3_1 = "</i>",
    条件3_2 = "</a></div>",
    Column3を追加 = Table.AddColumn(Column2を追加, "Column3", each Text.BetweenDelimiters([Column1], 条件3_1, 条件3_2)),
    #"名前が変更された列 " = Table.RenameColumns(Column3を追加,{{"Column2", "CNAME"}, {"Column3", "開催"}}),
    削除された列 = Table.RemoveColumns(#"名前が変更された列 ",{"Column1"})
in
    削除された列

解説動画はこちら： [04:11](https://www.youtube.com/watch?v=gim77eYlEHM&t=251s)

2. パラメーターを受け取り「単勝CNAME」を返す関数

次に、開催地のCNAMEを渡すと、その場所の1R〜12Rまでの単勝パラメーターをテーブルで返す''カスタム関数''を作成します。

クエリ名を「''開催別の単勝CNAME''」として保存してください。

(str開催地CNAME as text, str開催地と開催日 as text) as table =>
let
    strURL = "https://www.jra.go.jp/JRADB/accessO.html",
    strCNAME = "cname=" & str開催地CNAME,
    strPARA = Text.ToBinary(strCNAME),
    strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],
    ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
    文字列 = Text.FromBinary(ソース, 932),
    HTMLソース = Lines.FromText(文字列),
    現在時刻 = DateTime.ToText(DateTime.LocalNow()),
    LISTの頭に時刻を追加 = {"取得時刻"} & {現在時刻} & HTMLソース,
    テーブルに変換済み = Table.FromList(LISTの頭に時刻を追加, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    フィルターされた行 = Table.SelectRows(テーブルに変換済み, each Text.Contains([Column1], "Action") and Text.Contains([Column1], "単勝")),
    条件3_1 = "doAction('/JRADB/accessO.html', '",
    条件3_2 = "'",
    単勝CNAMEを追加 = Table.AddColumn(フィルターされた行, "単勝CNAME", each Text.BetweenDelimiters([Column1], 条件3_1, 条件3_2)),
    インデックス列の追加 = Table.AddIndexColumn(単勝CNAMEを追加, "Index", 0, 1),
    レース番号を追加 = Table.AddColumn(インデックス列の追加, "レース番号", each Number.ToText([Index] + 1) & "レース"),
    追加された場所 = Table.AddColumn(レース番号を追加, "今週の開催地", each str開催地と開催日),
    列削除 = Table.RemoveColumns(追加された場所,{"Column1", "Index"})
in
    列削除

解説動画はこちら： [10:43](https://www.youtube.com/watch?v=gim77eYlEHM&t=643s)

3. List.Transformによる一括結合（結合テスト）

最後に、手順1で取得した開催地リストに対して、手順2の関数をループ（繰り返し）実行させます。

「開催取得」クエリの最終行に、以下の処理を追加します。

    // ソースのテーブルをレコードのリストに変換
    lst処理リスト = Table.ToRecords(削除された列),

    // 関数を順番に呼び出してテーブルのリストを作成
    テーブル一覧 = List.Transform(
        lst処理リスト,
        each 開催別の単勝CNAME(_[CNAME], _[開催])
    ),

    // 全てのテーブルを一つに結合
    t_all = Table.Combine(テーブル一覧)
in
    t_all

解説動画はこちら： [18:33](https://www.youtube.com/watch?v=gim77eYlEHM&t=1113s)

今後の課題とAIアドバイス

今回の実装で、全レース（1R〜12R）のパラメーターがズラッと並ぶ壮快な結果が得られました。 [22:51](https://www.youtube.com/watch?v=gim77eYlEHM&t=1371s)

未解決のポイント

今回は「単勝」のみ。馬連、3連複、3連単など全馬券種への対応が必要。
取得したリストからコンボボックス等で選択できる「メニュー画面」の構築。

AIからのアドバイス

現在の設計では「場所」×「レース」のループですが、ここに「馬券種」のリストを追加してさらにネスト（入れ子）したループを組めば、文字通り「JRAの全パラメーター」を初回に一括キャッシュすることが可能です。''Table.Combine'' は非常に強力ですが、データ量が増えるとWebリクエストの回数が増えるため、実行速度には注意してください。

26-01-22に書きました YouTubeのフィルターで回数順が無い、うそのような本当の話？

2026-01-22T23:22:08+09:00

速攻で訂正・・・
https://support.google.com/youtube/thread/400640375?hl=ja
より
• [優先度] メニュー: [並べ替え] メニューが [優先度] メニューに名称変更されました。このメニューは、絞り込み機能の利便性を最大限まで高めることを目的として更新されています。
• [人気度] フィルタ: [視聴回数] の並べ替えオプションの名称が [人気度] に変更されました。

やばい、Xの指摘って速いな

質問:
YouTubeのフィルターで視聴回数って無くなったんですか？

おっさんの回答:

はい、なくなってますね・・・

PCなら、面倒だけど
検索後のURLに
&sp=CAMSAhAB
をつけると
https://www.youtube.com/results?search_query=hikakin&sp=CAMSAhAB
...
https://www.youtube.com/results?search_query=vtuber&sp=CAMSAhAB
とか、
それっぽくは表示されますが、

検索フィルターに回数順が無い、うそのような本当の話？

キーワードXXXXの一週間以内で回数順
とか
やるのが大変だし、

いつまで、&sp=CAMSAhAB が有効か？わからないし・・・

AIに字幕修正を依頼するとスカスカになってしまった(笑)意味ない言葉も少しは残してください・・・

2026-01-22T15:00:00+09:00

AIに字幕修正を依頼するとスカスカになってしまった(笑)意味ない言葉も少しは残してください・・・
私のような人は、いないと思いますが
(※そもそも、字幕の前に必要ないつなぎや無音で迷っている部分は、積極的に動画編集でカットするから、字幕にならないよね・・・)

今回のAI指示文、一つでもヒントとなれば幸いです。

私、Ken3の口癖リスト

```
スイマセン
ごめんなさい
こんな感じです
変ですけど
```

と良く動画内でしゃべっているので、
自動字幕や文字起こしでヒドイことになっている。

よし、AIに字幕のカット修正を依頼ぞと思い、
依頼すると結果は修正された字幕がスカスカ・・・

修正方法もAIに聞くおっさんの姿、イラストのようなキレイな部屋に住みたいなぁ・・・

1.まず、AIに指示分の修正方法を聞く

おっさんが、AIへ聞く

目的・やりたいこと:Gemを修正したい
```
スイマセン
ごめんなさい
こんな感じです
変ですけど
```
上記口癖を、文脈から必要ある場合のみ残し、不必要な謝罪の繰り返しは削除する
そんな指示を現在のGemに入れるには、
1.具体的な指示文
2.今のGemに入れる場所
を
教えてください。
全部カットではなく、「文脈から必要ある場合のみ残し」の指示が難しいと思いますが*

次回から、新Gemを使ってみたいと考えているので、修正方法を教えて
AI回答:
**特定口癖（Ken3構文）の文脈判断処理:**

以下のキーワードは話者（Ken3）の口癖です。一律削除はせず、以下の基準で**「意味のある言葉」か「無意識のフィラー」かを判断**して処理してください。

* **対象語句:** 「すいません」「ごめんなさい」「こんな感じです」「変ですけど」

* **1. 「すいません」「ごめんなさい」の処理ルール:**
    * **【残す】（本当に謝っている場合）:**
        * 直前に操作ミスをした場合（例：「あ、間違えた、すいません」）
        * 間違った情報を伝えて訂正する場合（例：「AではなくBでした、ごめんなさい」）
        * PCの処理待ちなどで視聴者を長く待たせる場合
    * **【削除】（口癖・つなぎ言葉の場合）:**
        * 文頭の無意味な謝罪（例：「えー、すいません、では解説します」→「では解説します」）
        * 言い淀みや謙遜（例：「説明が下手ですいませんが」→ 削除または「説明します」）
        * 文脈上、謝る必要がない場面

* **2. 「こんな感じです」「～って感じです」の処理ルール:**
    * **【言い換え】:**
        * 文末が曖昧になる場合、断定形や適切な結びに変換する。
        * 例：「コードはこんな感じです」→「コードはこのようになります」
        * 例：「ここで保存するって感じです」→「ここで保存します」
    * **【削除】:**
        * 意味が重複している場合（例：「～という設定になります、って感じです」→「～という設定になります」）

* **3. 「変ですけど」の処理ルール:**
    * **【残す】:** コードや挙動が客観的に特異であると強調したい場合。
    * **【削除】:** 単なる照れ隠しや、自身の説明に対する不要な前置きの場合。

--
2. 今のGemに入れる場所
現在のプロンプト（指示書）の中にある、「処理:」セクションの「3. フィラーの除去」の直後 に挿入するのがベストです。

フィラー除去（一般的な「えー」「あの」の削除）の後に、この「高度な判断が必要な口癖処理」を行わせることで、AIが迷わずに処理できます。

挿入イメージ:

... 3. フィラーの除去: 「あの」「えっと」など、フィラーの除去処理を行います。     * 「えーっと」、「あのー」、「まあ」など、話の流れを妨げたり、視聴者の集中を削いだりする言葉を削除します。

【ここに上記「特定口癖（Ken3構文）の文脈判断処理」を挿入してください】

方言の修正: 口語的な表現や方言を、より標準的な日本語に置き換えます。 ...
補足：なぜこの指示でうまくいくのか
AIに対して「必要ある場合のみ」と伝えると、AIの基準で判断してしまいブレが生じます。今回のように**「どういう時が"必要"なのか（＝操作ミス、情報の訂正）」という条件（トリガー）**を具体的に定義してあげることで、Ken3さんの意図に近い、「ミスした時は誠実に謝り、無駄な謝罪はカットする」スマートな字幕修正が可能になります。
次回、新Gemを作る際にぜひ試してみてください。

AIさん、ありがとう
次回から、字幕修正時に使ってみますね
元の活舌悪さを改善する方法もAIに聞かなきゃなぁ・・・と思いつつ、失礼します。

【Excel】VBA不要！パワークエリの関数化とList.TransformでJRAオッズ全12レースを一括取得する方法

2026-01-19T10:00:00+09:00

ExcelパワークエリでJRA 単勝オッズを一括取得！List.Transformで12レース全自動読み取り

JRAの公式サイトから1レースずつデータを取るのは大変ですよね。
「1つのレースは取れるけど、12レース分をループさせる方法がわからない」
そんな悩みを解決するために、パワークエリを関数化して一気に読み込む「''VBA不要の自動化テクニック''」をまとめました。

処理のイメージと[このブログをAIで作成したことを伝える]

今回やりたかったこと

開催地（中山、京都など）の情報を自動で取得する
1レースから12レースまでのパラメーター（CNAME）を特定する
取得処理を「関数化」し、List.Transformでループを回して一括結合する

メインのソースコード

1. クエリの関数化：単勝テーブルを返す

まずは、レース番号とパラメーターを受け取って、そのレースのオッズ表を返す「部品」を作ります。

(レース番号 as text, 受け取ったCNAME) as table =>
let
    strURL = "https://www.jra.go.jp/JRADB/accessO.html",
    strCNAME = "cname=" & 受け取ったCNAME,
    strPARA = Text.ToBinary(strCNAME),
    strHEAD = [#"Content-Type"="application/x-www-form-urlencoded"],
    ソース = Web.Contents(strURL, [Headers = strHEAD, Content = strPARA]),
    文字列 = Text.FromBinary(ソース, 932),
    strレース名 = Text.BetweenDelimiters(文字列, "<span class=""race_name"">", "<"),
    str時刻 = Text.BetweenDelimiters(文字列, "<div class=""cell time""><strong>", "<"),
    HTMLtest = Web.Page(文字列),
    TB0 = HTMLtest{0}[Data],
    追加されたレース名 = Table.AddColumn(TB0, "レース名", each strレース名),
    追加されたオッズ時刻 = Table.AddColumn(追加されたレース名, "オッズ時刻", each str時刻),
    追加されたカスタム = Table.AddColumn(追加されたオッズ時刻, "レース番号", each レース番号),
    並べ替えられた列 = Table.ReorderColumns(追加されたカスタム,{"レース番号", "レース名", "オッズ時刻", "枠", "馬番", "馬名", "単勝"})
in
    並べ替えられた列

2. ループ処理：単勝1to12

次に、用意した関数を12レース分ループさせて、最後にガッチャンコ（結合）します。

let
    ソース = Excel.CurrentWorkbook(){[Name="レース別CNAME"]}[Content],
    TBレース別CNAME = Table.TransformColumnTypes(ソース,{{"単勝CNAME", type text}, {"レース番号", type text}}),
    // テーブルをレコードのリストに変換
    lst処理リスト = Table.ToRecords(TBレース別CNAME),

    // List.Transformで関数を順番に呼び出す
    テーブル一覧 = List.Transform(
        lst処理リスト,
        each 単勝テーブルを返す(_[レース番号], _[単勝CNAME])
    ),

    // 全てのテーブルを一つに繋げる
    結果 = Table.Combine(テーブル一覧)
in
    結果

手順の解説と動画リンク

今回の構築手順のポイントを、動画のタイムスタンプと共に解説します。

[cite_start][08:33](https://www.youtube.com/watch?v=T-kRPFVOE2w&t=513s) ''開催場所の自動取得'': JRAトップページから「中山7日」などの情報を抜き出します [cite: 188]。
[cite_start][15:41](https://www.youtube.com/watch?v=T-kRPFVOE2w&t=941s) ''名前範囲「CNAME」の作成'': セルの値をクエリに渡すためのテクニックです [cite: 189]。
[cite_start][23:40](https://www.youtube.com/watch?v=T-kRPFVOE2w&t=1420s) ''クエリの関数化'': ここが一番重要。引数を受け取るようにコードを書き換えます [cite: 190]。
[cite_start][30:07](https://www.youtube.com/watch?v=T-kRPFVOE2w&t=1807s) ''List.Transformによるループ'': M言語で最も強力な「繰り返し」の手法です [cite: 191]。
[cite_start][41:11](https://www.youtube.com/watch?v=T-kRPFVOE2w&t=2471s) ''非同期更新によるデータのズレ'': ライブ中に発覚した重要な注意点。更新順序の制御が課題です [cite: 192]。

未解決の問題点と今後の課題

[cite_start]ライブ配信中に発覚したのですが、パワークエリの''「すべて更新」ボタンを押すと、クエリが並列（非同期）で動いてしまい、取得するデータの順番がズレる''というバグのような現象が発生しました [cite: 192]。

今後の改善点として：

クエリの実行順序を強制する（Table.Bufferなどの活用）
または、VBAを使ってクエリを1つずつ順番に更新させる

このあたりを次回、詳細に検証してみたいと思います。

AI動画制作の課題解決法：「日本人」キャラクター確保の秘訣 AI Geminiで動画からブログ生成のテストを兼ねて備忘録化してみた

2026-01-12T10:30:00+09:00

【Gemini Veo3】AI動画で「日本人」が出ない問題を一発解決！静止画から作る2ステップ攻略法

Googleの最新動画生成AI「Veo3」。使ってみると分かりますが、日本語で指示を書いても「なぜかアメリカ人風の男性」が出てきてしまう……。そんな経験はありませんか？

今回は、1日3回という貴重な生成枠を無駄にせず、理想のキャラクターを100%の確率で動かすための「画像ベース生成」のテクニックを備忘録としてまとめます。

1. なぜあなたのAI動画は「外国人」になるのか？

02:45 検証：プロンプトだけで生成すると「アメリカ人」が出てくる問題

AI（Gemini/Veo3）の学習データには英語圏の情報が多いため、「競馬を応援する男」とだけ書くと、デフォルトで西洋風の人物が選ばれる傾向があります。字幕でも触れましたが、日本語でどれだけ詳しく状況説明をしても、人物のアイデンティティを固定するのは非常に困難です。

失敗したプロンプト（直接生成）

「テレビ画面は最終コーナーを回る馬群。太ったおじさん、ソファの端に座り、食い入るように画面を見つめている……（以下略）」

→ 結果：特徴的なアメリカ人の男性が生成されてしまう。

2. 解決策：静止画を「設計図」にする2ステップ法

最も確実なのは、「先に理想の静止画を作り、それをVeo3に読み込ませる」という手法です。

ステップ1：静止画でキャラクターを固定

まず、画像生成AIで「動かしたいシーンの決定的な1枚」を作ります。

07:44 解決策：先に「日本人おじさん」の静止画を生成して固定する

使用した画像生成プロンプト（イメージ）：

書類や空き缶が散らかったアパートの一室
太ったトレーナー姿の日本人男性
TVで競馬のレース中継を見ています
TV画面には、最終コーナーを回った馬群（ばぐん）が表示されています

AIから生成された静止画

ステップ2：画像を添付してVeo3に「動き」を指示

生成された日本人の画像をVeo3にアップロードし、その画像に対して「どう動くか」だけを指示します。

動画生成時の指示（情景描写）：

画面の馬が先頭に躍り出た瞬間。
おじさん、弾かれたように座椅子から少し腰を浮かせ、
新聞を丸めた手で膝をバシィッと叩く。

これにより、キャラクターの見た目（日本人であること）を維持したまま、躍動感のある動きを付けることに成功しました。

3. 未解決の課題と積み残し

今回の検証で見えてきた、現時点でのAI動画の限界です。

音声の日本語対応が不完全：動画内で喋らせようとしましたが、日本語のイントネーションや声の質がまだ不自然（または英語風になる）という課題が残りました。
1日3回の制限：トライ＆エラーが命のAI生成において、この回数制限はかなり厳しい「壁」です。
細かい動作の不一致：「新聞で膝を叩く」といった複雑な道具との干渉は、まだAIが混乱しやすいポイントです。 ↓矢印、セリフを言わなかったり、うまく動画にできていませんが、作業手順が伝われば・・・ 10:14 実演：静止画を元にVeo3で動きをつける手順

4. 次回へのアドバイス・リメイク案

「映像は完璧だが、声がダメ」という現状を打破するために、以下のステップを提案します。

ElevenLabsやVrewとの連携： Veo3で生成した「無音の高品質動画」に、音声合成AIで作った「リアルな日本語の叫び声」を後付けする。これが現在のAI動画制作の王道です。
ショート動画への展開：今回の「競馬おじさん」のようなキャラ立ちした映像は、TikTokやYouTubeショートと相性が抜群です。字幕と効果音を盛って15秒の物語にリメイクしてみてはどうでしょうか。

三流君 ken3のmemo置き場

釣られた・偽情報を見たオジサンが(YouTubeで村神様16号キングの偽動画) AIに釣りサムネの件を聞いてみた26/05/12作成

おっさんの質問

再度質問

AIの回答

1. 私（Gemini）の率直な意見

2. YouTubeの規約に照らした判断

規約上のポイント：誤解を招くメタデータ

サムネイルに関するポリシー

参照すべき公式URL

結論としての判断

おっさんの個人的な意見を自分語りでAIにぶつけてみた

AIの回答

YouTube 2026：対策の現状と課題

なぜ「フィクション」と書けば逃げられるのか？

2026年のクリエイターとして

【YouTube】リアルタイム再生数が「1分間に2回」？重複カウントの謎と維持率への影響

YouTube1分間に2回のアクセスについて

Ken3 おっさんの質問文

AI Geminiの回答

1. アクセスの原因について（広告除けや広告ブロックの影響）

2. 数値の修正（「2」が「1」や「0」になるか）について

3. 平均視聴時間や視聴維持率への影響

昔の動画【2022年版】今こそ見直したいExcel円グラフの基本。配色一つで資料の信頼は変わる！

Excelの円グラフ、色が「逆」になってませんか？デフォルト配色に潜む「恥」の回避術

円グラフの配色ミスが起きるメカニズム

資料の信頼性を守る「業界常識」と「配色ルール」

AI編集者からのアドバイスと今後の課題

関連リンク

公式情報・検索リンク

YouTube関連動画

AIで都市伝説を探す 【2026年第31回NHKマイルC】大波乱のシナリオ？サインが示す「究極の穴馬」とは？

【2026年第31回NHKマイルC】オカルト×データで読み解く大波乱のシナリオ！サインが示す「究極の穴馬」とは？

1. 残酷なまでの絶対データ「内枠の呪縛」と「外枠の神話」

今年の人気馬に降りかかる「枠の呪い」

2. 敗者の逆転法則：「前走1着馬」は消し！？

サイン合致の注目馬

3. 数秘術とサイン理論が導く「究極の暗号」

「5月10日」と「西暦2026年」の完全一致

馬名に宿る「言霊（ことだま）」

結論：第31回NHKマイルCの最終見解

AIと都市伝説を探してみた

AIに依頼したプロンプト

過去のデバッグ動画を紹介 【Excel】Web上のExcelファイルをPower Queryで取得しようとするとエラーになる件を解決する

【Excel】Web上のExcelファイルをPower Queryで取得しようとするとエラーになる件を解決する

はじめに：Web上のExcelファイル、毎回ダウンロードしてませんか？

今回作成したPower Query（M言語）コード

エラー解決の3つのポイント解説

1. URLの「0落ち」を防ぐ（Text.PadStart関数）

2. Web.Page ではなく Excel.Workbook を使う

3. シート名が変わる問題は「インデックス指定」で回避

AIからのアドバイスと今後の課題

関連リンク

自分のYouTube過去動画を分析して「はてなブログ」の記事を作成するプロンプトを紹介します 26年05月バージョン

PC起動時に一瞬消える「黒い画面」…ウイルス？正体は意外なアレだった件（2018年アーカイブ）

【動画で確認】一瞬の黒い画面、あなたのPCでもこれが出ていませんか？

調査手順：ウイルスを疑う前に「証拠」を探せ

【検証】あえて「一瞬で消える画面」を自作して比較してみた

未解決の懸念とAIからのアドバイス

AIエディターからの補足アドバイス

まとめ：怪しい挙動は「記録」して「照らし合わせる」

関連リンク

未解決の懸念とAIからのアドバイス

AIエディターからの補足アドバイス

まとめ：怪しい挙動は「記録」して「照らし合わせる」

関連リンク

天皇賞（春）の競馬都市伝説をAIと探しました【第173回】73年ぶりの奇跡が起きる？天皇賞（春）に隠された「数字の呪縛」

【天皇賞・春 2026】プロは笑う！？でも信じたい「73」と「3」に隠された不気味な都市伝説

😱 伝説1：73年ぶりに解かれる「牝馬の呪縛」

🔢 伝説2：すべては「3」に支配されている！？

🐎 伝説3：京都に舞い降りる「白い稲妻」

📊 一応、真面目なデータも置いておきます

🏁 結論：信じるか信じないかは、あなた次第！

AIに依頼したプロンプトの紹介 26/05/02実施

AIが参照した・関連リンク

VBA×XMLHTTPでJRAの『人気順』オッズを自動取得

2026/04/23頃？VREW4のバージョンアップが来そうですね。

Excel VBA シート内のイベントでドラッグアンドドロップを判断 移動元のセルを灰色、移動先を赤色にする方法

Power QueryでJRA馬連オッズ取得の手順解説 Html.Table関数を使用してTH,TDタグ指定で値を取得する方法

いつもの早とちり 知恵袋の質問でVrewの7月サービス終了を見て焦るオジサン

AIで都市伝説を探す【2026年第31回NHKマイルC】大波乱のシナリオ？サインが示す「究極の穴馬」とは？

過去のデバッグ動画を紹介【Excel】Web上のExcelファイルをPower Queryで取得しようとするとエラーになる件を解決する

Excel VBA シート内のイベントでドラッグアンドドロップを判断移動元のセルを灰色、移動先を赤色にする方法

いつもの早とちり知恵袋の質問でVrewの7月サービス終了を見て焦るオジサン

謎の新機能「Goal scheduled actions」とは？Gemini 3の新機能？を触ってみたテスト参加者になったので舞い上がってブログに載せてみた

都市伝説じゃなかった！YouTubeサムネイル50MB化の真相とAI生成画像の扱い方私は2MB制限組です残念・・・

質問:パワポに貼ったURLで挿入したYouTube動画をエクスポートでMP4にできません回答:PowerPointは「YouTube動画を勝手にダウンロードする道具」ではありません

AIでまとめました【Excelパワークエリ】Html.TableでWebサイトの特定クラス(CSSセレクター)を抽出する方法

【Excelパワークエリ】Html.TableでWebサイトの特定クラス(CSS セレクター)を抽出する方法

ExcelパワークエリでJRA 単勝オッズを一括取得！List.Transformで12レース全自動読み取り