配列テスト

Sub 配列テスト()

Dim i As Integer

Dim a(5) As String

a(1) = "あ"

a(2) = "い"

a(3) = "う"

a(4) = "え"

a(5) = "お"

For i = 1 To 5

    Cells(i, 1).Value = a(i)

Next i

End Sub

「・」が入っていたら背景を黄色にする(外字は判定出来ない)

Sub Macro2()

Dim i As Integer

Dim 最終行 As Integer

最終行 = 10

    'P3_5.氏名列が文字化けしていないか確認()

    Worksheets(1).Select

    For i = 2 To 最終行

        If Cells(i, 1) Like ("*・*") Then

                With Cells(i, 1)

                    .Interior.Color = RGB(255, 255, 0) '背景色を黄色にする。

                End With

        End If

    Next i

End Sub

Left関数、Right関数を使って文字の挿入。例)「年」、「組」

Sub Macro1()

Dim i As Integer

Dim 値 As String

For i = 2 To 15
'値にLike演算子を使って、2文字かそれ以外かを判定している。

値 = Cells(i, 1) Like "??" '2文字だとTrue、それ以外(1文字)だとFalse

    If 値 = True Then

        Cells(i, 1).Value = Left(Cells(i, 1), 1) & "年" & Right(Cells(i, 1), 1) & "組"

    Else

        Cells(i, 1).Value = Left(Cells(i, 1), 1) & "年"

    End If

Next i

End Sub