三流君 ken3のmemo置き場

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

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

VBA の検索結果:

JRA三連複のオッズ取得 JRAのHPから三連複のオッズをExcelに取り込む デバッグ

…ズ取得 #ExcelVBA #三連複 #マクロ #競馬 #JRA #VBA #デバッグ #テスト1.開催日・場所は、流用する 単勝オッズの取得から、 開催日と場所の選択は単勝オッズ取得 ken3memo.hatenablog.com https://www.youtube.com/watch?v=RjZZUq40gxY から流用しました。2.三連複のオッズを押すここも、前回から流用(探す条件:ワイドを3連複に変えただけ)'リンクから、レースのTR行を探し、列 ここでは3連複な…

パワポ アニメのイベント SlideShowNextBuild などをWithEventsで使用する GetClickCount GetClickIndex ほか

…owerPoint VBAのイベントで、 アニメーションのイベントを探ってみました と言っても WithEvents App As Application で SlideShowNextClick スライドショー内のクリック SlideShowNextBuild アニメーション 表示前 タイミングをテストしただけでした。また、 SlideShowView.GetClickCount メソッド (PowerPoint) SlideShowView.GetClickIndex メ…

Outlook VBA 下書きに保存したメールを元に書式を残し置換 MailItem.Copy WordEditorで置換

…。 >OutlookVBAでReplaceしたら書式が消えてしまいました。 >因みにOutlookのデータをローカルに保存することはできません。 いつものデバッグ動画です youtu.be https://youtu.be/wiwvFYsCfBM 目次 00:00 やりたいこと 01:44 メールのチェック Selection.Count 02:34 1.下書きメールを.Copyで複製を作り 05:50 2.GetInspector().WordEditor で編集 06:2…

パワポ マクロ 全てのスライドのフォントを一括変更 使い捨てマクロ設置のお話

…PowerPointVBA #マクロ #フォント #一括変更 #マクロ設置方法 #デバッグ下記、できたと思って解説してるが、 途中で不具合・バグをみつけて気落ちする・テンション下がるオッサンの解説です※説明長いよ・・・ youtu.be https://youtu.be/2EOq7Byl3BY 目次 00:00 0.やりたいこと、コードの説明をかるく 00:50 1.実際にテストする 01:15 VBAコードの説明 デバッグ 04:01 2.エラーのテスト 05:01 3.設…

JRAオッズ取得 ワイドのオッズを取得 MSXML2.XMLHTTPとCreateObject("htmlfile")を使用してデバッグ

…バッグ #ExcelVBA #MSExcel下記、いつもの解説動画です。 とても※長いので休憩を取りながら、ソースコードと一緒にみてください。 途中コーヒー休憩、ブレイクタイム必要です。ぉぃぉぃ。 www.youtube.com https://www.youtube.com/watch?v=XnIN8XRi-yA 目次 00:00 あいさつ 実行結果 やりたいこと 01:55 1.開催日・場所は、流用する 10:08 2.ワイドのオッズを押す 11:55 2.1 strレー…

VBA Q:標準モジュールのマクロが消えた? A:勘違いかも?落ち着いて表示を切り替えてみてください

VBA

知恵袋の質問 detail.chiebukuro.yahoo.co.jp >エクセルのマクロを開こうと標準モジュールボタンを押してみたところ、 >declarationsと右上に表示されるばかりでその他何も表示されません。 >これは、マクロが消えてしまったということでしょうか? にチャレンジ回答: 勘違いかも? もしかすると、 左下のモジュール表示単位? が 単体か?全体か?の違いかなぁ・・・視聴者の心の声: 質問者様が困って、一刻を争っているのに、 のんびり動画を作っている…

YouTubeで本人しか見れないスパムコメント 空気扱い?を初体験したオイオイ

…の動画のコメント欄にVBAのソースコードを載せてます。 コメントに載っていないと視聴者様からメッセージをいただいて、 確認してみると(ログインしてない状態やシークレットウインドウなど本人アカウント以外) 数件、確かにソースコードが見れないYouTubeコメントがありました。objShape.Name など、 ドットNameがドメイン扱いされて、スパムコメントで弾かれるのか? コメント欄にソースコードが貼れないので、コミニティでテストしてみる。 ※ドットName以外が原因かもし…

ExcelからOutlook HTMLMail作成 WordEditor時 末尾にデータを追加したい時 カーソル移動のテスト

…ogle:Word vba カーソル最終 で検索すると www.relief.jp https://www.relief.jp/docs/word-vba-select-end-of-document.html より ActiveDocument.Bookmarks("\EndOfDoc").Select この一行を組み込むとよいのでは?ポイント、WordのObject操作なので、 Word vba XXXXX で検索して使用する Sub メール作成0913テスト() Dim…

Word VBA ワード文章をページ単位でテキストファイルに書き出す マクロをデバッグ

…トしてみた#WordVBA #マクロ #デバッグ #ページ単位 #テキストファイル #MSWord #ActiveDocument #Bookmarks #Page #Select0.あいさつ、やりたいこと 知恵袋の質問 detail.chiebukuro.yahoo.co.jp をデバッグしてみた単体テストから入る1.ページ選択のテスト 00:50 1.ページ選択のテスト Sub 単体1_ページを選択する() Dim p As Integer p = InputBox("テ…

Outlook予定表に書込み 登録後カレンダー表示 CalendarViewModeを1日単位の日ビュー表示にする

…。 #OutlookVBA #マクロ #予定表 #カレンダー #ExcelVBA #MSExcel #デバッグ #CalendarViewMode [VBA]Excel ➞ Outlook予定表に書込み について教えてください Sheet1 A2…件名 B2…場所 C2…開始日時 D2…終了日時 E2…本文 F2…対象者名 G2…メールアドレス が入力されていますCommandButton1をクリックした時の動きで ①上記の人のOutlook予定表に登録し ②書き込み後に日ビ…

Win10 共有フォルダでAccess DB運用 .laccdbで使用PCを特定してみた

… #ロックファイル #.laccdb #テスト #デバッグ Accessのロックファイルから攻めないで、 OSの共有ファイル使用者 や Excelの使用者から攻めるのも手かも google:WindowsServer 共有 Excel 使用者で検索するとhttps://it-study.info/sharefile-open/ や https://www.moug.net/tech/exvba/0060070.html が見つかります。こちら側から攻めるのがいいのかも・・・・

パワポ マクロでグラフのリンク更新 LinkFormat.SourceFullNameにFile名セット後LinkFormat.Update

…1 3.エクセル側にVBA マクロを記載する 15:08 Excel側マクロの説明 18:50 4.更新用 デイリーマクロ作成 20:54 日課の開始 22:25 マクロの説明 0.やりたいこと 知恵袋の質問に 毎日更新するブックでパワポのグラフを更新したい(リンク更新したい) とあったので、探ってみました。PowerPointでExcelから貼り付けたグラフを更新したい。 ただの更新なら、更新ボタンを押せばいいのですが、 book0907.xlsx から book0908.…

パワポでノートを読み上げるマクロボタンを設置する PowerPoint VBA SAPI.SpVoice Speak

…PowerPointVBA #マクロ #デバッグ #ノート読み上げ #SAPI.SpVoice #Speak下記、いつもの あのあの うるさく イライラさせる 解説動画です youtu.be https://youtu.be/mLUdzmReyCU 目次 00:00 0.あいさつ、やりたいこと 01:32 1.標準モジュールにコードを書く 01:50 2.挿入・動作でマクロ指定 03:03 3.動作したボタンのコピー確認 03:30 簡単なコード説明 と 気になった点 04:…

Excel VBA 折れ線グラフに直値の系列を追加 .NewSeriesで新系列追加

…on.Count Debug.Print ".Name=" & ActiveChart.SeriesCollection(n).Name Next End Sub 解決のヒントとなれば幸いです。 前回の動画: www.youtube.com Excel VBA グラフの範囲 値を直値にする セルの範囲を使わないで強引にマクロでセット https://www.youtube.com/watch?v=UTLJ59dz4IQ ↑この動画の元です。時間のある時にこちらも見てください。

Excel VBA グラフの範囲 値を直値にする セルの範囲を使わないで強引に配列に入れた値をセット

…てみた。#ExcelVBA #MSExcel #Chart #グラフ #マクロ #デバッグ #エクセル youtu.be https://youtu.be/UTLJ59dz4IQ 目次 00:00 0.やりたいこと 00:40 1.直接 値を文字列でセットする 02:37 2.As Variantの配列でセット 04:06 配列のサイズに注意 (0 To 2) As Variant 05:50 3.ひながたグラフの値を直接セット下記、テストで作成したソースコードです。アレンジ…

Access OLE型で登録された Wordアートの文字列を取り出し 文字を読み上げる

Access VBAでOLE型に登録されたWordアート内の文字列を読み上げる下記、いつもの解説動画です。 youtu.be https://youtu.be/0ZkhpOj-uDU 目次 00:00 0.あいさつ、テスト実行 03:45 1.単体 Access VBAで文字を読み上げる 04:59 2.単体 ワードアート内の文字列を取り出す 08:24 3.結合 AccessでOLE型 Wordアートを読み上げる#AccessVBA #OLE型 #WordVBA #読み上げ…

PowerPoint UserForm イメージオブジェクトを使い図形の連続セット スタンプ処理もどき

パワポでスタンプ処理 UserForm イメージオブジェクトを使い連続で図形をセットする。 そんな処理を試作 仕組みは単純で、UserFormのイメージコントロールを使い、 イメージが押された位置にスタンプ図形シェイプをセットしてみました知恵袋の質問 detail.chiebukuro.yahoo.co.jp にチャレンジしてみました。下記、いつもの あのあの イライラ 解説動画です。 youtu.be https://youtu.be/fKNl6FX-h0A 目次 00:0…

Excel複数画像ファイルリスト から パワポのスライドに図・画像を貼り付ける パワポ図を作成

…ださい。#ExcelVBA #PowerPointVBA #マクロ #画像ファイル #パワポ #貼り付け #デバッグ #Shapes #AddPictureコードをアレンジして使ってみてください。 ソースコード 'Excelの画像ファイルリストから、 'パワポのスライドを作成してみます。 Sub ExcelからPowerPointへ画像ファイルをセット20220823() Dim ppApp As Object 'PowerPoint.Application Set ppAp…

VBScriptに画像ファイルをドラッグAndドロップして パワポのスライドに図・画像を複数貼り付ける

…PowerPointVBA #パワポ #画像貼り付け #マクロ #デバッグ #Shapes #AddPicture下記、いつもの解説動画・・・あのあの イライラ動画ですがよろしく・・・ youtu.be https://youtu.be/jZV4o_Uz0oY 目次 00:00 挨拶、やりたいこと 00:48 いきなりテストしてみる 02:06 挿入 図 ファイル Shapes.AddPicture 02:33 VBSの処理説明 03:58 プロパティを修正後テスト 06:4…

パワポ マクロ 図形の配置 整列を探る PowerPoint VBA ShapeRangeに対してAlign Distribute メソッドを使用

…ったので、 パワポ VBA ユーザフォームで図形の配置 整列を探ってみました。知恵袋の質問 detail.chiebukuro.yahoo.co.jp ↑に回答してみました。下記、いつもの あのあの そのその イライラ解説動画・・・ youtu.be https://youtu.be/46MBczsYmww 目次 00:00 挨拶、処理内容 00:59 0.テスト実行 02:00 1.コードの説明 04:48 2.便利なユーザフォームのモードレス モード 07:32 3.簡単…

パワポ マクロで図形の動作設定 マウス通過動作をセットする PowerPoint VBA ActionSettings ppMouseOver

…PowerPointVBA #パワーポイント #マクロ #ActionSettings #MouseOver #リンク動作設定 #マウス通過1.手作業だと、設定がめんどくさい ※複数、図形、オブジェクトを選択して、 動作リンクをなぜか?設定不可? 複数まとめて同じ動作を設定したいだけなのに・・・2.↑なので、図形を複数選択後、マクロを起動すると、 選択図形の動作リンクで、スライドの最後に移動させる2.1 図形のマウス通過の設定は、 With ActiveWindow.Sele…

Outlook VBA 図を含んだ返信メール作成 .WordEditorで編集 .Paragraphs段落を使ってみた

…ようなoutlookvbaでメール返信をしたいのですが、埋め込み図形がそのまま反映してくれません。何か方法はありませんか? Dim objReItem As Outlook.MailItem Set objReItem = ActiveInspector.CurrentItem.ReplyAll objReItem.Recipients.ResolveAll objReItem.Display Set objReItem = Nothing に答えてみた。図を含んだ返信メール…

XXXXXさんへ Outlook VBA 送信時にフラグのセット について

…事 Outlook VBA でフラグを付ける処理 三流君VBA:Outlook VBAでフラグ作成 .FlagStatus .FlagRequest .FlagDueBy http://www.ken3.org/vba/backno/vba161.html に下記の質問をいただきました。 教えていただければと思います。 No161のフラッグ設定を既存のマクロに付け足そうとしています。(BCCで自分へのメールを付け足すマクロです) 下記がうまく働きません。 どうすればよいでしょ…

PowerPoint VBA ハイパーリンクを探る ExcelからパワポのHyperlinkを取得するマクロ

パワポのデバッグ・確認資料として、ハイパーリンクの一覧を作成したく、 ハイパーリンクのオブジェクトを探るが、 しっくりこなかったお話です。知恵袋の質問 detail.chiebukuro.yahoo.co.jp の回答用に作成する、他の回答者がシンプルなコードを先にUPしているのでそちらも参考にしてみてください。下記、いつもの あのあの そのその 解説動画です。参考程度に聞き流してください。 www.youtube.com https://www.youtube.com/wa…

Excel HTMLメール作成 GetInspector().WordEditorでWordオブジェクトを編集 デバッグ

…jp/office/vba/api/outlook.inspector.wordeditor ' .GetInspector().WordEditor とかで検索 Dim objDOC As Object Set objDOC = oItem.GetInspector().WordEditorで、 あとは、Wordの世界で、、※詳しい人に聞いてみてください・・・1.フォントサイズを変える Wordの世界なので、いろいろとやり方があると思いますが、 手前みその https://…

XXXXXさんへ スクレイピング関連の質問について 年金関連のqaページ

…これを達成することはvbaだけで可能でしょうかそれとも別のアプリケーション?やなにか別のプログラミング知識が必要でしょうか?②仮にKen3様が(その経験・知識をもってして)それを実行しようと思った場合、どの程度の時間を必要と考えますか? 年金関連のqaページ https://www.nenkin.go.jp/faq/n_net/toroku/moshikomi/20150519.html などから、 >最低限A列にQ(質問内容)、B列に(回答内容) だと思いますが、 これは、…

パワポ スライドショー 1ページ目に乱数セット 2ページ目で設定値を使いたい PowerPoint VBA OnSlideShowPageChange

…、 いつものように VBA PowerPoint イベント処理 スライド開始SlideShowBegin と スライド終了SlideShowEnd を例題に クラスモジュールのWithEventsを解説 https://www.youtube.com/watch?v=E837vhWZ09g みたいに、 WithEventsを使って、 Public WithEvents App As Application なんて、難しく、やろうと思っていたら、なんと、最近は、1.2 標準モジ…

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:…

Ken3 ホームページ 目次

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



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