三流君 ken3のmemo置き場

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

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

VBA の検索結果:

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

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

name=tbs value=qdr:d3 m3 で更新 三日以内 三ヶ月以内など期間を指定 はてなブログ 本文にgoogle検索窓を設置してみる テスト004

…わせてテストしてみたVBA Outlook の話題 知恵袋・三か月以内 Windows Update をマイクロソフトで三日以内 など、テストしてみる 探す言葉: を←好きな検索文字を入れてからボタンを押す 検索結果の表示件数:5件10件25件50件 XXXX以内指定: 指定なし(全て)3時間3日3週間3ヶ月3年 サイト指定:人気QAサイト や 一次情報MS本家を指定する QA 人の多いYahoo知恵袋 chiebukuro.yahoo.co.jp QA おしえてgoo! o…

name=sitesearch で検索場所ドメインを指定 はてなブログ 本文にgoogle検索窓を設置してみる テスト003

…55 value="VBA Outlook"> を<input type=submit name=btnG value="Google 検索">←好きな検索文字を入れてからボタンを押す 検索結果の表示件数:<input type=radio name=num value="5">5件<input type=radio name=num value="10">10件<input type=radio name=num value="25" checked >25件<input …

name=num Valueで検索結果の表示件数を指定 はてなブログ 本文にgoogle検索窓を設置してみる テスト002

…55 value="VBA Outlook"> を<input type=submit name=btnG value="Google 検索">←好きな検索文字を入れてからボタンを押す <input type=hidden name=num value="20"> </form> <!-- SiteSearch Google --> 2.ラジオボタンで選択させる あまりやらないかもしれませんが、ラジオボタンで選択させてみます。 探す言葉: を←好きな検索文字を入れてからボタン…

name=qで検索文字 はてなブログ 本文にgoogle検索窓を設置してみる テスト001

…入れることができますVBA Outlookを初期値で入れてみます 探す言葉: を←好きな検索文字を入れてからボタンを押す <!-- SiteSearch Google --> <form method=get action="https://www.google.co.jp/search" target="_blank"> <a href="https://www.google.co.jp/"><img src="https://www.google.com/logos/Lo…

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

VBA

…消化できなくて、、、VBA ダイアログを条件に検索してみると 探す言葉: を 検索場所から:人気QAサイト や 一次情報MS本家を指定する QA 人の多いYahoo知恵袋 chiebukuro.yahoo.co.jp QA おしえてgoo! oshiete.goo.ne.jp 回答率90%以上 teratail.com Qiita 知識を記録・共有 qiita.com 私も利用中 最近過疎ってる失礼 人力検索 q.hatena.ne.jp 一次情報MSDNなどのmicroso…

Outlook VBA 受信メールを .Move 移動先Folderオブジェクトで移動させる ループに注意

…イルを固定の D:\VBA\ に書き出すテスト '新規起動したExcelブック・シートに書き込むテスト '2019-06-06 .Move でメールを移動させるが不具合作成をテスト Sub outlook_test20190606_001() 'Excel 起動処理 Dim objEXCEL As Excel.Application 'アプリケーションを入れる箱 Set objEXCEL = CreateObject("Excel.Application") 'エクセルのアプ…

エクセルのマクロ記録で写真の挿入を記録して .Pictures.Insert を探ったお話

…nsert("D:\VBA\IMG_0107.JPG").Select Range("A5").Select End Sub 写真の追加は、 .Pictures.Insert("ファイル名") 無事に調べることができました。3.コードを変えてテストしてみよう 確認ついでに、変更できそうな部分を変えてテストしてみます ここでは、ファイル名を変えてみました。4.記録された、プロパティやメソッドをググってみよう googleで、記録されたプロパティやメソッドを検索すると、 先人が書…

Outlook VBA 添付ファイル写真の取り出し はてなの質問にチャレンジしてみた。テストしてみた

…す Outlook VBA で メールに添付された写真をExcelに貼る処理のイメージがあっているか、わからないが、 下記の用に作成してみましたhttps://www.youtube.com/watch?v=SF9w8ILrO1Q ← テスト動画です、参考になれば。 'Outlook で メールに添付された写真をExcelに貼る 'サブフォルダ ここでは 写真テスト 固定です の 受信メール読み込むサンプル '件名と添付ファイル名(複数)を取り出す(表示する) '添付ファイル…

XXXXXさんへ お坊ちゃんプログラムで申し訳ない IE操作 JRAオッズ取り込みが動作しない件

…ackno/guchi084.html上記は置いといて、9~12Rの生データ 他の方からの要望も多い、自動時間取得と組み合わせがよさそうなので、 何かの機会にとは思いますが、お約束はできない状態です。最新版は http://ie.vba-ken3.jp/test/20181209.zip ↑ですが、こいつが動かない感じですよね?他の掲示板やサイトなどで解決策や良いサンプルが見つかるといいのですが。動作不良の対応策もない返信メッセージですがご勘弁を。 三流プログラマー Ken3

XXXXXさんへ VBA IE操作 リモート サーバーがないか、使用できる状態ではありません について

>実行時エラー '462': >リモート サーバーがないか、使用できる状態ではありません。 > とでます。 >デバッグでは、 > objIE.Navigate strURL >ここでとまります。 >何か特別な参照設定がひつようなのでしょうか? >リモート サーバーがないか、使用できる状態ではありません連続実行をしていると、 ( Create と .Quit などを繰り返していると) たまに発生したりしますが、Googleでエラーメッセージをそのまま検索すると、https://…

XXXXXさんへ IE操作 シートの値でURLを作り処理を行う

質問をいただきました、最近、返信遅くてスミマセン。 Dim objIE As Object 'IEオブジェクト参照用 Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Visible = True '見えるようにする(お約束) '.Navigate で 指定した文字列のURLを開く objIE.Navigate "https://www.boatrace.jp/owpc/p…

XXXXXさんへ 形の違うweb上の表・テーブル から指定された 項目・列を取得したい

…記の質問をいただく VBA IEでHP等から表をエクセルに抜き出したい場合ですが 以前に競馬の表の取り込み例として'TABLEタグを抜き 複数のテーブルをセット Set objTABLEs = objIE.document.getElementsByTagName("TABLE") '↑で代入したオブジェクトからテーブルデータを取り出す。 Set objTABLE = Nothing 'オブジェクトを空にする For i = 0 To objTABLEs.Length - 1…

Excel VBA A列から .Charactersで Font 色や太字を判断してHTMLタグを作成する

…を追加する。 そんなVBAをライブで作成して、 マクロ記録で太字のFont.Boldを探せなかったり、 追加したタグがクロスしてしまうバグ・不具合を発見しました。いつものデバッグ風景です。ライブは怖いので録画で ぉぃぉぃ。 https://www.youtube.com/watch?v=V7ZTH8ymryU www.youtube.com ※録画なのに↑失敗してます・・・だめだこりゃ・・・1.太字の判断 太字・強調表示の判断は Font.Bold = True/False …

JRA単勝オッズ取得でIEを前面にして IEスクロール SendKeysとjavascript:scrollToを使ってみた

VBAから表示したIEの画面をスクロールさせてみました。 SendKeysとjavascript:scrollToを使ってみたhttps://www.youtube.com/watch?v=jHnqqQP3FC4&start=470 youtu.be ※前半は先週のテストなので、IEのスクロール処理は 7:55 ~ 動画を見てください。 https://www.youtube.com/watch?v=jHnqqQP3FC4&start=4701.先週の修正結果の確認 先週修正…

XXXXXさんへ VBA IEで二つのページを表示 .Navigate2 メソッド &H800指定で新規タブ 隣のタブ

…をいただきました。 VBAでIEをヤフーとAmazonを同時に開く事は可能でしょうか。 また開くソースを教えて頂けますでしょうか。 お手数ですが、 宜しくお願い致します。 単純に二つの変数を使って起動したパターン と 隣のタブに表示するパターン 二つを作成してみました。www.youtube.com 【VBA IE操作】.Navigate2 メソッド &H800指定で新規タブ 隣のタブ表示のテスト【三流君】 - YouTube Option Explicit '変数を二つ使っ…

実験 テキストのHTMLソース TABLEテキストをコピペ Excelへ貼り付けてみた

…Excel2016 VBA IE表の取り込み - YouTube の終わりに、 チャットのコメントで テーブルのOuterhtmを貼り付けたほうが簡単だよ と アドバイスをいただいたことです。58:27 ​テーブルのOuterhtmをクリップボードに取り込んで PasteSpecial Format:="テキスト", NoHTMLFormatting:=True で貼り付けたら楽なんじゃ?アドバイスをいただけるって、ありがたいですね。以上、私だけかもしれないけど、びっくりして…

バグ修正 .Document.body.innerTextから発走時刻とオッズの時刻をMidで抜き出す デバッグ Excel VBA JRAオッズ取り込み

…イブ デバッグ動画 VBA IE操作 バグ修正 発送時刻とオッズの時刻が変 JRA単勝オッズの取り込み デバッグ ・・・ ライブ プログラミングほか テスト - YouTube www.youtube.com1.バグ・不具合の再現 発走時刻とオッズの時刻が変2.原因の特定 処置・対策HPの表示内容が変更になったので、 発走時刻のセット、取得方法を変更しました。.Document.body.innerText から、 文字を探して、Midで抜き出しただけです。 Public F…

デバッグ JRA HP表示変更で単勝オッズの取り込みに失敗 F12で要素を確認して修正する

…Excel2016 VBA IE表の取り込み - YouTube www.youtube.com一つでもデバッグ時の参考となれば幸いです。修正したExcel2016のブックを http://ie.vba-ken3.jp/test/20181209.zip ↑からダウンロードして遊んでみてください。 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'IEオブジェクトを受け取り、表示を待つ Sub I…

にしむくさむらい 月末最終日 日付の判断 西向く侍(士)って何?知ってた?

…から-1(前日)が2018年12月の末また、意味不明なこと書いたけど、 4.1 復習 Excelで日付-1をテストしてみよう 4.1.1 2018/1/1 ~ 2018/12/1 をオートフィルで入力してみて 4.1.2 =来月の日付-1 の計算式を入れてみて 4.1.3 表示形式の練習、表示形式をddにしてみて考えながら解説予定を書いていたら、長くなったので、 VBAの日付関数はまた今度ぉぃぉぃ ※今度時間がある時に飲みに行きましょう・・・と同じで、いつになるやら ぉぃぉぃ

XXXXXさんへ Excel VBA セルに書き込み時にLISTBOXのChangeイベントが発生について

…た。朝からデバッグ VBA Excel UserForm リストボックスのイベントについて実験する・・・三流プログラマー の 独り言 ライブ プログラミングほか テスト中 - YouTube www.youtube.com1.質問の理解 ユーザフォーム(テキストBOX)からセルに書き込みを行う際、listboxのChangeイベントが発 生しうまく値を書き換えることができません。(値の変更をフォームより行いたいのですが、セルに書き込み時 にLISTBOXのChangeイベント…

XXXXXさんへ Excel VBA Asc関数 Chr関数 Offsetを使った泥縄デバッグ実演 仕様変更?追加依頼された時

Excel VBAでAsc関数 Chr関数 Offsetを使って 処理を変更してみました。前回作成のサンプル ken3memo.hatenablog.com に追加の要望がきました。追加の要望: 前回の質問時は満足していたのですが 本日色々と試してみると ランダム数値の区分がグループ分けした後 確認できればと思ってしまいました 後出しですみませんが、 引き続きご教示よろしくお願いします 【問題】 班 人数 A 20 B 15 C 8 D 90 E 16 【答え】 班 人数 1…

XXXXXさんへ Excel VBA 質問にチャレンジ。デバッグ F8でステップ実行したり

…した。 質問ですが、VBAで数値の足し算をしたいと思います。 内容は A列に上から 20 15 8 90 16 とランダムに配列した数値を上から順に足し算していくのですが、ある一定の数値(33とします)になるくくりで数値を出していきます 説明がうまくできませんが、33人乗りのジェットコースターが来た時に、グループ毎にいる人たち(20人のグループ.15人のグループ.8人のグループ…)が乗るのを待っている時に、順番に乗り込んでいきますが、常に33人乗り満杯で発進したい場合 グルー…

Excel VBA Worksheet_Changeイベント内でセルを変更すると再度Changeイベントが発生する

…と、苦しまないようになると思います。 ※.Column <> 5で列をチェックテスト・蛇足の解説してみました デバッグ Excel VBA Worksheet_Changeイベントでシート内容を書き換えると再度Changeイベントが発生する - YouTube www.youtube.com お時間のある時に見て、笑ってください。 うまく修正できることを願いつつ、失礼します。 ※恥の上塗り、再度の不具合が無いことを願いつつ・・・Excelさん、みなさん、ごめんね・・・ぉぃぉぃ

Excel VBA WorksheetのChangeイベントに処理を書いてみたテスト

…get.Row < 100 Then Cells(Target.Row, "E") = Now End If End Sub テスト・蛇足の解説してみました デバッグ Excel VBA Worksheet_Changeイベントでシート内容を書き換えると再度Changeイベントが発生する - YouTube www.youtube.com お時間のある時に見て、笑ってください。 うまく修正できることを願いつつ、失礼します。 ※恥の上塗り、再度の不具合が無いことを願いつつ・・・

XXXXXさんへ VBA Outlook グラフ送信について

….ken3.org/vba/backno/vba183.html の VBA Outlook リッチテキスト形式のメール で グラフを送る ですが、 昔作成したサンプルなので、 Office2010からメニューがリボンになったので、 貼り付けが動かないみたいです。下記のサイトで指摘されてたり(なんか恥ずかしいぉぃぉぃ) https://answers.microsoft.com/ja-jp/office/forum/office_2010-excel/excel/cf4473…

XXXXXさんへ Access VBA MAIL アドレス帳から選択・送信操作について

…ことはないのですが、VBA Outlook アドレス帳 連絡先選択 で検索すると、 https://qiita.com/Q11Q/items/c5ae5cbc1744905f3288 https://msdn.microsoft.com/ja-jp/vba/outlook-vba/articles/display-names-from-the-address-book https://detail.chiebukuro.yahoo.co.jp/qa/question_deta…

XXXXXさんへ IE操作 SELECTタグで動的に変化するページの操作について

vbaでWEBの、select操作を行いたいのですが、valueを設定するも、うまく動作しません。下記、①のselectで馬連を選択しても、②方式選択が更新されません For Each obj In ie.document.getElementsByTagName("select") If obj.Name = "betType" Then obj.Value = 5 web address https://www.oddspark.com/keiba/auth/Classi…

XXXXXさんへ JRA単勝取り込みサンプルプログラムの作りが悪くご迷惑をおかけしてスミマセン。

…サンプルで、「三流君VBAでIEのリンクを操作 Document.Linksを探る」 試したのですが、JRAのHBのリンク数は13個でした。JRA側が2017/08から何か変更したのでしょうか? 私のサンプルがご迷惑をかけたみたいです ※プログラムの作りが甘いからかも・・・やってみたら、動いてしまったのですが、 不具合を再現するために、イロイロと操作をしてみたら原因が判明・・・再現手順: ホームページから開催日を反転させて(範囲指定して)手動でコピーすると 2回新潟9日 と後…

XXXXXさんへ プロパティの.hwndを使ってみては?IEのウインドウハンドル

こんにちは。 >IEオブジェクトからIEのウインドウハンドルが知りたいのですが、どんな方法があるでしょうか? でよく使っているのは .hwnd かな。 SetForegroundWindow (IE.hwnd) など、 IEが持っているプロパティの.hwndを渡し使っています。ken3memo.hatenablog.com ken3memo.hatenablog.comネットの流れは速いので、 もう既に解決されているかもしれませんが、 解決の糸口となれば幸いです。 三流プログ…

Ken3 ホームページ 目次

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



Googleを使用して検索する

読者の声:三流君の説明・解説じゃ よくわからなかったから、Googleを使って、自分で検索します。
三流君:残念です。あっ、下記にGoogleの検索窓を設置しました。
いろいろ指定して試してみてください。

Google
探す言葉:気になる単語や,オブジェクト(Document),プロパティ(.Busy)やメソッド(.Navigate)などを入れて検索してみてください。


言語を指定:見つからない時は指定無しで探す

サイト指定:人気QAサイト や 一次情報MS本家を指定する
一次情報・二次情報まとめから探る
QAサイトの質問から探る
検索実行: ←オプション確認後に検索ボタンを押してください

期間指定:情報の鮮度も大切?
検索実行: ←オプション確認後に検索ボタンを押してください


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