excel中自动生成记录函数
答案:3 悬赏:30 手机版
解决时间 2021-11-14 13:34
- 提问者网友：末路
- 2021-11-14 01:29
excel中自动生成记录函数
最佳答案
- 五星知识达人网友：长青诗
- 2021-11-14 02:54
基本表 的A1输入数据 ，生成表的C列依次记录数据
在基本表 右键表名，查看代码，复制代码
Private SubWorkSheet_Change(ByVal Target As Excel.Range)
Dim Tr, Tc
Tr = Target.Row
Tc = Target.Column
k =WorksheetFunction.CountA(Sheets("生成表).Range("C:C"))
If Tr = 1 And Tc = 1 Then
Sheets("生成表").Cells(k + 1, 3) =Sheets("基本表").Cells(1, 1)
End If
End Sub
在基本表 右键表名，查看代码，复制代码
Private SubWorkSheet_Change(ByVal Target As Excel.Range)
Dim Tr, Tc
Tr = Target.Row
Tc = Target.Column
k =WorksheetFunction.CountA(Sheets("生成表).Range("C:C"))
If Tr = 1 And Tc = 1 Then
Sheets("生成表").Cells(k + 1, 3) =Sheets("基本表").Cells(1, 1)
End If
End Sub
全部回答
- 1楼网友：行路难
- 2021-11-14 04:30
- 2楼网友：梦中风几里
- 2021-11-14 04:25
这个用VBA写个宏代码就可以了，公式做不到。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯