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

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

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


VBA の検索結果:

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

…owerPoint VBAで複数スライドの書式を一括変更する方法 PowerPointで資料を作成する際、複数のスライドに同じ書式を設定したい場面はよくありますよね。しかし、手作業で一つずつ書式をコピー&ペーストしていくのは、非常に面倒で時間がかかります。 そこで今回は、PowerPoint VBAを使って、この面倒な書式設定を自動化する方法を紹介します! Shape.PickUp メソッドと Shape.Apply メソッドを組み合わせることで、複数のスライドにある同じ位置…

PowerPoint VBAでOLE埋め込みWordの.OLEFormat.Activateを使ってルビを振る方法

…owerPoint VBAでOLE埋め込みWordにルビを振る方法 概要 PowerPointに埋め込まれたWord文書にルビを振るには、PowerPointとWordを連携させる必要があります。 このVBAマクロは、ExcelからPowerPointを操作し、スライド内のOLE型のWordオブジェクトにルビを振る処理を行います。 処理の流れは以下の通りです。 起動済みのPowerPointを取得 PowerPoint内のスライドとシェイプをループ処理 OLE型のWordオブ…

Private Sub ListView1_OLEDragDrop 24年07月01日作成したソース

…の表示を選択すると、VBAのコードエディタが表示されます。 コードの内容については動画では詳しく説明されていませんが、ListViewにドラッグアンドドロップされたファイル名が取得できるように記述するようです。タイミングの確認と意図的なミス (9:02 - 10:22) このパートは、タイトルと説明が一致していないようです。動画の内容を確認すると、コードの記述ミスを意図的に仕込み、ドラッグアンドドロップしてもファイル名が取得できない状態にするようです。ドラッグアンドドロップイ…

Excel VBA Chart.Exportを使用した画像出力

…jp/office/vba/api/excel.chart(object) よりChart.CopyPicture おっコレかな?と思ったが、これは、クリップボードだった。※将来のメモChart.Export メソッド (Excel) https://learn.microsoft.com/ja-jp/office/vba/api/excel.chart.export 式。エクスポート (FileName、 FilterName、 Interactive)例 次の使用例は、グ…

test20240404_01ppスライドをexシートへグラフ情報付きで書き出す

…x "処理終了、画像を確認してください" End Sub 解説位置: https://www.youtube.com/watch?v=RD5ovhJncsY&t=1464パワーポイント リンク切れグラフの値を取り出す PowerPoint マクロ VBA https://www.youtube.com/playlist?list=PL8vZhsyiiFhuAVnLl4S9tWujchW7rqOUm 再生リスト↑貼り付けたExcelグラフがリンク切れ 値を救いたい 吸い出したい

蛇足1.パワポのアクティブスライドからオブジェクトの名前をエクセルに落とす

….comExcel VBA で PowerPointのタイトルテキストを取得したい Shapes から テキストを取り出す ken3memo.hatenablog.com だと、すべて、取得してしまうので、 現在処理中のスライドのみ、データを落とすように変更する。蛇足2.Excelでアクティブスライドのppオブジェクトに名前を付ける※名前の変更 蛇足2.パワポのアクティブスライドのシェイプ名.Nameに値をセットして変更する'起動済みのパワーポイント スライド .Shapes…

PowerPoint VBA OnSlideShowPageChange でハマる

ken3memo.hatenablog.comhttps://youtu.be/jP0O2KlXeLE 目次 00:00 1.処理のタイミングをとりたい 00:32 1.2 標準モジュールにOnSlideShowPageChange 03:20 1.4 ん?一回目にコードが走らない?なんだこれ? 05:55 2.事前準備で名前を付ける 08:12 3.1 1ページ目でランダムの数値をセットする 11:37 3.2 スライド2ページ目に移動したら、1ページ目の値をセットする 1…

PowerPointVBA Shapes.AddMediaObject

…PowerPointVBA #マクロ記録 #Shapes #AddMediaObject #デバッグ .AddMediaObject は 2013で廃止され、 .AddMediaObject2 を使用する感じです。 Sub Macro4() ' ' マクロ記録日: 2022/5/18 ユーザー名: Ken3 O ' ActiveWindow.Selection.SlideRange.Shapes.AddMediaObject(FileName:="G:\0-新規プロジェクト.…

PowerPointVBA PageSetup

…PowerPointVBA #マクロ記録 #PageSetup #デバッグ Sub Macro3() ' ' マクロ記録日: 2022/5/18 ユーザー名: Ken3 O ' With ActivePresentation.PageSetup .SlideSize = ppSlideSizeOnScreen .FirstSlideNumber = 1 .SlideOrientation = msoOrientationVertical .NotesOrientation =…

PowerPointVBA Presentations.Add

…PowerPointVBA #マクロ記録 #Presentations #Add #デバッグ Sub Macro2() ' ' マクロ記録日: 2022/5/18 ユーザー名: Ken3 O ' Presentations.Add WithWindow:=msoTrue ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).SlideI…

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

…=653#ExcelVBA #PowerPointVBA #マクロ #自動転記 #デバッグExcelからパワポにデータをセットしてみました。 Excelのソース ※パワポを開いた状態でテストしてみてください Option Explicit Sub Excelから起動済みのパワポにデータセット20220425() '起動済みのパワポを捕まえる Dim ppApp As Object Set ppApp = Nothing On Error Resume Next 'エラーが発生…

EXcel VBA 読み上げ Range("A1:C5").Speak と Application.Speech.Speak

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

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

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

Word VBA コード かこのコード

…docs/word-vba-selecting-start-documents.html から引用 ActiveDocument.Bookmarks("\StartOfDoc").Select '文字列を探す、ターゲット位置決め Selection.Find.Execute FindText:="バグ内容", Forward:=True '見つけた↑下の行に移動 ↑でFindTextが見つからなかった時の処理が入ってないや n = Selection.Move(Unit:=w…

Excel VBA UsedRange で使用範囲を取得

Excel VBA UsedRange で使用範囲を取得して Rows.Count で行数 最終行は Cells(objRANGE.Rows.Count, 1).Row なんて感じで遠回りで取得してみたDim objRANGE As Range Set objRANGE = ActiveSheet.UsedRange 'セルの使用範囲を取得VBA Excel 表 範囲 で検索すると 下記のわかりやすいページがヒットしますセル範囲の取得 セル範囲の取得 http://offic…

Excel VBA CurrentRegion で含まれている範囲が取得可能

Excel VBA CurrentRegion で含まれている範囲が取得可能です ショートカットキー操作のShift+Ctrl+:(コロン)の範囲をVBAで取得できますDim objRANGE As Range '範囲を入れるRange型 Set objRANGE = ActiveCell.CurrentRegion 'アクティブセルを含む範囲を取得VBA Excel 表 範囲 で検索すると 下記のわかりやすいページがヒットしますセル範囲の取得 セル範囲の取得 http://…

Access VBA データの重複チェックをDcount関数と更新前処理を使用して行う おっさんのデバッグ動画です。一部でも参考となればうれしいです。

https://www.youtube.com/watch?v=Irr_9wx6CAY 標準モジュールにDCountを利用したチェック関数を追加する Option Compare Database Option Explicit '0.商品コードを受け取り '1.マスターに、受け取ったコードがあるかチェック '2.明細、履歴にダブりがあるか、チェックする '商品コードを受け取りをチェック結果をエラーならTrueで返す関数 Public Function chk商品コード(st…

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

VBA

VBAのプロパティやメソッドを探る時、 マクロ記録を使う方法 そんなお話をダラダラ撮った動画 youtu.be https://youtu.be/dENBobeb5lY です。プログラム作成の参考となれば幸いです。はてなの質問 q.hatena.ne.jp の回答用に作成したコードと動画です。下記、動画で記録されたコードとテストで使ったコードです Sub Macro1() ' ' マクロ記録日: 2019/11/1 ユーザー名: Ken3 O ' ActiveWindow.S…

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

VBA

… そんなお話です。【VBA】配列の初期化で Array関数を使用 と Split関数で配列作成、UBoundで個数の判断【三流君】 - YouTube www.youtube.com配列の初期化を行いたかったので、Array関数 を使用してみました。外見の調整とArray関数を使用して配列作成 http://www.ken3.org/asp/backno/asp014.html で、 'Array関数を使用して、評価コメントを初期化 strBOX = Array("かなり不満…

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

前回のライブで、テンパって マクロ記録でプロパティを調べるといいですよ・・・ と 言って、セルを部分的に太字にする、 .FontStyle = "太字"を疑問に感じながら、 紹介したけど、 やはり .Bold=Trueで太字にできました。テスト動画: https://www.youtube.com/watch?v=_SP__GgVwiY www.youtube.comいつものことながら、前置きが長い。1.まずは単純にセルに対して.Font.Bold = True Range(…

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

…ので、 ExcelのVBA イミディエイトやネットでxlDownの値を調べて書く? xlDown 4121 Option Explicit Dim ex, bk, sh, i Set ex = GetObject(,"Excel.Application") '開いているExcel Set bk = ex.Workbooks(1) 'ブック Set sh = bk.Worksheets(1) 'シートを指定 For i = 2 To sh.Range("A1").End(-41…

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

…ダグタな解説動画 【VBA IE操作】指定したYouTube動画から はてなブログ の本文を作成する そんな転記プログラム【三流君】 - YouTube www.youtube.com下記、作成したソースコードです。 Option Explicit '標準モジュールにAPI宣言を書く Declare Sub SetForegroundWindow Lib "user32" (ByVal hwnd As Long) ' https://www.moug.net/tech/acv…

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

単体で動作確認ができたので、 結合処理を行ってみます下記、いつもの酔っ払い解説動画です。 https://youtu.be/Ymk_TSO7dQk youtu.be結合処理中のエラー、不具合 を 面白おかしく説明しようと がんばってみましたが、 うまく料理できませんでした。失敗やエラーのシナリオなど、うまく考えないとなぁ。ただ単体のコードをつなげただけの意味ない動画ですが、 よろしくお願いします。テスト作成したコード Option Explicit Declare Sub S…

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

…こと手作業で説明2.VBAで作成してみるまず、セットしたい項目をあらいだす。 記事画面のページでhtmlソースを表示して 検索の周りを探して、Formを見つけます。 <form class="entry-search-form js-entry-search-form" role="search" action="/search" method="get"> <select name="category" class="js-categories-selector"> <op…

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

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

プレゼンテーション1.pptm ? application.SlideShowWindows(1).Presentation.Name

…owerPoint VBA 二つのスライド 次ページ処理を同時に行う方法をライブ配信で探ってみた・・・ - YouTube www.youtube.com場所と名前は、 ? Application.Presentations(1).Name プレゼンテーション1.pptm ? Application.Presentations(1).Path D:\VBA\20180222 かなぁ。スライド起動中の判断で ? application.SlideShowWindows(1).P…

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

…owerPoint VBA 二つのスライド 次ページ処理を同時に行う方法をライブ配信で探ってみた・・・ - YouTube www.youtube.comマクロのボタンを押すと、 立ち上がっている二つのスライド を 単純に次のページにするなら 18:32 のような処理でいいなら Sub next2() Application.SlideShowWindows(1).View.Next 'スライド1番目を次ページ Application.SlideShowWindows(2).…

asp093.html 三流君ASP:FORM CHECKBOXから受け取った値を使用してWHERE句の作成

ASP

…OX" NAME="VBA">VBA<br> <INPUT TYPE="CHECKBOX" NAME="24H">コンビニ系<br> <INPUT TYPE="CHECKBOX" NAME="GUCHI">愚痴系<br> <INPUT TYPE="submit" VALUE="検索する"> </FORM> <% 'ADO DB Connection オブジェクトを作成する、英文そのままじゃん Set db=Server.CreateObject("ADODB.Connecti…

asp092.html 三流君ASP:FORM SELECTタグのOPTION値を受け取って処理を行う

ASP

…on value="VBA">VBAのコメント</option> <option value="GUCHI">愚痴系</option> <option value="24H">24Hコンビニ</option> </SELECT> <INPUT TYPE="submit" VALUE="検索する"> </FORM> <% 'ADO DB Connection オブジェクトを作成する、英文そのままじゃん Set db=Server.CreateObject("ADODB.Conn…

VBA IE操作 rowspan HTMLTableCell メモ

…T_X + objCELL.colSpan 'カラム分 横に移動 Next SET_Y = SET_Y + 1 Next 小細工の解説は、動画を見てください ぉぃぉぃ・・・ 単勝表の取り込み バグ修正 VBA IE操作 JRA Ken3 ライブ プログラミング テスト中 です・・・ - YouTube www.youtube.com 積み残し 問題点 この処置だと、まだまだで 8枠18番みたいに、ひと枠に3頭 馬が入るとまだまだエラーになるかなまだまだ、先が長いですね。。。。

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


Ken3 ホームページ 目次

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

三流解説動画の再生リスト
https://www.youtube.com/user/ken3video/playlists

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