EXCELでプログラム処理をしたいです。

質問

下記の条件で
プログラム処理をしたいです。
　(1)出題文章どおりにＩＰさせてその時間を測る。
　(2)出題通りのＩＰでなければ先には進めない。
　(3)10問完了した時点の分秒をタイマー表記。
　　昔ベーシックでは可能でした。
Excelの IF 関数でプログラム
出来そうなんですが？？
　識者様教えて頂けませんでしょうか？

回答No.1

KURUMITO · ベストアンサー

単なる関数では対応できませんね。マクロになるでしょう。
例えば次のような表にします。
A2セルからA11セルまでに10問の出題文章を入力しておきます。そこでB列に出題通りの文章を入力させ、A列の文書とB列の文章が一致した時には最初からの経過時間をC列に表示させることにします。
B1セルには次のような文章を入力しておきます。

「ここをクリックしてから作業を始めてください。」

このB1セルをクリックすることで時間の計測が始まるようにします。
そこでマクロの設定ですが該当のシート見出しを右クリックして「コードの表示」を選択します。
表示の画面には次のコードを入力します。

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target = Range("B1") Then
Range("C1") = Time
Range("B2:C11") = ""
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
On Error Resume Next
If Target.Column <> 2 And Target.Row = 1 Then Exit Sub
If Target.Value = Cells(Target.Row, 1).Value And Cells(Target.Row - 1, 3) <> "" Then
Cells(Target.Row, 3) = Time - Range("C1").Value
End If
End Sub

回答No.2

KURUMITO

回答No1です。
マクロでDim i As Integerは必要なかったですね。削除して使用してください。