条件によりROUNDUP/ROUNDDOWN動作を切り替える

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 "固定値"
                'Range(cell_result).Value = "1000"
        
            Case "特殊式を指定"
                'Range(cell_result).Value = "0"
        
            Case Else
                Range(cell_result).Value = "無指定"
        
        End Select
    
    Next rc

End Sub