Programing-VBS/VBA
例)A列でデータが入っている最後の行番号を取得する。 Cells(Rows.Count, 1).End(xlUp) 「Rows.Count」はシートの行数。バージョンによって異なる。
実行方法 VBSテンプレート 変数の宣言を強制させる 省略 演算子 定数 デバッグ 関連項目 外部リンク 実行方法 cscriput //nologo XXX.vbs nologo オプションを付けて実行時のバージョン情報を非表示にする ・主プログラムは途中で処理を抜けれるようにする為…
マクロ実行時の画面の更新を非表示にする。 Application.ScreenUpdating = False Application.ScreenUpdating = True 外部リンク Application.ScreenUpdating プロパティ (Excel) | Microsoft Docs
シートを削除する処理などを実行した際の 確認メッセージを非表示にする。 Application.DisplayAlerts = False Application.DisplayAlerts = True
Windows Script File(.wsf)とは、XMLフォーマットのファイルで、異なる種類のスクリプトを記述し、実行できる。 wsfファイルの中に直接コードを記述しても、外部ファイルを読み込んでも実行できる。 実行に最低限必要な要素は「job」と「script」要素。 <job id="job id"> <script language="VBScript" src="test.vbs"> </script></job>…
VBAで変数名を勝手に大文字・小文字に変えてくるのを防ぐには 変数を宣言すればよい。 Dim hogehoge
分岐(IF) 'IF If <条件式1> Then <処理1> ElseIf <条件式2> Then <処理2> Else <処理3> End If 繰り返し(Do) 'Do1 前判定-While Do While <条件式> <処理> Exit Do Loop 'Do2 後判定-While Do <処理> Exit Do Loop While <条件式> 'Do3 前判定-Until Do …
VBScriptでINIファイルの内容を取得する test.ini [Section1] key1=data1 key2=data2 key3=data3 [Section2] key4=data4 key5=data5 key6=data6 使い方 getINI("Section1","key1","test.ini") getINI("Section2","key5","test.ini") EOF
Set db = CreateObject("ADODB.Connection") db.ConnectionString = DSN=xxx;UID=sa;PWD=password db.Open sql = "SELECT * FROM table" Set rs = Execute(sql) Do Until rs.EOF rs.MoveNext Loop EOF
イミディエイトウィンドウ Debug.Printでプロシージャ実行中に、変数やプロパティなどの値を イミディエイトウィンドウに出力することができる EOF
Excelがインストールされている場合はExcelのほうがオススメ IEの機能を利用してファイル選択ダイアログからファイルパスを取得する Excelの機能を利用してファイル選択ダイアログからファイルパスを取得する EOF
パスやファイル名・フォルダ名を取得する ファイル・フォルダの有無を確認する フォルダ・ファイル一覧を取得する 外部リンク パスやファイル名・フォルダ名を取得する FileSystemObjectを利用して、様々なパスを取得するスクリプト 実行したスクリプトファ…
On Error Resume Next この行以降の処理はエラーが出ても無視して次の処理に移る On Error Goto 0 エラーを無視する範囲の終了 Err.Number この値が「0」であればエラーは発生していない。0以外の値であれば何らかのエラーが発生している。 Err.Clear 「Err.…
SubプロシージャやFunctionプロシージャでは引数を使って 呼び出すプロシージャに値を渡すことができる。 値の渡し方には「参照渡し」と「値渡し」の2種類ある。 明示的に指定しないと参照渡し(ByRef)になる。 参照渡し(ByRef): 呼び出し先のプロシージ…
Win32_Process プロパティ 意味 Description 実行ファイル名 ProcessId プロセスID EOF
VBAのメモ テーブルからSQLでレコードセットを取得する テーブルにレコードを追加する ボタンにVBAを割り当てる サブフォームを更新する フォームの非連結のテキストボックスに入力した値をテーブルに反映させる テキストボックスの値を初期化する 直前の動…
FileSystemObject テキストファイルを読み込む テキストファイルに書き込む テキストファイルを読み込む 概要 テキストファイルを読み込む VBS VBA テキストファイルに書き込む 概要 テキストファイルに書き込む 初回のみ、タイトル行を書き込む code opente…
使い方 shortcutadd.vbs と同じパスに list.txt を置き、実行する。 code list.txt
選択範囲に矢印を挿入する EOF
ユーザー定義関数が入力されているセルのアドレスを取得する方法は2つ ThisCellプロパティで取得する Function GetAddr() GetAddr = Application.ThisCell.Address(False, False, xlA1) End Function Callerプロパティで取得する Function GetAddr2() GetAdd…
Function ConvToBin(Number As Long) As String Dim binCnt As Long Dim DeciNum As Long 'Decimal Number Dim i As Long DeciNum = Number '累乗確認 binCnt = 0 While 2 ^ binCnt <= DeciNum ' <=(以下の場合) binCnt = binCnt + 1 Wend '2進数作成 For i …