要实现的意图://////////////////////////////////////////////////////////////////////////////////////////
当前单元格为:A1
如何在A1单元格内实现(A1+B1)?
//////////////////////////////////////////////////////////////////////////////////////////不知道是否可以不通过VBA就能实现呢?'这个问题我只能在 Workbook_BeforePrint 中实现,但是这样的话在没打印前就不能实现数据的及时更新了

解决方案 »

  1.   

    看看这样行不?
    Dim a, b As Integer
    a = [A1]
    b = [B1]
    [A1] = a + b
      

  2.   

    你可以在C1里输入原来准备在A1里输入的内容
    把C1的文字颜色定为白色A1=B1+C1
      

  3.   

    如果用VBA实现,hero_ye的方法不错,利用一个变量储存A1的值。
      

  4.   

    经测试以下代码可以实现Sub CellSum()
        
        Dim i As Integer
        i = CInt(ActiveCell.Value)
        ActiveCell.Value = i + CInt(Range("A1").Value)
            
    End Sub
      

  5.   

    用个变量储存A1里的内容...然后计算再重写A1不就OK了...