Dim lngKR As Long '経常利益
    
    With Sheets(ShtName_損益分岐点)
        lngKR = Val(.Range("D27").Value)
    End With
    
    Range("E35").Value = Format(Abs(lngKR), "#,#")

 

Microsoft Office ブログランキングへ