以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 帮写代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152751) |
||||
-- 作者:wangglby -- 发布时间:2020/7/21 0:21:00 -- 帮写代码 想实现如下功能:
表A 有如下两个列,第一列日期,第二列为数字代码(此两列全为人工录入)
第一列 第二列 5月1日 1 5月3日 2 6月3日 1
表B的第一列,第一行自动填充为 表A的第二列为1时对应的第一列最新的日期(如果没有1,则默认为1月1日) 即:表B的第一行第一列为 6月3日
当表A内容变化时,如下
第一列 第二列 5月1日 1 5月3日 2 6月3日 1 6月8日 1
此时,表B的第一行第一列值为 6月8日。
万分感谢。
|
||||
-- 作者:有点蓝 -- 发布时间:2020/7/21 9:03:00 -- 没看懂。意思是表A任何一个单元格变化,表B就增加一行? |
||||
-- 作者:wangglby -- 发布时间:2020/7/21 12:39:00 -- 我用EXCEL做了个简单的示意图,把表达的意思说明下 |
||||
-- 作者:wangglby -- 发布时间:2020/7/21 12:42:00 -- 当表A内容变化是,表B的第一行第一列,跟着变化情况 |
||||
-- 作者:有点蓝 -- 发布时间:2020/7/21 13:33:00 -- 意思是表B的第一行第一列,永远记录的是表A最后一行的数据? |
||||
-- 作者:hudouzhitiger -- 发布时间:2020/7/21 14:23:00 -- \'DataColChanged表事件 If e.DataCol.Name="第二列" Then If e.NewValue=1 Then DataTables("表c").DataRows(0)("第一列")=e.DataRow("第一列") End If End If
|
||||
-- 作者:wangglby -- 发布时间:2020/7/21 21:41:00 -- 我用你的代码试了下,好像不能实现,请再帮看看,谢谢
|
||||
-- 作者:有点蓝 -- 发布时间:2020/7/21 21:48:00 -- 只跟最后一行有数据的行有关,还是随便一行改为1,都更新表C? |
||||
-- 作者:wangglby -- 发布时间:2020/7/21 21:48:00 --
|
||||
-- 作者:有点蓝 -- 发布时间:2020/7/21 21:59:00 --
|