如何解决每次数据输入后在另一工作表排列显示出来呢

任我行6548 · 发表于 2010-8-9 22:46

请教各位大侠如何在指定的单元格里输入数据，而在另一工作表里显示出每次输入的数据呢。

liuyan819 · 发表于 2010-8-9 22:59

我也学习一下

yvhgydn · 发表于 2010-8-9 23:15

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$9" Then Sheets("260001").[C65536].End(xlUp).Offset(-(Sheets("260001").[C1] <> ""), 0) = Target.Value
End Sub
将上面的代码写到表一的代码窗口
请教各位大侠，我使用了 -(Sheets("260001").[C1] <> "") 的写法，来避免表二C1为空时确保将数据写到第一个单元格
当表二C1不为空时，Sheets("260001").[C1] <> ""＝true,如果前面使用--或乘1的办法，会得到负1的结果，在此只能使用一个负号，相乘后才能得到1，这与涵数中的用法恰恰不一样，请各位指教

Book1.zip (7.75 KB, 下载次数: 19)

yvhgydn · 发表于 2010-8-9 23:27

在立即窗口中测试
？-true＝1
？--true＝-1

gfs57 · 发表于 2010-8-10 00:05

我也来凑凑热闹，请看附件：

		自动登录	找回密码
密码			免费注册

[求助] 如何解决每次数据输入后在另一工作表排列显示出来呢