三流君 ken3のmemo置き場

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

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

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

VBA

XXXXXさんへ ブック間コピーについて オブジェクトを分けて作成してみました

VBA

下記の質問をいただきました 質問:ブック間コピーを行いたい 突然で申し訳ございませんが、ブック間コピーを行いたいのですが、上手くいきません。 お力添えください。よろしくお願い致します。 もしできたら、コピー元を最終行最終列を選択できるとうれしい…

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

パワポのアニメ設定を追加するには、 Dim objTimeLine As PowerPoint.TimeLine 'タイムラインって日本語だと?何だろう? Set objTimeLine = objSLD.TimeLine 'スライドの下にタイムラインがあります '↑このタイムラインにアニメ効果を追加していくイメージ…

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

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

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

detail.chiebukuro.yahoo.co.jp >メールを色分けして分類するために、既存の色分類項目ではなく、 >新規作成で名前と色を設定したいと考えています。 >おそらく、Categories.Addメソッドを使用するとは思うのですが苦戦しております。 > >Categories オ…

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

accApp.UserControl = True を入れてテストしてみました。 ※よし実験終了、QAサイトの回答に得意気に書こうとしたら、 質問が解決済みになっていたのは内緒です。youtu.be https://youtu.be/qyL7ozYEds0 目次 00:00 やりたいこと 00:30 1.不具合の再現 01:28…

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

図1:CCにグループ化した宛先をセットメールの宛先にグループ化された宛先を使用したかったので、 Dim oRecipient As Recipient Set oRecipient = objMAIL.Recipients.Add("宛先のグループ名") を使用したデバッグ・テストです。後半の自分語りで恥をかく・・…

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

図:メールの分類メールの分類は、 .Categories = "分類の文字列" に文字列で設定すると可能 分類項目 赤 など、セットすると可能みたいです。#OutlookVBA #アウトルック #デバッグ #マクロ #MailItem #Categories #ShowCategoriesDialogいつもの動画解説とソ…

メモ 行や列 の 全体選択後に右クリックやダブルクリックされた時はTarget.Countで件数もみたほうがいいのかなぁ・・・

Excelのシートイベントで 行や列 の 全体選択後に 右クリックやダブルクリックされた時は Target.Countで件数もみたほうがいいのかなぁ・・・ 6行目を選択後に右クリックでTarget.AddressとTarget.Countイベント処理で ByVal Target As Range で対象がわかる…

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

B2のパワポファイル、フルパスを開き、B3で指定したスライドページの B4名前のテキストボックスにB10列~データセット後、A10列の名前で上書き保存する 図1.シートイメージまぁ、↑シートイメージを見た方が早いですね。テスト動画 youtu.be https://youtu.be…

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

Word表を操作するマクロでRows.Addで行挿入後、 案1 Row.Cells(1) で 1列目だけ使用する 案2 固定のCell(2,1)にセット をテストしてみました。#MSWord #マクロ #WordVBA #デバッグキッカケは知恵袋の質問 detail.chiebukuro.yahoo.co.jp をデバッグしてみま…

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

知恵袋の質問 detail.chiebukuro.yahoo.co.jp >ワード文書内に①①②③③・・・がある場合に、 >これらを①②③④⑤・・・というふうに重複したものを順番に置き換える >マクロを考えております。 >(①②③・・・は行頭にあるとは限らないので、ワード本来の機能(段落…

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

Wordのマクロ記録で検索条件と色変更を作り実行するが、反応しないそんな質問があったので、 おじさんが手作業で Find.Execute を足してデバッグしてみたら・・・ そんなお話です・・・って、どんな話だよ・・・ #WordVBA #マクロ記録 #デバッグ #Selection …

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

0.やりたいこと Excelシート+セル範囲のテキストデータ を パワポのPage指定した表TABLEへ転記する。 ※データを流し込む、差し込む、イメージですyoutu.be https://youtu.be/x68nZfCgFGc 目次 00:00 0.やりたいこと 00:58 1.シートのセル範囲をパワポの指定P…

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

0.やりたいこと パワーポイントの指定した表(TABLE) を エクセルの指定したシート・位置に書き出したいExcelのマクロを使用してパワポの表を取り込む そんな処理にチャレンジしてみます。youtu.be https://youtu.be/wjxG6L4il3w 目次 00:00 0.やりたいこと 0…

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

PowerPointの表をVBAから操作するコードを探ってみます ActivePresentation.Slides(2).Shapes("表 2").Table.Cell(3,2).Shape.TextFrame.TextRange.Text = "文字列" の一行紹介の動画でOKなのに無駄に長く、 型宣言して型にハメながら ステップ実行してみま…

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

Rangeにシート!範囲を渡す1.Set r1 = Range("Sheet2!A1:D5")を初見で見て、ビックリした00:00 派遣先で見たコードにビックリSet r1 = Range("Sheet2!A1:D5")↑これ、できるの?シート名書いてるけど、いけるのか?ってことで、 門外不出の秘密コードを頭の隅…

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

ひな型スライド複数ページをコピーして使う Slides.Range(Array(1, 2)).Copy をテストExcelからPowerPointにデータをセットする解説動画の コメント欄に テンプレを2枚(複数)をコピーしながら、 Excel A~C,D~FをPowerPointに2枚単位でデータを流し込む、 …

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

バグ・不具合の原因がウインドウの幅だと思い込み、 決めつけてデバッグした失敗動画ですが VBAデバッグでウォッチ式使用方法の参考となれば幸いです。 youtu.be https://youtu.be/9qlahSwozo8 目次 00:00 現状とやりたいことを説明 01:40 STOPで止めてウォ…

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

下記のコード1行を #イミディエイト に打ち込んで確認してみてください ActiveInspector.Width = 800 と言われたら?いきなり、経験者・自分たちの目線で話したけど、 ?の人、初めての人は何言ってんだコイツと、あせると思います。youtu.be https://youtu.…

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

Dim oLABEL As DataLabel グラフのデータラベルオブジェクトに対して表示フィールドの追加 oLABEL.Format.TextFrame2.TextRange _ .InsertChartField msoChartFieldFormula, "=Sheet1!$C$7" で、シートのセルとリンクさせる、そんなテスト動画です。 youtu.b…

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

ワイドと三連複のオッズを取得したい と質問があったので、 今回は、三連複のオッズ取得に挑戦してみます。下記、デバッグ動画です、うまくコードをアレンジしてみてください。 youtu.be https://youtu.be/MEOvxlcubAw 目次 00:00 挨拶と実行テスト 02:36 オ…

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

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

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

やりたいこと: detail.chiebukuro.yahoo.co.jp >Outlookで下書きに保存したメールを元に作成してみたいメールがあります。 >文字列を日付に変換するだけなのですが、 >下書きに保存したメールには書式があります。 >OutlookVBAでReplaceしたら書式が消え…

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

知恵袋の質問 detail.chiebukuro.yahoo.co.jp 既存のパワーポイントファイルのすべてのスライドのフォントを一気に変更することは出来ないのでしょうか? と あったので マクロを作成し、使い捨てのマクロ処理を設置してみた#パワーポイント #PowerPointVBA …

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

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

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

VBA

知恵袋の質問 detail.chiebukuro.yahoo.co.jp >エクセルのマクロを開こうと標準モジュールボタンを押してみたところ、 >declarationsと右上に表示されるばかりでその他何も表示されません。 >これは、マクロが消えてしまったということでしょうか? にチ…

パワポ マクロで使い捨ての一回作業 例題:コピーしたオブジェクトを2ページ目以降に連続貼り付け

同じテキストや図形をすべてのスライドに貼り付けたい、 そんな時のために使い捨てマクロを作成してみました。 0.やりたいこと detail.chiebukuro.yahoo.co.jp >30スライドある資料全部にテキスト追加して編集したいのですが、 >全スライドに一括でテキス…

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

Set sel = ol.ActiveInspector.WordEditor.Windows(1).Selection .WordEditorで編集 Wordの世界(世界はいいすぎか、Object操作なので、) .Bookmarks("\EndOfDoc").Select この一行を組み込むとよいのでは?下記、いつもの あのあの 解説動画です。 youtu.be …

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

ワード文章をページ単位でテキストファイルに書き出す そんな動作を行うマクロをデバッグしてみました。下記、いつもの デバッグ動画です youtu.be https://youtu.be/FXNjGsLen18 目次 00:00 あいさつ、やりたいこと 00:50 1.ページ選択のテスト 03:15 2.ペ…

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

Outlookへ予定を登録後、CalendarViewModeを変更して、カレンダーの表示を変える。 そんな処理にチャレンジしてみました。 Outlookを複数起動していたので、いつも以上にデバッグでハマってしまいました。 お蔵入りレベルのムゴイ動画ですが、よろしくお願い…

Ken3 ホームページ 目次

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

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



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