通过VBA根据日期自动生成序号

idiocx · 发表于 2016-8-28 19:34

有一张表格，每天需要导入数据到SQL里面
A列为日期列，B列为数据列，C列为序号列
想实现C列自动检测A列的输入情况，如A列有日期，则C列自动根据日期生成序列号
如A列为空，则C列也为空。
因为要导入SQL，所以不能使用函数，只能通过VBA编程检测，盼大神出手相助。

zax010 · 发表于 2016-8-28 20:04

Sub zz()
Set d = CreateObject("Scripting.Dictionary")
For i = 2 To [a65536].End(3).Row
      If Cells(i, 1) <> "" Then
         d(Cells(i, 1).Value) = d(Cells(i, 1).Value) + 1
         Cells(i, 3) = Format(Cells(i, 1), "yyyymmdd") & Format(d(Cells(i, 1).Value), "000")
      End If
Next
End Sub

zax010 · 发表于 2016-8-28 20:20

>>>>>>>>>>>>>>>>>>>>>>>>>

工作簿1.rar (13.07 KB, 下载次数: 217)

idiocx · 发表于 2016-8-28 20:32

本帖最后由 idiocx 于 2016-8-28 20:44 编辑

能否在加一段代码，让excel可以把文件另存为不带宏的普通工作表，谢谢！我用录制宏出来的代码都会提示：“是否要保存为不带宏的文件”的对话框，很麻烦
还有，就是我想调整日期那一列跟调整序列号那一列的话，要更改哪几个参数。（比如：日期由A列调到D列，序列号由C列调到A列）
不胜感激！

idiocx · 发表于 2016-8-28 20:33

我用录制宏出来的代码都会提示：“是否要保存为不带宏的文件”的对话框，很麻烦

idiocx · 发表于 2016-8-29 08:03

老师们再出手相助下，不胜感谢

lsc900707 · 发表于 2016-8-29 08:16

idiocx 发表于 2016-8-28 20:32
能否在加一段代码，让excel可以把文件另存为不带宏的普通工作表，谢谢！我用录制宏出来的代码都会提示：“ ...

日期由A列调到D列，序列号由C列调到A列,代码就修改为：
Sub zz()
   Set d = CreateObject("Scripting.Dictionary")
   For i = 2 To [d65536].End(3).Row
      If Cells(i, 4) <> "" Then
         d(Cells(i, 4).Value) = d(Cells(i, 4).Value) + 1
         Cells(i, 1) = Format(Cells(i, 4), "yyyymmdd") & Format(d(Cells(i, 4).Value), "000")
      End If
   Next
End Sub

idiocx · 发表于 2016-8-29 08:22

谢谢老师，那另存为的那个功能呢？有办法没

idiocx · 发表于 2016-8-29 08:34

嗯，我换成.xls格式的文件，就没有那个保存的问题了，谢谢zax010与lsc900707两位老师。

lsc900707 · 发表于 2016-8-29 08:46

idiocx 发表于 2016-8-29 08:34
嗯，我换成.xls格式的文件，就没有那个保存的问题了，谢谢zax010与lsc900707两位老师。

不换文件格式的话，就关掉对话框。

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

[求助] 通过VBA根据日期自动生成序号