Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
796 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【78328】VBAの質問です。 VBA初心者 16/7/18(月) 17:49 質問[未読]
【78329】Re:VBAの質問です。 マナ 16/7/18(月) 18:33 発言[未読]
【78330】Re:VBAの質問です。 VBA初心者 16/7/18(月) 19:08 発言[未読]
【78331】Re:VBAの質問です。 マナ 16/7/18(月) 19:45 発言[未読]
【78332】Re:VBAの質問です。 VBA初心者 16/7/18(月) 20:07 発言[未読]
【78333】Re:VBAの質問です。 マナ 16/7/18(月) 20:41 発言[未読]
【78334】Re:VBAの質問です。 VBA初心者 16/7/18(月) 21:47 お礼[未読]
【78328】VBAの質問です。
質問  VBA初心者  - 16/7/18(月) 17:49 -
引用なし
パスワード
   今、VBAでプログラミングを行っているのですが、inputboxを使い、Aという質問に対し、間違っていれば「間違いです」と表示し、当っていればBという質問を表示させ、AとB両方当っていれば、「両方正解」、Aだけ当っていれば、「1つだけ正解」と表示させたいのですが、わかりません。
よろしくお願いしますm(__)m
【78329】Re:VBAの質問です。
発言  マナ  - 16/7/18(月) 18:33 -
引用なし
パスワード
   ▼VBA初心者 さん：

質問Aについて教えて下さい。
例えば、どんな質問でしょうか。
また答えは、自由回答、それとも選択式？
【78330】Re:VBAの質問です。
発言  VBA初心者  - 16/7/18(月) 19:08 -
引用なし
パスワード
   ▼マナ さん：
>▼VBA初心者 さん：
>
>質問Aについて教えて下さい。
>例えば、どんな質問でしょうか。
>また答えは、自由回答、それとも選択式？

質問Aは、重力加速度の値を有効数字2桁で書け。
質問Bは、仕事当量の値を有効数字2桁で書け。
どちらも記述式です。
【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
【78332】Re:VBAの質問です。
発言  VBA初心者  - 16/7/18(月) 20:07 -
引用なし
パスワード
   丁寧にありがとうございます。m(__)m
条件分岐というものを使って出来ないでしょうか!?
せっかく、書いてくださったのにすみません。
【78333】Re:VBAの質問です。
発言  マナ  - 16/7/18(月) 20:41 -
引用なし
パスワード
   ▼VBA初心者 さん：

select caseについて勉強したことないですか。
正答数が０、１、２のどれであるかで
メッセージを変えるように修正するとよいです。
わたしに出来るのはここまで。
【78334】Re:VBAの質問です。
お礼  VBA初心者  - 16/7/18(月) 21:47 -
引用なし
パスワード
   了解です。
ありがとうございました。m(__)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
796 / 13658 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free