EXCEL中如何实现我在表1输入磅单信息,表2自动更新表1数据

如题所述

需要用VBA实现,相应代码如下:

Sub 写入到表2()
If Sheet2.[a2] = "" Then
    rowNum = 2
Else
    rowNum = Sheet2.[a1].End(xlDown).Row + 1
End If
    Sheet2.Cells(rowNum, 1) = rowNum - 1
    Sheet2.Cells(rowNum, 2) = Sheet1.[b3]
    Sheet2.Cells(rowNum, 3) = Sheet1.[b5]
    Sheet2.Cells(rowNum, 4) = Sheet1.[d5]
    Sheet2.Cells(rowNum, 5) = Sheet1.[e5]
    Sheet2.Cells(rowNum, 6) = Sheet1.[f5]
End Sub

附件中文件是写好代码的,供参考。

 

注意:1、使用时需要将Excel宏安全性改为中或低,并重新打开Excel。

    2、如果你实际表格的格式与附件中文件表格的格式不一致,则需对代码进行修改,否则运行时会出错

 

使用方法:打开Excel后在任意一个工作表名上单击鼠标右键选:查看代码,在新弹出的窗口中选:插入——模块 然后将以上代码复制到先插入的模块中即可

 

07版及以上版本宏安全性修改:打开Excel后点击office按键(即左上角的那个大按键)——Excel选项——信任中心——信任中心设在——宏设置

温馨提示:答案为网友推荐,仅供参考
第1个回答  2014-05-30
将表二等于表一的相应单元格,计算完成后将表二的公式变为数值,下次再填表一的数据时就不会改变了追问

能举例子说明一下吗详细的好吗

第2个回答  推荐于2016-08-17
我知道一个比较笨的方法就是你先在sheet2裏面输入“=”号,然後再sheet1中点一下对应的单元格,该单元格就会有蚁纹,按下enter就OK了。
举个列:按你的表格sheet2中C2单元格要同sheet1中的B5单元格,你在Sheet2中C2单元格输入一个“=”,然後到Sheet1表中,点一下B5单元格,按enter。这样,不论你在Sheet1表B5单元格裏面输入什麽内容,Sheet2表中C2单元格内容都会变一样。
麻烦的是你要一个一个单元格设置。可能有更好的法子,看其他网友有没有更好的办法了。本回答被提问者采纳
第3个回答  2014-05-30
这个得用VBA代码很容易实现,excel自带公式难以做到追问

求教大神详细步骤

追答

很麻烦,你会vba么,如果会的话我给你发个类似的表你自己倒腾,能够实现录入单据-查找订单-修改单据-删除单据等功能,只需在sheet1中操作即可

第4个回答  2014-05-30
给你举个例子 就毛重这个来讲在表2中D2单元格输入=sheet1!D5追问

能举例子说明一下吗详细的好吗

追答

这就够详细了 选中D2就是表2的毛重 输入=sheet1!D5 的意思就是他在内容上与表1中D5单元格也就是表1的毛重相同。

相似回答