三流君 ken3のmemo置き場

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

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

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

VBA の検索結果:

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

…・程度に#ExcelVBA #Range #デバッグ #シート名 #ブック名 #Debug #SheetName #BookNameyoutu.be https://youtu.be/N6YfNHfTknY 目次とソースコード 00:00 派遣先で見たコードにビックリ 02:03 2.シート名がわかっていて、書くんだから 03:43 3.調子に乗って、ブック名を含めてみた。 06:12 4.終わりのあいさつ Option Explicit Sub test001今までの書き方…

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:10 幅widthを広くし、エラーの再現 08:16 エラーの原因が…

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

…Alt+F11を押しVBAの編集画面を表示 02:16 イミディエイトにコードを貼り付けて結果の確認 02:48 イミディエイトが表示されていない時 06:02 二回目のループ説明1.コードをホームページやTwitter、メールなどからコードをコピーする2.落ち着いて、Outlookを起動する アウトルックで問題の連絡先を表示 する3.Alt+F11 を 押す(VBAの編集画面を表示させます) 警告メッセージAlt+F11 を 押す と ここで、マクロの警告メッセージが表示さ…

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

…手動を見せてから、 VBA マクロの方法を説明する シートとグラフラベルのリンク1.テストで、円グラフの2番目のラベルにセルの値C7を表示させてみますグラフのラベルに対して .InsertChartField で、セルを指定できました。 Dim oLABEL As DataLabel 'グラフのラベル Set oLABEL = oCHART.Chart.SeriesCollection(1).DataLabels(2) 'テストなので、↑系列1の二番目のラベルデータと決め打ち…

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

Ken3 ホームページ 目次

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

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



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