2021-06-20から1日間の記事一覧

vba：検証用ソース

sheet1 Sub SetData() ' 画面を初期化 Rows("1:19").Select Selection.Delete Shift:=xlUp ' 列の選択状態を解除 Sheet1.Range("A1").Select ' 実行ボタンを生成 With ActiveSheet.Buttons.Add(Range("B5").Left, _ Range("B5").Top, _ Range("B5:D5").Width…

#vba #検証 #ソース

vba：Recordset：SQLで最大値を取得して、Recordsetから取り出す

多分、カラム名を指定しての方が良い気がする。 Dim sqlStr As String sqlStr = "select max(line_limit) as maxLineLimit from line" 'Debug.Print sqlStr Dim rs As Recordset Set rs = dbUtil.ExeSelect(sqlStr) ' 最大値を取得 ' Dim maxLineLimit As Lo…

#vba #recordset

vba：format

こちらのサイトが見やすい！ kosapi.com Public Function ConvertNumberFormat(ByVal num As Long, ByVal formatNo As Long) As String Select Case formatNo Case 1 ConvertNumberFormat = format(num, "General Number") ' 10000 --> 10000 Case 2 Convert…

#vba #format

vba：EXCELSQL（エラー出力を実装）

sheet1 Sub SetData() ' 画面を初期化 Rows("1:19").Select Selection.Delete Shift:=xlUp ' 列の選択状態を解除 Sheet1.Range("A1").Select ' 実行ボタンを生成 With ActiveSheet.Buttons.Add(Range("B5").Left, _ Range("B5").Top, _ Range("B5:D5").Width…

#vba #excelsql #課題

vba：CommonUtil

呼び出しは、こんな感じ ' ===================== ' 開始処理 ' ===================== Dim comUtil As CommonUtil Set comUtil = New CommonUtil comUtil.ExeInit クラス：CommonUtilで実装 Option Explicit Public Sub ExeInit() With ActiveWorkbook.Appl…

#vba #CommonUtil #parts

vba：エラー処理

クラス：LogUtilで実装 エラーまでをがっつり実装するメリットがあまりない気がする。 Option Explicit '----------------------------------------------------- ' エラーログをファイルに出力する ' 出力先は、実行ファイルと同様のフォルダ、出力先のフォ…

#vba #error #エラー #parts