Question

H.K.S

なぜかうまく行きません！
ほんとは変数Gが3になるようにしたいです！
誰か教えてください

得点が30点未満の時は変数Glに 1,  30点以上50点未満の
時はら, 50点以上の時は3を代入して表示する手順を, 又間

とフローチャートで示しなさい。
⑧例題ので, tokutenに一1が入力された時 表示しないで終

了する処理を追加し, 文意とフローチャートで示しなさい:

EEE                                        。こnlU

回ウロの記録
3     関 相対参照で記録   谷  サ
Basic マロ            アド Excel G
MM マクカロのセキュリティ   イン アドイン
トド                アドイン

 

ISheet1 Wiarkshegt

_llEnablePvotT

 
  
   
   
 
  
                                                                                                                                                                                                                                           

て 」 Microsoft Visual Basic for Applications - 82 確認問題sm
プアイル(P) 編集(E) 表示(V 挿入り 再式(O) デルッグ(D) 実行(R)

 

MD
図国・品    鉛 の  ) り am ZIS 村 写 | @
12ェクト -vaAroed XX
回 国|正  |

 

 

 

日 遇 VBAProjct (82
日 久 Microsaft Excal

暴] heet1 (8

ThsWorktno 帳

  

        
 

5 As Integer
1

ls(1, 2).Walue

   
 
   
    

ド

<= 得点|く< 50 Then

                                                                                                                                                                                                             
 
  

 

(2に衣2
Elself 得点 >= 50 Then
G = 3
End f
Cells(2, 2).Value = 6
End Sub

全体 | 項目別|

(オ      小名Shestt
IDisplayPags日False
IDisplayRightTIFalsg
Enable AutoFilFalse
EnableOalculaT ru
EnableFormatTrue
IEnaleOutlini

EnableBelecti

Answer 1

✨ 最佳解答 ✨

Baron

30<=得点<50
は２つに分けて、And でつなぎます。
30<=得点 And 得点<50

H.K.S

ありがとうございます！！
申し訳ないんですが
1枚目の写真の2番も分からないので教えていただけるとありがたいです！

Baron

方法はいくつかあるのですが、
一番単純なのは、
現在のIf 文の上にもう一つIf 文のブロックを追加することです。
If 得点=-1 Then
Exit Sub
End If

H.K.S

ありがとうございます！！