三流君 ken3のmemo置き場

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

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

XXXXさん の検索結果:

XXXXXさんへ スクレイピング関連の質問について 年金関連のqaページ

下記の質問をいただく、 (が、いつものように、できない、難しい・・・の後ろ向き回答、ぉぃぉぃ) >さてこのたび仕事の関係で某厚生労働省の年金関連のqaページをエクセルの表にして抽出したいと考えています。最低限A列にQ(質問内容)、B列に(回答内容)という感じ。質問したいことは、①これを達成することはvbaだけで可能でしょうかそれとも別のアプリケーション?やなにか別のプログラミング知識が必要でしょうか?②仮にKen3様が(その経験・知識をもってして)それを実行しようと思った場合…

パワポ スライドショー 1ページ目に乱数セット 2ページ目で設定値を使いたい PowerPoint VBA OnSlideShowPageChange

下記の質問をコメント欄でいただきました。 >PowerPointでゲームモドキを作っているものです。 >スライド1に能力設定(攻撃、防御)、ランダム関数を使った数値 >スライド2で戦闘を考えているのですが、スライド1の数値をスライド2に反映させる方法がわかりません。 サクっとカッコつけて素早く答えたかったけど、 いつものように、あのあの、手間取りました。 ぉぃぉぃ youtu.be https://youtu.be/jP0O2KlXeLE 目次 00:00 1.処理のタイミン…

XXXXXさんへ YouTubeのテキストエリアの書き出しの件 スクレイピング pythonで検索してみては? IE非推奨サイトが増えてきて寂しいなぁ

せっかく下記の質問をいただいたのに、誰でも思いつく検索ワードを紹介しただけだった・・・ >YouTubeのテキストエリアの書き出し >ご教授くださいm(_ _)m について 私の昔のサンプルだと、 VBA IE操作 例題:指定したYouTube動画から はてなブログ の本文を作成する そんな転記プログラム 今は、動作しないコードですが、 https://ken3code.hatenablog.jp/entry/2018/07/01/223940 を見て、参考になれば・・・ タ…

Excel VBA グラフ選択時のイベント処理を探る クラスモジュールにWithEvents As Chartを書きイベント取得

タイトルサムネイルWithEvents myChartClass As Chartを使い、グラフのイベントをクラスモジュールで処理する グラフ選択で軸の値を表示、ダブルクリックで修正、そんな処理を作成しました。 グラフの軸の値は、 With myChartClass.Axes(xlValue) Debug.Print "最小値.MinimumScale:" & .MinimumScale Debug.Print "最大値.MaximumScale:" & .MaximumSc…

XXXXXさんへ ExcelからPowerPoint連続設定 自動画面切り替え 秒数の設定 を Excelから連続で行う VBA マクロ デバッグ

VBA

Excel A列に切替タイミングの秒数を入力、PowerPointの画面切り替え タイミングにセットする そんな処理を行ってみます。 タイトルサムネイルYoutubeのコメント欄で下記の質問をいただきました パワーポイントの自動画面切り替えの秒数の設定において、エスセルに記入した秒数を流し込むことは可能でしょうか。 パワーポイントのスライドが600ページ✖️4セットあり、それぞれ表示する秒数がエクセルにまとめてあります。 これを手打ちしていく作業がなかなか大変なので、効率的な…

XXXXXさんへ JRA オッズ取得 ホームページ「onClick=doAction が なんでPOSTだとわかったんですか?」と質問されたので

タイトルサムネイルdoActionのコードでcommForm01に値をセットして.Submit ActionがPOSTなので、FormのPOST送信でした youtu.be https://youtu.be/NPnKju8rkVw 目次 00:00 あいさつ、はじめに 00:25 1.JRAのHPを表示させます 00:39 2.ソースを表示します 01:29 2.1 ソースの頭でjavascriptのコードがまとめてインクルード 02:02 2.2 doActionのコードを…

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

タイトルとサムネイルDim oDocument As Object Set oDocument = CreateObject("htmlfile") で作成したhtmlfileドキュメントオブジェクトに html文字列を書き込む、そんなデバッグ風景です。下記、いつもの あのあの そのその 解説動画です www.youtube.com https://www.youtube.com/watch?v=RjZZUq40gxY 目次 00:00 0.IEが無くなるので CreateO…

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

…させて、就活不安のXXXXXさん へ返信転職ってこれ(キープしながら次に乗り換える)が問題なんだよなぁ 複数同時交際で合う会社を探してから決めたいなぁ(見つけてから転職、乗り換えも)読者の心の声:↑それを世間では学生の就職活動と言うのでは?インターンで判断ですKen3:少し変えて大学生の就活、モテル人は複数から即内定OKもらえていいな。 人気の無い私みたいな人は誰も相手にしてくれないし 相手が決定した人たち内定組は上から、 「もっとアピールしないと」(あかるく、元気よく、話せ…

XXXXXさんへ 志望動機をA4タテ横書き提出 の件

質問: 志望動機をA4縦置きに横書き400字程度を原稿用紙は不可で郵送しろ、 と言われたのですがWordを印刷したものでいいんでしょうか? 採用担当業務をまるっきりやったことが無い三流プログラマーが回答すると、回答: A4で印刷(Wordでも) それでいいともいますが・・・ ※私も字が汚いので、印刷かなぁ。 深読みすると、コピペで印刷だと目立たないので、 手書きでアピールするテクニックもありそうですがgoogle:志望動機 原稿用紙 をキーワードにgoogle検索下↓すると、…

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

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

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.事前準備…

XXXXXさんへ エクセル 入力禁則 ドロップダウンリスト =INDIRECTの#REF!のエラーについて

Excelのドロップダウンリストのエラーで、いくら調べてもエラーを解決できないため、どうかお力を貸して下さい。例えば、以下のような表があるとします。取扱者 契約者 被保険者 A D I A E A F I A F j A D K B G K B G L B D M C H C H N上記の様な表記に対し、それぞれの列をテーブル化し、取扱者、契約者、被保険者と名前を付けました。取扱者、契約者、被保険者をそれぞれ紐付けしたいです。取扱者のドロップダウンリストは作成できたのですが(…

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

下記の質問をいただいたので、google検索キーワードを紹介してみます。 Java Scriptが利いているサイトのクリックの方法について google:vba ie click javascriptなどで検索すると、解決策が出てくるかなぁ。 ↑検索結果に丸投げかよ・・・ 以下、いつもの遠回しな宣伝付き回答 ぉぃぉぃ・・・1.直接起動してみるのも手かなぁ.Script.setTimeout "javascript:関数などかけるので" ページ表示を確認後、HTMLのソースを見…

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

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

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

VBA

下記の質問をいただきました。 WEBページからのメッセージに困っていましたが objIE.navigate "JavaScript:function confirm() { return true; }" のおかげで次に進む事が出来ました。 本当にありがとうございます。ただ次の問題が新たに発生しました。 実行ボタンを押すと ①confirm画面がポップアップ 特定条件にヒットすると ②confirm画面がポップアップ→alert画面がポップアップ。 となるケースがあり、 ob…

XXXXXさんへ Q: Yahoo競馬の着順情報を取りたい A: DIV Class=XXXX を.ClassNameで取り出す テスト

' objTABLE.rows(行).cells(列) Set objCELL = objTABLE.Rows(y).Cells(x) 'これがwebの列 で取り出したデータに対して、さらに、その中から、DIVタグを取り出して、名前を調べる'DIVタグを抜き classの名前を取得してみる Set objDIVs = objCELL.getElementsByTagName("DIV") '1セルの中からさらにDIVをByTagName("DIV")で取り出す。そんなテスト動…

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

>大量のデータをCOUNTIFSをで実施するとかなり時間がかかります >約1時間~2時間ぐらい?です > >ネットで色々と見て、VBAで配列でとか書いていますが >解かりりかねますので、何卒ご教示お願いいたします こんにちは。 VBA配列での高速サーチについてですが、 私も詳しくなく、お力になれずスミマセン。 >COUNTIFSをで実施するとかなり時間がかかります COUNTIFSで、毎回自動再計算がかかって、遅くなるパターンならgoogle:COUNTIFS 高速化 で検索…

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

下記の質問をいただいたが、回答ができなかったお話。 csvをDownloadする画面に行くのですが、 そこのボタンがJavaScriptで動くように設定されているのですが、 動かすことができません。 下記がボタンのソースです。 input type="image" name="XXXXXX_SubmitCsv" src="xxxx_dl_csv.gif" style="cursor: pointer;" alt="CSVデータ保存" title="CSVデータ保存" widt…

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

VBA

下記の質問をいただく Accessからエクセルのテンプレートへ1シート10件ごとに出力させようとしています。 件数も毎回変わります。 件数が増えるごとにテンプレートシートをコピーして増やします。(依頼書1、依頼書2・・・)「シートへデータを転記( http://www.ken3.org/vba/backno/vba100.html )」を参考になんとかシートごとに出力はできたのですが、出力開始セルがA1からでないとうまく出力できません。テンプレートなので貼付け開始セルをI21…

動画でシステム屋小話 名は体を表す 命名規則 質問のソースコード一行からイロイロと想像・妄想 我流の探り方

1.言語なので受け手PCになったつもりで、そのまま読んでみる 2.名は体を表すので、英単語や変数名などから機能や動作を想像してみては? 3.一を聞いて十を知れないので、前後の文章(コード)があるとわかりやすいかも・伝わりやすいかも。いつもの、脳内を自分語で垂れ流すので ぉぃぉぃ 参考程度に聞いてください。※一つでも心に刺されば成功です(うれしいです) www.youtube.com https://www.youtube.com/watch?v=T0EmYLBZCn8伝えたい…

XXXXXさんへ ie.Document.getElementsByName の件 ソース一行から、イロイロと想像してみた

下記の一行コードの質問をいただく。 >三流君さん、お久しぶりです。 >もし解読出来たら教えて頂きたい構文があります。 >ie.Document.getElementsByName(' routeSettingList[' & n & '].trafficCd').item(0) >です。もし解読出来ましたら教えて下さい そのまま、PC(ieブラウザ)になったつもりで見ると ie.Document.getElementsByName(' routeSettingList[' &…

XXXXXさんへ IE使用時にページ移動後のHTMLDocumentを再取得 について

下記の質問をいただく。 >IE使用時にページ移動後のHTMLDocumentを再取得したいのですができません。 >ご教授いただけないでしょうか?? >IE使用時にページ移動後のHTMLDocumentを再取得 ですが、 通常は、移動後もそのまま使えるので、 ※逆に、移動前のページのデータは書き換えられているので使えない ↑何言ってんだか、意味不明・・・パターン1:ページ表示後に検索データを入れて、検索、検索結果を処理 https://www.youtube.com/watch…

XXXXXさんへ IE操作 このサイトは安全ではありません とエラーメッセージが表示される

下記の質問をいただく。 今まで動いていたプログラムが【このサイトは安全ではありません】というエラーが出てしまいます。 このエラーメッセジが出ないようにするにはどうすればよいのでしょうか。 軽く、win10 IE vba このサイトは安全ではありませんをキーワードに検索しただけですが、google:win10 IE vba このサイトは安全ではありません で検索するとhttps://www.manageengine.jp/support/kb/OpManager/?p=9959…

XXXXXさんへ VBA IE操作 手作業で見つかるオブジェクトが見つからないパターン

デバッグ時の手作業で見つかるオブジェクトが プログラムで走らせると(実行時)見つからないパターン>> objectそのものが取得できていないエラーとなりました。 >> また、ジャバスクリプトを直接動かすほうは、実行しても、「反応しない」という状況です。よくあるのが、ページの表示待ち次がページがフレームのページ? or カーソルが進まないとデータを取得できないパターン https://youtu.be/6yo4PJnzwk0?t=1474 ↑スクロールするとデータが作られるパタ…

XXXXXさんへ debugコマンドについて コマンドプロンプトDOS窓のことなら

老害MS-DOSおじさんの私も、Debugコマンドについて詳しくなくて、 適切な回答ができなくてスミマセン。あっ、下記の動画について質問だったんですね。 バッチファイル .bat を作成してMS-DOSのコマンドを使う。 https://www.youtube.com/watch?v=w7Bc7kTuYPw >デバッグコマンドとかはつくれますか? もしかして、下記のdebugコマンドなら、無くなった?ので、実行できないかも。debugコマンド(MS DOS) https://…

XXXXXさんへ VBA IE操作 帳票ボタンをクリックしたい件について 妄想回答案です

やりたいこと サイトの中の、ID付与されているボタン(具体的には、「帳票」を示す、“LinkButton4”)をクリックしたい、というものです。 2.取得したいID(”LinkButton4”)が記載されている(と思われる)箇所のHTML。 (「要素の検査」を使ったら、表示された行です)、 <dl> <!-- Report --> <dt><img id="LinkButton4" src="../Images/ico_report.png"onclick="javascri…

XXXXXさんへ InStr関数などで文字があるか?チェックして、あったらE列にセットするとか?

質問お願いします VBA IE にてテーブル取得するのに 上記例ですが 『お菓子』が含まれているせるがそれぞれA~C列に10行目まであります A列の1行目からC列10行目まで 順番にさぐり 『お菓子』が含まれていれば セルの内容をそのままE列にコピーする ようにしたいです ご教示どうぞよろしくお願いいたします HP上のテーブル ナンバー__1__________2_________3 1_______お菓子です__山田さん___食べた 2_______須崎さん____お菓子…

XXXXXさんへ IE ダイアログボックス 処理について 2019-06-20返信

VBA

当店人気のIE操作質問がくるも・・・ >ダイアログボックスが2~3回開く業務系では上記の処理がsendkeysメソッドでしかできません。 >ご存じの通りsendkeysメソッドは不安定で度々エラーが発生し業務使用するのは厳しい状況です。 >何か良い方法はありますか?せっかく良いネタ・メッセージをいただいたのですが、 ダイアログ処理は私もなかなかスッキリできなくて困っています。 なので、かっこつけた回答ができなくてスミマセン。自分やみなさんが困っている処理は、 需要がありとても…

XXXXXさんへ Win10クリーンインストールの件 私も怖くて尻込みします

こんにちは。Win10クリーンインストールの件 トラブルで不安な中(そんなに不安じゃなかったらスミマセン) 返信遅れて、すみません。>windows10がおかしくなってクリーンインストールをしたいです。 なかなか、難しい質問ですね。 クリーンインストールかぁ。>けれど難しそうで尻込みしてしまい 私も同じです。 失敗した時のリスクが怖くて、しり込みしてしまう案件ですね。実際、遠隔指示でやると、クリーンインストールの待ち時間が長くて、 連絡体制が難しいかなぁと思ったり。最近は、か…

Ken3 ホームページ 目次

分類:HPを大きく分けると4つの柱(分類)です。
・[Excel/Access VBA]の解説
・[ASP(Active Server Pages)]の解説。
・[元コンビニ店長時代の話]が弟に巻き込まれ、失敗した脱サラ、畑違い?の仕事で失敗。
・[プログラマーの愚痴]では、あまり見せたくない三流プログラマーの内面かな。
三流君を踏み台にする
主に上記4つの分類でHP作成やメルマガの発行を行ってます。
※更新頻度が落ちていて情報の鮮度が悪いです。



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