求助！如何输入内容时自动插入序号和当天日期，并保持不自动更新.

sz216

1，如何在c列输入商品时，B列显示日期，1A列显示序号.
2,C列不输入时，则B列和A列不显示.
3,日期不会再跟随系统日期改变,不自动更新.

bird2751

思路：
1、设置变量 i , i = Range("C65536").End(xlUp).Row '检测出C列最后有数据的行号
2、Cells( i , 2 ).Formula = "=Today()" ' 在B列对应行中用公式生成今天的日期
3、Cells( i , 2 ).Value = Cells( i , 2 ).Value ' 清除公式保留日期
4、用Autofill 自动填写A列中的序号直到 i 行

719404338

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim i%
   
3. i = [a65536].End(3).Row
   
4. Range("a" & i + 1) = i
   
5. Range("b" & i + 1) = Date
   
6. End Sub
   

复制代码

alstar

惠州.rar (11.62 KB, 下载次数: 69)

2018-9-9 19:29 上传

点击文件名下载附件

请测试！