三流君 ken3のmemo置き場

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

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

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

VBA の検索結果:

CreateObject("htmlfile")でDocumentを作りweb上のhtmlデータを抜き出す 例題でJRAオッズを取得してみた

…った・・・昔作成したVBA IEでJRAのオッズを取得するコードを CreateObject("htmlfile")を使ったコードに書き換えてます。 来週、また、テストしてみたいと思います。 <a onclick="doAction('/JRADB/accessO.html','pw15oli00/6D');return false;" href="#"><span class="icon"><i class="fa fa-caret-right" aria-hidden="…

Excelで読み上げ Range(範囲).Speak で簡単にできました Application.Speech.Speakもアリかな

タイトルExcelのVBAで.Speakを使用すると、簡単に読み上げが可能です Application.Speech.Speak もあって、 セル読み上げだけじゃなく、好きな言葉を読み上げることができます。MsgBoxと組み合わせてみたけど、チョット、イマイチでした。 視聴者のみなさんで、面白い使い方があったら、 ぜひコメント欄で教えてください。 youtu.be https://youtu.be/c4mH9szOo2w#ExcelVBA #Speak #読み上げ #Spee…

Excel VBA 短い台詞から.wavファイル 機械音声を作成してみた

…いね。 #ExcelVBA #音声ファイル #機械音声下記、いつもの あのあの そのその 解説動画です youtu.be https://youtu.be/oQgYWk4gKYk 目次 00:00 0.あいさつ 00:34 1.音声ファイル作成のコードを修正 02:30 2.Excelのシートに台詞を書き、テストする 05:43 3.シートをコピーして使ってみる 08:32 4.蛇足で全ての台詞をまとめたファイルを作ってみた0.あいさつ 最近、パワーポイントで機械音声のナレー…

Excel VBA 右クリック メニュー に自作マクロを追加する CommandBarを探ってみた

自作マクロVBAをExcelの右クリックメニューに追加したかったので、 いつものように デバッグ テスト してみます。 ※最後の後始末がうまくいかなかったのは・・・実力・確認不足です。下記、いつもの、あのあの そのその 動画解説です youtu.be https://youtu.be/Zeccp33SPQA 目次 00:00 0.こんなことできます 00:52 1.登録は簡単でControls.Add 02:10 2.Cell や Row って、どこでさがすの? 11:00 …

これからは VBA マクロの配布時にセキュリティの説明をキチントしないと?

VBA

最近は、マクロ付きExcelブックなどを配布してないんだけど(ぉぃぉぃ、活動してないのか?) ファイル配布がセキュリティ関係で厳しくなるのかなぁ。 まぁ、あまり簡単にメール添付やネットからダウンロードした マクロ付きファイルから実行できたらまずいのか。 docs.microsoft.com https://docs.microsoft.com/ja-jp/deployoffice/security/internet-macros-blocked ↑のスケジュールだと、 更新チ…

Word VBA 表の列幅 Columns.Countで列数 Columns(x).Widthで幅

…つかみで、列幅の表示VBAを走らせる 01:06 1.Selection.Tables.Count で 選択したエリアに表・テーブル数 02:49 2.Columns.Count で 列数 04:32 3.Columns(x).Width で 幅が取得できます 05:00 4.もちろん値をセットすれば列幅が変わりますWord 表の列幅 取得・変更 処理の参考となれば幸いです。 ※Excelとのリンク貼り付けで列幅が狂った時、戻す処理をやろうとするが、 失敗したので、動画の後半…

Word VBA 段落オブジェクト Paragraph マクロ記録と検索で探ったお話

VBA

…om ↑ Word VBAを探る マクロの記録 と オブジェクトの調べ方 例題:検索した文字列の1行下に指定文字を入れる Word VBAのコードをマクロ記録から修正 - YouTube Sub Macro1() ' ' Macro1 Macro ' ' Dim n As Integer '先頭にカーソル移動 https://www.relief.jp/docs/word-vba-selecting-start-documents.html から引用 ActiveDocume…

がんばれ 新社会人 新人プログラマー くたばれ 老害 三流プログラマー YouTube新規向けのチャンネル紹介動画を作成した

…イ情報量ですねぇ ・VBAでIE操作系の解説ページにたどりつけた ・競馬 #オッズ自動取得 自分がやりたかったことが書いてあります と思うが、 少し・また少しと攻略していったり、 別の男(他のチャンネル)、 じゃなかった他の情報量が多いページやレイアウトがキレイで読みやすいページをみると、 あれが足りない、これも足りないと物足りなくなってきたり、 情報が探しにくい、レイアウトが整っていなくて醜い。読者の心の声:「そだね、IEも引退だし、Ken3引退だね。 人間性や器、○○も小…

Excel VBA で PowerPointのタイトルテキストを取得したい Shapes から テキストを取り出す

VBA

…owerPoint VBA 過去記事: ken3memo.hatenablog.com ken3memo.hatenablog.com ken3memo.hatenablog.comテストでSTOP止め、確認 'テストで現在選択中のスライド内のテキストを表示する '.Shapes から テキストフレーム テキスト範囲 が あったら、表示 Sub testスライド内テキストをDebugPrint() Dim nPAGE As Integer Dim objShape As Sh…

未解決 msoLineJoinRound 丸められた結合を指定します ってどこにあるの?

…jp/office/vba/api/overview/library-reference/msolinejoinstyle-enumeration-office 似たようなプロパティから探る? ↑矢印は、あるんだよなぁ BeginArrowheadStyle : msoArrowheadTriangle みたいなのが - : Line : : LineFormat/LineFormat : Module1.図形を選択して止める : BeginArrowheadLength :…

Outlook VBA 差出人を変更 別の名前にする SentOnBehalfOfName を意図せずに発見

いつものように参照設定の下記回答動画を作成、 テスト結果を確認した時に あれ?差出人が違う名前になってる? SentOnBehalfOfName を意図せずに発見→ https://youtu.be/u4sLe5J2Tms?t=80 And 落ちてたコードの拾い食い発言は面白くない(ネットにUPされているコードに敬意を払いましょう)動画全体を見るには下記 https://youtu.be/u4sLe5J2Tms 目次 00:00 知恵袋の質問 00:28 #参照設定 の話 0…

ウォッチ式の使用例として PowerPoint VBA グラデーション 色を ウォッチ式でトロイおじさんが探ってみた

…で、グラデーションをVBAで触るのは、大変そうです・・・以上、ウォッチ式でグラデーションを探ってみた話でした。ついでに、背景色のグラデーションを探ってみた・・・ + : Fill : : FillFormat/FillFormat : Module1.aaa - : GradientStops : : GradientStops/GradientStops : Module1.aaa : Count : 3 : Long : Module1.aaa - : Item 1 : …

実行時エラー 1004 : RangeクラスのAutoFilterメソッドが失敗しました Excel VBA .AutoFilter フィルター処理を勝手にデバッグ

…・・・落ち着け・・・VBAからフィルターを使ったこと無かったので、 勝手にデバッグ動画を作成 https://www.youtube.com/watch?v=DG968fWAx78 ↑エラーを強引に出してみました。へんなデバッグ動画ですが、参考となれば・・・無いとは思いますが Range("A1").AutoFilter 2, "" & custmor.cname.Text & "" としているのに、 表の先頭がA1ではなく A3などから?始まっていたりは、 それはないよねぇ…

VBA PowerPoint クラスモジュールで WithEvents イベント処理 例題として スライド開始 SlideShowBegin と スライド終了 SlideShowEnd を処理

VBA PowerPoint イベント で検索すると、いろいろなページがヒットします。 今回は、下記公式の Application オブジェクトでイベントを使用する https://docs.microsoft.com/ja-jp/office/vba/powerpoint/how-to/use-events-with-the-application-object を見ながら、テストしていきます。下記、いつものテスト動画です www.youtube.com https://w…

ExcelからWord #データ差し込み 処理を #デバッグ してみた Excel VBA IsDate("1200-10") が True になるので小細工してみた・・・

IsDateで日付かチェック可能なのですが、 1200-12 みたいなYYYY-MMと取れる文字列を真 Trueと判断する まぁ、当たり前のお話なのかなぁ・・・なので、追加で、書式が文字列かチェックしてみたり、 置き換え前の文字に 日 が入っているか?チェックしてみたり、、、 いろいろ デバッグしてみました。動画を見直すと自分の説明下手さにショックを受けつつ、 何かの参考となれば幸いです。 下記のteratailの質問 ExcelからWord #データ差し込み 処理を #デバ…

XXXXXさんへ Q. IE操作 Vbaとvbsの違いについて #IE操作 #VBA #VBS #業務改善 を邪魔する #老害 ぉぃぉぃ

… Q. をいただく Vbaを、勉強中初心者なのですが、この度質問させて頂きたいことがあり、自身では調べきれずメッセー ジさせていただきました。「内容」 Vbaとvbsの違いについてです。現在、勤め先でvbaを使用し作成したxlsmファイル(150個)を作成しまし た。当該各ファイルにアクセスした際、open時イベントでieエクスプローラを操作し、それぞれのurl(4 ページ程経由、各xlsmファイルの設定ごとに、キーワードを入力したりチェックして別々のInternetエ クス…

VBA PowerPoint 全てのスライドを選択しながら スライドノートを音声に変換して埋め込む #VBA #PowerPoint #ノート #音声埋め込み

またまた浮気して人力検索から teratail の質問を答えて、恥をかいてみたり・・・ (※ここまできたら、浮気じゃなくて、あっちが本命か?ぉぃぉぃ・・・)元ネタの質問ページは下記を見てください。※他の回答や質問のコードを参考にする。 teratail.com PowerPointで音声データを埋め込み、終わったら次のスライドへ移動させたい https://teratail.com/questions/tpr2jlldqc85js↓いつもの あのあの そのその 酔っ払い説明動…

Word VBA ルビの情報を ActiveDocument.Fields(n).Code から探ってみた #Word #VBA #デバッグ

…といて、 Word VBA の ルビ処理について 遊んでみました(遊ばれてます)いつもの あのあの そのその 酔っ払い解説動画・・・ https://www.youtube.com/watch?v=QcljoRs1Rsc ↑※良くイライラすると上級者に言われます・・・・00:00 バグ・不具合内容の説明 02:04 ActiveDocument.Fields(n).Code で ルビの情報が取れます 03:40 ActiveDocument.Fields(n).Select …

VBA Excelで指定した文字をWord文章中から探す 段落オブジェクト Paragraph を使用 Range.Informationで位置を取得 #VBA #Word #デバッグ #Excel

… Sub なかなか、VBA Word の操作ってオブジェクトの操作が大変そうです。 泥縄式で書いているので、もっとスマートなコードがあるなぁ・・・と思いつつ、失礼しますいつもの酔っ払い動画、、、 youtu.be https://youtu.be/dSlL0aNsI28 ↑実行結果の動画と簡単な解説です、気になった人は、YouTube動画を確認してみてください 00:00 作りたい内容 詳細を説明 実行結果 03:50 1.wdApp.ActiveDocument.Parag…

Youtube コメント欄で半角 < > が使えるようになった?でも動画の概要・説明欄では まだ無理だった

…やったぁ、と、喜んだのもつかの間、 動画の概要欄・説明欄にソースコードを貼ってみると、エラーで弾かれた。 ↑ > が やはり、ダメみたいですね。まぁ、コメント欄にVBAなどのコードが貼れそうなので、 今後の動画でコードをコメント欄に貼って、やり取りしてみようかなぁ。以上、独り言の実験結果でした。下記、コメント欄で実験してみました。 https://www.youtube.com/watch?v=JoidvQb2BIE&lc=UgyoviEWfqnTIgr0weR4AaABAg

XXXXXさんへ IEサポート終了後の VBA WEBからのデータ取得について キーワード Selenium で検索すると流行の方法がわかるかなぁ

>ExcelVBAでデータを集め、競輪予想を作っています。 ・ ・ ・ >さて最近、IEのサポート終了が告知されていますが >WEBからのデータ取得はどのような対処がベターなのでしょうか?ご意見をお聞かせください。ベター、ベスト、イロイロな考え方がありますが、 キーワード Selenium で検索すると流行の方法がわかるかなぁgoogle:Selenium VBA https://www.google.com/search?q=Selenium+VBA ↑で検索したりブラウザ…

XXXXXさんへ Excel VBA 1行単位 A列からE列 5つのデータをPowerPointの1スライド 縦に5個並べたテキストボックスにセットする

VBA

… >パワーポイントのVBAを検索していたらこちらに辿り着きました。 >A列~E列までのデータを1枚のスライドの5か所のテキストボックスに流し込むにはどうしたら >いいでしょうか? >テキストボックスは上から下へ同じ大きさのテキストボックスが5行あるような状態です。 いつもの、あのあの、そのその?が多すぎなテスト動画です https://www.youtube.com/watch?v=ZLkCiXC0FzQ www.youtube.com1.事前準備 PowerPoint を新…

XXXXXさんへ VBA IE操作 Java Script サイトのクリックの方法について 質問をいただく

…いて google:vba ie click javascriptなどで検索すると、解決策が出てくるかなぁ。 ↑検索結果に丸投げかよ・・・ 以下、いつもの遠回しな宣伝付き回答 ぉぃぉぃ・・・1.直接起動してみるのも手かなぁ.Script.setTimeout "javascript:関数などかけるので" ページ表示を確認後、HTMLのソースを見て、JavaScriptの関数を呼んでみるのも手かなぁ?検索キーワード google:VBA IE Script setTimeout…

XXXXXさんへ VBA Outlook メールの移動について .ReceivedTimeで受信時刻がわかるので.Move してみただけ

下記の質問をいただく >OUTLOOKで受信したメールで作業実施日を毎朝8時とすると >そこからからマイナス15時間から朝8時の範囲で受信したメールだけを >任意のサブフォルダーに移したいときはどのようにすればよいのでしょうか。 .ReceivedTime で受信時刻がわかるので、 .Move してみただけですが下記、メール移動のサンプルコードです 参考となれば・・・ Option Explicit '2021-04-08 .Move でメールを移動させる 'カウンターを使用…

Win10でExcel VBA GetPhoneticを使い フリガナ候補を全て連続で取得したいのにサンプルが正常動作しない Win7だとテストOK Win10だと次の候補を取得できない そんなテスト結果

…net/excel/vba/tips/tips49.htm officetanaka.net より ※注意:これ、最近はできなくなったようですね。Excelというか、MS-IMEの仕様変更かもしれませんね。せっかくですから、コンテンツは残しておきます。 が見つかります。気になったので、提示されたサンプルコードを私も実行してみました ※最近はできなくなった、 古いネットにつなげていないWin7でテストすると 動いたり、、、※※解決策になってないなぁ・・・Win7の古いPCで実行…

バグ付きなので参考程度に Excel VBA アクティブシート内の表をPowerPointへコピペ(転記)する 複数の表を探す #デバッグ #バグ

…みます。Excel VBA 範囲 などをキーワードに探すと、 便利なメソッドなどがみつかるので、組み合わせてテストしてみます。 Option Explicit 'シート内の表を探すには? 'シート内の表を探してみます Sub test20210223_excel_シート内の表を探す001() 'セル範囲の取得 セル範囲の取得 ' http://officetanaka.net/excel/vba/cell/cell10.htm 'より '>ワークシートで使用されているセル範囲…

XXXXXさんへ VBA IE操作 confirm() とalert() 両方を消したい

VBA

…outube.com/watch?v=3FLXPRyaJhw や https://www.youtube.com/watch?v=ye4nVjf-ihw など、やっていたり・・・VBA Sleepで検索すると https://www.google.com/search?q=VBA+Sleepwww.sejuku.netやe-vba.comなど、みつかるので、参考にしてみては?解決の糸口となれば幸いです。 三流プログラマー Ken3ken3memo.hatenablog.com

XXXXXさんへ VBA配列での高速サーチ COUNTIFS について

…ネットで色々と見て、VBAで配列でとか書いていますが >解かりりかねますので、何卒ご教示お願いいたします こんにちは。 VBA配列での高速サーチについてですが、 私も詳しくなく、お力になれずスミマセン。 >COUNTIFSをで実施するとかなり時間がかかります COUNTIFSで、毎回自動再計算がかかって、遅くなるパターンならgoogle:COUNTIFS 高速化 で検索すると、 識者の方々がイロイロと工夫されているみたいです。Excel COUNTIF 高速化20分→5秒|A…

XXXXXさんへ input type="image" のボタン操作 VBA IE操作で気になったこと

…、だから、どのようにVBAでIE操作するんだよVBA input type="image" 操作 などで検索して、解決方法を探ってみてください。下記、日付順で検索に出てきた質問teratail.com より teratail.com など読者の声:なんだよ、ここまで読んで損した・・・お力になれず、スミマセン。 検索や解決のヒントとなれば幸いです。 頼りにならない三流プログラマー Ken3でした。 自分の記事を探すと・・・ あれれ、、、2013年に書いた昔の記事だったけど、 k…

XXXXXさんへ AccessからExcel データ転記の開始位置について

VBA

….ken3.org/vba/backno/vba100.html )」を参考になんとかシートごとに出力はできたのですが、出力開始セルがA1からでないとうまく出力できません。テンプレートなので貼付け開始セルをI21からセットしたいのですが、うまくいきません。このプログラムで貼付け開始セルの指定はどうしたらいいのか途方に暮れています。 参考になるページなどありましたら、教えていただけたら幸いです。よろしくお願いします。 で、返信を作成する。こんにちは。 お急ぎのところ、返信遅れて…

Ken3 ホームページ 目次

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

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



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