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

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

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


Excel の検索結果:

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

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

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

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

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

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…

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

…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…

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

…ワポのシェイプ情報を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…

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

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

VBS マクロ付きExcelファイル .xlsmを開き マクロを実行する 例題としてオッズ取得のマクロを実行

VBS

…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…

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

…uSw?t=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

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

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

…ださい。現在の設定を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(…

Word VBA コード かこのコード

…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 で使用範囲を取得

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://…

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

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

…inimized 'Excelを最小化する Dim objIE As Object 'IEオブジェクト参照用 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で表示されている はてなブログ 編集画面の本文を書き換えるコード

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

asp086.html 三流君ASP:Ubound(配列,1)とUbound(配列,2)で遊ぶ

ASP

…から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…

asp085.html 三流君ASP:ADOでExcel(*.xls)に接続 .GetRowsで全件読み込んでみた

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

asp084.html 三流君ASP:ADO Excel(*.xls)接続 [Sheet1$]でシート指定、列名無しで遊ぶ

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

asp057.html 三流君ASP:Excelグラフ付の雛形シートにASPからADOを使用してデータセット

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

asp056.html 三流君ASP:Excel(*.xls)とADOで接続、.Addnewしてみた

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

asp053.html 三流君ASP:ADOでExcelファイル(*.xls)とやっと接続できた(ほっ)

ASP

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

asp054.html 三流君ASP:ADOでSQL Select * INTO文発行でExcel(*.xls)を作成する

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

Asc関数で文字コード

ASP

…/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で遊ぶ、失敗する

簡単なじゃんけんゲーム

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で遊ぶ、失敗する

IsXXXXの処理でいろいろと遊んでみた(笑)

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で遊ぶ、失敗する

ASP 削除データの選択 と SQL DELETE文の発行

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

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


Ken3 ホームページ 目次

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

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

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