VBAが使えたらもう少し仕事が楽になるんじゃないかと思って勉強したことまとめ２

はじめに

普段はpythonでopenpyxlを使ったりしてますが、もうちょっとVBAを使えたら便利だなと思ったので、勉強したことをまとめます。

前回までの記事

こちらが「VBAが使えたらもう少し仕事が楽になるんじゃないかと思って勉強したことまとめ１」が前回の記事になります。

文字の結合

文字の結合は、エクセル関数とほぼ同じです。
以下はC1にA1とB1を結合したものを入れています。

Cells(1, 3).Value = Cells(1, 1).Value & Cells(1, 2).Value

以下の書き方では、strどうしは問題ありませんが、intどうしだと加算されてしまうので、注意が必要です。

Cells(1, 3).Value = Cells(1, 1).Value + Cells(1, 2).Value
'ここでは深くふれませんが、このように四則演算も簡単にできます。

また以下のようにも結合することができます。

Cells(1, 3).Value = Cells(1, 1).Value & "hello"

ForNext構文

forループも簡単に各書くことができます。

Sub test1()
    Dim i
    Dim j
    Dim k

    For i = 1 To 10
        Cells(i, 1).Value = "hello"
    Next i

    For j = 1 To 10
        Cells(j, 2).Value = "world"
    Next j

    For k = 1 To 10
        Cells(k, 3).Value = Cells(k, 1).Value & Cells(k, 2).Value
    Next k
End Sub

デバッグ＞ステップイン＞F8で一つずつ実行していくことができます。

またステップを入れることで、１行飛ばしで処理ができます。

Sub test1()
    Dim i
    Dim j
    Dim k

    For i = 1 To 100 Step 2
        Cells(i, 1).Value = "hello"
    Next i

    For j = 1 To 100 Step 2
        Cells(j, 2).Value = "world"
    Next j

    For k = 1 To 100 Step 2
        Cells(k, 3).Value = Cells(k, 1).Value & Cells(k, 2).Value
    Next k
End Sub

DoLoop構文

普段は使っているpythonだとwhile文でループを書いているので、doっていうのはすこし慣れないです。。。

他の言語同様、ループ構文は、「真」である間に処理を行うものなので、演算子を知っておく必要があります。

比較演算子 意味
= 等しい
<> 等しくない

より大きい
= 以上
< より小さい
<= 以下
論理演算子 意味
And 論理積
Or 論理和
Xor 排他論理和
Eqv 論理等価
Imp 論理包含

演算子	内容
=	等しい
<>	等しくない
>	より大きい
>=	以上
<	未満
<=	以下

演算子	内容
and	論理積
or	論理和
not	論理否定
Xor	排他論理和
Eqv	論理等価
Imp	論理包含

Notは条件を満たさないとき真
Xorとは二つのうちどちらかが真の場合に真
Eqvとは両方満たすもしくは両方満たさない場合に真
※and　or　not以外はあまり使わない？

Sub 練習1()
    Dim i
    i = 1
    Do While i <= 10
    Cells(i, 1).Value = "hello"
        i = i + 1
    Loop
End Sub

最終列行の取得

まず覚えておきたいもの

ctrl + ↓：xlDown
Ctrl + ↑：xlUp

を踏まえて

最終行を取得するプログラムです

Cells(Rows.Count, 1).End(xlUp).Row　'後ろから数える
または
Cells(1, 1).End(xlDown).Row　'前から数える

以下のようにすることでメッセージBOXでポップアップされる

Sub test1()
    Dim LASTROW As Long

    LASTROW = Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox LASTROW & " 行目が最終行です。"
End Sub

同じ考え方で最終列を取得するプログラムです

Cells(1, 1).End(xlToRight).Column　'前から数える
または
Cells(1, Columns.Count).End(xlToLeft).Column '後ろから数える

以上を踏まえるとこんなことができる。エクセルのデータがあるところ全部に「test」の文字を入力。

Sub Get_LASTROW()
　　Dim LASTROW As Long
　　Dim LASTCOLUMNS As Long
　　
　　LASTROW = Cells（Rows.Count, 1）.End（xlUp）.Row
    LASTCOLUMNS = Cells(1,Columns.Count).End(xlToLeft).Column
　　Range（Cells（1, 1）, Cells（LASTROW, LASTCOLUMNS）).value = "test"
End Sub

長くなってきたので

また続きを記載します。