セルにデータを入力する

今回はセルへの入力についてメモしておきます。

実行プログラム

Sub Sample4_4_1()

    Dim i  As Integer

    Cells(1, 4).Value = "日付：" & Format(Now, "Long Date")  ' 文字の入力
    
    ' Score
    For i = 2 To 6
        Cells(i, 2).Value = Int((101) * Rnd)  ' 数値の入力
    Next

    ' Rank
    Range(Cells(2, 3), Cells(6, 3)).Formula = "=RANK(B2,$B$2:$B$6,0)"  ' 数式の入力

End Sub

Sub Sample4_4_1()

Dim i As Integer

Cells(1, 4).Value = "日付：" & Format(Now, "Long Date") ' 文字の入力

' Score

For i = 2 To 6

Cells(i, 2).Value = Int((101) * Rnd) ' 数値の入力

' Rank

Range(Cells(2, 3), Cells(6, 3)).Formula = "=RANK(B2,$B$2:$B$6,0)" ' 数式の入力

End Sub

実行前

実行後