三流君 ken3のmemo置き場

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

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

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

VBA の検索結果:

マクロ パワポ 複数のテキスト・図形にアニメを設定 直前の操作と同時 TimeLineにAddEffectでアニメを追加後 Effect.Timingを設定する

…PowerPointVBA #マクロ #アニメーション #直前の操作と同時 #設定 #TimeLine #Sequence #Effect #Timing #Trigger 0.やりたいこと パワポで複数のシェイプを選択後、 アニメにする、効果を追加する 直前の動作と同時にして、同じグループ、表示タイミングにしたい。キッカケは知恵袋の質問 detail.chiebukuro.yahoo.co.jp パワーポイントの動作をVBAで再現したいと考えています 2つのアニメーションを…

マクロ パワポのExcelリンクを現在の場所に更新したい Shape.LinkFormat.SourceFullNameを現在位置に更新する

マクロ・VBAでリンク情報 Shape.LinkFormat.SourceFullName を現在位置に更新する パワポのExcelリンクを現在の場所に自動更新したい ペアで同じ位置にコピペしたのにリンク先がコピー前の位置なので自動変更したい リンク貼り付けされたパスマクロ パワポのExcelリンクを現在の場所に更新したい ペアで同じ位置にコピペしたのにリンク先がコピー前の位置なので自動変更したい - YouTube https://youtu.be/OBDI3ZnKZoE …

XXXXXさんへ JRA レース番号 URLの探り方 CNAME=の法則がわからなくてスミマセン

…てからJRAの画面がVBAで取れなくなりました。 ・ ・ 出馬表、オッズ、レース結果、馬情報を取得するVBAを作成し予想していました。が今できません。 ・ ・ 教えて欲しいのは strURL strPARA strHTMLの文字列切り出し検索方法です。 ソースは a href="/JRADB/accessS.html?CNAME=pw01sde1006202301061120230115/48"です レース番号の判定方法です。 と質問をいただきました。レース結果 https:…

Outlook VBA マクロで分類 Categoriesの登録 蛇足でExcelから複数分類のセット

…jp/office/vba/api/outlook.categories > >Categories.Add メソッド (Outlook) >https://learn.microsoft.com/ja-jp/office/vba/api/outlook.categories.add 上記質問に反応してみた・・・ ここまで、調べているなら、もう既に解決済みかなぁ、、、と思いつつ、OutlookVBA マクロで分類 Categoriesの登録にチャレンジ 蛇足でExcelから複…

VBA Excelから起動したAccess.Applicationを残したい .UserControl = Trueを実験してみた

…てみました エクセルVBAでアクセスを開を、プロシージャが終了しても そのまま開いておきたいのですが、下記ののコードだと閉じてしまいます。 変数の中身がなくなるので閉じてしまうと思うのですが、 プロシージャが終了しても、そのまま開いておく方法はありますでしょうか。 Dim accApp As Access.Application Set accApp = New Access.Application accApp.OpenCurrentDatabase ActiveWorkb…

Outlook VBA 連絡先グループをメールのCC宛先にセットしたい Recipientを使用

… 'Outlook VBA メールの宛先がグループの時 受信者Recipientで解決Resolveする?単に名前解決? Sub test_20230115() Dim objMAIL As Outlook.MailItem Set objMAIL = CreateItem(olMailItem) objMAIL.Display objMAIL.Subject = "テスト " & Now() objMAIL.To = "a@a ; b@b" 'イメージは宛先・送信者なんだけ…

OutlookVBA メールの分類をマクロでセット MailItemの.Categoriesにセットする

…す。#OutlookVBA #アウトルック #デバッグ #マクロ #MailItem #Categories #ShowCategoriesDialogいつもの動画解説とソースコードを見て、アレンジしてみてください。 youtu.be https://youtu.be/R2nt09w4KyI 目次 00:00 やりたいこと 01:00 1.現物確認 ShowCategoriesDialog 02:05 2.Categoriesにセットしてみる 03:23 3.蛇足1.複数時ど…

Excelからテンプレ・ひな型のPowerPointを開き B列のデータセット後 A列の名前を付けて保存する そんなテスト

B2のパワポファイル、フルパスを開き、B3で指定したスライドページの B4名前のテキストボックスにB10列~データセット後、A10列の名前で上書き保存する 図1.シートイメージまぁ、↑シートイメージを見た方が早いですね。テスト動画 youtu.be https://youtu.be/mof40MhZrYw 目次 00:00 やりたいこと 01:30 2.テンプレを変更して テスト実演 03:19 2.3 マクロを実行する 04:51 2.4 余談 図形のテキストにもセットでき…

WordVBA マクロ 表の行挿入と日時セットをデバッグ 表 Table 行 Row セル Cell

…#マクロ #WordVBA #デバッグキッカケは知恵袋の質問 detail.chiebukuro.yahoo.co.jp をデバッグしてみました。youtu.be https://youtu.be/Ywfr8Y-ctgQ 目次 00:00 やりたいこと 00:47 現状確認 01:18 案1 Row.Cells(1) で 1列目だけ使用する 03:29 案2 固定のCell(2,1)にセット表2行目挿入後に日時・時刻をセットする1.現在のコードを走らせる ループで回しているの…

VBA Wordマクロ 文字単位で処理 Word.Document.Characters 例題:丸数字の振り直し

…ト 21:53 再度VBAコードの説明を行う#WordVBA #マクロ #デバッグ #Document #Characters #Asc関数 #Chr関数問題点・不具合1.20を超えた丸数字2.ワードの機能で丸数字を段落で使用、混ざったとき 18:00 不具合のテスト >(①②③・・・は行頭にあるとは限らないので、 >ワード本来の機能(段落?)では難しいかなと考えています。) マクロのループでワード本来の機能(段落?) が、私の作成した単純ループでは取得できなかったので 文章…

Word VBA Find.Executeで検索実行 Range.HighlightColorIndexで色の変更 マクロ記録コードの修正

…よ・・・ #WordVBA #マクロ記録 #デバッグ #Selection #Find #Execute #Range #HighlightColorIndex #マイクロソフトワード #マクロ #Debug #検索実行 #選択範囲 #フォント色変更知恵袋の下記質問に答えてみた detail.chiebukuro.yahoo.co.jp >word文書内の上付き文字に、緑マーカーを引くマクロを組みたいです。 >マクロの自動記録機能を使って、word文書内のすべての上付き文字に…

Excel表(セル範囲) を パワポの表TABLEへ転記する PowerPoint Table Row Column Cell VBA

0.やりたいこと Excelシート+セル範囲のテキストデータ を パワポのPage指定した表TABLEへ転記する。 ※データを流し込む、差し込む、イメージですyoutu.be https://youtu.be/x68nZfCgFGc 目次 00:00 0.やりたいこと 00:58 1.シートのセル範囲をパワポの指定Pageの表へ転記する 04:18 1.1 簡単なコード説明 10:22 行と列のループを説明 13:18 1.2 表のサイズが合っていないときのエラーを説明 17…

Office365 Word ファイルメニューの「最近使ったファイル」を残さないようにする

…設定 2.設定項目多いので、スクロールさせて 表示を探します3.文章の数を0にします4.忘れないでOKを押すと、 答えやすい質問を見つけたので、回答してみた。未回答のVBA難問をサクっと答えないとなぁ・・・と思いつつ、 せっかく画像を作って回答したので、ブログにも載せてみた。 ※その少しでもアクセス数がほしい、 スケベ心が、サイト・ブログの評価を落としていたりして・・・Google検索で来た人の参考となれば幸いです (※数少ないVBA読者のジャマになるブログ記事でした・・・)

PowerPointの表をExcelへ書き出すマクロ パワポの表・TABLEを取り込む PowerPoint Table Row Column Cell VBA

0.やりたいこと パワーポイントの指定した表(TABLE) を エクセルの指定したシート・位置に書き出したいExcelのマクロを使用してパワポの表を取り込む そんな処理にチャレンジしてみます。youtu.be https://youtu.be/wjxG6L4il3w 目次 00:00 0.やりたいこと 00:29 1.アクティブなPowerPoint表の一覧を取得 11:25 2.アクティブなPowerPoint表を一括でExcelのシートへ 16:00 行と列のループでデー…

PowerPoint VBA 表:TABLE 行:Row 列:Column セル:Cell を探る データ取得とセット

…erPointの表をVBAから操作するコードを探ってみます ActivePresentation.Slides(2).Shapes("表 2").Table.Cell(3,2).Shape.TextFrame.TextRange.Text = "文字列" の一行紹介の動画でOKなのに無駄に長く、 型宣言して型にハメながら ステップ実行してみます。 ※見捨てないで最後まで視聴していただけるとありがたいです。。。 ※※急ぎの人は 12:23 から視聴してください。 youtu.b…

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予定表に登録し ②書き込み後に日ビ…

Ken3 ホームページ 目次

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

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



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