在没有公式的Excel中,如何添加两个单元格?

分享于 

3分钟阅读

电脑

  繁體 雙語

问题:

我有一张Excel表格,上面有一个数字列表。 有时我想把X 单位从一个单元移动到另一个单元。

假设我有一个孩子的教室每一个都有一定数量的大理石。 表中有 2列,第一列为名称,第二列为大理石。 约翰给了 375块大理石。 我想更新工作表。

当前我取出计算器,做减法和加法,并手动更新单元格。

这很麻烦而且容易出错。 还有更好的方法吗?

( 我知道我可以在单元格中写"=8300+375",但是最终每个单元格都有一个愚蠢的公式- )


回答 1:

你可以使用paste特殊进行计算。

  • 在一个单元格中输入 -375,然后在它旁边输入 375
  • 选择新数字并按CTRL+C键
  • 选择要更改的单元格。
  • 在 ribbon/home/paste/"paste 特殊中"
  • 检查"添加"然后"确定"

enter image description here


回答 2:

这篇文章启发了我,因为它的速度更快,节省时间,所以我向你推荐了你的VBA宏。 我相信你可以处理它。

enter image description here

工作方式:

  • 我假设你在 A2:B4 范围内有数据。
  • C2:C4 中输入要减去的值。

  • 开发人员 TAB click click设计模式
    然后从 ActiveX控件插入 &
    单击命令按钮 icon 并将它的绘制
    工作表。

  • 单击命令按钮,你到达 Windows 编辑器。

  • 复制&粘贴这里代码

    private 子 CommandButton1_Click()

    sub

    
    Range("C2:C4").Select
    
    
     Selection.Copy
    
    
     Range("B2").Select
    
    
     Selection.PasteSpecial 
    
    
     Paste:=xlPasteAll, 
    
    
     Operation:=xlSubtract, SkipBlanks:= _
    
    
     False, Transpose:=False
    
    
     Range("C2:C4").Select
    
    
     Selection.ClearContents
    
    
     Application.CutCopyMode = False
    
    
    
    
  • 从 Windows 编辑器中单击 File菜单然后点击关闭 & Microsoft Microsoft Excel 。

  • 最后点击命令按钮

如果你在中找到新值,则为( 检查屏幕快照) 。

N.B 。

但是,如果只想将旧值从单元格中减去旧值,那么可以使用这里VBA代码。


Private Sub Worksheet_Change(ByVal Target As Excel.Range)



If Target.Column = 2 And Target.Row = 1 Then



 NewVal = Range("B1").Value


 Application.EnableEvents = False


 Application.Undo



 OldVal = Range("B1").Value


 Range("B1").Value = NewVal


 Range("B1").Value = NewVal - OldVal


 Application.EnableEvents = True



End If


End Sub



  • 按英镑ALT+F11打开VB编辑器和复制 & Paste上面显示的代码为标准模块

  • B1 中覆盖值后,代码将
    将它从旧值中减去并写 B1
    使用新值。

根据需要调整数据范围。



for  添加  form  Excel  单元格  Cells  
相关文章