小编Roh*_*Rai的帖子

我正在 excel 中创建一个仪表板，但是我想知道是否有更好的编码方式而不是这种方式。我想模块化它而不是这样做以使其更整洁。

Private Sub Afford()
    If af.Value = True Then
    af = afr.Value
    Sheet1.Cells(35, "C").Value = Sheet1.Cells(57, "C").Value
    Sheet1.Cells(35, "D").Value = WorksheetFunction.Round((Sheet1.Cells(35, "D").Value * 1.3), 0)
    Sheet1.Cells(35, "E").Value = WorksheetFunction.Round((Sheet1.Cells(35, "E").Value * 1.02), 0)
    Sheet1.Cells(35, "F").Value = WorksheetFunction.Round((Sheet1.Cells(35, "F").Value * 1.9), 0)
    Sheet1.Cells(35, "G").Value = WorksheetFunction.Round((Sheet1.Cells(35, "G").Value * 1.9), 0)
    Sheet1.Cells(35, "H").Value = WorksheetFunction.Round((Sheet1.Cells(35, "H").Value * 1.5), 0)