|
| Menuへ |
| 基礎講座ソフトを作ってみよう |
Step 3 練習問題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
|
|
|
| j実行中の画面 |
「テスト用ボタン」をクリックすると、練習問題を表示し時間のカウントを開始します。
|
 |
|
|
|
時間切れ |
|
|
|
Topへ
|
■このサイトの内容を利用して発生した、いかなる問題にも一切の責任は負いませんのでご了承下さい。■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します。
Copyright (c) 2006 excel_ninpou All rights reserved. |
|