Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4031 / 76734

←次へ　｜　前へ→


	【78331】Re:VBAの質問です。

マナ - 16/7/18(月) 19:45 -


	引用なし

	パスワード

▼VBA初心者さん：

作業用シートを使う案です。
質問Aだけの例です。
使えそうであれば修正してご使用ください。

１行目に質問文を入力しておきます。
２行目に正解を入力しておきます。
３行目は、空欄で回答入力用です。
４行目には計算式を入力してきます。
例えば、A4:=(A2=A3)*1

Option Explicit

Sub test()
　　Dim ws As Worksheet
　　Dim 問1 As String
　　Dim 答1
　
　　Set ws = Sheets("Sheet1")
　　ws.Rows(3).ClearContents
　　
　　問1 = ws.Cells(1, 1).Value
　　答1 = Application.InputBox(問1, Type:=1)
　　
　　If VarType(答1) = vbBoolean Then Exit Sub
　　
　　ws.Cells(3, 1).Value = 答1

　　MsgBox "正答数：" & WorksheetFunction.Sum(ws.Rows(4))
　　
End Sub

6 hits

▼

【78328】VBAの質問です。 VBA初心者 16/7/18(月) 17:49