2023-01-01から1年間の記事一覧

指定範囲内のセルに情報が入っているか調べる

CountBlank関数を使って対象のレコードに情報が入っているか調べる Sub AAA()MsgBox WorksheetFunction.CountBlank(Range(Cells(1, 1), Cells(1, 8)))End Sub

VBA ブックを開いたとき自動実行する

ブックを開いたとき、自動実行させるVBAには イベントマクロのWorkbook_Openと通常のAuto_Openがあります。Workbook_Openは、VBE「Microsoft Excel Objects]内の「ThisWorkbook」に記述し、一方、Auto_Openは標準モジュールに記述します。

For 〜NextとCaseの組合せ

繰り返し作業の中で別の場所を参照したい場合 For a = 25 To 37 Step 2 Select Case a Case 25: b = 7 Case 27: b = 11 Case 29: b = 15 Case 31: b = 17 Case 33: b = 19 Case 35: b = 21 Case 37: b = 23 End Select

Replaceの使用例

ユーザーフォームで指定したセルの値がが該当の値の時置き換える Check_Row = Val(Label10)Check_Column = Val(Label11) Sheets(1).Cells(Check_Row, Check_Column).Replace What:="△", Replacement:="▲" Sheets(1).Cells(Check_Row, Check_Column).Replace …