TOTO予想ソフトを作ってみよう　「登録」ボタンの設置　その2

TOTO予想ソフトを作ってみよう

Step 6 「クリア」ボタンの設置
入力データを消去するボタンを設置します。

シートコード

下記のコードを追加してください
'クリアボタン
Private Sub CommandButton2_Click()
    InputClear
End Sub

Private Sub InputClear()
    Range("F2") = ""
    Range("H2") = ""
    Range("F5:F17") = ""
    Range("H5:J17") = ""
End Sub

下記のコードに変更してください。
Private Sub InputDataSave(srow As String)
    Dim i As Integer
    Dim scell As String

    Sheets("戦績入力").Select

    Sheets("T戦績").Range(srow) = Range("F2")

    scell = A1Add(srow, 0, 1)
    Sheets("T戦績").Range(scell) = Range("H2")

    Range("F5").Select
    scell = A1Add(srow, 0, 2)
    For i = 0 To 12
        '入力したデータをコピー
        Range(ActiveCell.Offset(rowOffset:=i, columnOffset:=0), _
            ActiveCell.Offset(rowOffset:=i, columnOffset:=6)).Copy
        'ペースト
        Sheets("T戦績").Range(scell).Offset(0, i * 7).PasteSpecial _
            Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    Next

    Application.Goto Reference:=Sheets("T戦績").Range(srow), Scroll:=True

    Sheets("戦績入力").Select
    InputClear

    'コピーモードの解除
    Application.CutCopyMode = False
End Sub

戦績入力画面

	「クリア」ボタンを設置します。

Topへ