Private Sub btnCal1_Click()
For rc = 8 To 12
cell_case = "I" & rc
cell_result = "J" & rc
cell1 = "C" & rc
cell2 = "D" & rc
cell1_x_cell2 = cell1 & "*" & cell2
cal_rule = Range(cell_case).Value
Select Case cal_rule
Case "切捨"
Range(cell_result).Value = "=ROUNDDOWN(" & cell1_x_cell2 & ",0)"
Case "切上"
Range(cell_result).Value = "=ROUNDUP(" & cell1_x_cell2 & ",0)"
Case "乗算"
Range(cell_result).Value = cell1_x_cell2
Case "固定値"
Case "特殊式を指定"
Case Else
Range(cell_result).Value = "無指定"
End Select
Next rc
End Sub