' [063.xls]



' [Module1] のコード
'★★☆　作業内容に合わせてマウスカーソルを変更する　☆★★

Option Explicit

Dim i As Integer
Const h = 10 '作業時間の長さを設定

Sub start()
    
    If [D8] = "" Then
    
        [E13] = "オプションボタンのどれかを選択して下さい"
        Exit Sub
    
    End If
    
    [E13] = "作業中"
    Select Case [D8]
    
        Case 1
        
            Application.Cursor = xlIBeam
            マクロ1
        
        Case 2
        
            Application.Cursor = xlWait
            マクロ2
        
        Case 3
        
            Application.Cursor = xlNorthwestArrow
            マクロ3
        
    End Select
    
    [D7:D8,E13] = ""
    Application.Cursor = xlDefault

End Sub

Sub マクロ1()

    '実際にはここで各種作業をします
    For i = h To 0 Step -1
        [D7] = i
        Application.Wait (Now() + TimeValue("00:00:01"))
    Next i
    
End Sub

Sub マクロ2()

    '実際にはここで各種作業をします
    For i = h To 0 Step -1
        [D7] = i
        Application.Wait (Now() + TimeValue("00:00:01"))
    Next i

End Sub

Sub マクロ3()

    '実際にはここで各種作業をします
    For i = h To 0 Step -1
        [D7] = i
        Application.Wait (Now() + TimeValue("00:00:01"))
    Next i
    
End Sub