三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:
失敗続きのAB型の変わり者 :三流プログラマー Ken3です
フリーのエンジニア・個人事業主です・・と書くと聞こえはイイが(それとなくカッコよく聞こえるが)、 現在は小さな案件の受注請負 と 短期派遣 で 日々つつましく?ほそぼそと暮らしてます。
よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

VBA の検索結果:

Excel英単語から機械音声付きの縦スライドPowerPointを作る 自動転記マクロのテスト

…転記する#ExcelVBA #PowerPointVBA #自動転記 #英単語 #縦スライド #マクロ youtu.be https://youtu.be/pHpxR_IaJ3M 目次 00:00 0.実行結果 00:53 1.単体の部品説明 06:50 2.不具合0.実行結果 実行結果を先に見せる作成結果: #shorts 英単語をパワポの #縦スライド で作成 #PowerPointVBA #ExcelVBA https://youtube.com/shorts/NxVO…

パワポ 縦スライドにwavファイルを追加 PowerPoint2003で記録したマクロを修正してみた

…PowerPointVBA #マクロ記録 #縦スライド #wav #Presentations #PageSetup #Shapes #AddMediaObject #デバッグ作成したコード AddMediaObject2でハマった・・・ Option Explicit Sub TEST() Presentations.Add WithWindow:=msoTrue '新規作成 ActiveWindow.View.GotoSlide Index:=ActivePresenta…

Excel wav作成 機械音声変換 言語の指定を409英語にして音声ファイル.wavを作成してみた

…かった。#ExcelVBA #英単語 を #機械音声 で #wav 作成1.機械音声の言語を英語USにしてみた なので、言語を英語に指定して、本場っぽく読ませてみた。ぉぃぉぃ指定は簡単で、 google:SAPI.spVoice 言語 で検索すると、Language=409の指定で英語みたいです。 Dim US '言語の指定 2022/05/16 テストで英語USにしてみた。 Set US = oVoice.GetVoices("Language=409")(0) '409:…

Excel VBAで表示変更 10倍以下を赤 小数点を0.0でそろえる 例題:JRA 単勝オッズ取得

…om/watch?v=4IkuWVECTVo4. ExcelVBAで表示変更 10倍以下を赤 小数点を0.0でそろえる 例題:JRA 単勝オッズ取得 youtu.be https://youtu.be/rAi_uL41Bp05. Excel 読み上げ Range(範囲).Speak で簡単にできます Application.Speech.Speakもアリかな www.youtube.com https://www.youtube.com/watch?v=c4mH9szOo2w

XXXXXさんへ YouTubeのテキストエリアの書き出しの件 スクレイピング pythonで検索してみては? IE非推奨サイトが増えてきて寂しいなぁ

…昔のサンプルだと、 VBA IE操作 例題:指定したYouTube動画から はてなブログ の本文を作成する そんな転記プログラム 今は、動作しないコードですが、 https://ken3code.hatenablog.jp/entry/2018/07/01/223940 を見て、参考になれば・・・ タイトルサムネイルF12のDOMエクスプローラでIDやNameを探すのがポイントかなぁ youtu.be https://youtu.be/6yo4PJnzwk0?t=530 目次…

VBScript 定期実行 タスクスケジューラの設定テスト 終了設定でつまづく VBSを5分単位で実行させてみた

…分後、2回で止めたかったので。※通常は最終レース後の時刻かな4.OKを押して、タスクを登録します。 ※テスト開始時刻の設定をわかりやすい時間にしてね。5.しばらく、話術で場をつなぐ(テスト実行されるまで、何か話す・・・)6.テスト実行を確認失敗しました。有効期限内に終了しませんでした。 VBAから登録したり、スケジュールを削除する方法を来週までには探りたいなぁ・・と思いつつ、 もしかして、タスクスケジューラでやるよりも、Excel内でループで待った方がいのかなぁ・・・う~ん。

Excel VBA グラフ選択時のイベント処理を探る クラスモジュールにWithEvents As Chartを書きイベント取得

…い・・・#ExcelVBA #グラフイベント #WithEvents #Chart #クラスモジュール #デバッグ1.クラスモジュールで WithEvents myChartClass As Chart でグラフのイベントを取得します。 Option Explicit '埋め込みグラフでイベントを使用する ' https://msdn.microsoft.com/ja-jp/library/office/ff194070.aspx 'を参考にして、↓WithEventsでイベ…

VBSからPowerPoint を起動して スライドショーの実行 SlideShowSettings.Run 自動実行もどきを作成してみた

…して、実行してみますVBA(vbs)で パワーポイント スライドショー の 自動実行 に チャレンジ ken3memo.hatenablog.com の test.vbs をコピペして、コメントを追加 '20220508スライド再生テスト001.VBSに保存して、実行 Set oApp = CreateObject("PowerPoint.Application") oApp.Visible = True '可視にする oApp.Presentations.Open("d:\…

XXXXXさんへ ExcelからPowerPoint連続設定 自動画面切り替え 秒数の設定 を Excelから連続で行う VBA マクロ デバッグ

VBA

… 5 なとで設定可能VBA powerpoint 画面切り替え タイミング で検索すると、SlideShowTransition オブジェクト (PowerPoint) https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.slideshowtransition docs.microsoft.com が見つかり、そこから、 SlideShowTransition.AdvanceOnTime プロパティ (Powe…

PowerPoint 全てのスライドをjpg画像で出力 VBA マクロ .Exportで簡単にできました

…保存したいと思い、 VBAを探ってみたら、 .Export で 簡単に画像ファイルを作成できました。 youtu.be https://youtu.be/Gf1AGfSdN5c 目次 00:00 挨拶 やりたいこと 00:50 1.プレゼンファイル全体を.Exportで出力 02:33 2.指定スライドを.Exportで出力 04:11 3.名前を付けて、全スライドを出力してみた1.プレゼンファイル全体を.Exportで出力 出力場所の指定はできるが、ファイル名が気に入らなか…

Excel web パワークエリで取得かぁ 今度調べてみよう メモメモ JRA オッズ取得

…youtu.be (VBAなのでパワークエリとは違いますが、↑POSTパラメーターのイメージがつかめれば) <li><a href="#" onclick="return doAction('/JRADB/accessO.html', 'pw151ouS305202202040120220501Z/96');"><img src="/JRADB/img/race_number/race_num_1.png" alt="1レース"/></a></li> <li><a href=…

VBSで JRAオッズ自動取得Excelマクロ を10分間隔で タスクスケジューラ を使い起動したテスト

VBS

…レース別に複数蓄積する" WScript.Sleep 500 '1.4 ブックを閉じる oApp.ActiveWorkbook.Close 'ブックを閉じる '2 Excelを閉じる oApp.Quit WScript.Sleep 500 Set oApp = Nothing '---- ↑のVBSをタスクスケジューラ に登録して、 10分間隔で起動しました。#タスクスケジューラ #オッズ #競馬 #デバッグ #オッズ自動取得 #ExcelVBA #VBS #Excelマクロ

ExcelからPowerPointへ 項目名が同じ名前のオブジェクトにデータをセットする

…QuSw#ExcelVBA #PowerPointVBA #マクロ #自動転記 #デバッグExcelからパワポにデータをセットしてみました。 Excelのソース ※パワポを開いた状態でテストしてみてください Option Explicit Sub Excelから起動済みのパワポにデータセット20220425() '起動済みのパワポを捕まえる Dim ppApp As Object Set ppApp = Nothing On Error Resume Next 'エラーが発生…

CreateObject("htmlfile")でDocumentを作りweb上のhtmlデータを抜き出す 例題でJRAオッズを取得してみた

…った・・・昔作成したVBA IEでJRAのオッズを取得するコードを CreateObject("htmlfile")を使ったコードに書き換えてます。 来週、また、テストしてみたいと思います。 <a onclick="doAction('/JRADB/accessO.html','pw15oli00/6D');return false;" href="#"><span class="icon"><i class="fa fa-caret-right" aria-hidden="…

Excelで読み上げ Range(範囲).Speak で簡単にできました Application.Speech.Speakもアリかな

タイトルExcelのVBAで.Speakを使用すると、簡単に読み上げが可能です Application.Speech.Speak もあって、 セル読み上げだけじゃなく、好きな言葉を読み上げることができます。MsgBoxと組み合わせてみたけど、チョット、イマイチでした。 視聴者のみなさんで、面白い使い方があったら、 ぜひコメント欄で教えてください。 youtu.be https://youtu.be/c4mH9szOo2w#ExcelVBA #Speak #読み上げ #Spee…

Excel VBA 短い台詞から.wavファイル 機械音声を作成してみた

…いね。 #ExcelVBA #音声ファイル #機械音声下記、いつもの あのあの そのその 解説動画です youtu.be https://youtu.be/oQgYWk4gKYk 目次 00:00 0.あいさつ 00:34 1.音声ファイル作成のコードを修正 02:30 2.Excelのシートに台詞を書き、テストする 05:43 3.シートをコピーして使ってみる 08:32 4.蛇足で全ての台詞をまとめたファイルを作ってみた0.あいさつ 最近、パワーポイントで機械音声のナレー…

Excel VBA 右クリック メニュー に自作マクロを追加する CommandBarを探ってみた

自作マクロVBAをExcelの右クリックメニューに追加したかったので、 いつものように デバッグ テスト してみます。 ※最後の後始末がうまくいかなかったのは・・・実力・確認不足です。下記、いつもの、あのあの そのその 動画解説です youtu.be https://youtu.be/Zeccp33SPQA 目次 00:00 0.こんなことできます 00:52 1.登録は簡単でControls.Add 02:10 2.Cell や Row って、どこでさがすの? 11:00 …

これからは VBA マクロの配布時にセキュリティの説明をキチントしないと?

VBA

最近は、マクロ付きExcelブックなどを配布してないんだけど(ぉぃぉぃ、活動してないのか?) ファイル配布がセキュリティ関係で厳しくなるのかなぁ。 まぁ、あまり簡単にメール添付やネットからダウンロードした マクロ付きファイルから実行できたらまずいのか。 docs.microsoft.com https://docs.microsoft.com/ja-jp/deployoffice/security/internet-macros-blocked ↑のスケジュールだと、 更新チ…

Word VBA 表の列幅 Columns.Countで列数 Columns(x).Widthで幅

…つかみで、列幅の表示VBAを走らせる 01:06 1.Selection.Tables.Count で 選択したエリアに表・テーブル数 02:49 2.Columns.Count で 列数 04:32 3.Columns(x).Width で 幅が取得できます 05:00 4.もちろん値をセットすれば列幅が変わりますWord 表の列幅 取得・変更 処理の参考となれば幸いです。 ※Excelとのリンク貼り付けで列幅が狂った時、戻す処理をやろうとするが、 失敗したので、動画の後半…

Word VBA 段落オブジェクト Paragraph マクロ記録と検索で探ったお話

VBA

…om ↑ Word VBAを探る マクロの記録 と オブジェクトの調べ方 例題:検索した文字列の1行下に指定文字を入れる Word VBAのコードをマクロ記録から修正 - YouTube Sub Macro1() ' ' Macro1 Macro ' ' Dim n As Integer '先頭にカーソル移動 https://www.relief.jp/docs/word-vba-selecting-start-documents.html から引用 ActiveDocume…

がんばれ 新社会人 新人プログラマー くたばれ 老害 三流プログラマー YouTube新規向けのチャンネル紹介動画を作成した

…イ情報量ですねぇ ・VBAでIE操作系の解説ページにたどりつけた ・競馬 #オッズ自動取得 自分がやりたかったことが書いてあります と思うが、 少し・また少しと攻略していったり、 別の男(他のチャンネル)、 じゃなかった他の情報量が多いページやレイアウトがキレイで読みやすいページをみると、 あれが足りない、これも足りないと物足りなくなってきたり、 情報が探しにくい、レイアウトが整っていなくて醜い。読者の心の声:「そだね、IEも引退だし、Ken3引退だね。 人間性や器、○○も小…

Excel VBA で PowerPointのタイトルテキストを取得したい Shapes から テキストを取り出す

VBA

…owerPoint VBA 過去記事: ken3memo.hatenablog.com ken3memo.hatenablog.com ken3memo.hatenablog.comテストでSTOP止め、確認 'テストで現在選択中のスライド内のテキストを表示する '.Shapes から テキストフレーム テキスト範囲 が あったら、表示 Sub testスライド内テキストをDebugPrint() Dim nPAGE As Integer Dim objShape As Sh…

未解決 msoLineJoinRound 丸められた結合を指定します ってどこにあるの?

…jp/office/vba/api/overview/library-reference/msolinejoinstyle-enumeration-office 似たようなプロパティから探る? ↑矢印は、あるんだよなぁ BeginArrowheadStyle : msoArrowheadTriangle みたいなのが - : Line : : LineFormat/LineFormat : Module1.図形を選択して止める : BeginArrowheadLength :…

Outlook VBA 差出人を変更 別の名前にする SentOnBehalfOfName を意図せずに発見

いつものように参照設定の下記回答動画を作成、 テスト結果を確認した時に あれ?差出人が違う名前になってる? SentOnBehalfOfName を意図せずに発見→ https://youtu.be/u4sLe5J2Tms?t=80 And 落ちてたコードの拾い食い発言は面白くない(ネットにUPされているコードに敬意を払いましょう)動画全体を見るには下記 https://youtu.be/u4sLe5J2Tms 目次 00:00 知恵袋の質問 00:28 #参照設定 の話 0…

ウォッチ式の使用例として PowerPoint VBA グラデーション 色を ウォッチ式でトロイおじさんが探ってみた

…で、グラデーションをVBAで触るのは、大変そうです・・・以上、ウォッチ式でグラデーションを探ってみた話でした。ついでに、背景色のグラデーションを探ってみた・・・ + : Fill : : FillFormat/FillFormat : Module1.aaa - : GradientStops : : GradientStops/GradientStops : Module1.aaa : Count : 3 : Long : Module1.aaa - : Item 1 : …

実行時エラー 1004 : RangeクラスのAutoFilterメソッドが失敗しました Excel VBA .AutoFilter フィルター処理を勝手にデバッグ

…・・・落ち着け・・・VBAからフィルターを使ったこと無かったので、 勝手にデバッグ動画を作成 https://www.youtube.com/watch?v=DG968fWAx78 ↑エラーを強引に出してみました。へんなデバッグ動画ですが、参考となれば・・・無いとは思いますが Range("A1").AutoFilter 2, "" & custmor.cname.Text & "" としているのに、 表の先頭がA1ではなく A3などから?始まっていたりは、 それはないよねぇ…

VBA PowerPoint クラスモジュールで WithEvents イベント処理 例題として スライド開始 SlideShowBegin と スライド終了 SlideShowEnd を処理

VBA PowerPoint イベント で検索すると、いろいろなページがヒットします。 今回は、下記公式の Application オブジェクトでイベントを使用する https://docs.microsoft.com/ja-jp/office/vba/powerpoint/how-to/use-events-with-the-application-object を見ながら、テストしていきます。下記、いつものテスト動画です www.youtube.com https://w…

ExcelからWord #データ差し込み 処理を #デバッグ してみた Excel VBA IsDate("1200-10") が True になるので小細工してみた・・・

IsDateで日付かチェック可能なのですが、 1200-12 みたいなYYYY-MMと取れる文字列を真 Trueと判断する まぁ、当たり前のお話なのかなぁ・・・なので、追加で、書式が文字列かチェックしてみたり、 置き換え前の文字に 日 が入っているか?チェックしてみたり、、、 いろいろ デバッグしてみました。動画を見直すと自分の説明下手さにショックを受けつつ、 何かの参考となれば幸いです。 下記のteratailの質問 ExcelからWord #データ差し込み 処理を #デバ…

XXXXXさんへ Q. IE操作 Vbaとvbsの違いについて #IE操作 #VBA #VBS #業務改善 を邪魔する #老害 ぉぃぉぃ

… Q. をいただく Vbaを、勉強中初心者なのですが、この度質問させて頂きたいことがあり、自身では調べきれずメッセー ジさせていただきました。「内容」 Vbaとvbsの違いについてです。現在、勤め先でvbaを使用し作成したxlsmファイル(150個)を作成しまし た。当該各ファイルにアクセスした際、open時イベントでieエクスプローラを操作し、それぞれのurl(4 ページ程経由、各xlsmファイルの設定ごとに、キーワードを入力したりチェックして別々のInternetエ クス…

VBA PowerPoint 全てのスライドを選択しながら スライドノートを音声に変換して埋め込む #VBA #PowerPoint #ノート #音声埋め込み

またまた浮気して人力検索から teratail の質問を答えて、恥をかいてみたり・・・ (※ここまできたら、浮気じゃなくて、あっちが本命か?ぉぃぉぃ・・・)元ネタの質問ページは下記を見てください。※他の回答や質問のコードを参考にする。 teratail.com PowerPointで音声データを埋め込み、終わったら次のスライドへ移動させたい https://teratail.com/questions/tpr2jlldqc85js↓いつもの あのあの そのその 酔っ払い説明動…

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



本当に三流なんです(笑):たまにスゴイですねなんて言われることもありますが、
真実は→ [三流君の真実は...] ←を初めに見てくださるとわかると思います。
(からくりは、成功例↑しか載せてなくて ヒドイ失敗例はお蔵入り迷宮入りが多かったりします)