查看: 313|回复: 9
序号问题，大神给支个招啊
阅读权限20
在线时间 小时
本帖最后由 lzymbz 于
10:42 编辑
QQ图片44.png (12.59 KB, 下载次数: 0)
10:41 上传
需要这种序号效果，能帮帮忙吗？
(9.1 KB, 下载次数: 3)
10:42 上传
点击文件名下载附件
阅读权限20
在线时间 小时
找到了一个能自动刷新的，但是和我的要求有些不符，而我水平确实烂，参考了下也没有搞懂
(10.09 KB, 下载次数: 8)
15:26 上传
点击文件名下载附件
阅读权限20
在线时间 小时
& & & & & & & &
顶一下，大家帮帮忙，拜托了
阅读权限95
在线时间 小时
你不是有公式了吗..........................................................................................................
阅读权限20
在线时间 小时
你不是有公式了吗.................................................................................... ...
谢谢你的关注，公式是有了，但是公式意外因素比较多，数据行插入或者单元格公式被删除后会不起作用，我做的这个文档不是光我用，需要考虑意外因素，用vba自动生成的好处就是可以随时更新数据。
阅读权限95
在线时间 小时
用Private Sub Worksheet_Change(ByVal Target As Range)
阅读权限20
在线时间 小时
& & & & & & & &
用Private Sub Worksheet_Change(ByVal Target As Range)
上次qq请教过您，也用过你写的代码，用按钮运行第一个任务从1开始可以运行，我改写工作表事件就不行了，我水平很菜，会简单的照猫画虎吧，还是自己水平问题，没有系统学习过。
阅读权限20
在线时间 小时
用Private Sub Worksheet_Change(ByVal Target As Range)
目前需要的文档功能做出来了，基本都是搜索论坛，然后整合，序号的这个问题还是真难住我了。
阅读权限20
在线时间 小时
有大神给看看吗？拜托了
阅读权限20
在线时间 小时
Sub 生成序号()
Dim rng As Range, i&
& & For Each rng In Sheet3.Range(&C3&, Sheet3.Cells(Rows.Count, 3).End(3))
& && &&&If rng.Row = 1 Then
& && && &&&i = i + 1
& && && && &&&rng(1, 0) = i
& && &&&Else
& && && &&&If rng = rng.Offset(-1, 0) Then
& && && && &&&i = i + 1
& && && && &&&rng(1, 0) = i
& && && &&&Else
& && && && &&&i = 1
& && && && &&&rng(1, 0) = i
& && && &&&End If
& && &&&End If
& & Next
End Sub复制代码
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师去外企了，相练习一下口语，支个招，谢啦~
10-12-15 &
建议可以找个外教练习，一方面纠正发音，另一方面创造口语环境。但是这样的价格会很贵，有外国朋友更不错了。最近比较小点的外教口语班很流行，小组讨论，每日一个话题，之前看到中关村那边的新东方就有。
请登录后再发表评论!