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

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

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


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

PowerPointVBA Shapes.AddMediaObject

PowerPoint2003マクロ記録で 挿入 ビデオとサウンド ファイルからサウンド 操作を記録した。 記録したコードは概要欄・コメント欄を見てください。youtu.be#PowerPointVBA #マクロ記録 #Shapes #AddMediaObject #デバッグ .AddMediaObject は 2013で廃止され…

PowerPointVBA PageSetup

PowerPoint2003マクロ記録で ファイル ページ設定 スライド 縦(P) 操作を記録した。 記録したコードは概要欄・コメント欄を見てください。youtu.be#PowerPointVBA #マクロ記録 #PageSetup #デバッグ Sub Macro3() ' ' マクロ記録日: 2022/5/18 ユーザー名: K…

PowerPointVBA Presentations.Add

PowerPoint2003マクロ記録で ファイル 新規作成 (ついでに レイアウト 空白) 操作を記録した。 記録したコードは概要欄・コメント欄を見てください。youtu.be#PowerPointVBA #マクロ記録 #Presentations #Add #デバッグ Sub Macro2() ' ' マクロ記録日: 2022…

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

VBS

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

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 読み上げ Range("A1:C5").Speak と Application.Speech.Speak

Option Explicit Sub test1() '.Speakなんてあるんだ・・・ Debug.Print "開始" & Now Range("A1:C5").Speak Debug.Print "終了" & Now End Sub Sub test2() '直接文字列で読み上げ も 可能みたいです Application.Speech.Speak "あのあの" Application.Spee…

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

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

Word VBA コード かこのコード

Sub Macro1() ' ' Macro1 Macro ' ' Dim n As Integer '先頭にカーソル移動 https://www.relief.jp/docs/word-vba-selecting-start-documents.html から引用 ActiveDocument.Bookmarks("\StartOfDoc").Select '文字列を探す、ターゲット位置決め Selection.F…

Excel VBA UsedRange で使用範囲を取得

Excel VBA UsedRange で使用範囲を取得して Rows.Count で行数 最終行は Cells(objRANGE.Rows.Count, 1).Row なんて感じで遠回りで取得してみたDim objRANGE As Range Set objRANGE = ActiveSheet.UsedRange 'セルの使用範囲を取得VBA Excel 表 範囲 で検索…

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


Ken3 ホームページ 目次

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

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

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