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

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

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


VBA の検索結果:

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…

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

…い解説動画です。 【VBA IE操作】はてなブログ自動置換 更新処理にチャレンジ 結合テスト 部品をつなげてテストしてみる【三流君】 - YouTube youtu.be結合処理中のエラー、不具合 を 面白おかしく説明しようと がんばってみましたが、 うまく料理できませんでした。失敗やエラーのシナリオなど、うまく考えないとなぁ。ただ単体のコードをつなげただけの意味ない動画ですが、 よろしくお願いします。テスト作成したコード Option Explicit Declare Su…

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

…説をしています。 【VBA IE操作】ブログの記事管理 検索条件に値を入れて検索ボタンを押し編集記事を探す 【三流君】 - YouTube www.youtube.com ↑ダメッぷりを笑いながら見てください1.やりたいこと手作業で説明2.VBAで作成してみるまず、セットしたい項目をあらいだす。 記事画面のページでhtmlソースを表示して 検索の周りを探して、Formを見つけます。 <form class="entry-search-form js-entry-search-…

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

…バッグ風景の動画 【VBA IE操作】textareaタグを操作 はてなブログ 編集画面の本文置換 デバッグ風景【三流君】 - YouTube www.youtube.com1.表示されているIEを捕まえる URLに /edit が入っているかを条件にIEを探す2.ソースの中から、本文・テキストエリアを探る <textarea id="body" class="editor-body-textarea" name="body" cols="50" rows="15" plac…

プレゼンテーション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頭 馬が入るとまだまだエラーになるかなまだまだ、先が長いですね。。。。

SQL文 SELECT WHERE句でIN演算子を使用して複数条件を選択する

…OX" NAME="VBA">VBA系へのご意見を表示<BR> <INPUT TYPE="CHECKBOX" NAME="GUCHI">愚痴系へのご意見を表示<BR> <INPUT TYPE="CHECKBOX" NAME="24H">コンビニ系へのご意見を表示<BR> <INPUT TYPE="submit" VALUE="送信">←チェック後送信ボタンを押してください </FORM> <hr> <% '頭で、入力パラメーターの文字数をチェックする strWHERE = "…

MDBを使ったアンケート集計を作る

ASP

…asp?KUBUN=VBA&NO=1&A=3">test044-2.asp?KUBUN=VBA&NO=1&A=3</A><br> <A HREF="test044-2.asp?KUBUN=VBA&NO=2&A=2">test044-2.asp?KUBUN=VBA&NO=2&A=2</A><br> <A HREF="test044-2.asp?KUBUN=24H&NO=44&A=1">test044-2.asp?KUBUN=24H&NO=44&A=1</A><br> <br> …

複数テーブルを取得 .getElementsByTagName

…http://ie.vba-ken3.jp/test/20161101j1j2.html" '表示終了まで待つ .Busy(忙しい)間 と.ReadyState(ステータス)が4以外の時 ループ Do While objIE.Busy = True DoEvents '特に何もしないで.Busyの状態が変わるまで待つ Loop Do While objIE.ReadyState <> 4 DoEvents '特に何もしないで.ReadyStateの状態が4に変わるまで待つ L…

Mid関数で文字列を抜き出す

ASP

….ken3.org/vba/bbs-vba.html )<br> サンプルファイルは、<br> http://www.ken3.org/vba/lzh/vba042.lzh <br> にtest042-book.xlsが保存されています<br> これを変換してみる。<br> 結果は、<br> <% '処理を作成する 'テストのデータを作成する moji = "掲示板に書いてくれると、うれしいです。" & vbCrLf moji = moji & "(掲示板 http://ww…

SQL SELECT文WHERE句を使って条件検索

…asp?KUBUN=VBA">test030-1.asp?KUBUN=VBAのデータを確認する</a><br> <A href="test030-1.asp?KUBUN=GUCHI">test030-1.asp?KUBUN=GUCHIのデータを確認する</a><br> </body> </html> <% 'パラメータを受け取り、SQLを発行 Sub TEST_PRINT(strKUBUN) 'ADO DB Connection オブジェクトを作成する、英文そのままじゃん S…

復習で一言コメント入力の処理を作る

ASP

…N" VALUE="VBA" >VBAで楽しく<br> <INPUT TYPE="RADIO" NAME="KUBUN" VALUE="GUCHI" >愚痴系メルマガ<br> <INPUT TYPE="RADIO" NAME="KUBUN" VALUE="24H" >コンビニのオモテとウラ<br> <b>感想(MAX20文字):</b> <% Randomize : zz = Chr(&h22) & "TEST DATA " & Int(Rnd * 100) & Chr(&h…

Split関数で配列作成、UBoundで個数の判断

ASP

…n3,ASP不得意,VBA少しできる", ",")<br> と分解元文字列と区切り文字を渡すと、結果がstrBOXに配列で返ります。<br> 結果<br> <% strBOX = Split("Ken3,ASP不得意,VBA少しできる", ",") '配列データを作成 Response.Write "strBOX(0) -- " & strBOX(0) & "<BR>" '中身を表示 Response.Write "strBOX(1) -- " & strBOX(1) & "…

えっ、ASPはVBAで有名なFormat関数無いの?Rightで代用してみた

元の三流解説は、 三流君ASP:001行目と表示したくてRight関数を使う ↑を見て、笑ってやってください。 ブログに過去のソースコードをアップして、ブログの検索機能で利用してます(利用予定です) ※古くさいコードが多いです・・・ ソースコード <%@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>Righ…

VBA IE操作 ヤフーファイナンスの信用買い残 の 取得にチャレンジしてみた

…もの三流解説動画 【VBA IE操作】URLのパラメータを作りながら表を取り込む テスト 【三流君】 - YouTube www.youtube.com下記の質問をいただきました。 ヤフーファイナンスの信用買い残のデータを77表分ワークシートに取得するにはどういうコードを書いたら良いか悩んでいます。 最初の表は取得出来るのですが、 下の数字や次へを自動的に押して取得する方法が上手く出来ません。 ご教授頂けると幸いです。 URLは、下記の通りです。 http://info.fi…

VBA IE操作 テーブル単体を取り出す テスト

…tube.com 【VBA IE操作】テーブル単体を取り出す テスト 【三流君】 - YouTube VBAからIEを操作して、 表 TABLEを取り出します。テストページ http://ie.vba-ken3.jp/test/20161101j1j2.html の表を取り出すには・・・1.IE起動 CreateObject("InternetExplorer.application")2.ページの表示 .Navigate 3.目的のテーブルを指定 .getElementsB…

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

…3-16 三流解説 VBA IE Webページの表を取り込む サンプルプログラム http://ie.vba-ken3.jp/sample/002/2009-03-16.html ↑解説ページはこちら 'C8のURLを表示 'C10の条件でテーブルを探す Sub Web_Get_Table_test0317() 'IE起動 Dim objIE As Object 'IEオブジェクト参照用 Set objIE = CreateObject("InternetExplorer.a…

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

…テスト動画です。 【VBA】単体テスト InStr(検索開始位置, 検索元文字列, 探す文字列) 【三流君】 - YouTube www.youtube.com デバック時↑、F8でステップ実行できるので、 テストコードと合わせて、使ってみてください。ループの作り方など、 イロイロとあるので、 面白い じゃなかった、 シンプルでわかりやすいコードを作成してくださいね。少しでも文字列処理の参考となればうれしいです。キーワード: VBA,InStr関数,文字列操作,単体テスト, …

ActiveChart.Export で ExcelグラフをGIFに

三流君VBA:Excelのグラフをgifへ変換 .Exportメソッド使用の ActiveChart.Export ("C:\samp.gif") ExcelグラフをGIFにできたので 少し、テストして遊んでみます。テスト結果の動画 www.youtube.com 【VBA】Excelグラフを ActiveChart.Export で GIFに変換出力 【三流君】 - YouTubeテスト1.単体テストでGIFが作成されることを確認 Sub test028_1() 'ブックを…

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

…ものテスト動画: 【VBA】InStr関数で文字列を探す、位置を返す 【三流君】 - YouTube www.youtube.com 実際の例題をいくつかテストしてみます。Bを探すと、2が返る ? InStr("ABCDEF", "B") 2 見つからないときは0を返す ? InStr("ABCDEF", "X") 0 もちろん、一文字じゃなくて、 文字列の中から文字列も探せます。 ? InStr("ABCDEF", "DE") 4 Sub test_InStr() Cons…

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

…。操作と解説動画 【VBA IE操作】リンクの取り出し objIE.Document.Links 【三流君】 - YouTube www.youtube.com サンプル元は 三流君VBAでIEのリンクを操作 Document.Linksを探る です。 、 下記のコードをコピー貼り付けして、テストしてみてください。 Sub ie_Link_TEST() '1.調査したいURLをInputBoxで受け取ります(かなり手抜き・・・) Dim strURL As String '入…

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

VBA

…tube.com 【VBA】文字列を抜き出す 関数 Left,Mid,Right 【三流君】 - YouTube※プログラム講座や学習サイトあるあるで、 簡単なものは長く詳しく説明するんだけど、 難しくなってくると、短くわかりにくく説明する・・・ うまく説明できないので、あとはヘルプを見てくださいかな今回は、初級、簡単なので、 長く時間をかけてより丁寧に説明しますよ ぉぃぉぃ・・・ア.Left関数 文字列の左から文字を切り出したい時に使用、ほしい結果 = Left(元の文字列…

VBA,API,Sleep,処理待ち,テスト結果

VBA で 処理を待ちたかったので APIのSleepを使ってみたVBA Sleepで検索するとExcel VBA を学ぶなら moug モーグ | 即効テクニック | 指定時間だけ処理を中断する や Office TANAKA - Excel VBA Tips[CPUの使用率を抑える方法]が見つかるので、上記サイトを参考にして、Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)を頭に定義して 値 1…

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



Ken3 ホームページ 目次

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

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

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