VBA

VBA

VBAで#N/Aかどうか判断する方法

VBAで#N/Aかどうか判断する方法
VBA

VBAでfor文やマイナスするfor文の書き方

VBAでfor文やマイナスするfor文の書き方 VBAでfor文やマイナスするfor文の書き方についてです。 基本的には以下のように記述します。 For i = 1 To 10 ' 処理 Next 逆にカウンタ変数を減らした...
VBA

VBAでピボットを折りたたみしたり展開したりする方法

VBAでピボットを折りたたみしたり展開したりする方法です。 以下は指定したフィールド名を全て折りたたむ例です。 ActiveSheet.PivotTables("ピボットテーブル名").PivotFields("フィールド名").S...
VBA

VBAで書式設定する方法や表示した値を取得する方法

VBAで書式設定する方法や表示した値を取得する方法です。 書式設定はNumberFormatとNumberFormatLocalの2種類で設定できます。 例えば日付形式を設定したい例です。 Sheets("シート名").Ran...
VBA

VBAでシートをアクティブにする方法や列を選択する方法

VBAでシートをアクティブにする方法です。 Sheets("シート名").Activate 列を選択する方法ですが、シートをアクティブにしてからじゃないと上手く選択できませんでした。 以下、シートをアクティブにしてそのシートの列を...
VBA

VBAでシートから別シートにコピーする方法

VBAでシートから別シートにコピーする方法です。 A1セルからE10セルを別シートにコピーする例です。 Sheets("シート名").Range("A1:E10").CurrentRegion.Copy Sheets("別シート名"...
VBA

VBAでワークシートの最終行を取得する

VBAでワークシートの最終行を取得する方法です。 Dim maxRow As Long maxRow = Sheets("シート名").Range("A1").End(xlDown).Row これでシート名のA1セルの一番下までの行数...
VBA

VBAで行列を非表示にする

VBAで行を非表示にするにはHiddenプロパティを使用します。 Sub macro() Rows("2:5").Hidden = True End Sub Rowsで行範囲を指定します。上記では2行目から5行目を指定し、Trueに...
VBA

VBAで配列をループする

VBAで配列をループする VBAで配列をループします。 Sub macro() Dim arr() As String arr = Split("aa;bb;cc",";") For Each i In arr Ms...
VBA

VBAでサブフォルダを操作する

VBAでサブフォルダを操作する VBAで指定したフォルダのオブジェクトはGetFolderメソッドで操作します。 Sub macro() Dim fso As Object Set fso = CreateObject("Scr...
VBA

VBAでブックを開く

VBAでブックを開く VBAでエクセルブックを開くには、Openメソッドを使用します。 指定したファイルが存在しない場合はエラーとなります。以下では読み取り専用にはしていません。 Sub macro() Dim wk As Wor...
VBA

VBAでブックを閉じる

VBAでブックを閉じる VBAでエクセルブックを閉じるには、Closeメソッドを使用します。 保存するか確認ダイアログを表示せずに閉じるには、Application.DisplayAlerts = Falseにします。 Sub mac...
VBA

VBAで表示倍率を100%にする

VBAで表示倍率を100%にする
VBA

VBAで改ページプレビューと標準にする

VBAで改ページプレビューと標準にする VBAで改ページプレビューと標準にするにはActiveWindow.Viewを変更します。 xlPageBreakPreviewでプレビューモードにします。 Sub macro() Acti...
VBA

VBAでセル位置をA1にする

VBAでセル位置をA1にする VBAでセル位置をA1にするにはSelectメソッドでセル位置を指定します。 Sub macro() ActiveSheet.Range("A1").Select End Sub
VBA

VBAでフォルダ名を変更する

VBAでフォルダ名を変更する
VBA

VBAでファイルを移動する

VBAでファイルを移動する
VBA

VBAでフォルダをコピーする

VBAでフォルダをコピーする VBAでフォルダをコピーするには、copyFolderを使います。第一引数がコピー元フォルダ、第二引数がコピー先フォルダになります。 Sub macro() Dim fso As Object Se...
VBA

VBAでファイルをコピーする

VBAでファイルをコピーする VBAでファイルをコピーするには、copyFileを使います。第一引数がコピー元ファイル、第二引数がコピー先ファイルになります。 Sub macro() Dim fso As Object Set ...
VBA

VBAでファイルの存在を調べる

VBAでファイルの存在を調べる VBAでファイルの存在を調べるには、fileExistsを使います。存在する場合はtrue,存在しない場合はfalseを返します。 Sub macro() Dim fso As Object Se...
VBA

VBAでフォルダの存在を調べる

VBAでフォルダの存在を調べる VBAでフォルダの存在を調べるには、FolderExistsを使います。存在する場合はtrue,存在しない場合はfalseを返します。 Sub macro() Dim fso As Object ...
VBA

VBAでシートを移動する

VBAでシートを移動する VBAでシートを移動するには、SheetsオブジェクトのMoveメソッドを使用します。 以下では、一番目のシートを三番目のシート直前に移動します。 Sub macro() Sheets(1).Move S...
VBA

VBAでシートを追加する

VBAでシートを追加するには、Sheetsオブジェクトのaddメソッドで追加することができます。 Sub macro() Sheets.Add End Sub 以下のようにsheet4が追加されています。 シート位置を指定...
VBA

VBAでTypeステートメントを使用してユーザ定義型を宣言する

VBAでTypeステートメントを使用してユーザ定義型を宣言する事ができます。 プロシージャの外(モジュールの一番先頭)で宣言します。デフォルトではprivateなのでモジュール内でのみ使用できます。 Type cls name...
VBA

VBAのString型の文字列長を*で指定する

VBAのString型の文字列長を*で指定することができます。 通常は以下のように指定します。 Dim str As String これに、「* 文字列長」を追記すれば文字列長を指定することが可能です。 Dim str As S...
VBA

VBAのTypeName関数で型を調べる

VBAのTypeName関数で型を調べる事ができます。 以下のように記述します。 Sub macro() Dim a As Long Dim b As String Dim c As Double Debug.Print T...
VBA

VBAでHiddenプロパティを使用して行の表示非表示を切り替える

VBAでHiddenプロパティを使用して行の表示非表示を切り替えることができます。 Rangeオブジェクト.Rows.Hiddenをtrueにすると非表示になります。以下、例です。 Sub macro() Dim rng As...
VBA

VBAでWorksheetsオブジェクトを使用して全シートを取得する

VBAで全シートを取得するにはWorksheetsオブジェクトで簡単に取得することができます。 Sub macro() For Each ws In Worksheets Debug.Print ws.Name Ne...
VBA

VBAの動的配列とReDim Preserve

VBAには動的配列があると言いました。 動的配列はReDimステートメントを使用して配列の要素数を変更することができますが、再度、要素数を変更すると全要素は破棄されます。以下、例です。 Sub macro() Dim arr(...
VBA

VBAの動的配列とReDim

VBAには動的配列と言うのが存在します。 宣言方法は以下のように宣言します。 Dim arr() As Variant 動的配列の初期化はArray関数を使用して以下のように初期化することができます。 Array関数で初期化...
タイトルとURLをコピーしました