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

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

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


VBS の検索結果:

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

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

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

人力検索はてなの質問 q.hatena.ne.jp の 回答をライブ配信で作ろうとするが、ハマったお話です。 ※前半は、グダグダなので、ゆるしてください・・・PowerPoint VBA 二つのスライド 次ページ処理を同時に行う方法をライブ配信で探ってみた・・・ - YouTube www.youtube.comマクロのボタンを押すと、 立ち上がっている二つのスライド を 単純に次のページにするなら 18:32 のような処理でいいなら Sub next2() Applicat…

asp094.html 三流君ASP:2進数文字列と16進文字列の変換処理に挑戦

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>HEX16進文字列を受け取り2進数文字列を返す(例外エラー処理なし)</title> </head> <body> <h1>HEX16進文字列を受け取り2進数文字列を返す(例外エラー処理なし)</h1> 自作した16進数文字列から2進数文字列への変換ルーチンを…

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

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>FORM CHECKBOX NAME=を個別に作成(Ifの嵐でWhere句を作成)</title> </head> <body> <h1>FORM CHECKBOX NAME=を個別に作成(Ifの嵐でWhere句を作成)</h1> <FORM ACTION="…

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

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>HTML FORM SELECT OPTION の 入力(選択)テスト</title> </head> <body> <h1>HTML FORM SELECT OPTION の 入力テスト</h1> <hr> <b>フォームから送られて来た値を表示します</b…

asp091.html 三流君ASP:ADO CSVでReadOnly=0と.AddNewを使いデータ追加

…@LANGUAGE=VBScript%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ADOでReadOnly=0と…

asp090.html 三流君ASP:ADO CSVで先頭行にフィールド名が無い時

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ADO Extended Properties='text;HDR=NO' でヘッダー無しCSVと接続</title> </head> <body> <h1>ADO Extended Properties='text;HDR=NO' でヘッダー無しCSVと接続…

asp089.html 三流君ASP:SQL 集計関数MAXと副問い合わせ(サブクエリー)

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL MAX関数 MAX(項目名) で 最大値を求める</title> </head> <body> <h1>SQL MAX関数 MAX(項目名) で 最大値を求める</h1> <pre> Select MAX(ID), MAX([no]), MAX(金額)…

asp088.html 三流君ASP:SQL HAVING句でSUMした値をチェックする

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL Select Where (項目1+項目2..) > 0 を入れ、0円をハジク</title> </head> <body> <h1>SQL Select Where (項目1+項目2..) > 0 を入れ、0円をハジク</h1> <pre> Sele…

asp087.html 三流君ASP:ADO SQL Like演算子で部分検索する

…@LANGUAGE=VBScript%> <% qqq = Trim(Request.QueryString("q")) 'パラメータ %> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL SELECT WHERE句で Like演算子を使用して部分検索する <%=qqq%></title> </head> <body> <h1>SQL SE…

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

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>Ubound(配列,1)とUbound(配列,2)をテストする</title> </head> <body> <h1>Ubound(配列,1)とUbound(配列,2)をテストする</h1> test086-1.asp<br> Dim BOX(12,5) と宣…

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

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ADOでExcel(*.xls)に接続 .GetRowsで全件読み込んでみた</title> </head> <body> <h1>ADOでExcel(*.xls)に接続 .GetRowsで全件読み込んでみた</h1> test085-1.asp<br> AS…

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

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ADOでExcel(*.xls)に接続 [Sheet1$]で列名無しテスト</title> </head> <body> <h1>ADOでExcel(*.xls)に接続 [Sheet1$]で列名無しテスト</h1> test084-1.asp<br> ASPか…

asp083.html 三流君ASP:Select TOP 20 と Select Top n PERCENT で遊ぶ

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL文 Select TOP 20 でGroup化集計値のTOP20を作成</title> </head> <body> <h1>SQL文 Select TOP 20 でGroup化集計値のTOP20を作成</h1> test083-1.asp<br> <h…

asp082.html 三流君ASP:ページ単位の表示にチャレンジしてみた

…@LANGUAGE=VBScript%> <% '頭でページのパラメータをチェックする nPAGE = Cint("0" & Request.QueryString("page")) If nPAGE = 0 Then 'パラメータ無しなら強引に1ページにする nPAGE = 1 End IF %> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <META N…

asp081.html 三流君ASP:Split関数で複数キーワードをスペースで分解する

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>キーワード分解 Replace関数とSplit関数とUBound関数</title> </head> <body> <h1>キーワード分解 Replace関数とSplit関数とUBound関数</h1> test081-1.asp<br> スペースで区切って好…

asp080.html 三流君ASP:Microsoft Text Driver (*.txt; *.csv) で接続してみた

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ADO Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=で接続</title> </head> <body> <h1>ADO Driver={Microsoft Text Driver (*.txt; *.c…

asp078.html 三流君ASP:Server.URLEnCodeで文字列をエンコードする

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>Server.URLEnCodeを使い、エンコードして表示する</title> </head> <body> <h1>Server.URLEnCodeを使い、エンコードして表示する</h1> <br> Server.URLEnCode(文字列)でエンコードした…

asp077.html 三流君ASP:SQL AS演算子で別名管理

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>Null AS DUMMY商品名とダミーの項目を作り列数を合わせる</title> </head> <body> <h1>Null AS DUMMY商品名とダミーの項目を作り列数を合わせる</h1> <pre> UNIONで表をつなげる時、列数が合わないとエラ…

asp076.html 三流君ASP:小計・合計の表示、SQLで小細工の嵐(笑)

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL UNION ALL テーブルの形をそろえて対応</title> </head> <body> <h1>SQL UNION ALL テーブルの形をそろえて対応</h1> マスターテーブルとリンクして商品名を取り込むと、<br> 集計用のSQLとテーブルの…

asp075.html 三流君ASP:SQL UNION演算子 で 表をつなげたレコードセットの作成

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL Group By Left([商品CD], 1) で小計を計算する</title> </head> <body> <h1>SQL Group By Left([商品CD], 1) で小計を計算する</h1> 商品CDの頭1桁目でグループ化して、小計を計…

asp074.html 三流君ASP:演算フィールドを作成する

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL 演算フィールドのテスト SQL文でLeft関数使用</title> </head> <body> <h1>SQL 演算フィールドのテスト SQL文でLeft関数使用</h1> 商品CDの一桁目を(左から1文字を)GroupCDにする。<br> strS…

asp073.html 三流君ASP:テーブルをつなげて商品名を取得する方法

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL From句にテストで2つのテーブルデータを指定(つなげない)</title> </head> <body> <h1>SQL From句にテストで2つのテーブルデータを指定(つなげない)</h1> なにも条件を指定しないで、2つのテーブルをFrom句に書…

asp072.html 三流君ASP:小計・合計の表示、大昔の方法(笑)

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>テストでテーブル内の全データを表示してみる</title> </head> <body> <h2>テストでテーブル内の全データを表示してみる</h2> Set rs = db.Execute("Select * From T_月別売上")<br> と、全ての項…

asp071.html 三流君ASP:FileSystemObjectの.DeleteFileでファイル削除

ASP

…@LANGUAGE=VBScript%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>FileSystemObjec…

asp070.html 三流君ASP:SQL Select DISTINCT キーワードで重複結果の出力をハジク

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>SQL Select DISTINCT キーワードを 使用してみる</title> </head> <body> <h1>SQL Select DISTINCT キーワードを 使用してみる</h1> test070-1.asp<br> <hr> cnt.mdb…

asp069.html 三流君ASP:FileSystemObjectの.GetTempName(一時ファイル名作成)

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>FileSystemObjectの.GetTempName(一時ファイル名を作成する)</title> </head> <body> <h2>一時ファイル名を作成する<br>FileSystemObjectの.GetTempName</h2> <b>FileS…

asp067.html 三流君ASP:FileSystemObjectの.GetFolderを使用

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>ディレクトリ内のファイル一覧を表示する FileSystemObjectの.GetFolder</title> </head> <body> <h2>ディレクトリ内のファイル一覧を表示する<br>FileSystemObjectの.GetFolder</h2>…

asp065.html 三流君ASP:配列の復習、2次元配列、Array関数で配列の初期化

ASP

…@LANGUAGE=VBScript%> <html> <head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis"> <title>配列にメッセージを代入して使う</title> </head> <body> <h2>配列にメッセージを代入して使う</h2> If文の羅列から、配列を使用した処理に変更してみた。<br> ポイントは、<br> Dim nMSGNO <Font Color='…

asp066.html 三流君ASP:クッキーを使ってみた Request.Cookies

ASP

…@LANGUAGE=VBScript%> <% 'ユーザー名が送られていたら、クッキーにセットする D = Request.QueryString("UNAME") 'データを代入 If Len(D) <> 0 Then 'データあり Response.Cookies("USERNAME") = D '名前の代入 '期限のセット Response.Cookies("USERNAME").Expires = DateAdd("d", 7, Date) End If %> <ht…

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



Ken3 ホームページ 目次

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

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

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