Sub お金を入れたときの処理()

    Dim money_in As Integer
    Dim price1 As Integer
    Dim price2 As Integer
    
    
    '投入金額を取得する。
    money_in = Worksheets("自動販売機").Cells(13, 7).Value
    
    '商品の値段を取得する。
    price1 = Worksheets("自動販売機").Cells(5, 3).Value
    price2 = Worksheets("自動販売機").Cells(5, 4).Value
    
    '商品1の購入可能の判断　可能ラン点灯の判断
    If money_in >= price1 Then
    
         '購入可能（セルを黄色にする）
          Worksheets("自動販売機").Cells(3, 3).Interior.Color = RGB(255, 255, 0)
          
     Else
         '購入不可（セルを白色にする）
          Worksheets("自動販売機").Cells(3, 3).Interior.Color = RGB(255, 255, 255)
   
    End If
    
     
End Sub