…先に見せる 質問: Excelのピボットテーブルでタイムラインを使用してフィルターをかけています。タイムラインで選択した期間を別セルに表示することは可能でしょうか？可能であれば方法を教えてください。 回答: シートにマクロを記載できるなら可能です。B1に開始 StartDate、B2に終了 EndDate をセットするマクロを解説します。 https://www.youtube.com/live/GTgvCh9GJg4 www.youtube.com テスト環境の準備 明細デ…

…このVBAマクロは、ExcelからPowerPointを操作し、スライド内のOLE型のWordオブジェクトにルビを振る処理を行います。 処理の流れは以下の通りです。 起動済みのPowerPointを取得 PowerPoint内のスライドとシェイプをループ処理 OLE型のWordオブジェクトを判別 Wordアプリケーションオブジェクトを取得 Word文書の全選択 ルビダイアログを表示・ルビを振る ソースコード 'Excelから開かれている既存のPowerPointを捕まえて '…

ListViewにファイルをドロップして、A列へ A列をクリア後、受け取ったファイル名を書き込む ソースコード: Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single) Dim sFileName Columns("A:A").ClearCont…

…jChart As Excel.Chart を探り、 Chart.Export メソッドを発見するDim objChart As Excel.Chart を探ると https://learn.microsoft.com/ja-jp/office/vba/api/excel.chart(object) よりChart.CopyPicture おっコレかな？と思ったが、これは、クリップボードだった。※将来のメモChart.Export メソッド (Excel) https://l…

…ワポのシェイプ情報をexcelシートへ書き出す 'ex:新規ブックを追加して、pp:スライドの情報をex:シート単位で貼り付ける '2024/04/04 シェイプでHasChart = True だったら、グラフの情報を書きだす Const 基準セル = "B2" Sub test20240404_01ppスライドをexシートへグラフ情報付きで書き出す() Dim ppApp As Object 'As PowerPoint.Application Set ppApp = N…

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

…bs で マクロ付きExcelファイル .xlsm を開き、マクロを実行してみます。 タイトル画像1.簡単なVBSの説明 Set oApp = Nothing '1.1 Excelを起動 WScript.Sleep 1000 Set oApp = CreateObject("Excel.Application") oApp.Visible = True '可視にする oApp.UserControl = True '1.2 ファイルを開く sFileName = "d:\JR…

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

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

…ださい。現在の設定をExcelシートへ書き出してみました。 Sub CommandBarの内容をセルに書き出す() Dim n As Integer Dim y As Integer Dim x As Integer y = 2 For n = 1 To CommandBars.Count 'いつものように.Count分ループ Cells(y, "A") = CommandBars(n).Name '名前が付いてます CommandBars("名前")で使えます Cells(…

…ordの範囲をして、excelのoffsetのようなことが出来たらいいのですが.... ' https://youtu.be/rtdwyl2Bbic?t=974 ← word知らないおっさんが探ってみました '段落から探ると良いのでは？ '検索キーワード VBA Word 段落 など Sub test() Dim n As Integer '全ての段落をテスト表示 For n = 1 To ActiveDocument.Paragraphs.Count Debug.Print…

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

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

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

…inimized 'Excelを最小化する Dim objIE As Object 'ＩＥオブジェクト参照用 Set objIE = CreateObject("InternetExplorer.application") 'IEのオブジェクトを作る objIE.Top = 0 objIE.Left = 0 objIE.Visible = True '見えるようにする(お約束) Call SetForegroundWindow(objIE.hwnd) '前面にIEを表示 Di…

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

はてなブログの記事管理画面 で 条件を入れて検索する前回 ken3code.hatenablog.jp の 続きです。 そんな処理を作成してみたいと思います。 デバック、いきあたりばったりのプログラミングを笑ってください。数行のコードを下記でダラダラと動画解説をしています。 https://www.youtube.com/watch?v=_L2v_i-UJsY www.youtube.com ↑ダメッぷりを笑いながら見てください1.やりたいこと手作業で説明2.VBAで作成して…

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

…からADOを使用してExcel(*.xls)に接続して、<br> [Sheet1$]でシートにアクセスして、レコードセットを作成後、<br> <strong>rs.GetRows</strong>でレコードセットから配列を作成する<br> 読み込むシートのイメージは、<br> <img src="http://www.ken3.org/backno/gif/asp084-01.gif"><br> です。 [<a Href="test084.xls" TARGET="_blan…

…流君ASP:ADOでExcel(*.xls)に接続 .GetRowsで全件読み込んでみた ↑を見て、笑ってやってください。 ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です) ※古くさいコードが多いです・・・ ADOでExcel(*.xls)に接続 .GetRowsで全件読み込んでみた ソースコード <%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CON…

…流君ASP:ADO Excel(*.xls)接続 [Sheet1$]でシート指定、列名無しで遊ぶ ↑を見て、笑ってやってください。 ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です) ※古くさいコードが多いです・・・ ADOでExcel(*.xls)に接続 ソースコード <%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html…

…は、 三流君ASP:Excelグラフ付の雛形シートにASPからADOを使用してデータセット ↑を見て、笑ってやってください。 ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です) ※古くさいコードが多いです・・・ ソースコード <%@LANGUAGE=VBScript%> <html> <head> <title>Excel(*.xls)グラフ付雛形にADOで接続しデータ更新</title> </head> <body> <h2>Excel(…

…は、 三流君ASP:Excel(*.xls)とADOで接続、.Addnewしてみた ↑を見て、笑ってやってください。 ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です) ※古くさいコードが多いです・・・ ソースコード <%@LANGUAGE=VBScript%> <html> <head> <title>Excel(*.xls)とADOで接続、.Addnewしてみた</title> </head> <body> <h2>Excel(*.xl…

…流君ASP:ADOでExcelファイル(*.xls)とやっと接続できた（ほっ） ↑を見て、笑ってやってください。 ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です) ※古くさいコードが多いです・・・ ソースコード <%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ASP…

…* INTO文発行でExcel(*.xls)を作成する ↑を見て、笑ってやってください。 ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です) ※古くさいコードが多いです・・・ ソースコード <%@LANGUAGE=VBScript%> <html> <head> <title>ADO Select * INTO [Excel 8.0;Database=Drive:\Path\File].[Sheet]</title> </head> <bo…

…/cgi-bin/test/test052-1.asp?DATA=ASP%8Ay%82%B5%82%AD ← 実行する 三流君ASPでフォーム関係の解説とサンプル 三流君ASPでADO MDB接続関係の解説とサンプル 三流君ASPでADO Excel接続関係の解説ページとサンプル 三流君ASPでADO CSV接続関係の解説ページとサンプル 三流君ASPでテキストファイル関係の解説とサンプルページ 三流君ASP VBScript関数の解説とサンプル 三流君ASPで遊ぶ、失敗する

…チョキ http://www.ken3.org/cgi-bin/g/g001.asp?DATA=3 パー ← 実行する 三流君ASPでフォーム関係の解説とサンプル 三流君ASPでADO MDB接続関係の解説とサンプル 三流君ASPでADO Excel接続関係の解説ページとサンプル 三流君ASPでADO CSV接続関係の解説ページとサンプル 三流君ASPでテキストファイル関係の解説とサンプルページ 三流君ASP VBScript関数の解説とサンプル 三流君ASPで遊ぶ、失敗する

…://www.ken3.org/cgi-bin/test/test048-3.asp?DATA=12.5 ← 実行する 三流君ASPでフォーム関係の解説とサンプル 三流君ASPでADO MDB接続関係の解説とサンプル 三流君ASPでADO Excel接続関係の解説ページとサンプル 三流君ASPでADO CSV接続関係の解説ページとサンプル 三流君ASPでテキストファイル関係の解説とサンプルページ 三流君ASP VBScript関数の解説とサンプル 三流君ASPで遊ぶ、失敗する

…実行する→ http://www.ken3.org/cgi-bin/test/test047-2.asp ← 実行する 三流君ASPでフォーム関係の解説とサンプル 三流君ASPでADO MDB接続関係の解説とサンプル 三流君ASPでADO Excel接続関係の解説ページとサンプル 三流君ASPでADO CSV接続関係の解説ページとサンプル 三流君ASPでテキストファイル関係の解説とサンプルページ 三流君ASP VBScript関数の解説とサンプル 三流君ASPで遊ぶ、失敗する