ExcelVBA作例4（合成レシピ：配合削除）

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

  

  合成レシピ

  
  

  [http://:title]

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

  

  今回はこれ！

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

Sub 配合削除()
Dim 入力行 As Integer
入力行 = Range("B1048576").End(xlUp).Row
If 入力行 <> 16 Then
    Range(Cells(入力行, 2), Cells(入力行 - 2, 4)).Clear
End If
End Sub

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

一回押した

二回目押した（反応なし）

• このように、モノマーの記入欄の下に追加されていたほかの配合のレシピを一組ずつ削除してくれます
• 今回までで4つのボタンを紹介してきたので、次で最後のマクロです～