三流君 ken3のmemo置き場

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

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

よく検索されるキーワード: [質問回答XXXXさんへ] [CreateObject] [VBA] [JRA競馬オッズ]

Word, VBA の検索結果:

Excel VBAで見慣れないコード Range("Sheet2!A1:D5")を見てビックリした話

Rangeにシート!範囲を渡す1.Set r1 = Range("Sheet2!A1:D5")を初見で見て、ビックリした00:00 派遣先で見たコードにビックリSet r1 = Range("Sheet2!A1:D5")↑これ、できるの?シート名書いてるけど、いけるのか?ってことで、 門外不出の秘密コードを頭の隅に覚えておき、 持ち帰ってテストhttps://youtu.be/N6YfNHfTknY02:03 2.シート名がわかっていて、書くんだからSet r1 = Shee…

Excel A列~C列,D列~F列をPowerPointスライド2枚単位でデータを作成・流し込む 蛇足で三択クイズスライド

ひな型スライド複数ページをコピーして使う Slides.Range(Array(1, 2)).Copy をテストExcelからPowerPointにデータをセットする解説動画の コメント欄に テンプレを2枚(複数)をコピーしながら、 Excel A~C,D~FをPowerPointに2枚単位でデータを流し込む、 そんな質問が書かれたので、少し探ってみます。 >パワポのテンプレを2枚以上にして、同じようなことは可能なのでしょうか? >A~Cまでを1枚目のスライド、D~Fを2枚目…

Outlook VBA 連絡先の幅 と 表示位置を探る GetInspector Width Left Top をテスト STOPで止めてウォッチ式で探ってみた

バグ・不具合の原因がウインドウの幅だと思い込み、 決めつけてデバッグした失敗動画ですが VBAデバッグでウォッチ式使用方法の参考となれば幸いです。 youtu.be https://youtu.be/9qlahSwozo8 目次 00:00 現状とやりたいことを説明 01:40 STOPで止めてウォッチ式をセット 02:05 オブジェクト変数の中身を確認 03:10 現物の値を確認しながら目的のプロパティを探す 04:20 イミディエイトで値の確認とセットをテストする 06:…

イミディエイト ウインド使用例:「イミディエイトにコードを貼り付けて確認」と言われたら VBA デバッグ

下記のコード1行を #イミディエイト に打ち込んで確認してみてください ActiveInspector.Width = 800 と言われたら?いきなり、経験者・自分たちの目線で話したけど、 ?の人、初めての人は何言ってんだコイツと、あせると思います。youtu.be https://youtu.be/Hti2Ybi2R14 目次 00:00 やりたいこと 01:17 確認したい命令・コードをコピーする 01:32 Outlookを立ち上げ 連絡先表示 01:58 Alt+F1…

Excel VBA グラフのラベルとセルをリンク As DataLabel InsertChartField msoChartFieldFormula

Dim oLABEL As DataLabel グラフのデータラベルオブジェクトに対して表示フィールドの追加 oLABEL.Format.TextFrame2.TextRange _ .InsertChartField msoChartFieldFormula, "=Sheet1!$C$7" で、シートのセルとリンクさせる、そんなテスト動画です。 youtu.be https://youtu.be/JzNQfoIUF5I 目次 00:00 0.やりたいこと 01:21 2番目…

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

ワイドと三連複のオッズを取得したい と質問があったので、 今回は、三連複のオッズ取得に挑戦してみます。下記、デバッグ動画です、うまくコードをアレンジしてみてください。 youtu.be https://youtu.be/MEOvxlcubAw 目次 00:00 挨拶と実行テスト 02:36 オッズのテーブルを判断してExcelに三連複オッズを取得 05:30 三連複の表を探す 08:45 1‐2,1‐3 などを tableのcaptionで判断 11:15 三連複のオッズをE…

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

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

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

…spector().WordEditor で編集 06:22 3.編集はWord VBAの置き換えで 07:45 問題点.Copy時点でメールが複製されるのでキャンセル時・・・ 08:24 説明まとめ と 再テスト実行(下書き修正手順を解説)1.下書きメールを.Copyで複製を作り、 learn.microsoft.com2.GetInspector().WordEditor で編集 learn.microsoft.com3.編集はWord VBAの置き換え learn.mi…

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

…er プロパティ (Word) https://learn.microsoft.com/ja-jp/office/vba/api/word.font.nameother 文字コードが 128 255 までからの文字に使用するフォントを設定または返します。 読み取りまたは書き込み 文字列 です。 文字コードが 128 255って? https://www.kanaya440.com/contents/script/vbs/others/ascii2.html ↑を見ると、ラテン…

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

JRAのホームページから、 ワイドと三連複のオッズを取得したい と質問があったので、 まず、ワイドのオッズ取得にチャレンジしてみます。私Ken3が大好きだったIEのサポートが終了したので、 MSXML2.XMLHTTP と CreateObject("htmlfile")を使用して JRAオッズ取得 ワイドのオッズ取得に挑戦してみました。#JRA #競馬 #オッズ取得 #ワイドオッズ #IEサポート終了 #MSXML2.XMLHTTP #htmlfile #デバッグ #Exc…

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

VBA

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

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

YouTubeで本人しか見れないスパムコメント扱い?を初体験したオイオイ (気が付いたのが今日で、前から空気・幽霊コメントだったねキット) ソースコードの.xxxx などプロパティやメソッドがドメイン扱いされていて、変にURLと誤認されているのかなぁ? 他人から見えない 空気 幽霊 コメントテスト説明:↑ YouTubeで自分の動画のコメント欄にVBAのソースコードを載せてます。 コメントに載っていないと視聴者様からメッセージをいただいて、 確認してみると(ログインしてない状…

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

…Inspector.WordEditor.Windows(1).Selection .WordEditorで編集 Wordの世界(世界はいいすぎか、Object操作なので、) .Bookmarks("\EndOfDoc").Select この一行を組み込むとよいのでは?下記、いつもの あのあの 解説動画です。 youtu.be https://youtu.be/d072OmUXJpY 目次 00:00 やりたいこと、現在の状態 01:30 カーソル移動のテスト 03:03 蛇…

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

….ページをコピー新規word文章に貼り付けテキスト保存 07:55 3.最終ページ番号の取得 08:52 4.単体のコードを結合してテスト 11:17 元のソースコードをテストしてみた#WordVBA #マクロ #デバッグ #ページ単位 #テキストファイル #MSWord #ActiveDocument #Bookmarks #Page #Select0.あいさつ、やりたいこと 知恵袋の質問 detail.chiebukuro.yahoo.co.jp をデバッグしてみた単体テ…

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

Outlookへ予定を登録後、CalendarViewModeを変更して、カレンダーの表示を変える。 そんな処理にチャレンジしてみました。 Outlookを複数起動していたので、いつも以上にデバッグでハマってしまいました。 お蔵入りレベルのムゴイ動画ですが、よろしくお願いします・・・ youtu.be https://youtu.be/P0vmlc5GiCI 目次 00:00 0.あいさつ・やりたいこと 01:48 簡単なコード説明 02:23 愛犬に説明間違っているぞ と …

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

Excelのデータソースでネットワーク上のAccessDBクエリを接続 ブックを閉じないと接続が残る・・と知恵袋 detail.chiebukuro.yahoo.co.jp で見かけたので、 DB使用者のPCを特定したいので、調子に乗って、テストするが、、、、参考URL: Access のロック ファイル (laccdb と ldb) の概要 https://docs.microsoft.com/ja-jp/office/troubleshoot/access/lock-fi…

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

パワポのグラフ元が毎日更新されるエクセルBook 0901.xlsx,0902.xlsx...で 日付別に日々bookが作成される。 パワーポイントのグラフリンク(bookを指定)を更新したい。 とあったので、探ってみました。知恵袋の質問・キッカケ detail.chiebukuro.yahoo.co.jpPowerPointグラフの Shape.LinkFormat.SourceFullName を更新するとできるみたいです LinkFormat.SourceFullNam…

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

パワポに記載されたノートを読み上げるマクロボタンを作成。 単純にスライドショーのノート SlideShowWindows(1).View.Slide.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text をSAPI.SpVoice .Speakで読み上げただけですが・・・アレンジして処理の参考となれば。#パワーポイント #PowerPointVBA #マクロ #デバッグ #ノート読み上げ #SAPI.SpVoice…

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

前回 ken3memo.hatenablog.com の続きです今回は、 折れ線グラフに直値の系列を追加 してみました。 ActiveChart.SeriesCollection.NewSeries '.NewSeriesで新系列追加 で、できました。 って、何言ってんだコイツ・・・いきなり、話すすめられても?だよね。下記、いつもの あのあの迷っているデバッグ・解説動画です。 youtu.be https://youtu.be/W6N6afHUulY 目次 と ソースコード …

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

グラフ作成時a1:b10の範囲を棒グラフに、 など、セルの範囲を元にしてグラフを作成しますが、 今回、直接、値を使用してみたいと思います。知恵袋の質問 detail.chiebukuro.yahoo.co.jp に答えてみた。#ExcelVBA #MSExcel #Chart #グラフ #マクロ #デバッグ #エクセル youtu.be https://youtu.be/UTLJ59dz4IQ 目次 00:00 0.やりたいこと 00:40 1.直接 値を文字列でセットする …

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

…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複数画像ファイルリスト から パワポのスライドに図・画像を貼り付ける パワポ図を作成

Excelシートのイメージ B2にフォルダー B6~ファイル名、C,D,E,F列にセット位置 に記載されたExcelの画像ファイル名リスト・表 から パワポのスライドを複数ページ作成するQAサイト teratail.com の質問に答えてみた。いつもの あのあの そのその イライラ動画解説 www.youtube.com https://www.youtube.com/watch?v=ELYLw9dn5Y4 ↑こんな感じでテストしてみました。 目次 00:00 あいさつ、やり…

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

やりたいこと パワーポイントのスライドに複数画像ファイルを貼り付ける 操作方法は、作成したVBSに画像ファイルをドロップする知恵袋 detail.chiebukuro.yahoo.co.jp の回答・ヒントになるか?自信無いが作成してテスト#VBScript #PowerPointVBA #パワポ #画像貼り付け #マクロ #デバッグ #Shapes #AddPicture下記、いつもの解説動画・・・あのあの イライラ動画ですがよろしく・・・ youtu.be https:/…

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

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

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

イライラ棒的な処理をパワポで作りたい時、 図形のマウス通過を接触判断として、 触れたら、スライドの最後に飛ばす、そんなスライドを作成したい知恵袋の質問 detail.chiebukuro.yahoo.co.jp に答えてみました。下記、いつもの あのあの そのその、イライラ棒よりもイライラする解説動画です(ぉぃぉぃ) youtu.be https://youtu.be/7p0lgYUhRG0 目次 00:00 挨拶・やりたいこと 00:52 動作 マウス通過の設定 01:53…

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

…spector().WordEditor の編集で、 段落Paragraphsを使いました。 と言っても、 .Paragraphs(1).Range.Text で冒頭一段落目に決め打ちでセットしただけでした。下記、いつもの あのあの、そのその、説明動画です・・・ youtu.be https://youtu.be/h5BiIk5m2SY 目次 00:00 挨拶、やりたいこと 01:30 .WordEditorとParagraphsを使う 03:10 デバッグとテスト実行 05…

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オブジェクトを編集 デバッグ

…spector().WordEditor で 編集をWordで 02:51 2.段落なので、Pを使ってみた 05:10 3.蛇足 Wordのマクロ記録 またまた、人力検索以外のQAサイトで回答してみた・・・それを はてなブログに書くなんて・・・ 0.メールアイテム.GetInspector().WordEditor で 編集をWordで 'Wordの世界へ行く?うそうそ、編集だけ ' https://docs.microsoft.com/ja-jp/office/vba/ap…

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。

  1. [VBA・マクロ プログラミング]の解説
    当店の人気はVBA系のCreateObject("XXXXXX.application")で他のアプリケーションを操作するサンプルが人気です
  2. [プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
    三流君を踏み台にする
  3. [古いクラシック ASP(Active Server Pages)]の解説。
  4. [元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



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