ExcelVBA作例3（合成レシピ：配合追加）

• 僕が実験で使う薬品の配合レシピを管理するExcelブックにはマクロが組まれています  

• 

  合成レシピ

  [http://:title]

• このブックには5つのボタンに5種類のマクロを組んであるので、これらをひとつづつ紹介していこうと思います  

  

  今回はこれ！

  
  
  
• 二種類のモノマーの配合（割合）を変えたレシピを追加するためのマクロです。

Sub 配合追加()
Dim 入力行 As Integer
入力行 = Range("B1048576").End(xlUp).Offset(2).Row
Dim ans As String
Do
    ans = InputBox(Range("C12").Value & "配合", "配合追加")
    If StrPtr(ans) = 0 Then Exit Sub  ' キャンセル時に終了
    Range("B14:D16").Copy Range(Cells(入力行, 2), Cells(入力行 + 2, 4))
    Cells(入力行, 3).Value = ans
    入力行 = 入力行 + 4
Loop
End Sub

• このボタンを押すと・・・ 

インプットボックスが立ち現れた！

• 

  物質Oの配合（割合）を入力して・・・

  
  OKボタンを押すと・・・

  

  配合が追加されて、再びインプットボックスが立ち現れた！

  
  
  

  

  再び追加

• キャンセルを押すと終了します。
• ほかのボタンのマクロは次回以降紹介します～