晚辈拜见各位大侠，求一个小小的代码！
时间：2011-08-08
来源：互联网
新手，才知道VBA，求帮助，问题应该很简单，能帮上忙的大侠，没啥说的，走！到我家喝酒去！
请教.rar(3.06 KB)
附件
请教.rar(3.06 KB)
2011-8-8 21:24, 下载次数: 7
作者: fooot 发布时间: 2011-08-08
小问题 见附近
请教.rar(7.99 KB)
附件
请教.rar(7.99 KB)
2011-8-8 21:40, 下载次数: 10
作者: nikotoo 发布时间: 2011-08-08
很简单的，你试看看，我还加啦一个返回。
请教.rar(10.12 KB)
附件
请教.rar(10.12 KB)
2011-8-8 21:54, 下载次数: 3
作者: 448733708 发布时间: 2011-08-08
'针对一对一单元格
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 2 And .Row > 1 Then
.Offset(0, -1) = .Row - 1
End If
End With
End Sub
'针对整列
Private Sub 代码()
y = Range("B" & Rows.Count).End(xlUp).Row
Range("A2:A" & y).ClearContents
Dim x As Integer
For x = 2 To y
If Cells(x, 2) <> "" Then
Z = Z + 1
Cells(x, 1) = Z
End If
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column = 2 And .Row > 1 Then
.Offset(0, -1) = .Row - 1
End If
End With
End Sub
'针对整列
Private Sub 代码()
y = Range("B" & Rows.Count).End(xlUp).Row
Range("A2:A" & y).ClearContents
Dim x As Integer
For x = 2 To y
If Cells(x, 2) <> "" Then
Z = Z + 1
Cells(x, 1) = Z
End If
Next
End Sub
作者: daley 发布时间: 2011-08-08
顶礼膜拜了，nikotoo先生，我以后会榨干你的油水的！：）
作者: fooot 发布时间: 2011-08-08
引用:
原帖由 448733708 于 2011-8-8 21:54 发表很简单的，你试看看，我还加啦一个返回。
作者: fooot 发布时间: 2011-08-08
nikotoo，448733708，daley
3位高手，有机会来贵州遵义，我请你们喝酒！
3位高手，有机会来贵州遵义，我请你们喝酒！
作者: fooot 发布时间: 2011-08-08
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
