三流君のソースコード置き場

ブログにソースコードをアップして、ブログの検索機能で利用してます(利用予定です)

よく検索されるキーワード: [VBA]/ [VBS]/ [CreateObject]/ [Excel]/ [ADO]


修正したコード JRAオッズ CNAMEを取得するコード 26/03/08

https://www.youtube.com/watch?v=tC_84sHW3dgwww.youtube.com 修正したコード // 2026/03/08 テスト001 // まず、空のクエリーにメイン関数を貼り付けてください // メイン処理 // 名前は何でも //--- JRAオッズのCNAMEを取得する パワークエリ 26/02/15テ…

AIほ使用して記事作成 【Excel VBA】PowerPointへの自動転記で「書式」が消える問題を解決!.Textプロパティの活用術【ソースコード公開】

【Excel VBA】PowerPointへの自動転記で「書式」が消える問題を解決!.Textプロパティの活用術【ソースコード公開】 毎月のレポート作成で、Excelの数値をPowerPointにコピペする作業、まだ手動でやっていますか? 「63箇所」もの転記作業も、VBAを使えば''…

AIで動画から記事 Excel VBAでパワポの「2枚1組」スライドを一括自動作成!複数枚の雛形を連続コピーする技

Excel VBAでパワポの「2枚1組」スライドを一括自動作成!複数枚の雛形を連続コピーする技 「問題スライド」と「回答スライド」のように、''2枚で1セットになっているスライド''を、Excelのリストから大量生産したい。 そんな時、1枚ずつコピーしてペーストし…

AIで作成した記事 【PowerPoint】スライドショー中にペン機能を使うと「ボタンが押せない」罠を回避する裏技コード

【PowerPoint】スライドショー中にペン機能を使うと「ボタンが押せない」罠を回避する裏技コード スライドショー実行中にペン(インク機能)で画面に書き込みを行い、その後に自作の「全消去ボタン」や「色変更ボタン」を押そうとしたら…… ''ボタンが反応し…

AIで動画からコードをまとめる 元データ紛失…パワポのグラフから数値を1秒で抜き出すVBAマクロ【リンク切れ救済】

元データ紛失…パワポのグラフから数値を1秒で抜き出すVBAマクロ【リンク切れ救済】 「リンクされたファイルが見つかりません」PowerPointでグラフを編集しようとした瞬間、この無慈悲なエラーメッセージに血の気が引いた経験はありませんか? 元データのExce…

JRAのCNAMEパラメータを縦に取得!Power Queryでリスト展開とループ処理【ソースコード公開】

JRAのCNAMEパラメータを縦に取得!Power Queryでリスト展開とループ処理【ソースコード公開】 三流プログラマーのKen3です。今回は、JRAのオッズ取得に向けた「CNAMEパラメータ」の抽出に再チャレンジします。 前回までは開催ごとの取得でしたが、今回はさら…

AIでまとめました 【VBA】Language=409 を追加するだけ!カタカナ英語がネイティブ発音に激変する備忘録

【VBA】カタカナ英語を卒業!たった1行で「ネイティブ発音」に変える魔法のコード VBAの読み上げ機能(SAPI.SpVoice)を使っていて、「英語の発音が日本人的なカタカナすぎて、全然格好良くない…」とガッカリしたことはありませんか?実はこれ、バグでも仕様…

過去動画をAIでまとめるテスト Access VBA重複チェックの決定版|DCountとOldValueを組み合わせた「エラーを出さない」入力フォーム作成術

Access VBA データの重複登録を防ぐ!DCount関数とBeforeUpdate(更新前処理)の実装方法 Accessでフォーム入力を作っていると必ず直面するのが、''「データの重複登録をどう防ぐか?」''という問題です。 今回は、DCount関数を使って件数を数え、BeforeUpda…

パワポの動画設定マクロ|自動再生とループを確実に動かす「AnimationOrder = 0」の秘訣

【PowerPoint VBA】全スライドの動画を「自動再生&ループ」に一括設定するマクロ PowerPointで大量の動画をスライドに貼った後、一つずつ「再生ボタンを押さずに自動で開始」「終わったらループ再生」と設定していくのは、おじさんには正直キツイ作業ですよ…

【PowerPoint VBA】大量の図形に「クリックで消える」アニメを一括設定!AddTriggerEffect活用術

【PowerPoint VBA】大量の図形に一括設定!クリックで消えるパネルやクイズを自動作成する方法 パワーポイントで「クリックした図形が消える」という設定を大量の図形に行うとき、1つずつ手作業で設定して発狂しそうになったことはありませんか? 今回は、VB…

Shape.OLEFormat.Objectを活用!PowerPoint内の埋め込みExcelを自動抽出・保存するVBA解説

【パワポVBA】埋め込みExcelを一括保存!OLEオブジェクトを吸い出す方法 パワーポイントの資料の中に埋め込まれたExcelデータ、これを取り出すのって意外と面倒ですよね。「拡張子を .zip に変えて解凍すれば中身が見える」という裏技もありますが、一部の表…

Worksheet_PivotTableUpdateを使いスライサー Slicersの選択期間をVBAでセルに自動転記

【結論:スライサー(タイムライン)の選択期間を、VBAでセルに自動転記できます!】「集計レポートのタイトルに、スライサーで選んだ期間を手入力している…」 そんな手間をゼロにするマクロの書き方を解説しました。ソースコードを冒頭で先に紹介する ```vb…

Excel VBAで振り仮名取得 Windows 10/11では GetPhonetic で「全候補」が取れない仕様に変わっています!

【結論:Windows 10/11では GetPhonetic で「全候補」が取れない仕様に変わっています!】ソースコードを冒頭に書く: Option Explicit Sub aaa() Dim strWORK As String Dim strNAME As String '名前 '呼び出しは簡単で、調べたい文字列を渡す strNAME = Inp…

【結論:無限ループは「イベントの一時停止」で解決します!】Worksheet_Changeの中で無限ループするコードについて

Worksheet_Changeの中でセルを書き換えると、またイベントが起きて無限ループ…焦りますよね。 検索で来られた方のために、まずは最も確実な解決コード(王道)を置いておきます。▼ コピペで解決!王道の修正コード 最も確実なのは『Application.EnableEvents…

VBAでUsedRangeとCurrentRegionを使い、Excelシート上の全テーブルをPowerPointへ一括貼り付けする方法'

VBA

Excel VBA シート内の「全ての表」をPowerPointへ一括貼り付けする! 「エクセルのシートに表が10個もある…これを一つずつパワポに貼るだけで1日が終わってしまう…」 そんな絶望を感じている事務職やエンジニアの方へ。今回は、Excel VBAを使って''「シート…

Excel SUMなどの計算結果をそのままPowerPointのスライドへ書き込む マクロコードを紹介する

Excelのリストからパワポの指定した場所へ、=SUMで計算した数値を表示形式をそのままで一気に流し込む「マクロ」を紹介します。 'ソースコード: 'B2に入力されたPowerPointファイルを開き '先頭行A5のデータから 'A列:指定ページ 内の B列:オブジェクト に C…

Worksheet_PivotTableUpdateイベントでスライサー変更時に値をセルにセット

質問内容と結果の操作を先に見せる 質問: Excelのピボットテーブルでタイムラインを使用してフィルターをかけています。タイムラインで選択した期間を別セルに表示することは可能でしょうか?可能であれば方法を教えてください。 回答: シートにマクロを記載…

PowerPoint VBA入門! Shape.PickUp & Shape.Apply で複数スライドの書式を一括変更

PowerPoint VBAで複数スライドの書式を一括変更する方法 PowerPointで資料を作成する際、複数のスライドに同じ書式を設定したい場面はよくありますよね。しかし、手作業で一つずつ書式をコピー&ペーストしていくのは、非常に面倒で時間がかかります。 そこ…

PowerPoint VBAでOLE埋め込みWordの.OLEFormat.Activateを使ってルビを振る方法

PowerPoint VBAでOLE埋め込みWordにルビを振る方法 概要 PowerPointに埋め込まれたWord文書にルビを振るには、PowerPointとWordを連携させる必要があります。 このVBAマクロは、ExcelからPowerPointを操作し、スライド内のOLE型のWordオブジェクトにルビを振…

Private Sub ListView1_OLEDragDrop 24年07月01日作成したソース

ListViewにファイルをドロップして、A列へ A列をクリア後、受け取ったファイル名を書き込む ソースコード: Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Si…

Excel VBA Chart.Exportを使用した画像出力

グラフオブジェクトの画像出力を探る 設置方法は、 https://youtu.be/MPmTub_ECmI?si=m-SX4A4oouNsy_vz&t=1734 ↑を2倍速で見てください。いつものマクロ記録で記録後 オブジェクトを探る 操作を記録する Sub Macro1() ' ' Macro1 Macro ' ' Range("E2").Sele…

test20240404_01ppスライドをexシートへグラフ情報付きで書き出す

あとで、解説を書く まず、コードを質問者さんへ送るソースコード: Option Explicit '起動済みの既存 パワーポイントのスライドから 'パワポのシェイプ情報をexcelシートへ書き出す 'ex:新規ブックを追加して、pp:スライドの情報をex:シート単位で貼り付ける…

蛇足1.パワポのアクティブスライドからオブジェクトの名前をエクセルに落とす

Option Explicit '起動済みの既存 パワーポイント スライド .Shapes から テキストを取り出す 'アクティブシートに名前とテキストをセット Sub test20220915ppスライド内シェイプ名取得() Dim ppApp As Object 'As PowerPoint.Application Set ppApp = Nothi…

ActiveChart.SeriesCollection.Count で グラフ系列の数

ActiveChart.SeriesCollection.Count で グラフ系列の数 ActiveChart.SeriesCollection.Count よく見かける .Count でChartのSeries数がわかりそうです Option Explicit Sub bbb() Dim n As Integer Debug.Print "コレクションの数:" & ActiveChart.SeriesCo…

PowerPoint VBA OnSlideShowPageChange でハマる

ken3memo.hatenablog.comhttps://youtu.be/jP0O2KlXeLE 目次 00:00 1.処理のタイミングをとりたい 00:32 1.2 標準モジュールにOnSlideShowPageChange 03:20 1.4 ん?一回目にコードが走らない?なんだこれ? 05:55 2.事前準備で名前を付ける 08:12 3.1 1ペー…

PowerPointVBA Shapes.AddMediaObject

PowerPoint2003マクロ記録で 挿入 ビデオとサウンド ファイルからサウンド 操作を記録した。 記録したコードは概要欄・コメント欄を見てください。youtu.be#PowerPointVBA #マクロ記録 #Shapes #AddMediaObject #デバッグ .AddMediaObject は 2013で廃止され…

PowerPointVBA PageSetup

PowerPoint2003マクロ記録で ファイル ページ設定 スライド 縦(P) 操作を記録した。 記録したコードは概要欄・コメント欄を見てください。youtu.be#PowerPointVBA #マクロ記録 #PageSetup #デバッグ Sub Macro3() ' ' マクロ記録日: 2022/5/18 ユーザー名: K…

PowerPointVBA Presentations.Add

PowerPoint2003マクロ記録で ファイル 新規作成 (ついでに レイアウト 空白) 操作を記録した。 記録したコードは概要欄・コメント欄を見てください。youtu.be#PowerPointVBA #マクロ記録 #Presentations #Add #デバッグ Sub Macro2() ' ' マクロ記録日: 2022…

VBS マクロ付きExcelファイル .xlsmを開き マクロを実行する 例題としてオッズ取得のマクロを実行

VBS

.vbs で マクロ付きExcelファイル .xlsm を開き、マクロを実行してみます。 タイトル画像1.簡単なVBSの説明 Set oApp = Nothing '1.1 Excelを起動 WScript.Sleep 1000 Set oApp = CreateObject("Excel.Application") oApp.Visible = True '可視にする oApp.U…

ActivePresentation.Slides(1).Copy スライドの1ページ目をコピー

データ転記でページが足りない時、 'スライドを増やす ppApp.ActivePresentation.Slides(1).Copy '1ページ目をコピー ppApp.ActivePresentation.Slides.Paste p '最終スライドpageに貼り付け で、1ページ目をコピーしました。 p = 1 While Len(Trim("" & r.O…


質問・感想・クレームなど、
気軽にコメント欄に書いてもらえるとうれしいです。

[Googleフォームにコメントを残す]
↑質問・コメントの入力フォームです、気軽に書いてください


フッター:最後にKen3Videoの動画一覧を紹介します

YouTubeにアップした動画です。他の動画を一瞬でも見てもらえるとさらに嬉しいです。
再生リスト:[三流君Ken3の最新動画]←リストの一覧形式で表示する


また、ブログを見に来てくださいね。ではまたぁ~