・VBA

【VBA】サンプル(Excelを開いて値を集計する)

Sheet1にコードを記載 Private Sub CommandButton1_Click() 'エラーメッセージ Dim colErrMsg As New Collection '「メイン」シート Dim sheetMain As Worksheet Set sheetMain = ThisWorkbook.Sheets("メイン") '「集計結果」シート Dim sheetResult As Wor…

【VBA】複数値の格納パターン

配列+Type コレクション+クラス Recordset 配列+Type ※ForEach不可 ※Typeは標準モジュールに定義すること Type typPerson id As String name As String End Type Sub test() Dim person() As typPerson ReDim person(1 To 1000000) Dim i As Long For i =…

【VBA】CSV読み込みまとめ

用途 OpenForInput ADO schema.iniを使用しない場合 schema.iniを使用する場合 QueryTable 用途 【Open For Input】 ・一番簡素で早くしたいとき ・行数を把握できるとき ※配列の要素数を事前に設定必要のため ・文字コードがSJISのとき ・カンマ区切りのと…

【VBA】クラスの使いみち

point・パラメータを持つ場合・パラメータにあらかじめ値を設定したい場合(コンストラクタ)

【VBA】クラス

定義方法 使用方法 定義方法 Class1 'プロパティ Private p_Name As String 'プロパティプロシージャ Property Get Name() As String Name = p_Name End Property Property Let Name(value As String) p_Name = value End Property 'コンストラクタ Private …

【VBA】値渡し(ByVal)と参照渡し(ByRef)

概要 参照渡し(ByRef) 値渡し(ByVal) 概要 ・引数の値が書き換え可能かどうか ・参照渡し(ByRef) ⇒ 書換可 ・値渡し(ByVal) ⇒ 書換不可 ・省略時は参照渡し(ByRef) で書換可 参照渡し(ByRef) Sub Test() Dim hoge As String: hoge = "初期値" Call TestByRef…

【VBA】プロパティクラス

プロパティクラスの定義 使用方法 プロパティクラスの定義 ClsPeron Private myName As String Private myAge As String 'コンストラクタ Private Sub Class_Initialize() myName = "名前" myAge = "0" End Sub '名前を取得 Public Property Get Name() As S…

【VBA】DOM

参照設定 メソッド 基本 Form Link 参照設定 メソッド innerText 表示上のテキストを取得 outerHtml 自身と中身のHTMLを取得 innerHtml 中身のHTMLを取得 Value 表示上のテキストを扱う(変更等で使う) Submit Formをsubmitする Reset Formの値をリセットする…

【VBA】アドイン

参照設定 重複確認 Insert文作成 セル位置整頓 プロパティメーカー アドイン追加方法 参照設定 Microsoft ActiveX Data Objects 6.1 Library Microsoft Scripting Runtime 重複確認 '◆重複をファイル出力(単一項目) Sub 重複確認() '**********************P…

【VBA】テクニック

オブジェクト格納 セルのカタマリ取得 Excel関数を使用する Rangeからシート名、ブック名取得 画面更新を止める(処理高速化) ステータスバーに文字を表示 セルの値をクリア 行単位(最終行まで) 列と行指定 シート全体 セル内容をコピペ エラートラップ(On…

【VBA】応用

変数の宣言強制 ファイル操作 ブック操作 新規~保存 開いている全ブック名取得 ブックの全シートを検索する シート操作 セル操作 日時 Me 変数の宣言強制 Option Explicit オプションで設定すると自動的に入力されるようになる ファイル操作 パスを指定しな…

【VBA】Recordset

参照設定 基本 フィールド ソート フィルター 検索 ブックマーク 参照設定 Microsoft ActiveX Data Objects 2.8 Libraryを追加 基本 Dim rs As New ADODB.Recordset 'フィールドを設定 With rs.Fields .Append "ID", adInteger, 4 .Append "名前", adVarWCha…

【VBA】DB操作

準備 参照設定 ODBC設定(必須ではない) 接続情報 PostgreSQL ORACLE SQL発行 Select Insert / Delete パラメータを使用 直接更新 Insert 準備 参照設定 Microsoft ActiveX Data Objects 6.1 Libraryを追加 ODBC設定(必須ではない) 例はPostgreSql1.ODBC…

【VBA】基本

変数 定数 配列 コメント IF文 IIF Like Select文 For文 For Each文 While文 Until文 With Exit End プロシージャ Sub Function Enum Type Collection Dictionary GoTo 変数 ' 定義 Dim sample As Integer Dim sample As Long Dim sample As Double Dim samp…