Sub kingaku1()
   Dim kosu As Integer
   Dim syohin As String
    
   syohin = InputBox("商品名を入力してください")
   kosu = InputBox("個数を入力してください")

   Range("c5").Value = syohin
   Range("d5").Value = kosu

   Select Case syohin
   Case "アンパン"
      If kosu <= Range("k4").Value And kosu >= 0 Then
        Range("e5").Value = kosu * Range("j4").Value
      Else
        Range("e5").Value = "エラー"
      End If
    Case "食パン"
      If kosu <= Range("k5").Value And kosu >= 0 Then
        Range("e5").Value = kosu * Range("j5").Value
      Else
        Range("e5").Value = "エラー"
      End If
    Case "カレーパン"
      If kosu <= Range("k6").Value And kosu >= 0 Then
        Range("e5").Value = kosu * Range("j6").Value
      Else
        Range("e5").Value = "エラー"
      End If
     Case Else
        Range("e5").Value = "エラー"
   End Select
End Sub
Sub kingaku2()
   Dim kosu As Integer
   Dim syohin As String
    
   syohin = InputBox("商品名を入力してください")
   kosu = InputBox("個数を入力してください")

   Range("c5").Value = syohin
   Range("d5").Value = kosu

   If syohin = "アンパン" Then
      If kosu <= Range("k4").Value And kosu >= 0 Then
        Range("e5").Value = kosu * Range("j4").Value
      Else
        Range("e5").Value = "エラー"
      End If
   ElseIf syohin = "食パン" Then
      If kosu <= Range("k5").Value And kosu >= 0 Then
        Range("e5").Value = kosu * Range("j5").Value
      Else
        Range("e5").Value = "エラー"
      End If
   ElseIf syohin = "カレーパン" Then
      If kosu <= Range("k6").Value And kosu >= 0 Then
        Range("e5").Value = kosu * Range("j6").Value
      Else
        Range("e5").Value = "エラー"
      End If
   Else
        Range("e5").Value = "エラー"
   End If
End Sub
Sub kingaku22()
   Dim kosu As Integer
   Dim syohin As String
    
   syohin = InputBox("商品名を入力してください")
   kosu = InputBox("個数を入力してください")

   Range("c5").Value = syohin
   Range("d5").Value = kosu

   If syohin = "アンパン" Then
      Select Case kosu
      Case 0 To Range("k4").Value
        Range("e5").Value = kosu * Range("j4").Value
      Case Else
        Range("e5").Value = "エラー"
      End Select
   ElseIf syohin = "食パン" Then
      Select Case kosu
      Case 0 To Range("k5").Value
        Range("e5").Value = kosu * Range("j5").Value
      Case Else
        Range("e5").Value = "エラー"
      End Select
   ElseIf syohin = "カレーパン" Then
      Select Case kosu
      Case 0 To Range("k6").Value
        Range("e5").Value = kosu * Range("j6").Value
      Case Else
        Range("e5").Value = "エラー"
      End Select
   Else
        Range("e5").Value = "エラー"
   End If
End Sub
Sub kinsyu()
   Dim maisu, kingaku As Integer

   kingaku = Range("d13").Value

   maisu = Range("j13").Value
   If kingaku \ 100 <= maisu Then
     Range("d16").Value = kingaku \ 100
     kingaku = kingaku Mod 100
   Else
     Range("d16").Value = maisu
     kingaku = kingaku - maisu * 100
   End If
   
   maisu = Range("j14").Value
   If kingaku \ 50 <= maisu Then
     Range("d17").Value = kingaku \ 50
     kingaku = kingaku Mod 50
   Else
     Range("d17").Value = maisu
     kingaku = kingaku - maisu * 50
   End If

   maisu = Range("j15").Value
   If kingaku \ 10 <= maisu Then
     Range("d18").Value = kingaku \ 10
     kingaku = kingaku Mod 10
   Else
     Range("d18").Value = maisu
     kingaku = kingaku - maisu * 10
   End If
   
   maisu = Range("j16").Value
   If kingaku \ 5 <= maisu Then
     Range("d19").Value = kingaku \ 5
     kingaku = kingaku Mod 5
   Else
     Range("d19").Value = maisu
     kingaku = kingaku - maisu * 5
   End If
    
   Range("d20").Value = kingaku

End Sub