LoginSignup
0
0

More than 3 years have passed since last update.

[ShimaBlock]よく使うVBAコード

Last updated at Posted at 2021-06-01

概要

ShimaBlock for VBAの操作サンプルです。
ExcelVBAでよく使うVBAコードをShimaBlockでやってみました。

使用サイト:ShimaBlock for VBA

データの入っている最終行(ブロック)

1列目のデータが入っている最終行を取得する場合は、以下のようにブロックを配置します。
image.png

データの入っている最終行(生成コード)

Sub Main()
    Dim lastRow
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
End Sub

データの入っている最終列(ブロック)

1行目のデータが入っている最終列を取得する場合は、以下のようにブロックを配置します。
image.png

データの入っている最終列(生成コード)

Sub Main()
    Dim lastCol
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

すべてのブックに同じ処理を行う(ブロック)

すべてのブックに同じ処理を行う場合は、以下のようにブロックを配置します。
すべてのブックに対し、閉じる処理を入れています。
image.png

すべてのブックに同じ処理を行う(生成コード)

Sub Main()
    Dim wb As Workbook
    For Each wb In Workbooks
        wb.Close
    Next wb
End Sub

すべてのシートに同じ処理を行う(ブロック)

すべてのシートに同じ処理を行う場合は、以下のようにブロックを配置します。
マクロ実行ブックのすべてのシート名を確認し、シート名が「Sheet1」の場合は、「シート1」に変更する処理を入れています。
image.png

すべてのシートに同じ処理を行う(生成コード)

Sub Main()
    Dim ws As Worksheet
    For Each ws In ThisWorkBook.Worksheets
        If ws.Name = "Sheet1" Then
            ws.Name = "シート1"
        End If
    Next ws
End Sub

サンプルコード参照サイト

以下のサイトのコードを参考に、ShimaBlock for VBAでコーディングしてみました。
VBA(エクセルマクロ)でよく使うコードまとめ

0
0
0

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
0
0