Qiita Teams that are logged in
You are not logged in to any team

Log in to Qiita Team
Community
OrganizationEventAdvent CalendarQiitadon (β)
Service
Qiita JobsQiita ZineQiita Blog
0
Help us understand the problem. What are the problem?

[ShimaBlock]よく使うVBAコード

概要

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(エクセルマクロ)でよく使うコードまとめ

Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
0
Help us understand the problem. What are the problem?