三流君のソースコード置き場

ブログにソースコードをアップして、ブログの検索機能で利用してます(利用予定です)

よく検索されるキーワード: [VBA]/ [VBS]/ [CreateObject]/ [Excel]/ [ADO]


VBA

【結論:無限ループは「イベントの一時停止」で解決します!】Worksheet_Changeの中で無限ループするコードについて

Worksheet_Changeの中でセルを書き換えると、またイベントが起きて無限ループ…焦りますよね。 検索で来られた方のために、まずは最も確実な解決コード(王道)を置いておきます。▼ コピペで解決!王道の修正コード 最も確実なのは『Application.EnableEvents…

VBAでUsedRangeとCurrentRegionを使い、Excelシート上の全テーブルをPowerPointへ一括貼り付けする方法'

VBA

Excel VBA シート内の「全ての表」をPowerPointへ一括貼り付けする! 「エクセルのシートに表が10個もある…これを一つずつパワポに貼るだけで1日が終わってしまう…」 そんな絶望を感じている事務職やエンジニアの方へ。今回は、Excel VBAを使って''「シート…

Excel SUMなどの計算結果をそのままPowerPointのスライドへ書き込む マクロコードを紹介する

Excelのリストからパワポの指定した場所へ、=SUMで計算した数値を表示形式をそのままで一気に流し込む「マクロ」を紹介します。 'ソースコード: 'B2に入力されたPowerPointファイルを開き '先頭行A5のデータから 'A列:指定ページ 内の B列:オブジェクト に C…

Worksheet_PivotTableUpdateイベントでスライサー変更時に値をセルにセット

質問内容と結果の操作を先に見せる 質問: Excelのピボットテーブルでタイムラインを使用してフィルターをかけています。タイムラインで選択した期間を別セルに表示することは可能でしょうか?可能であれば方法を教えてください。 回答: シートにマクロを記載…

PowerPoint VBA入門! Shape.PickUp & Shape.Apply で複数スライドの書式を一括変更

PowerPoint VBAで複数スライドの書式を一括変更する方法 PowerPointで資料を作成する際、複数のスライドに同じ書式を設定したい場面はよくありますよね。しかし、手作業で一つずつ書式をコピー&ペーストしていくのは、非常に面倒で時間がかかります。 そこ…

ActiveChart.SeriesCollection.Count で グラフ系列の数

ActiveChart.SeriesCollection.Count で グラフ系列の数 ActiveChart.SeriesCollection.Count よく見かける .Count でChartのSeries数がわかりそうです Option Explicit Sub bbb() Dim n As Integer Debug.Print "コレクションの数:" & ActiveChart.SeriesCo…

ActivePresentation.Slides(1).Copy スライドの1ページ目をコピー

データ転記でページが足りない時、 'スライドを増やす ppApp.ActivePresentation.Slides(1).Copy '1ページ目をコピー ppApp.ActivePresentation.Slides.Paste p '最終スライドpageに貼り付け で、1ページ目をコピーしました。 p = 1 While Len(Trim("" & r.O…

Excel VBA CommandBars(n).Name の実行結果

ken3memo.hatenablog.com ↑で使用する、メニューの名前がわからないとき、、右クリック メニューへ マクロを追加したい時、 どのメニューか?調べる時に使ってみてください。現在の設定をExcelシートへ書き出してみました。 Sub CommandBarの内容をセルに書…

PowerPoint2003のマクロ記録でパワーポイントのスライド追加とタイトル代入

VBA

VBAのプロパティやメソッドを探る時、 マクロ記録を使う方法 そんなお話をダラダラ撮った動画 youtu.be https://youtu.be/dENBobeb5lY です。プログラム作成の参考となれば幸いです。はてなの質問 q.hatena.ne.jp の回答用に作成したコードと動画です。下記…

VBA配列の初期化で Array関数を使用 と Split関数で配列作成、UBoundで個数の判断

VBA

Array関数やSplit関数で配列作成したらUBoundで個数を判断するといいですよ。 そんなお話です。【VBA】配列の初期化で Array関数を使用 と Split関数で配列作成、UBoundで個数の判断【三流君】 - YouTube www.youtube.com配列の初期化を行いたかったので、Ar…

Excel VBA Font.Bold=Trueでフォントを太字にできます 前回.FontStyle = "太字"を紹介したけどこちらのほうが

前回のライブで、テンパって マクロ記録でプロパティを調べるといいですよ・・・ と 言って、セルを部分的に太字にする、 .FontStyle = "太字"を疑問に感じながら、 紹介したけど、 やはり .Bold=Trueで太字にできました。テスト動画: https://www.youtube.c…

Excel VBAで最終行を求める VBSで使うには Excelの定数を使う方法

例題として Excelのデータ最終行までを処理するコードをVBSで実行してみます下記、いつもの解説動画です※蛇足付きですがよろしく。 【VBS】VBSでExcelの定数xlDownなどを使う方法 例.End(xlDown).Rowで最終行【三流君】 - YouTube www.youtube.com最終行まで…

VBA IE操作 YouTube動画から ブログ の本文を作成する サンプルとデバッグ

処理の流れ ^^^^^^^^^^ 1.IE起動 2.B2に入力されたYoutubeのURLに飛ぶ 3.動画のタイトルをB1のセルに書き込む 4.動画の概要 説明欄を取り出し、リンクがあればリンクを細工する 5.動画投稿日をB25にセットする 6.キーワードを取り出しB3にセット 7.コメント…

はてなブログ 本文連続置換更新処理にチャレンジ 結合テスト

単体で動作確認ができたので、 結合処理を行ってみます下記、いつもの酔っ払い解説動画です。 https://youtu.be/Ymk_TSO7dQk youtu.be結合処理中のエラー、不具合 を 面白おかしく説明しようと がんばってみましたが、 うまく料理できませんでした。失敗やエ…

ブログの記事管理 検索条件に値を入れて検索ボタンを押し編集記事を探す

はてなブログの記事管理画面 で 条件を入れて検索する前回 ken3code.hatenablog.jp の 続きです。 そんな処理を作成してみたいと思います。 デバック、いきあたりばったりのプログラミングを笑ってください。数行のコードを下記でダラダラと動画解説をしてい…

IEで表示されている はてなブログ 編集画面の本文を書き換えるコード

IEで表示されている編集画面の中から、 本文 テキストエリア を探して、内容を置き換える。そんな処理を探ってみたいと思います。デバッグ風景の動画 https://www.youtube.com/watch?v=qdSxWCeNa2w www.youtube.com1.表示されているIEを捕まえる URLに /edit…

パワーポイント マクロ .SlideShowWindows(1).View.Next 次ページ処理を探ってみた

人力検索はてなの質問 q.hatena.ne.jp の 回答をライブ配信で作ろうとするが、ハマったお話です。 ※前半は、グダグダなので、ゆるしてください・・・PowerPoint VBA 二つのスライド 次ページ処理を同時に行う方法をライブ配信で探ってみた・・・ - YouTube w…

VBA IE操作 rowspan HTMLTableCell メモ

ken3memo.hatenablog.com より現在単勝の表を下記のコードで取り込むと、 'Webの表をシートへ転記(代入する) For y = 0 To objTABLE.Rows.Length - 1 '行のループ For x = 0 To objTABLE.Rows(y).Cells.Length - 1 '列数分ループ ' objTABLE.rows(行).cells(…

ライブ配信で作りかけ JRAオッズ取得 できなかったけど...

ライブ配信で作りかけ JRAオッズ取得 できなかったけど...ken3memo.hatenablog.comよりwww.youtube.com ↑が配信したYouTubeライブのアーカイブです。途中まで作成したテスト用のソース Sub ie_test() 'IEの表示をテストする。 'IEの起動 Dim objIE As Intern…

複数テーブルを取得 .getElementsByTagName

簡単な解説は、 http://ken3memo.hatenablog.com/entry/2016/12/06/225432 に置いておきました。 少しでも、一つでも処理の参考となれば・・・・ Option Explicit Sub le_test20161206_複数テーブルを取得() 'IE起動 Dim objIE As Object 'IEオブジェクト…

2009-03-16 三流解説 VBA IE Webページの表を取り込む サンプルプログラム

https://www.youtube.com/playlist?list=PLskfqQDb_hPLFOCHjhMeYCM-rMt2r0Z7o www.youtube.com 2009-03-16 三流解説 VBA IE Webページの表を取り込む サンプルプログラム http://ie.vba-ken3.jp/sample/002/2009-03-16.html ↑解説ページはこちら 'C8のURLを…

単体テスト InStr(検索開始位置, 検索元文字列, 探す文字列)

InStr関数をループさせて、複数回の禁止ワードを探す Const strMOJI = "注目 激安通販 激安商品 激安価格" から、 激安の文字がいくつあるか? InStr関数を使って、カウントしてみたいと思います。Instr(検索開始位置, 検索元文字列, 探す文字列) で、チェッ…

ActiveChart.Export で ExcelグラフをGIFに

三流君VBA:Excelのグラフをgifへ変換 .Exportメソッド使用の ActiveChart.Export ("C:\samp.gif") ExcelグラフをGIFにできたので 少し、テストして遊んでみます。テスト結果の動画 www.youtube.com 【VBA】Excelグラフを ActiveChart.Export で GIFに変換出…

VBA InStr関数で文字列を探す、位置を返す

InStr関数を使用すると、 文字列の中から、指定した文字列の位置を知ることができます。見つけた位置・場所 = InStr(探される元文字列, 探す文字)なんて日本語で書くと、アレなんで ※オマエの日本語・説明文が悪いって 読者様の心の声もありますが・・・いつ…

VBA IE操作 リンクの取り出し objIE.Document.Links のサンプルコード

リンクから値を抜く、そんな処理をしてみたいと思います。 ランキングのリンクだったり、 過去記事のリンクだったり、 ウェブページはリンクでつながっているので、今回は、サンプル処理として、 バックナンバーの一覧ページからリンクを取り出してみます。…

VBA文字列を抜き出す 関数 Left,Mid,Right

VBA

まぁ、一般的なので説明もいらないとは思いますが、 Left,Mid,Right 関数をテストしてみます。テスト動画: www.youtube.com 【VBA】文字列を抜き出す 関数 Left,Mid,Right 【三流君】 - YouTube※プログラム講座や学習サイトあるあるで、 簡単なものは長く詳…


質問・感想・クレームなど、
気軽にコメント欄に書いてもらえるとうれしいです。

[Googleフォームにコメントを残す]
↑質問・コメントの入力フォームです、気軽に書いてください


フッター:最後にKen3Videoの動画一覧を紹介します

YouTubeにアップした動画です。他の動画を一瞬でも見てもらえるとさらに嬉しいです。
再生リスト:[三流君Ken3の最新動画]←リストの一覧形式で表示する


また、ブログを見に来てくださいね。ではまたぁ~