Excelで基礎講座ソフトを作ってみよう

Step 3 練習問題1を作ってみる

手順を説明するチュートリアル画面を表示させます。

Home > Excelでアプリケーションソフト > 基礎講座ソフトを作ってみよう > Step3 練習問題1を作ってみる


スポンサーリンク





シートコード

下記のコードを追加してください。

'練習問題1
Private Sub Ex1exercise()
    Dim tim As Long
    
    tim = 10
    Label2.Caption = "[ B10 ] セルに [ 125 ] と入力してください。"
    
    stTime = Timer
    'シートにフォーカス
    Sheet1.Range("B4").Select
    Do
        '経過時間の確認
        If ExTimeCheck(tim) Then
            '経過後の処理
            Label2.Caption = "時間切れです!!"
            Exit Do
        End If
    Loop Until endFlag = True
    'フォームにフォーカス
    UserForm1.Show
End Sub

下記のコードに変更してください。

'開始ボタン
Private Sub CommandButton3_Click()
    CommandButton1.Enabled = True
    CommandButton2.Enabled = True
    CommandButton3.Enabled = False
    Ex1exercise
    CommandButton1.Enabled = False
    CommandButton2.Enabled = False
    CommandButton3.Enabled = True
End Sub

スポンサーリンク



実行中の画面

「テスト用ボタン」をクリックすると、練習問題を表示し時間のカウントを開始します。


時間切れ




Home > Excelでアプリケーションソフト > 基礎講座ソフトを作ってみよう > Step3 練習問題1を作ってみる

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved